Chuyên mục xử lý, gỡ rối code VBA (1 người xem)

[ndu96081631]

Topic Những câu hỏi về code, xin giải thích các code... đã quá dài nên mình đóng nó lại và mở topic khác
Tất cả những bài viết liên quan đến việc nhờ giải thích, xử lý và gỡ rối code VBA, các bạn vui lòng đăng tại đây!
Cảm ơn

 

[Ba Tê]

Hix, huhu ... Chỉnh giúp em với các anh ơi...!!

Bạn thích "hu hu" nhưng lại viết không đầu không đuôi, sau bài viết của người khác, người khác cứ nghĩ là bạn "nhắc" mọi người giúp bài của bạn "tueyennhi".
Sao bạn không chịu khó nhắc rõ mọi người giúp bài nào? Của ai?
Híc! Có lẽ vì vậy mà không ai biết giúp bạn cái gì. Và bạn tiếp tục "hu hu". Mà "hu hu" trên GPE lại càng không ai giúp.

 

[Ba Tê]

À, có phải cái xét từ 6 đến 9 và 10 đến 16 là xét cái cột bên sheet N đúng không anh. Và anh + thêm 1 là vì bên BCC bị ngăn cách cột tổng nên phải +1 để nhảy qua cột đó.

Có lẽ sẽ có bạn "thangteo" bấm "Thích" bài viết của bạn đó.

 

[thangteo]

Bạn thích "hu hu" nhưng lại viết không đầu không đuôi, sau bài viết của người khác, người khác cứ nghĩ là bạn "nhắc" mọi người giúp bài của bạn "tueyennhi".
Sao bạn không chịu khó nhắc rõ mọi người giúp bài nào? của ai?
Híc! Có lẽ vì vậy mà không ai biết giúp bạn cái gì. Và bạn tiếp tục "hu hu". Mà "hu hu" trên GPE lại càng không ai giúp.

Có cách nào để nhìn xem đó là bài # bao nhiêu không anh? Em on điện thoại ko làm sao biết bài em đã nhờ là bài # mấy cả, dù nó nằm ở trang 42, có đính kèm file tên là BTD.rar và cả file ảnh có nội dung code nữa.. Hix..

 

[tueyennhi]

Có lẽ sẽ có bạn "thangteo" bấm "Thích" bài viết của bạn đó.

Hi, em chưa hiểu ý anh lắm nhưng cảm ơn anh nhé .

Em viết thêm theo sự thay đổi của em, nhờ có anh mà mọi việc lại êm xuôi.

 

[tueyennhi]

Có cách nào để nhìn xem đó là bài # bao nhiêu không anh? Em on điện thoại ko làm sao biết bài em đã nhờ là bài # mấy cả, dù nó nằm ở trang 42, có đính kèm file tên là BTD.rar và cả file ảnh có nội dung code nữa.. Hix..

Gần nút Like có cái #xxx đấy bạn.

 

[thangteo]

Gần nút Like có cái #xxx đấy bạn.

Thế này thì em tìm #xxx ở đâu đây?

 

[Ba Tê]

Thế này thì em tìm #xxx ở đâu đây?

Hình như trên ĐTDĐ thì không có số bài viết.

 

[thangteo]

Hình như trên ĐTDĐ thì không có số bài viết.View attachment 180706

Cái này lẽ nào là cái đang còn phải chỉnh lại của mấy anh xây dựng web.

 

[Mutants Men]

Em có một chút vấn đề về code, trong file em đính kèm (cả ảnh lẫn file rar). Nhờ mọi người và các thầy chỉnh giúp:
1. Khắc phục tình trạng thời gian khi chạy về 00:00 không bị trễ giây khi kết hợp với âm thanh báo hiệu ạ.
2. Khi ở thời gian nghỉ giữa hiệp, khi về đến 00:10 (tức còn 10s) thì âm thanh báo hiệu sẽ kêu ạ.
Cảm ơn ạ!

bài của "thangteo" đây các anh các chị ạ

 

[thangteo]

bài của "thangteo" đây các anh các chị ạ

Cảm ơn anh nhiều ạ. Like, like,... Nhờ mọi người xử lý giúp.

 

[nthxe]

Bài đã xong, em nhờ mod xóa giùm khỏi tốm đất của GPE

 

[vietkieucpc]

K/g các Anh,
Mình có 1 file excel sử dụng Record Macro để tạo chương trình, chạy thông qua nút lệnh Combobox Form Controls (Assign macro) --> Macro chạy bình thường.
Nhưng khi tạo nút lệnh Combobox ActiveX Controls (View code -> Call Macro_A) --> Chương trình báo lỗi trong câu lệnh của macro.
Mình không hiểu tại sao cùng một macro chạy bằng hai nút lệnh trên, cái thì báo lỗi, cái thì chạy bình thường.
Kính nhờ các Anh & Chủ Thớt kiểm tra và xử lý dùm mình với!! (file gửi kèm).

 

[tueyennhi]

Cho em hỏi câu lệnh On Error Resume Next nếu nằm trong vùg If thì chỉ có tác dụng trong vùng có If đó đúng không ạ?

Ví dụ

 

[huuthang_bd]

K/g các Anh,
Mình có 1 file excel sử dụng Record Macro để tạo chương trình, chạy thông qua nút lệnh Combobox Form Controls (Assign macro) --> Macro chạy bình thường.
Nhưng khi tạo nút lệnh Combobox ActiveX Controls (View code -> Call Macro_A) --> Chương trình báo lỗi trong câu lệnh của macro.
Mình không hiểu tại sao cùng một macro chạy bằng hai nút lệnh trên, cái thì báo lỗi, cái thì chạy bình thường.
Kính nhờ các Anh & Chủ Thớt kiểm tra và xử lý dùm mình với!! (file gửi kèm).

Cell link của Combobox Form Controls sẽ trả về chỉ số (index) của combobox còn LinkedCell của Combobox ActiveX Controls trả về giá trị của combobox. Hai đối tượng này trả về hai dạng giá trị khác nhau nên nếu bạn dùng chung 1 thủ tục (sub) thì chắc chắn kết quả sẽ khác nhau (trường hợp cụ thể của bạn là 1 cái được và 1 cái lỗi).

 

[giaiphap]

K/g các Anh,
Mình có 1 file excel sử dụng Record Macro để tạo chương trình, chạy thông qua nút lệnh Combobox Form Controls (Assign macro) --> Macro chạy bình thường.
Nhưng khi tạo nút lệnh Combobox ActiveX Controls (View code -> Call Macro_A) --> Chương trình báo lỗi trong câu lệnh của macro.
Mình không hiểu tại sao cùng một macro chạy bằng hai nút lệnh trên, cái thì báo lỗi, cái thì chạy bình thường.
Kính nhờ các Anh & Chủ Thớt kiểm tra và xử lý dùm mình với!! (file gửi kèm).

Riêng máy tôi cả 2 chạy đều báo lỗi hết, Chổ Combobox1 của bạn bỏ đi chổ LinkedCell (của bạn để là K1, bây giờ xóa nó đi), vào code trong sheet bạn thêm vào dòng lệnh như sau:

Private Sub ComboBox1_Change()
    [K1].Value = ComboBox1.ListIndex + 1
    Call crane
End Sub

 

[VetMini]

Cho em hỏi câu lệnh On Error Resume Next nếu nằm trong vùg If thì chỉ có tác dụng trong vùng có If đó đúng không ạ?

Ví dụ

msgbox "Nhan Ok de thu, neu thay error la khong ap dung ben ngoai if"
if 1 = 1 then
on error resume next
end if
a = 1/0
msgbox "co ap dung ben ngoai if"

Nhưng cái này là chuyện khác, tôi đã từng giải thích rồi
On error resume next
s = "bo qua ca if lan else "
if a=1/0 then
s = "vao if xong "
else
s = "vao else xong "
end if
msgbox s & "moi ve den day"

Và
On error resume next
s = "bo qua if "
if a=1/0 then s = "vao if xong "
msgbox s & "moi ve den day"

 

[thangteo]

Cell link của Combobox Form Controls sẽ trả về chỉ số (index) của combobox còn LinkedCell của Combobox ActiveX Controls trả về giá trị của combobox. Hai đối tượng này trả về hai dạng giá trị khác nhau nên nếu bạn dùng chung 1 thủ tục (sub) thì chắc chắn kết quả sẽ khác nhau (trường hợp cụ thể của bạn là 1 cái được và 1 cái lỗi).

Anh Thắng ơi, giúp em chỉnh code ở #835 với. (Em có gửi Mail cho anh mà không thấy hồi âm). Rất mong sự giúp đỡ của anh ạ.

 

[huuthang_bd]

Anh Thắng ơi, giúp em chỉnh code ở #835 với. (Em có gửi Mail cho anh mà không thấy hồi âm). Rất mong sự giúp đỡ của anh ạ.

Bạn đã yêu cầu xóa đề tài thì tôi nghĩ chắc tất cả đã xong rồi. Sao bạn còn hỏi về cái file đó nữa?

Xin Mod đi qua xóa giúp Đề tài này ạ! Xin phép dừng tại đây! Cảm ơn tất cả mọi người đã giúp đỡ trong thời gian qua.

Topic này có nhiều thông tin hữu ích. Tôi không muốn chỉ vì tôi giúp bạn mà topic này bị xóa

 

[thangteo]

Bạn đã yêu cầu xóa đề tài thì tôi nghĩ chắc tất cả đã xong rồi. Sao bạn còn hỏi về cái file đó nữa?

Topic này có nhiều thông tin hữu ích. Tôi không muốn chỉ vì tôi giúp bạn mà topic này bị xóa

Hixx.. Dạ vâng, có gì không đúng mong anh và mọi người đừng chấp và thông cảm. Cảm ơn ạ.

 

[lostonmyway]

GPE giúp e đoạn code này với. Trước giờ chạy bình thường tự nhiên hôm nay báo lỗi.

Sheets("INPUT").Select
   Selection.AutoFilter Field:=4
    Call timdulieu
    Sheets("INPUT").Select
   Selection.AutoFilter Field:=3
   Selection.AutoFilter Field:=4
   Call noiluc
   Call luccat
   Call lucxoan
   Sheets("INPUT").Select
Selection.AutoFilter Field:=3
Selection.AutoFilter Field:=4
 Sheets("NOILUC").Select
   ActiveSheet.Range(Cells(1, 1), Cells(5000, 14)).Select
   Selection.Copy
   Sheets("THUYET MINH").Select
    Range("K9").Select
    ActiveSheet.Paste
End Sub

báo lỗi ở dòng: Sheets("THUYET MINH").Select ạ