خطا در اجرای کدها در صورت باز بودن همزمان یک فایل اکسل دیگر

Collapse
این تاپیک قفل است.
X
X
Collapse
 
  • صفحه از 1
  • زمان
  • نمایش
حذف همه
new posts
قبلی template بعدی
  • علی فاطمی

    • 2014/02/17
    • 523
    • 51.00
    #1

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

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

    ولی اگر فایل دیگری باز باشد و من بخوام فایل کدنویسی شده خودم رو باز کنم با خطا روبرو میشه و برنامه اجرا نمیشه ؟؟؟؟؟؟؟؟؟

    این رو هم بگم که من در فایل کد نویسی شده محدودیتهایی ایجاد کردم
    Application.ActiveWorkbook.Application.Visible = False
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"     Application.DisplayFormulaBar = False
    Application.DisplayStatusBar = Not Application.DisplayStatusBar
    ActiveWindow.DisplayWorkbookTabs = False
    ActiveWindow.DisplayHeadings = False

    ممنون میشم راهنمایی بفرمایید .
    [FONT=tahoma][SIZE=2][B][COLOR=#800080][SIZE=3]در دنیا فقط یک نفر وجود دارد که باید از او بهتر باشید و آن کسی نیست جز گذشته خودتان[/SIZE] [/COLOR][/B][/SIZE][/FONT]


    [CENTER][SIZE=7][FONT=franklin gothic medium][/FONT] [/SIZE]
    [/CENTER]
    برچسب ها: هیچ‌کدام
    • kazamie

      • 2021/12/14
      • 249
      • 87.00
      #2
      نوشته اصلی توسط علی فاطمی
      با سلام و وقت بخیر
      فایلی با کدهای ویژوال تهیه کردم و هیچ مشکلی در باز شدن فایل و اجرای کدها وجود نداره .

      ولی اگر فایل دیگری باز باشد و من بخوام فایل کدنویسی شده خودم رو باز کنم با خطا روبرو میشه و برنامه اجرا نمیشه ؟؟؟؟؟؟؟؟؟

      این رو هم بگم که من در فایل کد نویسی شده محدودیتهایی ایجاد کردم
      Application.ActiveWorkbook.Application.Visible = False
      Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"       Application.DisplayFormulaBar = False
      Application.DisplayStatusBar = Not Application.DisplayStatusBar
      ActiveWindow.DisplayWorkbookTabs = False
      ActiveWindow.DisplayHeadings = False

      ممنون میشم راهنمایی بفرمایید .
      چه خطایی می دهد؟ کدها را داخل تگ # قرار دهید
      دکتر کاظمی

        کامنت

        • علی فاطمی

          • 2014/02/17
          • 523
          • 51.00
          #3
          نوشته اصلی توسط kazamie
          چه خطایی می دهد؟ کدها را داخل تگ # قرار دهید
          با سلام و وقت بخیر و ممنون از توجه شما
          Click image for larger version Name: Untitled.png Views: 1 Size: 35.4 کیلو بایت ID: 139370
          [FONT=tahoma][SIZE=2][B][COLOR=#800080][SIZE=3]در دنیا فقط یک نفر وجود دارد که باید از او بهتر باشید و آن کسی نیست جز گذشته خودتان[/SIZE] [/COLOR][/B][/SIZE][/FONT]


          [CENTER][SIZE=7][FONT=franklin gothic medium][/FONT] [/SIZE]
          [/CENTER]

            کامنت

            • kazamie

              • 2021/12/14
              • 249
              • 87.00
              #4
              نوشته اصلی توسط علی فاطمی
              با سلام و وقت بخیر و ممنون از توجه شما
              [ATTACH=CONFIG]23684[/ATTACH]
              شما باید ابتدا شیت مورد نظر را اکتیو کنید و بعد از رنج مورد نظر استفاده کنید، وقتی روی دیباگ کلیک می کنید به کدام کد ایراد می گیرد؟
              دکتر کاظمی

                کامنت

                • علی فاطمی

                  • 2014/02/17
                  • 523
                  • 51.00
                  #5
                  نوشته اصلی توسط kazamie
                  شما باید ابتدا شیت مورد نظر را اکتیو کنید و بعد از رنج مورد نظر استفاده کنید، وقتی روی دیباگ کلیک می کنید به کدام کد ایراد می گیرد؟
                  مشکل دقیقا همین جاست . یعنی زمانی که فایل دیگری باز نیست براحتی همه برنامه بدون کم کاست اجرا میشود ،
                  ولی وقتی یه فایل دیگر مثلا book1 باز است و من فایل کدنویسی شده را ( مثلا book2 ) باز میکنم ، اکسل book1 رو در ارجعیت داره یعنی من مثلا کد نوشتم بره شیت2 و سلول R6 سلکت کنه ، که ارور میده و
                  وقتی روی دیباگ کلیک می کنید با تصویر زیر روبرو میشم

                  Click image for larger version Name: Untitled2.png Views: 1 Size: 81.8 کیلو بایت ID: 139372
                  [FONT=tahoma][SIZE=2][B][COLOR=#800080][SIZE=3]در دنیا فقط یک نفر وجود دارد که باید از او بهتر باشید و آن کسی نیست جز گذشته خودتان[/SIZE] [/COLOR][/B][/SIZE][/FONT]


                  [CENTER][SIZE=7][FONT=franklin gothic medium][/FONT] [/SIZE]
                  [/CENTER]

                    کامنت

                    • kazamie

                      • 2021/12/14
                      • 249
                      • 87.00
                      #6
                      کد:
                      Sheet2 . select
Range("E6"). select
                      کد را به این صورت اصلاح کنید
                      دکتر کاظمی

                        کامنت

                        • علی فاطمی

                          • 2014/02/17
                          • 523
                          • 51.00
                          #7
                          نوشته اصلی توسط kazamie
                          کد:
                          Sheet2 . select
Range("E6"). select
                          کد را به این صورت اصلاح کنید
                          Click image for larger version Name: Untitled3.png Views: 1 Size: 75.2 کیلو بایت ID: 139373
                          [FONT=tahoma][SIZE=2][B][COLOR=#800080][SIZE=3]در دنیا فقط یک نفر وجود دارد که باید از او بهتر باشید و آن کسی نیست جز گذشته خودتان[/SIZE] [/COLOR][/B][/SIZE][/FONT]


                          [CENTER][SIZE=7][FONT=franklin gothic medium][/FONT] [/SIZE]
                          [/CENTER]

                            کامنت

                            • kazamie

                              • 2021/12/14
                              • 249
                              • 87.00
                              #8
                              نوشته اصلی توسط علی فاطمی
                              [ATTACH=CONFIG]23689[/ATTACH]
                              چون از چند فایل اکسل همزمان استفاده می کنید قبل از آن فایل را هم اکتیو کنید
                              کد:
                              Workbooks("book1.xlsm").activate
Sheet2.select
Range ("E6"). select
                              دکتر کاظمی

                                کامنت

                                • علی فاطمی

                                  • 2014/02/17
                                  • 523
                                  • 51.00
                                  #9
                                  نوشته اصلی توسط kazamie
                                  چون از چند فایل اکسل همزمان استفاده می کنید قبل از آن فایل را هم اکتیو کنید
                                  کد:
                                  Workbooks("book1.xlsm").activate
Sheet2.select
Range ("E6"). select

                                  ممنون از توجه شما.
                                  [FONT=tahoma][SIZE=2][B][COLOR=#800080][SIZE=3]در دنیا فقط یک نفر وجود دارد که باید از او بهتر باشید و آن کسی نیست جز گذشته خودتان[/SIZE] [/COLOR][/B][/SIZE][/FONT]


                                  [CENTER][SIZE=7][FONT=franklin gothic medium][/FONT] [/SIZE]
                                  [/CENTER]

                                    کامنت

                                    قبلی template بعدی
                                    چند لحظه..