ببخشید یه مشکل در جدا سازی متن در اکسل دارم . تعداد زیادی اطلاعات مالی هست که ماه رو بین متن نوشته مثلاً بهمن ماه رو میخام از دل متن جدا کنم .ممنون اگه راهنمایی کنید
جدا سازی متن
Collapse
X
-
ببخشید یه مشکل در جدا سازی متن در اکسل دارم . تعداد زیادی اطلاعات مالی هست که ماه رو بین متن نوشته مثلاً بهمن ماه رو میخام از دل متن جدا کنم .ممنون اگه راهنمایی کنید/ ببخشید فایل اشتباه فرستادمفایل های پیوست شده -
با سلام
لطفا مثال بیشتری در فایل نمونه قرار بدید
از تمامی ماه ها.. باید ساختار مشابهی رو پیدا کرد تا بشه کاری کرد[CENTER][B]بهترین راه ذخیره زمان(یادگیری)،،حل مشکلات دیگران است
[COLOR=#0000ff]مشکلات دیگران، روزی مشکلات ما هم خواهد شد[/COLOR][/B][COLOR=#ff0000][B][FONT=arial][/FONT][/B][/COLOR]
[/CENTER]کامنت
-
با سلام . مشکل بنده در جدا کردن بر اساس ماه است. ممنون از راهنمایی تان.فایل های پیوست شدهکامنت
-
دوست عزیز برای راه حلی که پیشنهاد میکنم بهتره از آفیس 2013 و به بالا استفاده کنید.
در سل d1 ماه مورد نظر که از B1 باید استخراج بشه را به صورت دستی بنویسید. مثلا در فایل شما بهمن هست
بعد از D1 تا آخرین خونه ای که توش اطلاعات هست انتخاب کنید ( منظورم اینه که اگه آخرین اطلاعات تو سل B20 هست شما هم از D1 تا D20 را انتخاب کنید)
حالا کلید های Ctrl + E را بفشارید.[CENTER][IMG]http://forum.exceliran.com/signaturepics/sigpic909_10.gif[/IMG]
[/CENTER]کامنت
-
با سلام
یک فانکشن یوزر دیفاین برای شما تهیه گردید
در یک سلول خالی قرار بگیرید و فرمول =MAH را تایپ نموده و سلول متنی مورد نظر را انتخاب کنید
کد PHP:Function MAH(XX As Range)
If InStr(XX, "فروردین") > 0 Then
MAH = "فروردین"
ElseIf InStr(XX, "اردیبهشت") > 0 Then
MAH = "اردیبهشت"
ElseIf InStr(XX, "خرداد") > 0 Then
MAH = "خرداد"
ElseIf InStr(XX, "تیر") > 0 Then
MAH = "تیر"
ElseIf InStr(XX, "مرداد") > 0 Then
MAH = "مرداد"
ElseIf InStr(XX, "ÔåÑíæÑ") > 0 Then
MAH = "ÔåÑíæÑ"
ElseIf InStr(XX, "ãåÑ") > 0 Then
MAH = "ãåÑ"
ElseIf InStr(XX, "ÂÈÇä") > 0 Then
MAH = "ÂÈÇä"
ElseIf InStr(XX, "ÂÐÑ") > 0 Then
MAH = "ÂÐÑ"
ElseIf InStr(XX, ChrW(1583) & ChrW(1740)) > 0 Then
MAH = ChrW(1583) & ChrW(1740)
ElseIf InStr(XX, "Èåãä") > 0 Then
MAH = "Èåãä"
ElseIf InStr(XX, "ÇÓÝäÏ") > 0 Then
MAH = "ÇÓÝäÏ"
End If
End Function
فایل های پیوست شدهLast edited by iranweld; 2017/04/18, 13:27.کامنت
-
کامنت
کامنت