[حل شده] استفاده از یک متغیر در سابروتین های دیگر

[mch2v]

سلام
تو کد زیر میخواستم بدونم چطوری میشه از متغیر ( ()t ) ( در تکست باکس 2 ) در تکست باکس 3 استفاده کرد.

private Sub TextBox2_AfterUpdate()
ComboBox1.Clear
For i = 1 To TextBox2.Value
ComboBox1.AddItem i
Next
Dim t() As Integer
i = TextBox2.Value
ReDim Preserve t(i) As Integer
End Sub 

Private Sub TextBox3_AfterUpdate()
Dim c As Integer
c = ComboBox1.Value
t(c)= TextBox3.Value
End Sub 

البته کد دومی خطا میده
ممنون

[majid_mx4]

با سلام

احتراما بفرمایید میخواهید قسمت دوم کد چه کاری انجام دهد .

با تشکر میر

[mch2v]

احتراما بفرمایید میخواهید قسمت دوم کد چه کاری انجام دهد .

با اون کد که کارای متفاوتی میخوام انجام بدم ، ولی مثلا تو فایلی که پیوست کردم تو تکست باکس 1 عدد وارد میکنم و اون عدد تعداد لیست کمبوباکسم میشه.
بعد با تنظیم کمبو باکس ، هر عددی که تو تکست باکس 2 نوشته بشه به اون کمبو باکس نسبت داده و نمایش داده بشه.
مثلا اگر تو تکست باکس 1 عدد 5 نوشته بشه ،تو کمبوباکس هم از 1 تا 5 لیست میشه و بعد اگر مثلا کمبو باکس رو روی 3 تنظیم کنم و عددی در تکست باکس 2 بنویسم ، تو مسیج باکس ، 2 نمایش داده بشه.
ممنون

[majid_mx4]

با سلام

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

اگر کمبوباکس را روی عدد سه گذاشتید و در تکست باکس 2 عددی نوشتید برای این عدد چه اتفاقی یا چه محاسباتی انجام شود که در مسج نمایش داده شود .

این را متوجه نشدم .

با تشکر میر

[mch2v]

اگر کمبوباکس را روی عدد سه گذاشتید و در تکست باکس 2 عددی نوشتید برای این عدد چه اتفاقی یا چه محاسباتی انجام شود که در مسج نمایش داده شود .

ببینید همون عددی که در تکست باکس 2 نوشته شده در مسیج باکس نمایش داده بشه.
ممنون

[majid_mx4]

با سلام

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

Private Sub TextBox2_AfterUpdate()
MsgBox TextBox2.Value
End Sub

یا

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
MsgBox TextBox2.Value
End Sub

با تشکر میر

[iranweld]

با سلام
و تشکر از دوستان
با تعریف متغییرها در Option Explicit ایراد فایل برطرف شد.

Option Explicit

Dim t() As Integer, i As Integer, c As Integer, flag As Boolean

Private Sub TextBox1_AfterUpdate()

ComboBox1.Clear
For i = 1 To TextBox1.Value
ComboBox1.AddItem i
Next

i = TextBox1.Value
ReDim Preserve t(i) As Integer

End Sub

Private Sub TextBox2_AfterUpdate()

c = ComboBox1.Value
t(c) = TextBox2.Value
End Sub

Private Sub UserForm_Click()

End Sub 

[mch2v]

با تعریف متغییرها در Option Explicit ایراد فایل برطرف شد.

آقا واقعا ممنون حل شد.
فقط میشه در مورد

Option Explicit

یه توضیح بدید.
تشکر.