مرحوم محمد محمدی

🖤 پیام تسلیت

با نهایت تأسف و تأثر، باخبر شدیم جناب آقای محمد محمدی با نام کاربری smartman ، از مدیران ارزشمند انجمن اکسل ایران، دار فانی را وداع گفته‌اند.

ایشان سال‌ها با دانش، تجربه، اخلاق نیکو و روحیه کمک به دیگران، سهم بزرگی در رشد و پویایی انجمن داشتند و خاطره حضور ارزشمندشان همواره در ذهن اعضای انجمن باقی خواهد ماند.

مدیریت و اعضای انجمن ExcelIran این ضایعه را به خانواده محترم ایشان، دوستان و تمامی اعضای انجمن تسلیت عرض نموده و از خداوند متعال برای آن مرحوم، رحمت و مغفرت الهی و برای بازماندگان صبر و شکیبایی مسئلت دارند.

انا لله و انا الیه راجعون

جدا کردن hyperlink از یک داده با استفاده از ماکرو نویسی

Collapse
X
Collapse
 
  • صفحه از 1
  • زمان
  • نمایش
حذف همه
new posts
قبلی template بعدی
  • amirali.ariya

    • 2014/12/02
    • 6
    #1

    جدا کردن hyperlink از یک داده با استفاده از ماکرو نویسی

    با سلام

    من تعداد زیادی داده دارم و میخواستم hyeprlink (متنی که با آوردن نشانگر موس بر روی آن زیر آن نوشته می شود) را جدا کنم

    ممنون میشم اگر کسی کمکم کنه

    مرسی
    برچسب ها: hyperlink, کردن, یک, نویسی, ماکرو, از, استفاده, با, جدا, داده
    • Amir Ghasemiyan

      • 2013/09/20
      • 4600
      • 100.00
      #2
      نوشته اصلی توسط amirali.ariya
      با سلام

      من تعداد زیادی داده دارم و میخواستم hyeprlink (متنی که با آوردن نشانگر موس بر روی آن زیر آن نوشته می شود) را جدا کنم

      ممنون میشم اگر کسی کمکم کنه

      مرسی
      سلام
      منظورتون اينه كه لينك رو حذف كنيد يا اينكه لينك رو تو يك سلول ديگه بذارينش؟

        کامنت

        • amirali.ariya

          • 2014/12/02
          • 6
          #3
          لینک رو توی ی سلول دیگه نمایش بدم

            کامنت

            • amirali.ariya

              • 2014/12/02
              • 6
              #4
              برای مثال میخواستم hyperlink این داده ها رو جدا
              البته با ماکرو چون داده هام زیاد هست
              با تشکر
              فایل های پیوست شده

                کامنت

                • Amir Ghasemiyan

                  • 2013/09/20
                  • 4600
                  • 100.00
                  #5
                  نوشته اصلی توسط amirali.ariya
                  لینک رو توی ی سلول دیگه نمایش بدم

                  از اين قطعه كد كمك بگيرين دوست عزيز:
                  فرض كنيد در سلول A1 شما يك هايپرلينك دارين. در سلول B1 آدرس لينك رو براتون نمايش ميده
                  کد:
                  Range("B1") = Range("A1").Hyperlinks(1).Address

                    کامنت

                    • khakzad

                      • 2010/03/17
                      • 2034
                      • 85.00
                      #6
                      با اجازه صحبت اقای قاسمیان و تکمیل می کنم:
                      برای اجرا روی تعداد زیادی سل به یک حلقه for نیاز دارید

                      به این شکل:
                      کد:
                      [B][COLOR=#0000ff]for each c in range("A1:A100[/COLOR][COLOR=#0000cd]")[/COLOR][/B]
[FONT=Tahoma][B][FONT=Tahoma][B][COLOR=#0000CD][FONT=Tahoma]c.offset(0,1)[/FONT] = [FONT=Tahoma]c[/FONT].Hyperlinks(1).Address
next c
[/COLOR][/B][/FONT][/B][/FONT]
                      [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]

                        کامنت

                        • amirali.ariya

                          • 2014/12/02
                          • 6
                          #7
                          با تشکر از پیگیریتون

                          ولی این آدرس رو به من نشون میده اما من اون متنی که زیر داده نشون داده میشه رو میخوام در یک سلول دیگر نمایش بدم

                          مثل این فایلی که قرار دادم

                            کامنت

                            • Amir Ghasemiyan

                              • 2013/09/20
                              • 4600
                              • 100.00
                              #8
                              نوشته اصلی توسط amirali.ariya
                              با تشکر از پیگیریتون

                              ولی این آدرس رو به من نشون میده اما من اون متنی که زیر داده نشون داده میشه رو میخوام در یک سلول دیگر نمایش بدم

                              مثل این فایلی که قرار دادم

                              بله متوجه شدم
                              شما از اين كد كمك بگيرين دوست عزيز
                              کد:
                              Range("B1") = Range("A1").Hyperlinks(1).ScreenTip

                                کامنت

                                • amirali.ariya

                                  • 2014/12/02
                                  • 6
                                  #9
                                  مشکل حل شد آقای قاسمیان

                                  تشکر بسیار فراوان و سپاس بابت سایت خوبتان

                                    کامنت

                                    • amirali.ariya

                                      • 2014/12/02
                                      • 6
                                      #10
                                      از آقای خاکزادم کمال تشکر را دارم
                                      ممنون

                                        کامنت

                                        • Amir Ghasemiyan

                                          • 2013/09/20
                                          • 4600
                                          • 100.00
                                          #11
                                          نوشته اصلی توسط amirali.ariya
                                          از آقای خاکزادم کمال تشکر را دارم
                                          ممنون
                                          ايشون خانم خاكزادن :دي

                                            کامنت

                                            • khakzad

                                              • 2010/03/17
                                              • 2034
                                              • 85.00
                                              #12
                                              کلا اینجا به من میگن اقا مگر خلافش ثابت بشه :D

                                              دیگه بیخیال معرفی شدم.
                                              [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
                                                  • 4600
                                                  • 100.00
                                                  #13
                                                  نوشته اصلی توسط khakzad
                                                  کلا اینجا به من میگن اقا مگر خلافش ثابت بشه :D

                                                  دیگه بیخیال معرفی شدم.
                                                  بخاطر آواتارتونه. مردونست خو :دي

                                                    کامنت

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