پرسش ثبت اطلاعات از یک تکس باکس به تکس باکس دیگر

[میثم مقدم نیا]

با سلام

من دوتا یوزر فرم ایجاد کردم که وقتی در یوزر فرم یک روی تکس باکس ها دابل کلیک میکنم یوزر فرم دوم باز میشه حالا میخوام با زدن کلیدثبت اطلاعات تکس باکس یوزر فرم دو به تکس باکسی که در یوزرفرم یک روش دابل کلیک کردم منتقل بشه


من این مبحث حلقه کردن رو یاد نگرفتم
آیا امکانش هست کد زیر را حلقه کنیم و برای تمام تکس باکس ها ننوشت

Private Sub TextBox7_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    UserForm2.Show
End Sub 

ممنون از لطف شما اساتید عزیز

[میثم مقدم نیا]

با سلام

من دوتا یوزر فرم ایجاد کردم که وقتی در یوزر فرم یک روی تکس باکس ها دابل کلیک میکنم یوزر فرم دوم باز میشه حالا میخوام با زدن کلیدثبت اطلاعات تکس باکس یوزر فرم دو به تکس باکسی که در یوزرفرم یک روش دابل کلیک کردم منتقل بشه


من این مبحث حلقه کردن رو یاد نگرفتم
آیا امکانش هست کد زیر را حلقه کنیم و برای تمام تکس باکس ها ننوشت

Private Sub TextBox7_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    UserForm2.Show
End Sub 

ممنون از لطف شما اساتید عزیز

البته برای انتقال اطلاعات از کد زیر استفاده کردم ولی این برای یک تکس باکس عمل میکنه

Private Sub CommandButton1_Click()

UserForm1.TextBox1.Value = UserForm2.TextBox1.Value
Unload Me

End Sub 

[میثم مقدم نیا]

سلام
دوستان آیا کسی هست که بتونه کمکم کنه ؟

[میثم مقدم نیا]

سلام
دوستان و اساتید عزیز لطفاً راهنمایبم کنید اگه راه حلی نداره بازهم اینجا اعلام کنید که دیگه من نبالش نباشم

[iranweld]

با سلام

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

لینک

[میثم مقدم نیا]

با سلام

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

لینک

ممنون از راهنمایتون ولی این جواب من نبود
1=
Range("h14") = Label54.Caption


2=
UserForm1.TextBox6.Text = Label54.Caption

در مورد اولی تو سلول کپی میشه
و در مورد دومی فقط تو یک TextBox کپی میشه


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

ممنون میشم کمک کنید

[M_ExceL]

با سلام

من دوتا یوزر فرم ایجاد کردم که وقتی در یوزر فرم یک روی تکس باکس ها دابل کلیک میکنم یوزر فرم دوم باز میشه حالا میخوام با زدن کلیدثبت اطلاعات تکس باکس یوزر فرم دو به تکس باکسی که در یوزرفرم یک روش دابل کلیک کردم منتقل بشه


من این مبحث حلقه کردن رو یاد نگرفتم
آیا امکانش هست کد زیر را حلقه کنیم و برای تمام تکس باکس ها ننوشت

Private Sub TextBox7_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    UserForm2.Show
End Sub 

ممنون از لطف شما اساتید عزیز

سلام،
راه حل اینست که ابتدا یک متغیر عمومی از نوع string تعریف کنید سپس اون را در رویداد DblClick تکست باکس ها مقداردهی کنید.
در پایان با کلیک روی ثبت یوزرفورم 2 این متغیر رو مورد اشاره قرار بدید.
فایل پیوست رو ملاحضه کنید متوجه خواهید شد.
یا حق.

[میثم مقدم نیا]

سلام،
راه حل اینست که ابتدا یک متغیر عمومی از نوع string تعریف کنید سپس اون را در رویداد DblClick تکست باکس ها مقداردهی کنید.
در پایان با کلیک روی ثبت یوزرفورم 2 این متغیر رو مورد اشاره قرار بدید.
فایل پیوست رو ملاحضه کنید متوجه خواهید شد.
یا حق.

ممنون استاد عالی بود


من این مبحث حلقه کردن رو یاد نگرفتم
آیا امکانش هست کد زیر را حلقه کنیم و برای تمام تکس باکس ها ننوشت.
این کد برای یوزر فرم یک هستش

Private Sub TextBox7_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    UserForm2.Show
End Sub 

ممنون از لطف شما اساتید عزیز

[M_ExceL]

ممنون استاد عالی بود


من این مبحث حلقه کردن رو یاد نگرفتم
آیا امکانش هست کد زیر را حلقه کنیم و برای تمام تکس باکس ها ننوشت.
این کد برای یوزر فرم یک هستش
[ATTACH=CONFIG]19323[/ATTACH]

Private Sub TextBox7_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    UserForm2.Show
End Sub 

ممنون از لطف شما اساتید عزیز

سلام،
بله، مراحل زیر رو انجام بدید :
کد زیر رو به کلاس ماژول 1 اضافه کنید،

Private Sub textbs_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
UserForm2.Show
Cancel = True
End Sub

کد زیر رو به ماژول فورم 1 اضافه کنید

Dim texss(1 To 30) As New Class1

جهت رویداد Initialize فورم 1 هم کد زیر رو اضافه کنید :

Private Sub UserForm_Initialize()
For i = 1 To 30
Set texss(i).textbs = Controls("TextBox" & i)
Next i
End Sub

یا حق.

[میثم مقدم نیا]

سلام،
بله، مراحل زیر رو انجام بدید :
کد زیر رو به کلاس ماژول 1 اضافه کنید،

Private Sub textbs_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
UserForm2.Show
Cancel = True
End Sub

کد زیر رو به ماژول فورم 1 اضافه کنید

Dim texss(1 To 30) As New Class1

جهت رویداد Initialize فورم 1 هم کد زیر رو اضافه کنید :

Private Sub UserForm_Initialize()
For i = 1 To 30
Set texss(i).textbs = Controls("TextBox" & i)
Next i
End Sub

یا حق.

سلام ممنون استاد
تو کد دستوری بالا که لطفا کردین برام فرستادید
خواستم کد زیر را در یوزر فرم 1 حذف کنم، دیدم که هنگام ثبت اعداد در یک تکس باکس ذخیره میشوند.
آیا امکان حذف این مورد نیست؟

Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    txb = "TextBox1"
End Sub 

یعنی برای 60 الا 70 تا تکس باکس اینا تکرار کنم؟

[M_ExceL]

سلام ممنون استاد
تو کد دستوری بالا که لطفا کردین برام فرستادید
خواستم کد زیر را در یوزر فرم 1 حذف کنم، دیدم که هنگام ثبت اعداد در یک تکس باکس ذخیره میشوند.
آیا امکان حذف این مورد نیست؟

Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    txb = "TextBox1"
End Sub 

یعنی برای 60 الا 70 تا تکس باکس اینا تکرار کنم؟

کد زیر رو به خط اول ایونت DblClick در کلاس ماژول یک اضافه کنید.

txb = UserForm1.ActiveControl.Name

با این کار مقدار متغیری که تعریف کردیم برابر میشه با نام تکست باکسی که روی آن دابل کلیک انجام میشه.
در فایل پیوست این کار انجام شده است.
یا حق.

[میثم مقدم نیا]

کد زیر رو به خط اول ایونت DblClick در کلاس ماژول یک اضافه کنید.

txb = UserForm1.ActiveControl.Name

با این کار مقدار متغیری که تعریف کردیم برابر میشه با نام تکست باکسی که روی آن دابل کلیک انجام میشه.
در فایل پیوست این کار انجام شده است.
یا حق.

سلام
ممنون استاد عالی بود

یه سوال دیگه چطور اعداد این تکس باکس ها را فرمت بدم که سه رقم سوا بشن
کد دستوریش رو بلدم

Private Sub TextBox1_Change()
TextBox1.Text = Format(TextBox1, "#,###")
End Sub 

آیا اینم باید به کلاس ماژول یک اضافه کنم؟

[M_ExceL]

سلام
ممنون استاد عالی بود

یه سوال دیگه چطور اعداد این تکس باکس ها را فرمت بدم که سه رقم سوا بشن
کد دستوریش رو بلدم

Private Sub TextBox1_Change()
TextBox1.Text = Format(TextBox1, "#,###")
End Sub 

آیا اینم باید به کلاس ماژول یک اضافه کنم؟

سلام،
خواهش میکنم
کد مربوط به باتن ثبت در یوزرفورم 2 رو به این صورت اصلاح کنید :

Private Sub CommandButton1_Click()
If TextBox1.Text <> Empty Then
    UserForm1.Controls(txb) = Format(UserForm2.TextBox1.Value, "#,###")
    UserForm2.TextBox1.Text = ""
    UserForm2.Hide
End If
End Sub

یا حق.