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

موضوع: جستجو و لینک کردن

Hybrid View

پست قبلی پست قبلی   پست بعدی پست بعدی
  1. #1


    آخرین بازدید
    2022/12/26
    تاریخ عضویت
    November 2010
    محل سکونت
    کرج
    نوشته ها
    362
    امتیاز
    295
    سپاس
    193
    سپاس شده
    596 در 151 پست
    تعیین سطح نشده است

    MEYTI به Yahoo ارسال پیام

    جستجو و لینک کردن

    سلام بر دوستان گرام
    یه سوال، میخواستم در کد زیر بعد از جستجو وقتی مقدار مورد نظرو پیدا کرد سلول فعال رو لینک کنه به سلوله پیدا شده
    کد PHP:
    With Sheet1.Range("B1:B10000")
    If 
    ComboBox1.Text <> "" Then
    Set c 
    = .Find(ComboBox1.TextLookIn:=xlValuesLookAt:=xlWhole)


     
    ActiveCell.Value c.Offset(00
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

  2. #2


    آخرین بازدید
    2021/12/05
    تاریخ عضویت
    February 2010
    محل سکونت
    بوشهر
    نوشته ها
    940
    امتیاز
    718
    سپاس
    29
    سپاس شده
    863 در 365 پست
    تعیین سطح نشده است

    shamsololama به Yahoo ارسال پیام

    RE: جستجو و لینک کردن

    با درود فراوان


    On Error Resume Next
    Dim c As Range
    If ComboBox1.Text <> "" Then
    With Sheet1.Range("B1:B10000")
    Set c = .Find(ComboBox1.Text, LookIn:=xlValues, LookAt:=xlWhole)

    ActiveCell.Value = c
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=c.Address
    End With
    End If

    در صورتی که از یوزر فرم استفاده نمی کنید و از کمبوباکس در صفحه اکسل استفاده میکنید بصورت زیر خواهد بود

    Sub Macro1()
    On Error Resume Next
    Dim c As Range
    If Sheet1.ComboBox1.Text <> "" Then
    With Sheet1.Range("B1:B10000")
    Set c = .Find(Sheet1.ComboBox1.Text, LookIn:=xlValues, LookAt:=xlWhole)

    ActiveCell.Value = c
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=c.Address
    End With
    End If
    End Sub

  3. #3


    آخرین بازدید
    2022/12/26
    تاریخ عضویت
    November 2010
    محل سکونت
    کرج
    نوشته ها
    362
    امتیاز
    295
    سپاس
    193
    سپاس شده
    596 در 151 پست
    تعیین سطح نشده است

    MEYTI به Yahoo ارسال پیام

    RE: جستجو و لینک کردن

    با سلام خدمت استاد گرام
    ممنون از وقتی که گذاشتین
    مثل اینکه من منظورم و خوب نرسوندم.
    میخوام بعد از جستجو و پیدا کردن سلول مورد نظر سلول فعالمون مساوی با اون سلول پیدا شده بشه.
    یعنی هر وقت سلول پیدا شده تغییر کرد این سلول هم تغییر کنه.
    ممنون

  4. #4


    آخرین بازدید
    2021/12/05
    تاریخ عضویت
    February 2010
    محل سکونت
    بوشهر
    نوشته ها
    940
    امتیاز
    718
    سپاس
    29
    سپاس شده
    863 در 365 پست
    تعیین سطح نشده است

    shamsololama به Yahoo ارسال پیام

    RE: جستجو و لینک کردن

    با درود فراوان

    برای اینکار که مد نظر شماست بجای

    ActiveCell.Value = c

    بنویسید

    ActiveCell.Value = "=" & c.Address

  5. #5


    آخرین بازدید
    2022/12/26
    تاریخ عضویت
    November 2010
    محل سکونت
    کرج
    نوشته ها
    362
    امتیاز
    295
    سپاس
    193
    سپاس شده
    596 در 151 پست
    تعیین سطح نشده است

    MEYTI به Yahoo ارسال پیام

    RE: جستجو و لینک کردن

    ممنون استاد عزیز
    شما یک برنامه انبار تو اکسل نوشتید میشه لطف کنید برای من هم ایمیل کنید
    یا لینکشو بذارید
    ممنون میشم
    KARIMI.138@GMAIL.COM

  6. #6


    آخرین بازدید
    2021/12/05
    تاریخ عضویت
    February 2010
    محل سکونت
    بوشهر
    نوشته ها
    940
    امتیاز
    718
    سپاس
    29
    سپاس شده
    863 در 365 پست
    تعیین سطح نشده است

    shamsololama به Yahoo ارسال پیام

    RE: جستجو و لینک کردن

    با درود فراوان

    برنامه انبار کدومش مدنظر شماست توضیح بفرمائید تا بین برنامه ها پیدا کنم براتون بفرستم

  7. #7


    آخرین بازدید
    2022/12/26
    تاریخ عضویت
    November 2010
    محل سکونت
    کرج
    نوشته ها
    362
    امتیاز
    295
    سپاس
    193
    سپاس شده
    596 در 151 پست
    تعیین سطح نشده است

    MEYTI به Yahoo ارسال پیام

    RE: جستجو و لینک کردن

    با سلام
    دوست عزیز من برنامه های انبارتون رو ندیدم فقط تو پست چند روز پیش بهش اشاره کردین.
    برنامه ای انباری که کامل رسید ،حواله ،فاکتور داشته باشه و بطور غیر مستقیم با فرم ورود و خروج کار کنه
    ممنون میشم.


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

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

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

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

  1. جستجو و پیدا کردن عدد نزدیک به عدد مورد جستجو
    توسط nimavao در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 8
    آخرين نوشته: 2016/01/27, 13:49
  2. يافتن نام استان براي يك شهر از جدول استانها
    توسط karbar در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 3
    آخرين نوشته: 2012/08/27, 12:27
  3. سوال در مورد جستجوی آخرین ردیف مورد جستجو
    توسط omidi در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 2
    آخرين نوشته: 2012/02/13, 20:57

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

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

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

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

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