استفاده از حالات شرطی در حالت آیا میشه در conditional formatting

[iranweld]

با سلام

فایل پیوست را بررسی بفرمایید.

Sub TEST()

Dim score As String

z1 = Cells(Rows.Count, "A").End(xlUp).Row

For I = 2 To z1

score = Range("B" & I)

Select Case score
    
    Case Is = "ملت"
    Range("F" & I) = Range("C" & I).Value
         Range("F" & I).NumberFormat = "########""/""##"
         
         
  "Case Is ="اقتصاد نوین "
    Case Is = ChrW(1575) & ChrW(1602) & ChrW(1578) & ChrW(1589) & ChrW(1575) & ChrW(1583) & ChrW(32) & ChrW(1606) & ChrW(1608) & ChrW(1740) & ChrW(1606)
    Range("F" & I) = Range("C" & I).Value
       Range("F" & I).NumberFormat = "###""-""#""-""#####""-""#"
       
       
       Case Is = "ÕäÚÊ æ ãÚÏä"
       
              Range("F" & I).NumberFormat = "0000000000000"
       Range("F" & I) = Range("C" & I).Value
              
       
       Case Is = "ÇÓÇѐÇÏ"
       Range("F" & I) = Range("C" & I).Value
       Range("F" & I).NumberFormat = "##""-""###""-""########"
       
       
    Case Else
    Range("F" & I) = Range("C" & I).Value
    Range("F" & I).NumberFormat = "General"
        
        
End Select
Next


End Sub