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

موضوع: معادل vlookup در vba چی هست؟

  1. #1


    آخرین بازدید
    05 _ 07 _ 2016
    تاریخ عضویت
    March_2010
    نوشته ها
    152
    امتیاز
    35
    سپاس
    9
    سپاس شده
    22 در 13 پست

    معادل vlookup در vba چی هست؟

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

  2.  

  3. #2


    آخرین بازدید
    3 هفته پیش
    تاریخ عضویت
    February_2010
    محل سکونت
    بوشهر
    نوشته ها
    922
    امتیاز
    643
    سپاس
    29
    سپاس شده
    789 در 337 پست

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

    RE: معادل vlookup در vba چی هست؟

    با درود فراوان
    با روشهای مختلفی میشه این کار رو انجام داد
    یک نمونه را در اینجا مثال می زنم

    Private Sub TextBox1_Change()
    On Error Resume Next
    TextBox2.Text = ""
    TextBox3.Text = ""
    With Sheet1.Range("a1:a20000")
    Set c = .Find(TextBox1.Text, LookIn:=xlValues, LookAt:=xlPart)

    End With
    If c.Text = TextBox1.Text Then
    TextBox2.Text = c.Offset(0, 1).Text
    TextBox3.Text = c.Offset(0, 2).Text
    End If
    End Sub


    کد با توضیح هر خط از کد



    Private Sub TextBox1_Change()
    On Error Resume Next
    TextBox2.Text = "" 'تکس باکس راخالي ميکند
    TextBox3.Text = "" ' تکس باکس 3 را خالي ميکند
    With Sheet1.Range("a1:a20000") 'رنج مورد نظر را مشخص ميکنيم
    Set c = .Find(TextBox1.Text, LookIn:=xlValues, LookAt:=xlPart) ' متن داخل تکس باکس يک يا همان کد را جستجو ميکند

    End With
    If c.Text = TextBox1.Text Then 'به شرط اينکه کد مورد نظر پيدا شود
    TextBox2.Text = c.Offset(0, 1).Text ' يک خانه جلوتر از خانه کد پيدا شد يعني نام را درتکست 2 وارد مي شود
    TextBox3.Text = c.Offset(0, 2).Text ' يک خانه جلوتر از خانه کد پيدا شد يعني نام خانوادگي را درتکست 3 وارد مي شود
    End If
    End Sub

    File #1: http://www.lon.ir/up/uploads/1281225920.rar

  4. سپاس ها (1)


  5. #3


    آخرین بازدید
    05 _ 07 _ 2016
    تاریخ عضویت
    March_2010
    نوشته ها
    152
    امتیاز
    35
    سپاس
    9
    سپاس شده
    22 در 13 پست

    RE: معادل vlookup در vba چی هست؟

    سلام
    با تشکر از شما
    ممنون از اینکه وقت گذاشتید.
    خواهشا اگر امکانش هست نمونه فایل هاتون رو در سایت http://www.4shared.com/ قرار بدید.اول در اون ثبت نام کنید و سپس فایل هاتون رو آپلود کنید فعلا تا 10 گیگ مجانی می تونید فایل داخلش آپلود کنید.
    1)دیگه لینک ها پاک نمیشه
    2)اگر سایتش فیلتر بشه به راحتی میشه از طریق سایت http://rapidbaz.com/from/9027 لینک مورد نظر رو دانلود کرد.
    3)یک آرشیو کامل دارید و با ورود بهش خیلی کار ها می تونید انجام بدید.
    تصاویری از پنل مدیریتی هر یوزر




    متاسفانه من نمونه فایل شما رو نتونستم دانلود کنم اگر امکانش هست در این سایت آپلود کنید.

  6. #4


    آخرین بازدید
    05 _ 07 _ 2016
    تاریخ عضویت
    March_2010
    نوشته ها
    152
    امتیاز
    35
    سپاس
    9
    سپاس شده
    22 در 13 پست

    RE: معادل vlookup در vba چی هست؟

    آیا می توان نمودار را روی یوزر فورم نمایش داد؟

  7. #5


    آخرین بازدید
    3 هفته پیش
    تاریخ عضویت
    February_2010
    محل سکونت
    بوشهر
    نوشته ها
    922
    امتیاز
    643
    سپاس
    29
    سپاس شده
    789 در 337 پست

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

    RE: معادل vlookup در vba چی هست؟

    با درود فراوان
    بله همانطور که یک تکس باکس و یا یک لیبل رو رو یوزفرم قرار می دهی یک چارت هم میتوان به فرم اضافه کرد
    اگر روی تولز باکس چارت نداری با راست کلیک روی یکی از آبجکت ها به منوی additional controls رفته و آن را تیک بزنید

  8. #6


    آخرین بازدید
    05 _ 07 _ 2016
    تاریخ عضویت
    March_2010
    نوشته ها
    152
    امتیاز
    35
    سپاس
    9
    سپاس شده
    22 در 13 پست

    RE: معادل vlookup در vba چی هست؟

    با سلام و تشکر
    اگر منظور شما این هست




    که من هر کار کردم نتونستم چیزی اضافه بکنم!

  9. سپاس ها (1)


  10. #7


    آخرین بازدید
    3 هفته پیش
    تاریخ عضویت
    February_2010
    محل سکونت
    بوشهر
    نوشته ها
    922
    امتیاز
    643
    سپاس
    29
    سپاس شده
    789 در 337 پست

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

    RE: معادل vlookup در vba چی هست؟

    با درود فراوان
    با کلیک بر روی additional controls مراحل زیر را باید طی کنید.

    [][/]


    مرحله دوم

    [i][/]

    یادت باشه جایی که با فلاش قرمز مشخص کردم نباید تیک خورده باشه تا آبجکهای تیک نخورده رو بتونی ببینی

  11. #8


    آخرین بازدید
    05 _ 07 _ 2016
    تاریخ عضویت
    March_2010
    نوشته ها
    152
    امتیاز
    35
    سپاس
    9
    سپاس شده
    22 در 13 پست

    RE: معادل vlookup در vba چی هست؟

    با سلام مجدد متاسفانه additional controls برای من کار نمی کنه و هر بار که روش کلیک میکنم هیچ اتفاق خاصی نمی افته!

    اما سوال جدیدم پیدا کردن تکراری ها)
    فرض کنید مثل عکس زیر من 3 نفر به نام اسماعیلی دارم و می خوام هر 3 نفر رو پیدا کنم و در TextBox نشون بدم.چطور باید این کار رو بکنم؟


  12. #9


    آخرین بازدید
    3 هفته پیش
    تاریخ عضویت
    February_2010
    محل سکونت
    بوشهر
    نوشته ها
    922
    امتیاز
    643
    سپاس
    29
    سپاس شده
    789 در 337 پست

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

    RE: معادل vlookup در vba چی هست؟

    با درود فراوان
    در مورد اینکه کنترلها برای شما باز نمیشه احتمالا آفیس رو کامل نسب نکردید اگر کامل نسب کنید فکر کنم درست میشه

    و در مورد سئوال می خواهید جستجو را از چه کدام فیلد انجام دهید با نام و یا نام خانوادگی و یا سال و یا می خواهید فیلد جستوجو متغییر باشد که هر زمان خواستید برابر با فیلد دلخواه سرچ کنید
    و معمولا برای جستو به نظرمن اگر از لیست باکس استفاده کنید بهتر از تکست باکس و راحت تر است ولی در هردو صورت امکان پذیر است
    می توانید از
    find
    و همچنین از حلقه
    for each
    استفاده کنید

  13. #10


    آخرین بازدید
    05 _ 07 _ 2016
    تاریخ عضویت
    March_2010
    نوشته ها
    152
    امتیاز
    35
    سپاس
    9
    سپاس شده
    22 در 13 پست

    RE: معادل vlookup در vba چی هست؟

    با تشکر
    من اکسل 2003و2007و2010 رو همزمان نصب دارم(البته فقط اکسل) و به صورت complete هم هست.اما متاسفانه درست نمیشه!(دوباره پاک کردم نصب کردم .نشد که نشد)

    با توجه به عکس سال برام مهم هست
    ولی فکر نمی کردم که بشه هر سه فیلد (سال و نام و نام خانوادگی) رو به طور همزمان استفاده کرد.

    منظور شما از لیست باکس این هست؟(در مقایسه با کدی که در پست 3 معرفی کردید)
    Private Sub TextBox1_Change()
    On Error Resume Next
    ListBox1.Text = ""
    ListBox2.Text = ""
    With Sheet1.Range("a1:a20000")
    Set c = .Find(TextBox1.Text, LookIn:=xlValues, LookAt:=xlPart)
    End With
    If c.Text = TextBox1.Text Then
    ListBox1.Text = c.Offset(0, 1).Text
    ListBox2.Text = c.Offset(0, 2).Text
    End If
    End Sub

    با تشکر


صفحه 1 از 3 123 آخرینآخرین

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

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

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

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

  1. امکان مرتب سازی چند ستون هست؟
    توسط majid_a110 در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 4
    آخرين نوشته: 13 _ 09 _ 2012, 23:56
  2. آیا این مسئله نگهداری و تعمیرات با vba قابل حل هست؟
    توسط esyoo در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 25
    آخرين نوشته: 06 _ 04 _ 2012, 18:51
  3. Accept Labels in Formulas در اکسل 2010 کجاست؟
    توسط esyoo در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 1
    آخرين نوشته: 26 _ 07 _ 2011, 22:44
  4. پاسخ ها: 0
    آخرين نوشته: 03 _ 03 _ 2010, 09:06

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

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

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

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