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

Collapse
X
 
  • زمان
  • Show
Clear All
new posts
  • mr.siahatgar

    • June 2010
    • 13

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

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

    • February 2010
    • 940

    #2
    RE: اجرای commandbutun فرم به وسیله ماکرو

    نوشته اصلی توسط mr.siahatgar
    باسلام
    من یه برنامه درست کردم که حاوی یک userform میباشد و در ان چندین commandbutun وجود دارد و من در commandbutun1-click چندین فرمان نوشتم حالا نیاز دارم که به وسیله ماکرو commandbutun1-click را فعال کنم ولی نمی دونم چه جوری
    به وسیله فرمان userform.show میتوانم فرم را فعال کنم اما commandbutun1-click را نمی توانم فعال کنم
    یاد اور میشم که من میخوام به وسیله ماکرو ان را فعال کنم
    اگه امکان دارد راهنمایی نمایید
    با درود فراوان
    اینطور که من متوجه شدم شما کلید را خیر فعال کرده ایم و می خواهید بعد از باز شدن فرم آن را فعال کنید و همانطور که فرمودید می خواهید با ماکر این کار رو انجام دهید .
    من در واقع متوجه "یاد اور میشم که من میخوام به وسیله ماکرو ان را فعال کنم " نشدم که چرا حتما با ماکرو و منظوز از ماکرو چیه
    چون می توانید یک کد بنویسد و در فرم قرار بدهید که در صورت نیاز بودن آن را فعال کند
    ولی به هر حال برای اینکه با ماکرو این کار را انجام دهید به این صورت ایجاد کنید
    Sub Macro1()
    UserForm1.CommandButton1.Enabled = True
    UserForm1.Show
    End Sub
    این کد برای زمانی است که Enabled کلید را فالس کرده باشید و اگر ویزیبل آن را فالس کرده باشید می بایست در کد بجای Enabled از Visible استفاده کنید
    ---------------------------------------------------------------------------------------------------
    بمانیم تا کاری کنیم ،نه کاری کنیم تا بمانیم (دکتر شریعتی)
    shamsololama@yahoo.com
    09177733411

    Comment

    • mr.siahatgar

      • June 2010
      • 13

      #3
      RE: اجرای commandbutun فرم به وسیله ماکرو

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

      Comment

      • shamsololama

        • February 2010
        • 940

        #4
        RE: اجرای commandbutun فرم به وسیله ماکرو

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

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

        Sub Macro1()
        UserForm1.CommandButton1 = True
        End Sub
        ---------------------------------------------------------------------------------------------------
        بمانیم تا کاری کنیم ،نه کاری کنیم تا بمانیم (دکتر شریعتی)
        shamsololama@yahoo.com
        09177733411

        Comment

        Working...