[حل شده] حرکت روی یک حروف

[tarfandenter]

سلام
من میخوام یک کاراکتر توی هر سلول وارد کنم که در نهایت مثلا میشه "سلام خوبی"
بعد اکسل از من عدد بخواد من وارد میکنم مثلا 2 از راست بشماره دومی رو بده ل هست بعد دوباره عدد بخواد من وارد میکنم مثلا 5 از ادامه قبلی بشماره با خود ل میشه "و" و همینجوری عدد بخواد هی ما وارد کنیم وقتی سلول تموم شد از سلول اول دوباره شروع کنه ب شمارش ادامه عدد رو
چجوری باید پیاده کنیم لطفا کمک نمایید
با تشکر

[Ali Parsaei]

سلام،
مي توانيد يک command button در شيت بگذاريد و کد زير را داخلش بنويسيد:
(فرض بر اين است که سل مورد نظر جهت بررسي a1 مي باشد.

Private Sub CommandButton1_Click()
Dim C As String
Dim K As Integer
Dim D As String
K = 0
Do While Range("A1") <> ""
C = InputBox("انتخاب حروف سل", "عدد را وارد کنيد")
If C = "" Then
Exit Sub
End If
If (C + K) - (Len(Range("A1")) * Int((C + K) / Len(Range("A1")))) = 0 Then
D = Mid(Range("A1").Value, Len(Range("A1")), 1)
Else
D = Mid(Range("A1").Value, (C + K) - (Len(Range("A1")) * Int((C + K) / Len(Range("A1")))), 1)
End If
K = K + C
MsgBox D
Loop
End Sub 

[tarfandenter]

سلام،
مي توانيد يک command button در شيت بگذاريد و کد زير را داخلش بنويسيد:
(فرض بر اين است که سل مورد نظر جهت بررسي a1 مي باشد.

Private Sub CommandButton1_Click()
Dim C As String
Dim K As Integer
Dim D As String
K = 0
Do While Range("A1") <> ""
C = InputBox("انتخاب حروف سل", "عدد را وارد کنيد")
If C = "" Then
Exit Sub
End If
If (C + K) - (Len(Range("A1")) * Int((C + K) / Len(Range("A1")))) = 0 Then
D = Mid(Range("A1").Value, Len(Range("A1")), 1)
Else
D = Mid(Range("A1").Value, (C + K) - (Len(Range("A1")) * Int((C + K) / Len(Range("A1")))), 1)
End If
K = K + C
MsgBox D
Loop
End Sub 

ممنون از شما اجرکم عندالله