سلام و عرض ادب خدمت دوستان عزیز و اعضای محترم
در خصوص تبدیل
حروف عربی "ی" و "ک" به فارسی
کاربر حرفه ایی و عزیز جناب "iranweld "
زحمت کشیدند کد
کد:
Sub arabibefarsi()
For Each cell In ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants)
cell.Value = WorksheetFunction.Trim(cell)
Cells.Replace What:=ChrW(1610), Replacement:=ChrW(1740), LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Cells.Replace What:=ChrW(1603), Replacement:=ChrW(1705), LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Next cell
End Sub
رو در اختیار بنده گذاشتند
سوالم اینه اگه بخوام
این رو
محدود به یک ستون کنم
یا بست بدم به
کل ورکبوک
چه سطری رو باید چه تغییری بدم
فکر میکنم کند هست میخوام محدودش کنم تا سریع تر بشه
و در انتهای کار که فرصت هست برای کل ورکبوک انجام بشه
***سوال دیگه اینه که چجوری میتونم اسم ماژول رو در صفحه ویزوال عوض کنم
علاقه مندی ها (Bookmarks)