حرکت روی یک حروف

[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 

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