نوشته اصلی توسط
barrai
ببخشید که اینجا مطرح کردم نمیدونم چرا نمیتونم پست جدید بدم
به هرحال موضوع سوالم مشترک با این پست هستش:
تو فایل پیوست میخوام اگه هر عددی را تو باکس تکرار وارد کردم به همون تعداد اطلاعات را زیر هم تو شیت یک ثبت کنه به عبارت ساده تر: من اطلاعات را تو تکست باکسها وارد میکنم بعد تو خونه تکرار به طور مثال عدد 3 را وارد میکنم بعد دکمه ثبت را که میزنم اطلاعات سه بار تو شیت یک زیر هم نوشته بشه
ممنون
میتونید از کد زیربرای دکمه ثبت استفاده کنید:
کد:
Private Sub CommandButton1_Click()
Dim X As Integer
Dim nextrow As Range
Dim cNum As Integer
Set nextrow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
cNum = 4
For i = 1 To TextBox5.Value
For X = 1 To cNum
nextrow = Me.Controls("TextBox" & X).Value
Set nextrow = nextrow.Offset(0, 1)
If X = cNum Then
Set nextrow = nextrow.Offset(1, -4)
End If
Next
Next i
End Sub
علاقه مندی ها (Bookmarks)