- Tham gia
- 6/8/08
- Bài viết
- 1,815
- Được thích
- 1,163
- Giới tính
- Nam
Các bác ạ,
Em đố các bác tại sao code này sau khi tô màu đáp ứng đủ các điều kiện có cả 3 loại ô:
- chứa công thức.
- chứa hằng số.
- rỗng
vậy mà chạy xong vẫn nhảy vào đoạn LOI.
Em đố các bác tại sao code này sau khi tô màu đáp ứng đủ các điều kiện có cả 3 loại ô:
- chứa công thức.
- chứa hằng số.
- rỗng
vậy mà chạy xong vẫn nhảy vào đoạn LOI.
Mã:
Option Explicit
Sub CuocSongMuonMau()
On Error GoTo LOI
Dim rng As Range
Set rng = Application.InputBox( _
Title:="Range", _
Prompt:="Select Range", _
Default:=Selection.Address, _
Type:=8)
rng.SpecialCells(xlCellTypeVisible).Interior.ColorIndex = 0
rng.SpecialCells(xlCellTypeBlanks).Interior.ColorIndex = 35
rng.SpecialCells(xlCellTypeFormulas).Font.Color = vbRed
MsgBox "To xong het roi"
LOI:
MsgBox "Khong co o trong hoac o chua cong thuc"
Exit Sub
End Sub
Sub CuocSongMauDen()
Dim rng As Range
Set rng = Application.InputBox( _
Title:="Range", _
Prompt:="Select Range", _
Default:=Selection.Address, _
Type:=8)
rng.Interior.ColorIndex = 0
rng.Font.ColorIndex = 0
End Sub
