فراخوان یوزرفرم ازفایل اکسل دیگر

Collapse
X
 
  • زمان
  • Show
Clear All
new posts
  • حسینعلی

    • January 2014
    • 172

    فراخوان یوزرفرم ازفایل اکسل دیگر

    باسلام،من دوتافایل اکسل دارم که داخل هرکدوم تعدادی یوزر فرم کدنویسی کردم،میخوام ازیکی ازفایلها بشه یوزرفرمها را ازفایل دوم خوانده و نمایش بدم تا داده ها واطلاعات ازش گرفته بشه،لطفا راهنمایی کنید
  • امين اسماعيلي
    مدير تالار ويژوال بيسيك

    • January 2013
    • 1198

    #2
    با درود
    خب اینجا ما با دو مقوله سرو کار داریم یکی اینکه اون فایل دوم که یوزر فرمشو میخوای باز کنی خودش باز باشه یا نه من فرض رو بر این میگیرم که بازه - خب اول تو خود اون فایل که فرمت هست یعنی مقصد یه کدی مثل اینو تو یه ماژول بزار
    کد:
    Sub ShowUF()
        UserForm1.Show
    End Sub
    حالا برگرد به اون فایلی که میخوای از اونجا یوزر فرم رو فرا بخونی تو یه مازول کد زیر رو کپی کن

    کد:
    Sub ShowUserForm1()
        Run "iranexcel.xlsm!ShowUF"
    End Sub
    جای iranexcel اسم اون فایلی که یوزر فرم توش هست رو بزرا پسوندشم قاعدتا همینه

    یه جورایی در واقع یک سری کد رو فراخونی کردیم که اون کد خودش یوزر فرم یک رو باز میکرد
    در پناه خداوندگار ایران زمین باشید و پیروز

    Comment

    • حسینعلی

      • January 2014
      • 172

      #3
      خیلی خیلی تشکر،اقای اسماعیلی
      روش دوم که مهمتره را هم اگه میگفتید خوب بود ،که فایل مبدا اصلا نمیخواهیم باز بشه،ولی یوزر فرم از داخل ماکروهای اون فراخوان بشه
      بسیار متشکرم

      Comment

      • امين اسماعيلي
        مدير تالار ويژوال بيسيك

        • January 2013
        • 1198

        #4
        درود
        مگه میشه باز نشه پسر داده ها اونجاست - میشه بازش کرد با کد بعد فرم رو فراخوانی و بعد با کد دوباره ببندیش - حالا این بین میشه windows اش رو هاید کرد اما من بعید میدونم اینکه بدون باز کردنش اونو اجرا کنیم
        در پناه خداوندگار ایران زمین باشید و پیروز

        Comment

        • حسینعلی

          • January 2014
          • 172

          #5
          باسلام،کد را نوشتم ولی هرکارمیکنم جواب نمیده
          میشه خواهش کنم یه نمونه برام ایمیل کنید،چون با اندروید کانکت میشم نمیتونم فایل اکسل را اجرا کنم
          باتشکر فراوان
          H.gheidrlou@BANkmellat.ir
          اگه نمونه برام ایمیل کنید خیلی ممنوندارتون میشم

          Comment

          • امين اسماعيلي
            مدير تالار ويژوال بيسيك

            • January 2013
            • 1198

            #6
            با درود
            اطاعت امر شد اما یه فکری به حال تکنولوژی بکنین خوووووووووو
            در پناه خداوندگار ایران زمین باشید و پیروز

            Comment

            • حسینعلی

              • January 2014
              • 172

              #7
              من ازلطف شما بسیارمتشکرم

              Comment

              • حسینعلی

                • January 2014
                • 172

                #8
                سلام اقای اسماعیلیمن هرکار کردم که از روی
                یوزر فرم کد ارا فراخوان کنم نمیشه
                میخوام برروی یوزر فرم در فایل دوم کامنتی بزارم که یوزر فرم در فایل اول را نشون بده ممن
                ون دارتون میشم اگه نمونه فوق را تکمیل برام ارائه بدید
                خیلی تلاش کردم جواب نداد

                Comment

                • امين اسماعيلي
                  مدير تالار ويژوال بيسيك

                  • January 2013
                  • 1198

                  #9
                  با درود

                  من نمیدونم ایرادت کجای کارته
                  فرض فایل یک رو باز کن و دو رو هم باز کن
                  یه کلید اطافه گذاشتم تو اکسل اول - فرمی باز میشه حالا اگر کلید رو فرم رو بزنی فرم اکسل دوم باز میشه
                  فایل های پیوست شده
                  در پناه خداوندگار ایران زمین باشید و پیروز

                  Comment

                  Working...