پرفروش ترين
برترين
آخرين محصولات فروشگاه
فایل الکترونیکی آموزش اکسل پیشرفته ۲۰۱۰
آموزش ایجاد فایل چندکاربره با سطح دسترسی مشخص
یوزرفرم پیشرفته -Advanced  User Form
داشبورد (مقدماتی) – Dashboards(Elementary)
ابزارهای اعتبار سنجی و اخطار دهنده
بسته آموزشی userform
مدیریت و کنترل خطا در اکسل
توابع متنی
گرافیک در اکسل
جزوه آموزشی جداول و نمودارهای پاشنه ای
فایل آموزشی نحوه تهیه فرمت عددی دلخواه یا custom number format cell
آموزش ایجاد فایل چندکاربره با سطح دسترسی مشخص
نمایش نتایج: از شماره 1 تا 7 , از مجموع 7

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

  1. #1


    آخرین بازدید
    02 _ 08 _ 2017
    تاریخ عضویت
    November_2010
    محل سکونت
    کرج
    نوشته ها
    363
    امتیاز
    263
    سپاس
    193
    سپاس شده
    564 در 140 پست

    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.  

  3. #2


    آخرین بازدید
    3 روز پیش
    تاریخ عضویت
    February_2010
    محل سکونت
    بوشهر
    نوشته ها
    931
    امتیاز
    664
    سپاس
    29
    سپاس شده
    810 در 348 پست

    shamsololama به Yahoo ارسال پیام فرستادن پیام با Skype به shamsololama

    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

  4. #3


    آخرین بازدید
    02 _ 08 _ 2017
    تاریخ عضویت
    November_2010
    محل سکونت
    کرج
    نوشته ها
    363
    امتیاز
    263
    سپاس
    193
    سپاس شده
    564 در 140 پست

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

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

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

  5. #4


    آخرین بازدید
    3 روز پیش
    تاریخ عضویت
    February_2010
    محل سکونت
    بوشهر
    نوشته ها
    931
    امتیاز
    664
    سپاس
    29
    سپاس شده
    810 در 348 پست

    shamsololama به Yahoo ارسال پیام فرستادن پیام با Skype به shamsololama

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

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

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

    ActiveCell.Value = c

    بنویسید

    ActiveCell.Value = "=" & c.Address

  6. #5


    آخرین بازدید
    02 _ 08 _ 2017
    تاریخ عضویت
    November_2010
    محل سکونت
    کرج
    نوشته ها
    363
    امتیاز
    263
    سپاس
    193
    سپاس شده
    564 در 140 پست

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

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

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

  7. #6


    آخرین بازدید
    3 روز پیش
    تاریخ عضویت
    February_2010
    محل سکونت
    بوشهر
    نوشته ها
    931
    امتیاز
    664
    سپاس
    29
    سپاس شده
    810 در 348 پست

    shamsololama به Yahoo ارسال پیام فرستادن پیام با Skype به shamsololama

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

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

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

  8. #7


    آخرین بازدید
    02 _ 08 _ 2017
    تاریخ عضویت
    November_2010
    محل سکونت
    کرج
    نوشته ها
    363
    امتیاز
    263
    سپاس
    193
    سپاس شده
    564 در 140 پست

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

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

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


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

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

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

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

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

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

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

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

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