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

موضوع: جستجو و ورود داده

  1. #1


    آخرین بازدید
    19 _ 07 _ 2016
    تاریخ عضویت
    October_2010
    محل سکونت
    قائمشهر
    نوشته ها
    114
    امتیاز
    52
    سپاس
    150
    سپاس شده
    51 در 26 پست

    جستجو و ورود داده

    سلام
    من خواستم يه vba بنويسم كه برام از ستون اول يه كد منحصر به فردي رو كه بهش ميدم از ستون اول سرچ كنه
    اگه وجود داره سلول سمت راستيشو انتخاب كنه و يه كد ديگه بشه توش نوشت
    اگه وجود نداره پيغام خطا بده
    ولي نتونستم كاملش كنم
    خواهش ميكنم راهنماييم كنيد
    ممنون
    Sub search()
    '

    Dim kod As Single

    kod = InputBox("inter code")

    Range("a3:a100").Find(What:=kod, After:=ActiveCell, LookIn:=xlFormulas, _
    LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
    MatchCase:=False, SearchFormat:=False).Activate
    Selection.Offset(0, 1).Select
    InputBox ("number")

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

  2.  

  3. #2


    آخرین بازدید
    19 _ 07 _ 2016
    تاریخ عضویت
    October_2010
    محل سکونت
    قائمشهر
    نوشته ها
    114
    امتیاز
    52
    سپاس
    150
    سپاس شده
    51 در 26 پست

    RE: جستجو و ورود داده

    سلام
    كسي از اساتيد نميخواد يه كمكي بكنه؟بخدا ثواب داره

  4. #3


    آخرین بازدید
    22 _ 12 _ 2016
    تاریخ عضویت
    February_2010
    محل سکونت
    بوشهر
    نوشته ها
    922
    امتیاز
    647
    سپاس
    29
    سپاس شده
    793 در 339 پست

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

    RE: جستجو و ورود داده

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

    این کد رو امتحان کن
    ولی نگفتی چقدر ثواب داره


    Sub jostejoo()

    Dim c As Range
    Dim kod2
    Dim fin As Integer
    fin = 0
    Dim kod As Single
    kod = InputBox("inter code")
    '
    For Each c In Range("A3:A100")
    If c = kod Then
    fin = 1
    GoTo point1:
    End If
    Next
    point1:
    If fin = 0 Then
    MsgBox "این کد در لیست موجود نیست"
    Else

    kod2 = InputBox("مقدار سل روبروی کدبرابر است با=" & c.Offset(0, 1))
    c.Offset(0, 1) = kod2
    End If
    End Sub

  5. #4


    آخرین بازدید
    19 _ 07 _ 2016
    تاریخ عضویت
    October_2010
    محل سکونت
    قائمشهر
    نوشته ها
    114
    امتیاز
    52
    سپاس
    150
    سپاس شده
    51 در 26 پست

    RE: جستجو و ورود داده

    سلام
    دستتون درد نكنه استاد
    ثوابش انقدر زياده كه با هيچ ماكرو و تابعي نميشه حسابش كرد
    بازم ممنونم از لطفتون
    من چيكاركنم كه اكسلم مثل شما قوي بشه؟
    از كجا بايد شروع كنم؟

  6. #5


    آخرین بازدید
    6 روز پیش
    تاریخ عضویت
    June_2010
    محل سکونت
    تهران
    نوشته ها
    121
    امتیاز
    12
    سپاس
    11
    سپاس شده
    1 در 1 پست

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

    RE: جستجو و ورود داده



    این کد رو وقتی در وی بی وارد کردیم در کدام سلول داده خودمون رو واد کنیم تا جواب بده
    [size=medium]موفق باشيد[/size]

  7. #6


    آخرین بازدید
    22 _ 12 _ 2016
    تاریخ عضویت
    February_2010
    محل سکونت
    بوشهر
    نوشته ها
    922
    امتیاز
    647
    سپاس
    29
    سپاس شده
    793 در 339 پست

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

    RE: جستجو و ورود داده

    با درود فراوان
    در انیپود باکس اول داده ای که می خواهیم در لیست جستجو شود را وارد میکنیم و در اینپود باکس دوم دیتا جدیدی که می خواهیم جلوی آن وارد شود را وارد می کنیم

    اگر می خواهید اکسل شما قوی شود فقط باید شروع کنید یعنی همین کاری که الان انجام داده اید

  8. #7


    آخرین بازدید
    19 _ 07 _ 2016
    تاریخ عضویت
    October_2010
    محل سکونت
    قائمشهر
    نوشته ها
    114
    امتیاز
    52
    سپاس
    150
    سپاس شده
    51 در 26 پست

    RE: جستجو و ورود داده

    داداش فقط يه مشكل
    اگه اون سلول كناريش عدد داشته باشه و من خونه رو خالي بذارم اون عدد كناريش حذف ميشه و خونه خالي ميشه
    واسه اين يه راه حل جديد ميدي؟


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

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

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

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

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

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

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

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

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