نمایش اطلاعات در یوزر فرم با کلیک روی تیتر وتونایی ثبت اطلاعات در ردیف

[60vahidsalehi]

با سلام من فرمی ساختم که

با کلیک روی تیتر هر ردیف یک فرم باز میشه

که اطلاعات اون ردیف رو نشون میده

میخوام با کلید روی ثبت

اطلاعات سلول تغییر کنه

[abootorab]

با سلام من فرمی ساختم که

با کلیک روی تیتر هر ردیف یک فرم باز میشه

که اطلاعات اون ردیف رو نشون میده

میخوام با کلید روی ثبت

اطلاعات سلول تغییر کنه

با درود
اگه هدف شما ویرایش و ثبت اطلاعات هر ردیف هست در قسمت جزئیات UserForm5 ابتدا TabIndex تمام TextBoxها رو به ترتیب از راست به چپ و از شماره 1 الی 12 شماره گذاری کنید و سپس از کد زیر برای کلید "ثبت" درون UserForm5 استفاده کنید.
امیدوارم منظورتونو درست متوجه شده باشم.



Private Sub CommandButton1_Click()
For Each c In Me.Controls
If TypeOf c Is MSForms.TextBox Then Sheet3.Cells(ActiveCell.Row, c.TabIndex) = c.Value
Next
End Sub

[60vahidsalehi]

دوست عزیز کار نمیکنه میشه فایلب پیوست کنید؟

[Ali Parsaei]

همانطور که جناب ابوتراب فرموده اند بايد:

در قسمت جزئیات 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

[abootorab]

با درود و تشکر از جناب پارسای عزیز
دوست عزیز با روش زیر هم میتونید به هدفتون برسید، مزیتی که در این روش وجود داره اینه که نیاز به مرتب کردن TabIndex مربوط به TextBox ها نیست.
امیدوارم با این روش مشکلی نداشته باشین.



Private Sub CommandButton1_Click()
For i = 1 To 12
Sheet3.Cells(ActiveCell.Row, i) = Me.Controls("TextBox" & i).Value
Next i
End Sub