نحوه مقایسه تاریخ ها در vb در اکسل

[z.fotouhi]

باسلام
درصورتی که بخواهیم در قسمت VB در نرم افزار اکسل ساعت های موجود در دو ستون را از نظر کوچکتر و بزرگتری با هم مقایسه کنیم، چه طوری باید بنویسیم؟ مثلا ساعت 23:40 رو چه طوری میشه با ساعت 15:20 مقایسه کرد؟ البته اگه فقط ساعت ها رو هم با هم مقایسه کنه کافیه. مثلا در مثال گفته شده برای ما فقط مهمه که ساعت 23 با 15 مقایسه بشه و بگه که کدوم بزرگتره؟ من برای راحتی در ستون جداگانه ساعت رو با تابع hour تفکیک کردم و بعد در کد گفتم که مقایسه کنه ولی error میده. کدی که نوشتم به این صورته.ماتریس t ساعت ها رو از یک شیت میخونه و بعد با داده های شیت واگذاری مقایسه می کنه. ولی error میده. ممنون میشم از راهنماییتون.

Dim t(100) As Integer


For i = 6 To 50
t(i) = Worksheets("farvaddin").Cells(i, 4).Value
...
if t(j) < Worksheets("vagozari").Cells(i, 4).Value then
...

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[mokaram]

مشکل اینه که شما داده هاتون تو یه شیت نیست
برای همین با ضبط یه ماکرو ،دادهاتون را تو یه شیت ( دو ستون کنار هم اینجا a و b ) بیارید و بعد عمل مقایسه را انجام بدید

Dim c As Range
For Each c In Sheet1.Range("a1:a100")
    If c <> "" Then
        If c.Value > c.Offset(0, 1).Value Then
            c.Offset(0, 2).Value = c.Value
        Else
            c.Offset(0, 2).Value = c.Offset(0, 1).Value
        End If
    End If
Next c 

[z.fotouhi]

ممنون مشکلم حل شد. فقط اگر بخواهیم کدی بنویسیم که چند ماکرو را با هم run کند، چطوری باید بنویسیم؟ اگر همه کدهای مربوط به این چند ماکرو را داخل یک کد بریزیم زمان run خیلی زیاد میشه؟ 12 تا ماکرو داریم.
باتشکر

[امين اسماعيلي]

با درود
قبلا بحث شده این موضوع فراخوانی ماکرو ها از Call استفاده کنید مثلا Call ExcelIran ه در اینجا اکسل ایران نام ماکرو تون هست و بعد به همین روال