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

🖤 پیام تسلیت

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

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

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


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

تبدیل تاریخی مثل 1397/1/1 به 1397/01/01

Collapse
X
 
  • زمان
  • نمایش
حذف همه
new posts
  • sepiiid
    • 2018/08/09
    • 2

    پرسش تبدیل تاریخی مثل 1397/1/1 به 1397/01/01

    سلام دوستان
    من یه ستون تاریخ شمسی دارم که فرمتش date نیست و تاریخایی که توش هست، اگر مثلا ماه یا روز یک رقمی هستن قبلشون صفر نداره،یعنی به صورت مثلا 1397/1/3 هست، الان من میخوام یه کاری کنم که برای سلول هایی که ماه یا روزشون تک رقمی هست یه صفر بیاد قبلشون. راه هایی رو برای رسیدن به نتیجه امتحان کردم که در نهایت به فرمول های طولانی و گیج کننده منتهی میشد. میخواستم ببینم آیا راه ساده ای برای این کار وجود داره؟ ممنون
  • Amir Ghasemiyan

    • 2013/09/20
    • 4600
    • 100.00

    #2
    سلام دوست عزیز
    اگر بخواید میشه با vba خیلی راحت این کار رو کرد
    کد:
    Sub fix_date()
    d = Split(Range("A1"), "/")
    For i = LBound(d) To UBound(d)
        If Len(d(i)) < 2 Then d(i) = "0" & d(i)
    Next i
    Range("A1") = Join(d, "/")
    End Sub

    کامنت

    • sepiiid
      • 2018/08/09
      • 2

      #3
      نوشته اصلی توسط Amir Ghasemiyan
      سلام دوست عزیز
      اگر بخواید میشه با vba خیلی راحت این کار رو کرد
      کد:
      Sub fix_date()
      d = Split(Range("A1"), "/")
      For i = LBound(d) To UBound(d)
          If Len(d(i)) < 2 Then d(i) = "0" & d(i)
      Next i
      Range("A1") = Join(d, "/")
      End Sub
      ممنون،ولی من میخوام با توابع اکسل این کار رو انجام بدم

      کامنت

      • Amir Ghasemiyan

        • 2013/09/20
        • 4600
        • 100.00

        #4
        نوشته اصلی توسط sepiiid
        ممنون،ولی من میخوام با توابع اکسل این کار رو انجام بدم

        کوتاه ترین فرمولی که به ذهنم رسید این هست منتها خیلی هم کوتاه نیست

        کد:
        =CONCATENATE(LEFT(K5,FIND("/",K5)-1),"/",TEXT(SUBSTITUTE(MID(K5,FIND("/",K5)+1,2),"/",""),"00"),"/",TEXT(--RIGHT(SUBSTITUTE(K5,"/","    "),2),"00"))

        کامنت

        چند لحظه..