[حل شده] لینک در سلولها

[كامران]

سلام
همونطوری که میدونید وقتی در اکسل وقتی روی یک سلول که حاوی لینکه کلیک کنیم اون لینک باز میشه (حالا چه تو اینترنت چه جای دیگه) و اگه پشت سر هم روی چند سلول کلیک کنیم اکسل فقط لینک آخرین سلول رو باز میکنه
ولی مسئله ای که برا من پیش اومده اینه که چطور میتونم چند تا سلول حاوی لینک رو انتخاب کنم و با کلیک روی یه دکمه کنترل (جهت اجرای ماکرو یا .... ) اکسل همه اون لینکهائی رو که انتخاب کردیم با هم روی مرورگر باز کنه

[Amir Ghasemiyan]

سلام
همونطوری که میدونید وقتی در اکسل وقتی روی یک سلول که حاوی لینکه کلیک کنیم اون لینک باز میشه (حالا چه تو اینترنت چه جای دیگه) و اگه پشت سر هم روی چند سلول کلیک کنیم اکسل فقط لینک آخرین سلول رو باز میکنه
ولی مسئله ای که برا من پیش اومده اینه که چطور میتونم چند تا سلول حاوی لینک رو انتخاب کنم و با کلیک روی یه دکمه کنترل (جهت اجرای ماکرو یا .... ) اکسل همه اون لینکهائی رو که انتخاب کردیم با هم روی مرورگر باز کنه

سلام دوست عزيز
با اين كد vba ميتونين اينكار رو بكنيد. دقت داشته باشيد كه خيلي كند عمل ميكنه. (كلا باز كردن آدرس اينترنتي در اكسل مقداري كند كار مي كند)

For Each cel In Range("A1:A4")
    cel.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=False
Next cel

[كامران]

سلام دوست عزيز
با اين كد vba ميتونين اينكار رو بكنيد. دقت داشته باشيد كه خيلي كند عمل ميكنه. (كلا باز كردن آدرس اينترنتي در اكسل مقداري كند كار مي كند)

For Each cel In Range("A1:A4")
    cel.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=False
Next cel

کار نمیکنه
لینک اول رو باز میکنه ولی برای لینک دوم خطا میده

[Amir Ghasemiyan]

کار نمیکنه
لینک اول رو باز میکنه ولی برای لینک دوم خطا میده

من خودم تست کردم درست کار میکنه.
لینک ها رو دستی باز کردین؟ مشکلی نداشتن؟ پیغام خطایی که دریافت میکنین چیه؟

[كامران]

من خودم تست کردم درست کار میکنه.
لینک ها رو دستی باز کردین؟ مشکلی نداشتن؟ پیغام خطایی که دریافت میکنین چیه؟

همه لینکها سالمه روش کلیک میکنم باز میشه
در ضمن خطا اینه

اینم کدمه

Sub tst()

    For Each cel In Range("o3:o7")
    cel.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=False
    Next cel
End Sub

[Amir Ghasemiyan]

همه لینکها سالمه روش کلیک میکنم باز میشه
در ضمن خطا اینه
[ATTACH=CONFIG]16078[/ATTACH]
اینم کدمه

sub tst()

    for each cel in range("o3:o7")
    cel.hyperlinks(1).follow newwindow:=false, addhistory:=false
    next cel
end sub

دوست عزيز تا جايي كه ميدونم اين خطا زماني رخ ميده كه شما در سلول هايپرلينك نداشته باشيد. مثلا شما تعريف كردين o3 تا o7 ولي اگه در سلول o6 هايپرلينك نداشته باشيد اين خطا رو دريافت ميكنيد. همه سلول هايي كه در محدوده o3 تا o7 هستند هايپرلينك هستند؟

[كامران]

دوست عزيز تا جايي كه ميدونم اين خطا زماني رخ ميده كه شما در سلول هايپرلينك نداشته باشيد. مثلا شما تعريف كردين o3 تا o7 ولي اگه در سلول o6 هايپرلينك نداشته باشيد اين خطا رو دريافت ميكنيد. همه سلول هايي كه در محدوده o3 تا o7 هستند هايپرلينك هستند؟

ممنون فرمایش شما بود توی سلولها لینک بود ولی به رنگ آبی در نیومده بود دابل کلیک کردم همه شو درست شد
فقط یه موردی من فرضا تو سلول c3 این فرمول رونوشتم
IF(O3<>"";HYPERLINK(O3;$A3);"") ولی وقتی که از کد شما استفاده میکنم بجای لینکی که سلول c3 از o3 آورده فقط متن داخل سلول c3 رو برمیگردونه این راهی داره یا باید حتما از سلول منبع برداشت کنم ؟

[Amir Ghasemiyan]

ممنون فرمایش شما بود توی سلولها لینک بود ولی به رنگ آبی در نیومده بود دابل کلیک کردم همه شو درست شد
فقط یه موردی من فرضا تو سلول c3 این فرمول رونوشتم
if(o3<>"";hyperlink(o3;$a3);"") ولی وقتی که از کد شما استفاده میکنم بجای لینکی که سلول c3 از o3 آورده فقط متن داخل سلول c3 رو برمیگردونه این راهی داره یا باید حتما از سلول منبع برداشت کنم ؟

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