هایلایت سلول های متغیّر

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

    • 2014/11/02
    • 1054

    [حل شده] هایلایت سلول های متغیّر

    سلام به دنبال کنندگان اکسل

    نیاز به هایلات سلول های متغیر بر اساس انتخاب از لیست ها، داشتم
    ممنون میشم اگر راهنمایی بفرمایید.
    فایل های پیوست شده
    [FONT=arial][SIZE=3]اگر کسی به شما کمک کرد، سمت راست پایین هر موضوع تیک [COLOR=#0000cd][B]«3پاس»[/B][/COLOR] یادتان نرود لطفا
    اگر مشکل تان حل شد، حتما تیک سبز رنگ [B][COLOR=#00cc00]«حل شد»[/COLOR][/B] در پست اول را بزنید
    [/SIZE][/FONT][SIZE=3][CENTER][FONT=arial]
    [/FONT][/CENTER]
    [/SIZE][FONT=arial][SIZE=3] اگر میخواهید بهتر و دقیق تر و سریع تر به شما کمک شود، یک [COLOR=#ee82ee][B]«فایل نمونه»[/B][/COLOR] قرار دهید
    فایل نمونه: حداکثر [U][COLOR=#ff0000]50 [/COLOR][/U]کیلوبایت - کوتاه، تقریبا [U][COLOR=#ff0000]10 [/COLOR][/U]سطری - به همراه جواب یا خروجی یا نتیجه مورد انتظار[/SIZE][/FONT][CENTER][FONT=arial][COLOR=#0000ff][SIZE=3][SIZE=3][SIZE=3][SIZE=3]مسیر ارسال فایل : پایین سمت چپ - تنظیمات اضافی - فایل پیوست[/SIZE][/SIZE][/SIZE] [/SIZE][/COLOR]
    [/FONT][/CENTER]
  • M_ExceL

    • 2018/04/23
    • 677

    #2
    نوشته اصلی توسط saed.rasa
    سلام به دنبال کنندگان اکسل

    نیاز به هایلات سلول های متغیر بر اساس انتخاب از لیست ها، داشتم
    ممنون میشم اگر راهنمایی بفرمایید.
    سلام،
    یکی از روش های زیر رو تست کنید :
    روش اول :
    فرمول زیر رو جهت Conditional Formating وارد کنید :
    کد:
    =AND($A2=$D$9,OR(B$1=$D$7,B$1=$D$8))
    روش دوم (پیشنهاد بنده) :
    کد زیر رو داخل رویداد چنج شیت وارد کنید :
    کد:
    Private Sub Worksheet_Change(ByVal Target As Range)
    Dim m1, m2, nm As String
        m1 = Range("d7").Text
        m2 = Range("d8").Text
        nm = Range("d9").Text
            Range("b2:g5").Interior.ColorIndex = 0
               For r = 2 To 5
                   For s = 2 To 7
                     For s2 = 2 To 7
                       If nm = Cells(r, 1) Then
                           If m1 = Cells(1, s) And m2 = Cells(1, s2) Then
                               Rng = Cells(r, s).Address & ":" & Cells(r, s2).Address
                               Range(Rng).Interior.ColorIndex = 7
                               Exit For
                           End If
                       End If
                     Next s2
                   Next s
               Next r
    End Sub
    یا حق.
    فایل های پیوست شده
    [CENTER]Telegram Channel : [url]https://t.me/UltraOfficeSkills[/url]
    [/CENTER]

    کامنت

    • saed.rasa

      • 2014/11/02
      • 1054

      #3
      سلام دوست عزیز

      بازم، مثل همیشه کارت عالی بود!! متشکرم!

      Vb فوق العاده است

      چقدر خوب می شد این کار با توابع انجام می شد در قسمت Conditional Formating

      فقط ی سوال کوچولو : چرا این فرمول درست کار نمی کند
      فایل های پیوست شده
      [FONT=arial][SIZE=3]اگر کسی به شما کمک کرد، سمت راست پایین هر موضوع تیک [COLOR=#0000cd][B]«3پاس»[/B][/COLOR] یادتان نرود لطفا
      اگر مشکل تان حل شد، حتما تیک سبز رنگ [B][COLOR=#00cc00]«حل شد»[/COLOR][/B] در پست اول را بزنید
      [/SIZE][/FONT][SIZE=3][CENTER][FONT=arial]
      [/FONT][/CENTER]
      [/SIZE][FONT=arial][SIZE=3] اگر میخواهید بهتر و دقیق تر و سریع تر به شما کمک شود، یک [COLOR=#ee82ee][B]«فایل نمونه»[/B][/COLOR] قرار دهید
      فایل نمونه: حداکثر [U][COLOR=#ff0000]50 [/COLOR][/U]کیلوبایت - کوتاه، تقریبا [U][COLOR=#ff0000]10 [/COLOR][/U]سطری - به همراه جواب یا خروجی یا نتیجه مورد انتظار[/SIZE][/FONT][CENTER][FONT=arial][COLOR=#0000ff][SIZE=3][SIZE=3][SIZE=3][SIZE=3]مسیر ارسال فایل : پایین سمت چپ - تنظیمات اضافی - فایل پیوست[/SIZE][/SIZE][/SIZE] [/SIZE][/COLOR]
      [/FONT][/CENTER]

      کامنت

      • M_ExceL

        • 2018/04/23
        • 677

        #4
        نوشته اصلی توسط saed.rasa
        سلام دوست عزیز

        بازم، مثل همیشه کارت عالی بود!! متشکرم!

        Vb فوق العاده است

        چقدر خوب می شد این کار با توابع انجام می شد در قسمت Conditional Formating

        فقط ی سوال کوچولو : چرا این فرمول درست کار نمی کند
        خواهش میکنم،
        چک کنید :
        فایل های پیوست شده
        [CENTER]Telegram Channel : [url]https://t.me/UltraOfficeSkills[/url]
        [/CENTER]

        کامنت

        • saed.rasa

          • 2014/11/02
          • 1054

          #5
          سلام
          عالی بود
          ممنون یک میلیون

          یک روش دیگر
          فایل های پیوست شده
          [FONT=arial][SIZE=3]اگر کسی به شما کمک کرد، سمت راست پایین هر موضوع تیک [COLOR=#0000cd][B]«3پاس»[/B][/COLOR] یادتان نرود لطفا
          اگر مشکل تان حل شد، حتما تیک سبز رنگ [B][COLOR=#00cc00]«حل شد»[/COLOR][/B] در پست اول را بزنید
          [/SIZE][/FONT][SIZE=3][CENTER][FONT=arial]
          [/FONT][/CENTER]
          [/SIZE][FONT=arial][SIZE=3] اگر میخواهید بهتر و دقیق تر و سریع تر به شما کمک شود، یک [COLOR=#ee82ee][B]«فایل نمونه»[/B][/COLOR] قرار دهید
          فایل نمونه: حداکثر [U][COLOR=#ff0000]50 [/COLOR][/U]کیلوبایت - کوتاه، تقریبا [U][COLOR=#ff0000]10 [/COLOR][/U]سطری - به همراه جواب یا خروجی یا نتیجه مورد انتظار[/SIZE][/FONT][CENTER][FONT=arial][COLOR=#0000ff][SIZE=3][SIZE=3][SIZE=3][SIZE=3]مسیر ارسال فایل : پایین سمت چپ - تنظیمات اضافی - فایل پیوست[/SIZE][/SIZE][/SIZE] [/SIZE][/COLOR]
          [/FONT][/CENTER]

          کامنت

          چند لحظه..