Rubick
جمعه 16 تیر 1396, 09:04 صبح
سلام
دوستان من به یه مشکل بر خوردم در کد میخوام که در حلقه for اون هر حرف یا عدد رو داخل یه فیلد بزازم نام فیل ها هم t1 تا t10 هست و میخوام در کد t1.value با اجرای حلقه تغییر کنه تا هر حرف توی فیلد خودش قرار بگیره
ممنون میشم کمکم کنید
Dim lg
lg = Len(t.Value)
For i = 1 To lg Step 1
"t"+i.value = Mid(t.Text, i, 1)
Next i
دوستان من به یه مشکل بر خوردم در کد میخوام که در حلقه for اون هر حرف یا عدد رو داخل یه فیلد بزازم نام فیل ها هم t1 تا t10 هست و میخوام در کد t1.value با اجرای حلقه تغییر کنه تا هر حرف توی فیلد خودش قرار بگیره
ممنون میشم کمکم کنید
Dim lg
lg = Len(t.Value)
For i = 1 To lg Step 1
"t"+i.value = Mid(t.Text, i, 1)
Next i