رفع خطای کد نویسی HyperLink در VBA

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

    • 2014/04/09
    • 347
    • 45.00
    #1

    [حل شده] رفع خطای کد نویسی HyperLink در VBA

    سلام و خسته نباشید به اساتید گرامی ،
    سعی کردم در یک Button کدی بنویسم که فایل مورد نظر منو از مسیر مشخص شده که متغییر هم هست باز کنه ولی نمیدونم چرا جواب نمیده !
    علت این مشکلم رو می تونید توضیح بدید ؟
    Click image for larger version Name: VBA.jpg Views: 1 Size: 151.7 کیلو بایت ID: 147156
    :min10::min18::min13::min22:
    برچسب ها: هیچ‌کدام
    • Amir Ghasemiyan

      • 2013/09/20
      • 4598
      • 100.00
      #2
      سلام دوست عزيز
      ظاهرا شيتي به اسم Number_R2 در ليست شيت هاتون نداريد

        کامنت

        • sabertb

          • 2014/04/09
          • 347
          • 45.00
          #3
          نوشته اصلی توسط Amir Ghasemiyan
          سلام دوست عزيز
          ظاهرا شيتي به اسم Number_R2 در ليست شيت هاتون نداريد

          این اسم فرمول Offset ای هست که یک عدد رو برمی گردونه که در واقع شامل اسم فایل مورد نظر می باشد.
          :min10::min18::min13::min22:

            کامنت

            • Amir Ghasemiyan

              • 2013/09/20
              • 4598
              • 100.00
              #4
              نوشته اصلی توسط sabertb
              این اسم فرمول Offset ای هست که یک عدد رو برمی گردونه که در واقع شامل اسم فایل مورد نظر می باشد.
              اگر فرموله چرا داخل دابل كوتيشن هست؟

              وقتي داخل "" قرار ميديد يعني متن. يعني اسم يك شيت. اگر فرمول هست بايد از داخل كوتيشن خارج بشه

                کامنت

                • sabertb

                  • 2014/04/09
                  • 347
                  • 45.00
                  #5
                  نوشته اصلی توسط Amir Ghasemiyan
                  اگر فرموله چرا داخل دابل كوتيشن هست؟

                  وقتي داخل "" قرار ميديد يعني متن. يعني اسم يك شيت. اگر فرمول هست بايد از داخل كوتيشن خارج بشه
                  در واقع یه Range اسم گزاری شده است که با فرمول به دست می آید ولی مشکل با "" گذاشتن یا نکذاشتن حل نمیشه نمی دونم چرا !
                  سعی میکنم فایل بزارم تا بهتر بشود بررسیش کرد
                  :min10::min18::min13::min22:

                    کامنت

                    • sabertb

                      • 2014/04/09
                      • 347
                      • 45.00
                      #6
                      این نمونه فایل هست
                      فایل های پیوست شده
                      :min10::min18::min13::min22:

                        کامنت

                        • Amir Ghasemiyan

                          • 2013/09/20
                          • 4598
                          • 100.00
                          #7
                          دوست عزيز فايلتون كاملا درسته. فقط تو كدهاتون دو تا اسپيس اضافه گذاشته بودين. اين كد رو جايگزين كنيد مشكلتون حل ميشه

                          کد:
                          Private Sub CommandButton1_Click()
ActiveWorkbook.FollowHyperlink Address:=Application.ThisWorkbook.Path & "\Note\" & Sheet5.Range("Number_R2").Value & ".docx"
End Sub

                            کامنت

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