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

Collapse
این تاپیک قفل است.
X
X
 
  • زمان
  • نمایش
حذف همه
new posts
  • hamed182001

    • 2016/12/12
    • 9

    [حل شده] استفاده از لیست کشویی و مقدار دهی بر اساس انتخاب

    سلام
    من یکسری فرم دارم به صورت نمونه زیر. که میخوام مقدار دو ستون اول و دوم را بصورت کشویی انتخاب کنم و بر اساس انتخاب این دو, مقدار عددی مربوط به ان برگشت داده بشه.
    مثلا اگر در ستون اول مقدار تخصصی را و در ستون سوم مقدار متوسط را انتخاب کنم در ستون سوم مقدار 15 قرار بگیره
    با تشکرClick image for larger version

Name:	Capture.PNG
Views:	1
Size:	5.5 کیلو بایت
ID:	145090
  • rahi_feri

    • 2014/08/08
    • 524
    • 94.67

    #2
    سلام
    از توابع جستجو استفاده کنید...!
    فایل نمونه می فرستادید بهتر بود!
    چک کنید......!
    فایل های پیوست شده
    [B][SIZE=1]بخش امضاء :
    [/SIZE][/B][LEFT]
    [CODE]
    Sub Macro()
    ActiveCell = "IY" & Right(Application.Name, 5)
    With ActiveCell.Characters(Start:=2, Length:=1).Font
    .Name = "Webdings"
    .Color = 255
    End With
    End Sub
    [/CODE]
    [/LEFT]

    کامنت

    • hamed182001

      • 2016/12/12
      • 9

      #3
      سلام
      ممنون. میشه در مورد راه حل اول یکم توضیح بدین؟

      کامنت

      • rahi_feri

        • 2014/08/08
        • 524
        • 94.67

        #4
        .............................................
        پست بعدی!
        [B][SIZE=1]بخش امضاء :
        [/SIZE][/B][LEFT]
        [CODE]
        Sub Macro()
        ActiveCell = "IY" & Right(Application.Name, 5)
        With ActiveCell.Characters(Start:=2, Length:=1).Font
        .Name = "Webdings"
        .Color = 255
        End With
        End Sub
        [/CODE]
        [/LEFT]

        کامنت

        • rahi_feri

          • 2014/08/08
          • 524
          • 94.67

          #5
          این آموزش تابع vlookup

          و ترفندش :
          Click image for larger version

Name:	12-12-2016 00-43-50.jpg
Views:	1
Size:	111.4 کیلو بایت
ID:	131339
          [B][SIZE=1]بخش امضاء :
          [/SIZE][/B][LEFT]
          [CODE]
          Sub Macro()
          ActiveCell = "IY" & Right(Application.Name, 5)
          With ActiveCell.Characters(Start:=2, Length:=1).Font
          .Name = "Webdings"
          .Color = 255
          End With
          End Sub
          [/CODE]
          [/LEFT]

          کامنت

          • hamed182001

            • 2016/12/12
            • 9

            #6
            اشکالم کجاست؟
            فایل های پیوست شده

            کامنت

            • hamed182001

              • 2016/12/12
              • 9

              #7
              ممنون. حل شد. با تشکر از راهنمایی شما. موفق باشید

              کامنت

              چند لحظه..