اجرای commandbutun فرم به وسیله ماکرو

[mr.siahatgar]

باسلام
من یه برنامه درست کردم که حاوی یک userform میباشد و در ان چندین commandbutun وجود دارد و من در commandbutun1-click چندین فرمان نوشتم حالا نیاز دارم که به وسیله ماکرو commandbutun1-click را فعال کنم ولی نمی دونم چه جوری
به وسیله فرمان userform.show میتوانم فرم را فعال کنم اما commandbutun1-click را نمی توانم فعال کنم
یاد اور میشم که من میخوام به وسیله ماکرو ان را فعال کنم
اگه امکان دارد راهنمایی نمایید

[shamsololama]

باسلام
من یه برنامه درست کردم که حاوی یک userform میباشد و در ان چندین commandbutun وجود دارد و من در commandbutun1-click چندین فرمان نوشتم حالا نیاز دارم که به وسیله ماکرو commandbutun1-click را فعال کنم ولی نمی دونم چه جوری
به وسیله فرمان userform.show میتوانم فرم را فعال کنم اما commandbutun1-click را نمی توانم فعال کنم
یاد اور میشم که من میخوام به وسیله ماکرو ان را فعال کنم
اگه امکان دارد راهنمایی نمایید


با درود فراوان
اینطور که من متوجه شدم شما کلید را خیر فعال کرده ایم و می خواهید بعد از باز شدن فرم آن را فعال کنید و همانطور که فرمودید می خواهید با ماکر این کار رو انجام دهید .
من در واقع متوجه "یاد اور میشم که من میخوام به وسیله ماکرو ان را فعال کنم " نشدم که چرا حتما با ماکرو و منظوز از ماکرو چیه
چون می توانید یک کد بنویسد و در فرم قرار بدهید که در صورت نیاز بودن آن را فعال کند
ولی به هر حال برای اینکه با ماکرو این کار را انجام دهید به این صورت ایجاد کنید
Sub Macro1()
UserForm1.CommandButton1.Enabled = True
UserForm1.Show
End Sub
این کد برای زمانی است که Enabled کلید را فالس کرده باشید و اگر ویزیبل آن را فالس کرده باشید می بایست در کد بجای Enabled از Visible استفاده کنید

[mr.siahatgar]

با سلام
استاد و دوست گرامی ببخشید که من بد منظورم را رسانده ام .
منظور من این بود که یک یوزرفرم ساخته ام که درون ان یک کامند بوتن هست و در قسمت کامند بوتن -کلیک ان دستوراتی نوشته ام من میخواهم از طریق ماکرو اکسل بتوانم کامند بوتن را اجرا کنم مثل فرمان call cammandbutton که البته در ماکرو این فرمان کار نمی کند چه دستوری من میتوانم بنویسیم در ماکرو که بتواند کامند بوتن را اجرا کند
منظور من فعال و غیر فعال کردن نیست منظورم اجرا کردن است

[shamsololama]

با درود فراوان
ببخشید بازم درست متوجه نمی شوم که چه لزومی دارد با ماکرو این کار را انجام دهید چون اگر یوزرفرم باز باشد که کلید روی آن اجرا می شود و اگر که یوزرفرم بسته باشد که با ماکرو می توانی دستور مورد نظر را اجرا کنی و نیازی به باتوم نیست.

ولی به هر حال یکی از راه ها این است که همان کدی که داخل باتوم نوشتی تو ماکرو هم بنویسی که آن را اجرا کند و راه دیگر اینکه یک تابع جدا بنویسی که در باتون و ماکرو آن را با Call فرا خوانی کنی تا کد بین آن دو مشترک باشد.
و راه دیگری که بیشتر همین را مد نظر شماست در واقع کار همان call cammandbutton که گفتی را انجام میدهد باید به این شکل بنویسی

Sub Macro1()
UserForm1.CommandButton1 = True
End Sub