نمایش نتایج: از شماره 1 تا 8 , از مجموع 8

موضوع: لینک در سلولها

  1. #1


    آخرین بازدید
    2019/12/17
    تاریخ عضویت
    June 2016
    نوشته ها
    147
    امتیاز
    120
    سپاس
    41
    سپاس شده
    100 در 53 پست
    سطح اکسل
    41.00 %

    Icon19 لینک در سلولها

    سلام
    همونطوری که میدونید وقتی در اکسل وقتی روی یک سلول که حاوی لینکه کلیک کنیم اون لینک باز میشه (حالا چه تو اینترنت چه جای دیگه) و اگه پشت سر هم روی چند سلول کلیک کنیم اکسل فقط لینک آخرین سلول رو باز میکنه
    ولی مسئله ای که برا من پیش اومده اینه که چطور میتونم چند تا سلول حاوی لینک رو انتخاب کنم و با کلیک روی یه دکمه کنترل (جهت اجرای ماکرو یا .... ) اکسل همه اون لینکهائی رو که انتخاب کردیم با هم روی مرورگر باز کنه
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
    پاسخ مورد نظر براي اين تاپيك ارسال شده است.

  2.  

  3. #2


    آخرین بازدید
    یک روز پیش
    تاریخ عضویت
    September 2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    4,469
    امتیاز
    12312
    سپاس
    8,924
    سپاس شده
    10,583 در 3,742 پست
    سطح اکسل
    100.00 %

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

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

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

  4. سپاس ها (3)


  5. #3


    آخرین بازدید
    2019/12/17
    تاریخ عضویت
    June 2016
    نوشته ها
    147
    امتیاز
    120
    سپاس
    41
    سپاس شده
    100 در 53 پست
    سطح اکسل
    41.00 %

    نقل قول نوشته اصلی توسط Amir Ghasemiyan نمایش پست ها
    سلام دوست عزيز
    با اين كد vba ميتونين اينكار رو بكنيد. دقت داشته باشيد كه خيلي كند عمل ميكنه. (كلا باز كردن آدرس اينترنتي در اكسل مقداري كند كار مي كند)

    کد:
    For Each cel In Range("A1:A4")
        cel.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=False
    Next cel
    کار نمیکنه
    لینک اول رو باز میکنه ولی برای لینک دوم خطا میده

  6. #4


    آخرین بازدید
    یک روز پیش
    تاریخ عضویت
    September 2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    4,469
    امتیاز
    12312
    سپاس
    8,924
    سپاس شده
    10,583 در 3,742 پست
    سطح اکسل
    100.00 %

    نقل قول نوشته اصلی توسط كامران نمایش پست ها
    کار نمیکنه
    لینک اول رو باز میکنه ولی برای لینک دوم خطا میده

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

  7. #5


    آخرین بازدید
    2019/12/17
    تاریخ عضویت
    June 2016
    نوشته ها
    147
    امتیاز
    120
    سپاس
    41
    سپاس شده
    100 در 53 پست
    سطح اکسل
    41.00 %

    نقل قول نوشته اصلی توسط Amir Ghasemiyan نمایش پست ها

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

نام:  Capture.JPG
مشاهده: 6
حجم:  16.6 کیلو بایت
    اینم کدمه
    کد:
    Sub tst()
    
        For Each cel In Range("o3:o7")
        cel.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=False
        Next cel
    End Sub

  8. #6


    آخرین بازدید
    یک روز پیش
    تاریخ عضویت
    September 2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    4,469
    امتیاز
    12312
    سپاس
    8,924
    سپاس شده
    10,583 در 3,742 پست
    سطح اکسل
    100.00 %

    نقل قول نوشته اصلی توسط كامران نمایش پست ها
    همه لینکها سالمه روش کلیک میکنم باز میشه
    در ضمن خطا اینه
    برای دیدن سایز بزرگ روی عکس کلیک کنید

نام:  Capture.JPG
مشاهده: 6
حجم:  16.6 کیلو بایت
    اینم کدمه
    کد:
    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 هستند هايپرلينك هستند؟

  9. سپاس ها (1)


  10. #7


    آخرین بازدید
    2019/12/17
    تاریخ عضویت
    June 2016
    نوشته ها
    147
    امتیاز
    120
    سپاس
    41
    سپاس شده
    100 در 53 پست
    سطح اکسل
    41.00 %

    نقل قول نوشته اصلی توسط Amir Ghasemiyan نمایش پست ها

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

  11. #8


    آخرین بازدید
    یک روز پیش
    تاریخ عضویت
    September 2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    4,469
    امتیاز
    12312
    سپاس
    8,924
    سپاس شده
    10,583 در 3,742 پست
    سطح اکسل
    100.00 %

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

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


  12. سپاس ها (1)



اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

بازدید کنندگان با جستجو های زیر این صفحه را پیدا کرده اند

انجمن اكسل ايران , اكسل , اكسس , سوال و جواب اكسل , سوال اكسس , انجمن اكسل ايران , توابع اكسل, آموزش اكسل, آموزش اكسس, VBA, ويژوال بيسيك

علاقه مندی ها (Bookmarks)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  
  • BB code ها فعال هستند
  • شکلک ها فعال هستند
  • کد [IMG] فعال است
  • کد [VIDEO] فعال است
  • کد HTML غیر فعال است