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

[amirali.ariya]

با سلام

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

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

مرسی

[Amir Ghasemiyan]

با سلام

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

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

مرسی

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

[amirali.ariya]

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

[amirali.ariya]

برای مثال میخواستم hyperlink این داده ها رو جدا
البته با ماکرو چون داده هام زیاد هست
با تشکر

[Amir Ghasemiyan]

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

از اين قطعه كد كمك بگيرين دوست عزيز:
فرض كنيد در سلول A1 شما يك هايپرلينك دارين. در سلول B1 آدرس لينك رو براتون نمايش ميده

Range("B1") = Range("A1").Hyperlinks(1).Address

[khakzad]

با اجازه صحبت اقای قاسمیان و تکمیل می کنم:
برای اجرا روی تعداد زیادی سل به یک حلقه 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]

[amirali.ariya]

با تشکر از پیگیریتون

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

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

[Amir Ghasemiyan]

با تشکر از پیگیریتون

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

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

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

Range("B1") = Range("A1").Hyperlinks(1).ScreenTip

[amirali.ariya]

مشکل حل شد آقای قاسمیان

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

[amirali.ariya]

از آقای خاکزادم کمال تشکر را دارم
ممنون

[Amir Ghasemiyan]

از آقای خاکزادم کمال تشکر را دارم
ممنون

ايشون خانم خاكزادن :دي

[khakzad]

کلا اینجا به من میگن اقا مگر خلافش ثابت بشه :D

دیگه بیخیال معرفی شدم.

[Amir Ghasemiyan]

کلا اینجا به من میگن اقا مگر خلافش ثابت بشه :D

دیگه بیخیال معرفی شدم.

بخاطر آواتارتونه. مردونست خو :دي