گذاشتن هایپر لینک برای یک سلول به یک شیت که نام آن شیت متغیر است.و نام آن شیت را ماکرو تغییر می دهد.

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

    • 2013/12/14
    • 120
    • 5.00
    #1

    [حل شده] گذاشتن هایپر لینک برای یک سلول به یک شیت که نام آن شیت متغیر است.و نام آن شیت را ماکرو تغییر می دهد.

    با سلام خدمت دوستان و اساتید خودم
    صبح همگیتون بخیر
    دوستان برای اینکه منظورمو بهتر تونسته باشم برسونم ،توضیحات لازم رو توو فایل ضمیمه ،خدمتتون نوشتم.
    فایل های پیوست شده
    Last edited by حسام بحرانی; 2014/03/08, 18:58.
    برچسب ها: که, گذاشتن, یک, لینک, نام, هایپر, می, مارکو, متغیر, آن, است.و, به, برای, تغییر, دهد., را, سلول, شیت
    • khakzad

      • 2010/03/17
      • 2034
      • 85.00
      #2
      سلام
      دوست عزیز
      من فالتون رو ندیدم
      این راه حل
      از فرمول hyperlink باید استفاده کنید
      آدرس رو از شیت فراخوانی کنید
      اسم workbook هم اگر ثابت هست داخل فرمول ینویسید
      اسم شیت هم که متغیر هس از طریق کد به سل ارجاع بدید
      سوالی بود در خدمتم
      فایل های پیوست شده
      [CENTER][B][COLOR=#008000][SIZE=3]محصولات و جزوات آموزش تخصصی [URL="https://excelpedia.net/"]اکسل[/URL] در:

      [URL="https://excelpedia.net/category/excel-functions/"]برترین مرجع تخصصی پارسی اکسل[/URL]
      [URL="http://www.exceliran.com/shop/"]جامعه اكسل ايرانيان: فروشگاه[/URL][/SIZE][/COLOR][/B]
      :wcom:

      [B][URL="https://excelpedia.net/"]آموزش اکسل تخصصی[/URL] و [URL="https://excelpedia.net/excel-ninja/"]پیشرفته[/URL] - [URL="https://excelpedia.net/"]تهران[/URL][/B]
      [EMAIL="h.khakzad@yahoo.com"]h.khakzad@yahoo.com[/EMAIL]
      [/CENTER]

        کامنت

        • Amir Ghasemiyan

          • 2013/09/20
          • 4598
          • 100.00
          #3
          با اجازه خانم خاكزاد

          ايشون نياز به vba دارن خانم خاكزاد. در هر صورت ممنون از فايلتون

          خدمت شما دوست عزيز

          کد:
          Sub sheetnaming()
Sheets("Sheet1").Select
c = Range("B1").Value
For e = 2 To c + 1
    Name = Range("A" & e).Value
    Sheets("Sheet2").Select
    Sheets("Sheet2").Copy After:=Sheets(Worksheets.Count)
    ActiveSheet.Name = Name
    Sheets("Sheet1").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Range("A" & e), Address:="", SubAddress:=Name & "!A1", TextToDisplay:=Name
Next e
End Sub

            کامنت

            • msmaiili

              • 2014/02/08
              • 36
              • 44.00
              #4
              با سلام خدمت شما اساتید گرامی
              این ماکرو رو من هم نیاز داشتم
              ولی طرز کارش رو متوجه نشدم

              میشه توضیح بدین چجوری عمل میکنه

              اگه تو یه فایل اکسل روش کارش رو نشون بدین ممنون میشم
              [CENTER][CENTER][CENTER][FONT=tahoma][COLOR=#0000ff][SIZE=4]انسان هم ميتواند [/SIZE][/COLOR][COLOR=#ff0000][SIZE=4]دايره [/SIZE][/COLOR][COLOR=#0000ff][SIZE=4]باشد و هم [/SIZE][/COLOR][COLOR=#008000][SIZE=4][/SIZE][SIZE=4]خط راست[/SIZE][/COLOR][COLOR=#0000ff][SIZE=4]. [/SIZE][/COLOR]
              [/FONT][/CENTER][FONT=tahoma] [/FONT][CENTER][COLOR=#b22222][FONT=tahoma][SIZE=4]انتخاب با خودمان هست : [/SIZE][/FONT][/COLOR]

              [/CENTER][FONT=tahoma] [/FONT][CENTER][FONT=tahoma][COLOR=#ff0000][SIZE=4][/SIZE][SIZE=4]تا ابد دور خودمان بچرخيم [/SIZE][/COLOR][COLOR=#0000ff][SIZE=4]يا [/SIZE][/COLOR][COLOR=#008000][SIZE=4]تا بينهايت ادامه بدهیم[/SIZE][/COLOR][/FONT]
              [/CENTER]
              [/CENTER]

              [/CENTER]

                کامنت

                • Amir Ghasemiyan

                  • 2013/09/20
                  • 4598
                  • 100.00
                  #5
                  نوشته اصلی توسط msmaiili
                  با سلام خدمت شما اساتید گرامی
                  این ماکرو رو من هم نیاز داشتم
                  ولی طرز کارش رو متوجه نشدم

                  میشه توضیح بدین چجوری عمل میکنه

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

                    کامنت

                    • Amir Ghasemiyan

                      • 2013/09/20
                      • 4598
                      • 100.00
                      #6
                      نوشته اصلی توسط amir ghasemiyan
                      سلام دوست عزيز.ديباگ كنيد متوجه ميشيد
                      منظورم از ديباگ كردن اينه كه شما f8 رو بزنين تا كد خط به خط اجرا بشه
                      با اجرا شدن كد متوجه هر دستور ميشين

                        کامنت

                        • arash_059
                          • 2016/04/13
                          • 3
                          #7
                          سلاماین vba رو که دادید من امتحان کردم و کار نمی کنهآیا جای خاصی باید run کنم؟

                            کامنت

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