giúp em tô màu cho cell thoả mãn ĐK

[truonghagpex]

các anh chị cho em hỏi em hiện đang tập viết code trong vba nhưng em không thể tiếp tục được vì dang vướng mắc thế này anh chị cho em gợi ý nhé
Sub LOC_VA_SAP_XEP()
Dim mycell, A, vdl As Range
Dim i As Integer
Dim tach As Variant
Dim defaultrang, tg As String
On Error GoTo canceled
Set vdl = Application.InputBox("CHON VUNG DU LIEU BAN CAN SAP XEP", "HOANG LONG SAP XEP", , , , , , 8)
for each mycell in vdl.cells
if asc(mycell) =123 then to màu cho cell đó (asc = 123 la mã của "{")
elseif
làm công việc khác
nhung khi em viết đến đó thì gặp lỗi mà không biết là lỗi gì hình như là không được dùng ác hay sao ấy anh chị cho em lời giải thích nhe




canceled
end sub

 

[Po_Pikachu]

Bạn nên chép toàn bộ code sai của bạn lên đi. Code gì nữa vời quá àh, lúc tiếng việt lúc lại code. Tùm lum hết thì làm sao thằng VBA nó hiểu được. Cái nào là mã thì ra mã, cái nào là chuỗi thì ra chuỗi. Viết lung tung hết trơn.
Thân.

 

[SA_DQ]

Bạn đối chiếu với cái ni

Option Explicit

Sub LocVaSapXep()
 Dim MyCell As Range, Aa, vdl As Range
 Dim iJ As Integer
 Dim Tach As Variant
 Dim defaulTrang, Tg As String
 On Error GoTo Canceled
 
 Set vdl = Application.InputBox("CHON VUNG DU LIEU BAN CAN SAP XEP", "HOANG LONG SAP XEP", , , , , , 8)
 For Each MyCell In vdl.Cells
2  ' If Chr(MyCell.Value) = 123 Then'
   If InStr(MyCell, Chr(123)) > 0 Then  '<=|'
      MyCell.Interior.ColorIndex = 34 + MyCell.Row Mod 6
   ElseIf 1 = 2 Then
      
   End If
 Next MyCell
GPE: Exit Sub
Canceled:            MsgBox "Con Loi Do Nha: " & Erl, , "GPE Xin Chuc Mung Ban!"
End Sub