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

موضوع: نمایش گزینه های متناظر هر عدد

  1. #1


    آخرین بازدید
    5 روز پیش
    تاریخ عضویت
    October 2011
    نوشته ها
    20
    امتیاز
    6
    سپاس
    1
    سپاس شده
    6 در 4 پست
    تعیین سطح نشده است

    نمایش گزینه های متناظر هر عدد

    باسلام ودرود محضر اساتید محترم: متن سئوال در فایل پیوست موجود می باشد
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
    فايل هاي پيوست شده فايل هاي پيوست شده
    • نوع فایل: rar book1.rar اطلاعات (16.6 کیلو بایت, 7 نمایش)
    پاسخ مورد نظر براي اين تاپيك ارسال شده است.

  2.  

  3. #2


    آخرین بازدید
    2020/11/06
    تاریخ عضویت
    March 2015
    محل سکونت
    تهران
    نوشته ها
    1,248
    امتیاز
    2327
    سپاس
    600
    سپاس شده
    2,238 در 1,001 پست
    تعیین سطح نشده است

    با سلام
    فایل نمونه را ملاحظه کنید.
    کد:
    Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim r As Range Dim vs As Variant If Target.Count > 1 Then Exit Sub If Intersect(Target, Range("C:C")) Is Nothing Then Exit Sub vs = Application.Match(Target.Cells.Offset(, -1), Sheets(2).Columns(1), 0) If IsError(vs) Then MsgBox "˜Ï ãæÑÏ äÙÑãæÌæÏ äãí ÈÇÔÏ" ElseIf Not IsError(vs) Then MsgBox Sheet2.Range("b" & vs) End If End Sub
    فايل هاي پيوست شده فايل هاي پيوست شده
    ای برادر تو همه اندیشه ای

  4. سپاس ها (1)


  5. #3


    آخرین بازدید
    5 روز پیش
    تاریخ عضویت
    October 2011
    نوشته ها
    20
    امتیاز
    6
    سپاس
    1
    سپاس شده
    6 در 4 پست
    تعیین سطح نشده است

    با سلام و تشکر کد ارائه شده تا حدودی مشکل حل شد اما این کد برای یک ستون می باشد درصورت امکان کدی که فقط برای مجموعه ای که نام گذاری شده ست( یعنی ممکن است اطلاعات شیت 2 غیر از ستون اول باشد) ارائه فرمایید .با تشکر و سپاس مجدد

  6. سپاس ها (1)


  7. #4


    آخرین بازدید
    2020/11/06
    تاریخ عضویت
    March 2015
    محل سکونت
    تهران
    نوشته ها
    1,248
    امتیاز
    2327
    سپاس
    600
    سپاس شده
    2,238 در 1,001 پست
    تعیین سطح نشده است

    با سلام
    اگر شماره ستون شیت دو تغییر کرد شماره ستون را در قسمت قرمز رنگ کد قرار بدید.

    vs = Application.Match(Target.Cells.Offset(, -1), Sheets(2).Columns(1), 0)
    ای برادر تو همه اندیشه ای

  8. سپاس ها (2)


  9. #5


    آخرین بازدید
    2023/08/17
    تاریخ عضویت
    March 2015
    محل سکونت
    آمل
    نوشته ها
    3,343
    امتیاز
    11575
    سپاس
    1,885
    سپاس شده
    8,165 در 3,011 پست
    تعیین سطح نشده است

    با سلام

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

    کد PHP:
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim r As Range
       
       
    If Target.Count 1 Then Exit Sub

       
    If Len(Target) > And Not Intersect(TargetMe.Range("b:b")) Is Nothing Then
       
       Set r 
    Sheet2.Range("A2:S1000").Find(TargetLookAt:=xlWhole)
       
         If 
    r Is Nothing Then
         
         MsgBox 
    "˜Ï ãæÑÏ äÙÑãæÌæÏ äãí ÈÇÔÏ"
       
    Else
       
         
    MsgBox r.Offset(01) & " ˜Ï"
       
    End If
       
       
    End If

       
     
    End Sub 
    فايل هاي پيوست شده فايل هاي پيوست شده
    • نوع فایل: xls book2.xls اطلاعات (69.0 کیلو بایت, 6 نمایش)
    ویرایش توسط iranweld : 2016/08/30 در ساعت 12:55

  10. سپاس ها (1)


  11. #6


    آخرین بازدید
    5 روز پیش
    تاریخ عضویت
    October 2011
    نوشته ها
    20
    امتیاز
    6
    سپاس
    1
    سپاس شده
    6 در 4 پست
    تعیین سطح نشده است

    باسلام مجدد ، فایل ذخیره نمیشه لطفاً مجدداً ارسال نمایید .

  12. #7


    آخرین بازدید
    2023/08/17
    تاریخ عضویت
    March 2015
    محل سکونت
    آمل
    نوشته ها
    3,343
    امتیاز
    11575
    سپاس
    1,885
    سپاس شده
    8,165 در 3,011 پست
    تعیین سطح نشده است

    نقل قول نوشته اصلی توسط arefi404 نمایش پست ها
    باسلام مجدد ، فایل ذخیره نمیشه لطفاً مجدداً ارسال نمایید .
    برای ذخیره شدن مشکلی ندارد اینبار save as کنید ببنید مشکل شما رفع میشود

  13. سپاس ها (2)



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

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

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

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

  1. [حل شده] محاسبه هزینه های هر نفر
    توسط mfr در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 3
    آخرين نوشته: 2016/03/24, 14:42
  2. [حل شده] جایگزین کردن چند عبارت با عبارات دیگر
    توسط niksirat2030 در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 11
    آخرين نوشته: 2015/11/18, 17:39
  3. حذف آیکون ها در گزینه فایل
    توسط rezajaberpour در انجمن microsoft office
    پاسخ ها: 3
    آخرين نوشته: 2015/06/01, 18:46
  4. نتایج بازیهای جام جهانی 2014 برزیل
    توسط حسام بحرانی در انجمن زنگ تفریح اکسل - Recess
    پاسخ ها: 65
    آخرين نوشته: 2014/07/14, 03:21
  5. جایگزینی مقدار به جای آدرس
    توسط abairej در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 3
    آخرين نوشته: 2014/05/23, 23:52

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

عدد های متناظر

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

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

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