[Hỏi] Application.InputBox Bị lỗi hiển thị

[hungtin1997]

Chào mọi người,

Em có code 2 đoạn code như phía dưới, không hiểu sao 1 code thì inputbox hiển thị vùng quét (gạch đứt màu xanh) như bình thường. 1 code không có. Không biết là lỗi gì ạ?

Set dl = Application.InputBox("Vung_DL", "Thông Báo!", Type:=8)
set r = Application.InputBox("Chon Vung Max_Min", "Thông Báo!", Type:=8)

 

[Nhattanktnn]

Chào mọi người,

Em có code 2 đoạn code như phía dưới, không hiểu sao 1 code thì inputbox hiển thị vùng quét (gạch đứt màu xanh) như bình thường. 1 code không có. Không biết là lỗi gì ạ?

Set dl = Application.InputBox("Vung_DL", "Thông Báo!", Type:=8)
set r = Application.InputBox("Chon Vung Max_Min", "Thông Báo!", Type:=8)

View attachment 248590
View attachment 248591

Do máy bạn rồi !

 

[hungtin1997]

Do máy bạn rồi !

1 Code thì được 1 code thì không mới lạ

 

[Nhattanktnn]

1 Code thì được 1 code thì không mới lạ

Mình chạy trên máy mình không có vấn đề như bạn nói

 

[hungtin1997]

Mình chạy trên máy mình không có vấn đề như bạn nói

Vâng, cảm ơn bác nhiều.

 

[Hai Lúa Miền Tây]

1 Code thì được 1 code thì không mới lạ

Về cơ bản, 2 dòng code đó không có gì khác nhau nhé bạn.

 

[bomberman211]

Chào mọi người,

Em có code 2 đoạn code như phía dưới, không hiểu sao 1 code thì inputbox hiển thị vùng quét (gạch đứt màu xanh) như bình thường. 1 code không có. Không biết là lỗi gì ạ?

Set dl = Application.InputBox("Vung_DL", "Thông Báo!", Type:=8)
set r = Application.InputBox("Chon Vung Max_Min", "Thông Báo!", Type:=8)

Kiếm dòng này xóa đi nhé thớt.

Application.ScreenUpdating = False

Ví dụ như này

Sub HHH()
Set dl = Application.InputBox("Vung_DL", "Thông Báo!", Type:=8)
Application.ScreenUpdating = False
Set r = Application.InputBox("Chon Vung Max_Min", "Thông Báo!", Type:=8)
End Sub

 

[hungtin1997]

Kiếm dòng này xóa đi nhé thớt.

Application.ScreenUpdating = False

Ví dụ như này

Sub HHH()
Set dl = Application.InputBox("Vung_DL", "Thông Báo!", Type:=8)
Application.ScreenUpdating = False
Set r = Application.InputBox("Chon Vung Max_Min", "Thông Báo!", Type:=8)
End Sub

Quá chuẩn luôn, em để ScreenUpdating ở trên ông Inputbox. Code 2 không có, cảm ơn bác nhiều lắm.

 

[hungtin1997]

Về cơ bản, 2 dòng code đó không có gì khác nhau nhé bạn.

Xin lỗi anh, đáng lẽ em phải đăng cả 2 đoạn code chứ không nên trích 2 dòng đó ra.