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

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

  1. #1


    آخرین بازدید
    2020/11/02
    تاریخ عضویت
    October 2010
    محل سکونت
    قائمشهر
    نوشته ها
    114
    امتیاز
    54
    سپاس
    150
    سپاس شده
    53 در 27 پست
    تعیین سطح نشده است

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

    سلام
    من خواستم يه 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


    آخرین بازدید
    2020/11/02
    تاریخ عضویت
    October 2010
    محل سکونت
    قائمشهر
    نوشته ها
    114
    امتیاز
    54
    سپاس
    150
    سپاس شده
    53 در 27 پست
    تعیین سطح نشده است

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

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

  4. #3


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

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

    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


    آخرین بازدید
    2020/11/02
    تاریخ عضویت
    October 2010
    محل سکونت
    قائمشهر
    نوشته ها
    114
    امتیاز
    54
    سپاس
    150
    سپاس شده
    53 در 27 پست
    تعیین سطح نشده است

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

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

  6. #5


    آخرین بازدید
    2019/08/08
    تاریخ عضویت
    June 2010
    محل سکونت
    تهران
    نوشته ها
    120
    امتیاز
    14
    سپاس
    11
    سپاس شده
    3 در 3 پست
    تعیین سطح نشده است

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

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



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

  7. #6


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

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

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

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

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

  8. #7


    آخرین بازدید
    2020/11/02
    تاریخ عضویت
    October 2010
    محل سکونت
    قائمشهر
    نوشته ها
    114
    امتیاز
    54
    سپاس
    150
    سپاس شده
    53 در 27 پست
    تعیین سطح نشده است

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

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


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

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

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

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

  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 غیر فعال است
با ما در تماس باشيد