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

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

  1. #1


    آخرین بازدید
    2024/02/18
    تاریخ عضویت
    February 2014
    محل سکونت
    تهران
    نوشته ها
    523
    امتیاز
    1130
    سپاس
    2,816
    سپاس شده
    1,050 در 348 پست
    سطح اکسل
    51.00 %

    علی فاطمی به Yahoo ارسال پیام

    سوال پیرامون هایپر لینک

    با سلام خدمت اسایتد و کاربران محترم

    در Book1 از سلول A1 تا A10 به ترتیب حروف a تا J قرار داده شده و تمامی این سلول ها به Book2 شیت 1 و سلول A1 هایپر لینک شده اند.
    حال آیا این امکان وجود دارد زمانی که بر روی هر یک از این سلول ها کلیک شد ، ضمن باز شدن Book2 مجتویات همان سلول را در Book2 شیت 1 و سلول A1 کپی شود یعنی اگر A1 کلیک شد حرف a و اگر A10 کلیک شد حرف J در Book2 شیت 1 و سلول A1 کپی شود .

    ممنون از توجه عزیزان
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
    در دنیا فقط یک نفر وجود دارد که باید از او بهتر باشید و آن کسی نیست جز گذشته خودتان




  2.  

  3. #2


    آخرین بازدید
    2024/02/18
    تاریخ عضویت
    February 2014
    محل سکونت
    تهران
    نوشته ها
    523
    امتیاز
    1130
    سپاس
    2,816
    سپاس شده
    1,050 در 348 پست
    سطح اکسل
    51.00 %

    علی فاطمی به Yahoo ارسال پیام
    در دنیا فقط یک نفر وجود دارد که باید از او بهتر باشید و آن کسی نیست جز گذشته خودتان




  4. #3


    آخرین بازدید
    2024/02/18
    تاریخ عضویت
    February 2014
    محل سکونت
    تهران
    نوشته ها
    523
    امتیاز
    1130
    سپاس
    2,816
    سپاس شده
    1,050 در 348 پست
    سطح اکسل
    51.00 %

    علی فاطمی به Yahoo ارسال پیام
    در دنیا فقط یک نفر وجود دارد که باید از او بهتر باشید و آن کسی نیست جز گذشته خودتان




  5. #4


    آخرین بازدید
    2023/08/17
    تاریخ عضویت
    March 2015
    محل سکونت
    آمل
    نوشته ها
    3,343
    امتیاز
    11575
    سپاس
    1,885
    سپاس شده
    8,165 در 3,011 پست
    تعیین سطح نشده است

    با سلام

    دو فایل پیوست را در یک مسیر کپی نمایید و book1.xlsx را اجرا نمایید

    از قابلیت Event در تهیه فایل استفاده گردید

    کد PHP:
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If 
    Not Intersect(TargetMe.Range("A1:A10")) Is Nothing Then

    If Range("B1").Value "yes" Then
        
        TEST1
        
        
    Else
        
        
    End If
        
    End If
        
    End Sub 
    ماکرویی که فراخوانی میگردد

    کد PHP:
    Public As Variant

    Sub TEST1
    ()

    Application.ScreenUpdating False
    Application
    .DisplayAlerts False

    ActiveCell.Value

    Workbooks
    .Open fileName:=directory "BOOK2.XLSX"

    Sheets(1).Select

    Range
    ("A1").Select

    Range
    ("A1").Value x

       

    Application
    .ScreenUpdating True
    Application
    .DisplayAlerts True

    End Sub 
    فايل هاي پيوست شده فايل هاي پيوست شده
    • نوع فایل: zip Book22.zip اطلاعات (15.7 کیلو بایت, 44 نمایش)
    ویرایش توسط iranweld : 2015/11/14 در ساعت 14:01


  6. #5


    آخرین بازدید
    2024/02/18
    تاریخ عضویت
    February 2014
    محل سکونت
    تهران
    نوشته ها
    523
    امتیاز
    1130
    سپاس
    2,816
    سپاس شده
    1,050 در 348 پست
    سطح اکسل
    51.00 %

    علی فاطمی به Yahoo ارسال پیام
    نقل قول نوشته اصلی توسط iranweld نمایش پست ها
    با سلام

    دو فایل پیوست را در یک مسیر کپی نمایید و book1.xlsx را اجرا نمایید

    از قابلیت Event در تهیه فایل استفاده گردید

    کد PHP:
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If 
    Not Intersect(TargetMe.Range("A1:A10")) Is Nothing Then

    If Range("B1").Value "yes" Then
        
        TEST1
        
        
    Else
        
        
    End If
        
    End If
        
    End Sub 
    ماکرویی که فراخوانی میگردد

    کد PHP:
    Public As Variant

    Sub TEST1
    ()

    Application.ScreenUpdating False
    Application
    .DisplayAlerts False

    ActiveCell.Value

    Workbooks
    .Open fileName:=directory "BOOK2.XLSX"

    Sheets(1).Select

    Range
    ("A1").Select

    Range
    ("A1").Value x

       

    Application
    .ScreenUpdating True
    Application
    .DisplayAlerts True

    End Sub 
    با سلام و تشکر از دوست عزیز iranweld
    لطفا فایل زیپ پیوست رو باز بفرمایید در فایل word توضیحاتی داده شده است.
    ممنون از توجه شما.
    فايل هاي پيوست شده فايل هاي پيوست شده
    در دنیا فقط یک نفر وجود دارد که باید از او بهتر باشید و آن کسی نیست جز گذشته خودتان




  7. #6


    آخرین بازدید
    2023/08/17
    تاریخ عضویت
    March 2015
    محل سکونت
    آمل
    نوشته ها
    3,343
    امتیاز
    11575
    سپاس
    1,885
    سپاس شده
    8,165 در 3,011 پست
    تعیین سطح نشده است

    با سلام

    در ماکرو فایل دوم چند سطر اول را بصورت ذیل تغییر بدید. در حالت فعلی ماکرو شما کل 100000 سلول ستون A را چک مینماید ولی با تغییر به شکل ذیل فقط چند ردیف سلول پر ستون A چک میگردد

    کد PHP:
    Sub Resid()

    Dim a

    Dim zz 
    As Range

    Cells(Rows.Count"A").End(xlUp).Row

    For Each zz In Sheet3.Range("a4:a" k)

    If 
    Sheet2.Range("a1") = zz Then 
    فايل هاي پيوست شده فايل هاي پيوست شده
    ویرایش توسط iranweld : 2015/11/18 در ساعت 16:28

  8. سپاس ها (1)



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

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

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

موضوعات مشابه

  1. تابع هایپرلینک سفارشی
    توسط tirdadt7 در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 4
    آخرين نوشته: 2018/07/05, 19:05
  2. [حل شده] سوال در مورد نمودار پویا در کتاب اکسل 2010 پیشرفته
    توسط پیام در انجمن پشتيباني محصولات فروشگاه - Products Support
    پاسخ ها: 6
    آخرين نوشته: 2015/11/04, 15:37
  3. یک سوال سطح پیشرفته
    توسط saman_kiyani در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 2
    آخرين نوشته: 2013/05/17, 23:56
  4. مشکل در ترکیب فرمول ، سوال پیشرفته
    توسط mr.excel در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 6
    آخرين نوشته: 2012/07/15, 16:08
  5. هایپرلینک در اکسل
    توسط arashzakeri در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 0
    آخرين نوشته: 2011/10/11, 16:59

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

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

کلمات کلیدی این موضوع

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

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

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