نحوه تابع نویسی

[hr0694]

سلام

من این تابع را چطوری تغییر بدم که بجای حروف فارسی عدد بنویسم یعنی تابع عدد به عدد

Function M(TheString As String) As Variant
For i = 1 To Len(TheString)
A = Mid(TheString, i, 1)
p = 0
1 = Then p "ا" = If A
2 = Then p "ب" = If A
M = M + p
Next
End Function

Private Sub Text1_Change()
(Text2 = M(Text1
End Sub

[setroyd]

میشه واضح تر بگی ؟

[hr0694]

منظورم اینه که تابع تبدیل عدد به عدد میخام مثلاً تابع بالا تبدیل حرف به عدد است حالا چه تغییراتی توش بدم

[returnx]

منظورم اینه که تابع تبدیل عدد به عدد میخام مثلاً تابع بالا تبدیل حرف به عدد است حالا چه تغییراتی توش بدم
یعنی چی ، عدد به عدد!؟
خوب عدد ، عدد هست دیگه ...
واضح تر بگو تا بتونیم راهنمایی کنیم...

[Mohsen.]

شاید خوب نفهمیده باشم چی گفتی ولی میتونی به جای همون "ا" و "ب" عددهای مورد نظرتو بزاری.
Function M(TheString As String) As Variant
For i = 1 To Len(TheString)
A = Mid(TheString, i, 1)
p = 0
if A ="1" then p=1
if A="2" then p = 1
M = M + p
Next
End Function

Private Sub Text1_Change()
(Text2 = M(Text1
End Sub

[MMR_1344]

میخوای تغییرات تو چی انجام بشه
یعنی میخوای از کجا اطلاعاتت رو بگیری اگر اطلاعات تو تکست باشه میتونی فایلت رو در زمان Change تکست بنویسی و یک سابروتین درست کنی و اطلاعات مربوط به هر حرف رو درون اون قرار بدی تا پس از تعیین هر کلید مقدار کلید زده شده رو با مقدار قبلی جمع کنه
واقعیتش هنوز نمیدونم چیکار میخوای بکنی

[setroyd]

منظورت اینه به کداسکی تبدیل کنی دونه به دونه ؟