استفاده از دو Command Button

[barish_n]

باسلام


دوستان من یک پروژه ی درسی دارم که تو اکسل توسط ویزوال بیسک در حال نوشتن هستم به مشکلی برخوردم اینکه:
دوتا Command Button ایجاد کردم
در اولی یه سری اطلاعات کاربر وارد میکنه مثلا تعداد محصول

در Command Button دومی که میخوام محاسبات انجام شه چطوری تعداد محصول رو میفهمه؟


مثل زیر:

[PHP]
Private Sub CommandButton1_Click()
Dim tedad_mahsol As Double
 tedad_mahsol = InputBox("tedad mahsol ra vared konid")
End Sub

Private Sub CommandButton2_Click()
 حالا اینجا میخوام تعداد محصول ی که وارد شده را بشناسه تا بتونم محاسباتم رو انجام بدم

End Sub 

[/PHP]

دوستان این فقط نمونه بود , تو CommandButton1 کلی اطلاعات وارد میشه توسط کاربر که در CommandButton2 محاسبات انجام خواهد شد.

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[Amir Ghasemiyan]

سلام دوست عزیز
خب شما که اطلاعات رو میگیرید باید یکجا ذخیره کنید. اگر فرم دارید باید داخل تکست باکس بذارید و اگر فرم ندارید داخل سلول ها ذخیره کنید و در دکمه دوم اون رو فراخوانی کنید
اگر هم میخواید به همین صورت استفاده کنید باید در ابتدای ماژول متغیرها رو بصورت Public تعریف کنید. مثلا اینطوری:

Public tedad_mahsol As Double

[barish_n]

سلام دوست عزیز
خب شما که اطلاعات رو میگیرید باید یکجا ذخیره کنید. اگر فرم دارید باید داخل تکست باکس بذارید و اگر فرم ندارید داخل سلول ها ذخیره کنید و در دکمه دوم اون رو فراخوانی کنید
اگر هم میخواید به همین صورت استفاده کنید باید در ابتدای ماژول متغیرها رو بصورت Public تعریف کنید. مثلا اینطوری:

Public tedad_mahsol As Double

آهان

من تو اول همه متغییر ها رو تعریف کردم به double اگه اولشون public بزارم به تمامی command ها اعمال میشه؟

یک سوال دیگه چرا بعضی از متغییر ها رو تعریف نمیکنیم کار میکنن؟ مثلا تو شرط for i = 0 to 10
i رو اول ماژول تعریف نکردیم ! اما کار میکنه؟

[Amir Ghasemiyan]

آهان

من تو اول همه متغییر ها رو تعریف کردم به double اگه اولشون public بزارم به تمامی command ها اعمال میشه؟

یک سوال دیگه چرا بعضی از متغییر ها رو تعریف نمیکنیم کار میکنن؟ مثلا تو شرط for i = 0 to 10
i رو اول ماژول تعریف نکردیم ! اما کار میکنه؟

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

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

[barish_n]

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

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

خوب من الان تو commad اول تعریف کردم اینطوری:

[PHP]
Private Sub CommandButton1_Click()
Public tedad_marakez As Double
Public tedad_mahsol As Double 

[/PHP]

تو commad دوم هم اینطوری:

Private Sub CommandButton2_Click()
Public tedad_marakez As Double
Public tedad_mahsol As Double 

بازم کار نمیکنه یعنی error میده به commad دوم

ببخشید من تازه کار هستم اگه میشه کمی واضح تر توضیح بدین

[Amir Ghasemiyan]

خوب من الان تو commad اول تعریف کردم اینطوری:

[PHP]
Private Sub CommandButton1_Click()
Public tedad_marakez As Double
Public tedad_mahsol As Double 

[/PHP]

تو commad دوم هم اینطوری:

Private Sub CommandButton2_Click()
Public tedad_marakez As Double
Public tedad_mahsol As Double 

بازم کار نمیکنه یعنی error میده به commad دوم

ببخشید من تازه کار هستم اگه میشه کمی واضح تر توضیح بدین

دوست عزیز عرض کردم که قبل از اینکه سابروتین ها رو بنویسید متغیر های پابلیک رو باید بنویسید نه داخل ساب روتین. به این صورت:

Public tedad_marakez As Double
Public tedad_mahsol As Double


Private Sub CommandButton1_Click()
 tedad_mahsol = InputBox("tedad mahsol ra vared konid")
End Sub


Private Sub CommandButton2_Click()
End Sub

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