Nếu lỗi lệnh dòng 2 thì thực hiện lệnh dòng 3 (1 người xem)

[hoangexcell]

Bữa nay chắc hỏi lần cuối thôi, mai không đụng tới excel nữa. Nên cao nhân nào biết chỉ dùm tình huống sau nhe:

Sub a()

dem = Application.Match("N", Range(Cells(Selection.Row, Selection.Column), Cells(Selection.Row, 47)), 0)
dem = 7 (chỉ thực hiện khi lệnh trên báo lỗi không tìm ra N)

Range(Cells(Selection.Row, Selection.Column), Cells(Selection.Row, Selection.Column + dem - 2)).Value = 12

End Sub

 

[huonglien1901]

Bữa nay chắc hỏi lần cuối thôi, mai không đụng tới excel nữa. Nên cao nhân nào biết chỉ dùm tình huống sau nhe:

Sub a()

dem = Application.Match("N", Range(Cells(Selection.Row, Selection.Column), Cells(Selection.Row, 47)), 0)
dem = 7 (chỉ thực hiện khi lệnh trên báo lỗi không tìm ra N)

Range(Cells(Selection.Row, Selection.Column), Cells(Selection.Row, Selection.Column + dem - 2)).Value = 12

End Sub

Thì anh sử dụng hàm if vào và khai báo biến dem.nữa .

 

[hoangexcell]

Thì anh sử dụng hàm if

nó bị lỗi khi chạy match thì sao chạy if?

 

[huonglien1901]

nó bị lỗi khi chạy match thì sao chạy if?

Chắc là bị lỗi sai công thức.

 

[Nhất Chi Lan]

nó bị lỗi khi chạy match thì sao chạy if?

Cho em này vào thử xem sao Bạn

On Error Resume Next

 

[hoangexcell]

Cho em này vào thử xem sao Bạn

On Error Resume Next

Không đúng. Như vậy nếu không lỗi nó cũng gán dem = 7 mà hehe

Bài đã được tự động gộp: 6/11/19

Chắc là bị lỗi sai công thức.

Ý là không tìm thấy "N" thì báo lỗi nè. chứ công thức không sai

 

[Nhất Chi Lan]

Không đúng. Như vậy nếu không lỗi nó cũng gán dem = 7 mà hehe

Bài đã được tự động gộp: 6/11/19

Ý là không tìm thấy "N" thì báo lỗi nè. chứ công thức không sai

Vậy bạn thử như vầy thử

 If IsError(dem) Then dem = 7

 

[SA_DQ]

Bạn thử cái này xem sao?

Sub a()
On Error GoTo LoiCT
Dem = Application.Match("N", Range(Cells(Selection.Row, Selection.Column), Cells(Selection.Row, 47)), 0)

Range(Cells(Selection.Row, Selection.Column), Cells(Selection.Row, Selection.Column + Dem - 2)).Value = 12
Err_:                   Exit Sub
LoiCT:
    Dem = 7 'Chi Thuc Hiên Khi Lênh Trên Báo Lôi Không Tìm Ra "N"   '
    Resume Next
End Sub