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

Collapse
X
 
  • زمان
  • نمایش
حذف همه
new posts
  • z.fotouhi

    • 2014/06/03
    • 11

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

    باسلام
    درصورتی که بخواهیم در قسمت 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
    مدير تالار اکسل و بانک اطلاعاتی

    • 2011/02/06
    • 1805
    • 74.00

    #2
    مشکل اینه که شما داده هاتون تو یه شیت نیست
    برای همین با ضبط یه ماکرو ،دادهاتون را تو یه شیت ( دو ستون کنار هم اینجا a و b ) بیارید و بعد عمل مقایسه را انجام بدید
    کد PHP:
    Dim c As Range
    For Each c In Sheet1.Range("a1:a100")
        If 
    <> "" Then
            
    If c.Value c.Offset(01).Value Then
                c
    .Offset(02).Value c.Value
            
    Else
                
    c.Offset(02).Value c.Offset(01).Value
            End 
    If
        
    End If
    Next c 
    [CENTER][IMG]http://forum.exceliran.com/signaturepics/sigpic909_10.gif[/IMG]
    [/CENTER]

    کامنت

    • z.fotouhi

      • 2014/06/03
      • 11

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

      کامنت

      • امين اسماعيلي
        مدير تالار ويژوال بيسيك

        • 2013/01/17
        • 1198
        • 84.00

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

        کامنت

        چند لحظه..