مرحوم محمد محمدی

🖤 پیام تسلیت

با نهایت تأسف و تأثر، باخبر شدیم جناب آقای محمد محمدی با نام کاربری smartman ، از مدیران ارزشمند انجمن اکسل ایران، دار فانی را وداع گفته‌اند.

ایشان سال‌ها با دانش، تجربه، اخلاق نیکو و روحیه کمک به دیگران، سهم بزرگی در رشد و پویایی انجمن داشتند و خاطره حضور ارزشمندشان همواره در ذهن اعضای انجمن باقی خواهد ماند.

مدیریت و اعضای انجمن ExcelIran این ضایعه را به خانواده محترم ایشان، دوستان و تمامی اعضای انجمن تسلیت عرض نموده و از خداوند متعال برای آن مرحوم، رحمت و مغفرت الهی و برای بازماندگان صبر و شکیبایی مسئلت دارند.


انا لله و انا الیه راجعون

تابع max

Collapse
X
 
  • زمان
  • نمایش
حذف همه
new posts
  • میثم66

    • 2014/10/29
    • 56

    تابع max

    تو یک ستون تعدادی عدد هست.کد وی بی ای پیداکردن بزرگترین عدد رو میخواستم
    [CENTER][COLOR=#0000ff][SIZE=3][B]دانش هر فرد دارایی او نیست بلکه بدهکاری او به جامعه است[/B][/SIZE][/COLOR]
    [/CENTER]
  • Amir Ghasemiyan

    • 2013/09/20
    • 4600
    • 100.00

    #2
    نوشته اصلی توسط میثم66
    تو یک ستون تعدادی عدد هست.کد وی بی ای پیداکردن بزرگترین عدد رو میخواستم

    سلام
    ميتونين از اين كد استفاده كنيد
    کد:
    WorksheetFunction.Max(Range("A:A"))

    کامنت

    • میثم66

      • 2014/10/29
      • 56

      #3
      نوشته اصلی توسط amir ghasemiyan

      سلام
      ميتونين از اين كد استفاده كنيد
      کد:
      WorksheetFunction.Max(Range("A:A"))
      برای چاپش چجوری بنویسم اینجوری جواب نداد.
      کد PHP:
      Sub test()
      WorksheetFunction.Max (Range("A1:A4"))
      Range("C1").Value Max
      End Sub 
      [CENTER][COLOR=#0000ff][SIZE=3][B]دانش هر فرد دارایی او نیست بلکه بدهکاری او به جامعه است[/B][/SIZE][/COLOR]
      [/CENTER]

      کامنت

      • abootorab

        • 2014/10/17
        • 351

        #4
        نوشته اصلی توسط میثم66
        برای چاپش چجوری بنویسم اینجوری جواب نداد.
        کد PHP:
        Sub test()
        WorksheetFunction.Max (Range("A1:A4"))
        Range("C1").Value Max
        End Sub 
        با درود
        ضمن عرض تشکر از امیر قاسمیان عزیز، به این شکل بنویسید.
        کد PHP:
        Sub test()
        Range("C1").Value WorksheetFunction.Max(Range("A1:A4"))
        End Sub 

        کامنت

        چند لحظه..