نشان دادن نام ماه در اکسل

[sogmad]

سلام
چطوری یک فرمول بنویسم که تاریخ رو گرفت نام اون ماه رو بنویسه !!
مثلا 1393/07/01 مهر

من یکسری تاریخ دارم تو ستون جدولم که میخام ماهشون رو بدست میارم
ممنون

[Amir Ghasemiyan]

سلام
چطوری یک فرمول بنویسم که تاریخ رو گرفت نام اون ماه رو بنویسه !!
مثلا 1393/07/01 مهر

من یکسری تاریخ دارم تو ستون جدولم که میخام ماهشون رو بدست میارم
ممنون

سلام
ميتونين از توابع شمسي استفاده كنيد و يا از كدهاي وي بي
اگر خواستين بگين براتون كدشو بنويسم

[sogmad]

سلام
ميتونين از توابع شمسي استفاده كنيد و يا از كدهاي وي بي
اگر خواستين بگين براتون كدشو بنويسم

سلام از توابع شمسی استفاده میکنم با استفاده از فرمول ()tbh= اونو بصورت نام ماه درمیارم ولی من فقط نام ماه رو میخام
مثال زیر رو ببینید
تاریخ : 1393/07/05
فرمول : ()tbh=
نتیجه : 5 مهر 1393
من فقط مهر رو لازم دارم !!!!!

[sogmad]

سلام
ميتونين از توابع شمسي استفاده كنيد و يا از كدهاي وي بي
اگر خواستين بگين براتون كدشو بنويسم

لطف کنید این صفحه رو هم ببینید کاری از دستتون برمیاد !!!
لیست کشویی انتخاب تاریخ

[Amir Ghasemiyan]

سلام از توابع شمسی استفاده میکنم با استفاده از فرمول ()tbh= اونو بصورت نام ماه درمیارم ولی من فقط نام ماه رو میخام
مثال زیر رو ببینید
تاریخ : 1393/07/05
فرمول : ()tbh=
نتیجه : 5 مهر 1393
من فقط مهر رو لازم دارم !!!!!

آها بله. متوجه شدم.
خب شما از اين فانكشن استفاده كنيد.
اين كدها رو داخل ماژول بذارين و براي استفاده داخل سلول مورد نظر مثلا بنويسين

=EImount(A1)

Function EImounth(tarikh As String)
a = Split(tarikh, "/")
mah = a(1)
If mah = 1 Then
    EImounth = ChrW(1601) & ChrW(1585) & ChrW(1608) & ChrW(1585) & ChrW(1583) & ChrW(1610) & ChrW(1606)
ElseIf mah = 2 Then
    EImounth = ChrW(1575) & ChrW(1585) & ChrW(1583) & ChrW(1610) & ChrW(1576) & ChrW(1607) & ChrW(1588) & ChrW(1578)
ElseIf mah = 3 Then
    EImounth = ChrW(1582) & ChrW(1585) & ChrW(1583) & ChrW(1575) & ChrW(1583)
ElseIf mah = 4 Then
    EImounth = ChrW(1578) & ChrW(1610) & ChrW(1585)
ElseIf mah = 5 Then
    EImounth = ChrW(1605) & ChrW(1585) & ChrW(1583) & ChrW(1575) & ChrW(1583)
ElseIf mah = 6 Then
    EImounth = ChrW(1588) & ChrW(1607) & ChrW(1585) & ChrW(1610) & ChrW(1608) & ChrW(1585)
ElseIf mah = 7 Then
    EImounth = ChrW(1605) & ChrW(1607) & ChrW(1585)
ElseIf mah = 8 Then
    EImounth = ChrW(1570) & ChrW(1576) & ChrW(1575) & ChrW(1606)
ElseIf mah = 9 Then
    EImounth = ChrW(1570) & ChrW(1584) & ChrW(1585)
ElseIf mah = 10 Then
    EImounth = ChrW(1583) & ChrW(1610)
ElseIf mah = 11 Then
    EImounth = ChrW(1576) & ChrW(1607) & ChrW(1605) & ChrW(1606)
ElseIf mah = 12 Then
    EImounth = ChrW(1575) & ChrW(1587) & ChrW(1601) & ChrW(1606) & ChrW(1583)
End If
End Function

[ali.b]

با اجازه اقای قاسمیان

شما میتونید این فانکشن رو (منبع: اقای اسماعیلی) ایجاد کنین

Function StripNumber(stdText As String)Dim str As String, i As Integer
'strips the number from a longer text string
stdText = Trim(stdText)


For i = 1 To Len(stdText)
If Not IsNumeric(Mid(stdText, i, 1)) Then
str = str & Mid(stdText, i, 1)
End If
Next i


StripNumber = str ' * 1


End Function

بعد از تابع زیر برای جدا سازی ماه استفاده کنین

=TRIM(StripNumber(J4))

j4 ادرس سلولی هست که محتوای اون 5 مهر 1393 باشه و این کد مهر رو براتون جدا میکنه

[sogmad]

با اجازه اقای قاسمیان

شما میتونید این فانکشن رو (منبع: اقای اسماعیلی) ایجاد کنین

Function StripNumber(stdText As String)Dim str As String, i As Integer
'strips the number from a longer text string
stdText = Trim(stdText)


For i = 1 To Len(stdText)
If Not IsNumeric(Mid(stdText, i, 1)) Then
str = str & Mid(stdText, i, 1)
End If
Next i


StripNumber = str ' * 1


End Function

بعد از تابع زیر برای جدا سازی ماه استفاده کنین

=TRIM(StripNumber(J4))

j4 ادرس سلولی هست که محتوای اون 5 مهر 1393 باشه و این کد مهر رو براتون جدا میکنه

دوستان من نمیدونم اینا چیه ؟؟!!!! اینارو کجا باید بزارم !!!
با عرض شرمندگی من تازه واردم !!!

[khakzad]

سلام دوست عزیز
قسمت اول کد وی بی هست باید در محیط وی بی پیست کنید
قسمت دوم هم فرمول.........

[sogmad]

سلام دوست عزیز
قسمت اول کد وی بی هست باید در محیط وی بی پیست کنید
قسمت دوم هم فرمول.........

من یاد ندارم !!!*و نمیدونم کجا پیست کنم !!!!!!!!!!!!!!!!! با عرض شرمندگی !!!!!!
روش آسونتری نیست !!!
من خودم یک روش درست کردم !! منتها یک مشکل داره !!
من با فرمول =J_normdate تاریخارو به شکل مثلن 13930203 درمیارم !! بعدش با فرمول MID دوتا ازچپ و 5 تا از راست عدد وسطش که مربوط به عددماه است رو درمیارم !! تو یه شیت جداگانه برای هر عددی که بوسیله ی فرمول MID در آوردم ماهشو تعریف میکنم !! مثلا اینجا اردیبهشت
بعدش با VLOOKUP تو صفحه ی اصلیم نام ماه رو درمیارم !!
حالا مشکل اینجاس که طرف باید 1393 بنویسه مع 93 !! چون فرمول MID بهم میخوره !! نمیدونم منظورمو متوجه شدین !!
نمیشه یک ماسک بزارم مثه تو اکسس
اینجوری
0000/00/00

[misammisam]

من یاد ندارم !!!*و نمیدونم کجا پیست کنم !!!!!!!!!!!!!!!!! با عرض شرمندگی !!!!!!
روش آسونتری نیست !!!
من خودم یک روش درست کردم !! منتها یک مشکل داره !!
من با فرمول =J_normdate تاریخارو به شکل مثلن 13930203 درمیارم !! بعدش با فرمول MID دوتا ازچپ و 5 تا از راست عدد وسطش که مربوط به عددماه است رو درمیارم !! تو یه شیت جداگانه برای هر عددی که بوسیله ی فرمول MID در آوردم ماهشو تعریف میکنم !! مثلا اینجا اردیبهشت
بعدش با VLOOKUP تو صفحه ی اصلیم نام ماه رو درمیارم !!
حالا مشکل اینجاس که طرف باید 1393 بنویسه مع 93 !! چون فرمول MID بهم میخوره !! نمیدونم منظورمو متوجه شدین !!
نمیشه یک ماسک بزارم مثه تو اکسس
اینجوری
0000/00/00

تو اين پست جوابرو گذاشتم
دریافت درصدی امتیاز
سوالها يكيه فقط نحوه پرسيدنش فرق ميكنه !!!!!!!!!!!

[sogmad]

تو اين پست جوابرو گذاشتم
دریافت درصدی امتیاز
سوالها يكيه فقط نحوه پرسيدنش فرق ميكنه !!!!!!!!!!!

متشکرم