همانطور که جناب ابوتراب فرموده اند بايد:
در قسمت جزئیات UserForm5 ابتدا TabIndex تمام TextBoxها رو به ترتیب از راست به چپ و از شماره 1 الی 12 شماره گذاری کنید
در آن صورت کد مربوطه کار خواهد کرد. از کد زير هم مي شود استفاده کرد که نياز به مرتب کردن تب ها نباشد (ولي طبعا" کد جناب ابوتراب کوتاه تر و حرفه اي تر است):
کد:
Private Sub CommandButton1_Click()
ActiveCell.Value = TextBox1.Text
ActiveCell.Offset(0, 1).Value = TextBox2.Text
ActiveCell.Offset(0, 2).Value = TextBox3.Text
ActiveCell.Offset(0, 3).Value = TextBox4.Text
ActiveCell.Offset(0, 4).Value = TextBox5.Text
ActiveCell.Offset(0, 5).Value = TextBox6.Text
ActiveCell.Offset(0, 6).Value = TextBox7.Text
ActiveCell.Offset(0, 7).Value = TextBox8.Text
ActiveCell.Offset(0, 8).Value = TextBox8.Text
ActiveCell.Offset(0, 9).Value = TextBox9.Text
ActiveCell.Offset(0, 10).Value = TextBox10.Text
ActiveCell.Offset(0, 11).Value = TextBox11.Text
ActiveCell.Offset(0, 12).Value = TextBox12.Text
End
End Sub
علاقه مندی ها (Bookmarks)