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

 

[♫ђöล♥ßล†♥†µ♫]

Chào các bạn. Mình xin hỏi chút về vấn đề sau: Mình có nhiều Sheet trong Workbook., Ví dụ: Sheets("A"); Sheets("B"); Sheets("C").... Vậy dùng câu lệnh nào có thể lấy đc tên Sheet mình vừa DeActivate. Ví dụ: đang ở sheets("A"), mà bấm chọn Sheet bất kỳ thì có 1 Msgbox hiện "A" ....
( ActivateSheet.Name - nhưng nó chỉ lấy sheet hiện hành, chứ kp là lấy tên Sheet vừa đi qua xong )

Như thế này cũng được anh ạ

Option Explicit
Public Str As String
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
    Str = Sh.Name
    MsgBox Str
End Sub

 

[befaint]

Như thế này cũng được anh ạ

Option Explicit
Public Str As String
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
    Str = Sh.Name
    MsgBox Str
End Sub

Thế viết luồn vầy. =))

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
    MsgBox Sh.Name
End Sub

 

[vova2209]

Cho em hỏi! Em đang đứng tại sheet22 gọi code nó chạy ở sheet21 Code dưới đã đúng chưa ạ. Em xin cảm ơn
With Sheets("Sheet21")
code
...
End With

 

[ndu96081631]

Cho em hỏi! Em đang đứng tại sheet22 gọi code nó chạy ở sheet21 Code dưới đã đúng chưa ạ. Em xin cảm ơn
With Sheets("Sheet21")
code
...
End With

Bạn thử thì biết được hay không liền chứ sao lại hỏi?

 

[lengoctan]

Các bác có thể giúp em là em bị lỗi gì ko ạ. Do em tay ngang vọc vba nên cũng ko được bài bản lắm. Gặp lỗi là đứng hình ko hiểu tại sao? Rât mong được sự giúp đỡ ạ!

 

[vova2209]

Bạn thử thì biết được hay không liền chứ sao lại hỏi?

Chạy báo lỗi thầy ơi! giúp em với ạ

 

[♫ђöล♥ßล†♥†µ♫]

Chạy báo lỗi thầy ơi! giúp em với ạ

Nhưng mà nó lỗi làm sao cơ chứ. Có 1001 lỗi đâu biết lỗi của bạn số thứ tự bao nhiêu

 

[AutoReply]

Nhưng mà nó lỗi làm sao cơ chứ. Có 1001 lỗi đâu biết lỗi của bạn số thứ tự bao nhiêu

dạ em bị mã lỗi 1001. giúp em với

 

[♫ђöล♥ßล†♥†µ♫]

dạ em bị mã lỗi 1001. giúp em với

Chị mà lỗi thì có nước là dừng tại chỗ. He he "Xe hơi xẹp lốp"

 

[VetMini]

Cho em hỏi! Em đang đứng tại sheet22 gọi code nó chạy ở sheet21 Code dưới đã đúng chưa ạ. Em xin cảm ơn
With Sheets("Sheet21")
code
...
End With

Thường thì không đúng.
Đây chỉ là nói đúng sai thôi, còn lỗi phải lại là chuyện khác.

 

[vova2209]

Thường thì không đúng.
Đây chỉ là nói đúng sai thôi, còn lỗi phải lại là chuyện khác.

Như này sai chỗ nào a nhỉ.. đang đứng ở sheet22

Sub GopDuLieu_Delete()
    Dim lr As Long
With Sheet21
    lr = Range("A9999").End(xlUp).row
    Range("BA3:BC" & lr).ClearContents
End With
End Sub

 

[♫ђöล♥ßล†♥†µ♫]

Như này sai chỗ nào a nhỉ.. đang đứng ở sheet22

Cái này thì thiếu dấu chấm rồi
   lr = .Range("A9999").End(xlUp).row
    .Range("BA3:BC" & lr).ClearContents

 

[vova2209]

à à! được rồi, em cảm ơn chị nhiều

 

[truongvu317]

Các bác có thể giúp em là em bị lỗi gì ko ạ. Do em tay ngang vọc vba nên cũng ko được bài bản lắm. Gặp lỗi là đứng hình ko hiểu tại sao? Rât mong được sự giúp đỡ ạ!View attachment 195302

Cho chết! cái tội cẩu tha khi viết code.

Dim SBD As Double
    SDB = 16

Lẽ ra phải là SBD=16 thì lại viết là SDB=16.

Mà người ta dùng Long là được rùi, không cần sài Double.

 

[Hoang2013]

Các bác có thể giúp em là em bị lỗi gì ko ạ. Do em tay ngang vọc vba nên cũng ko được bài bản lắm.. . . .

Để vẫn có thể ẩu tả 1 cách đúng đắn, ta xài tên tham biến cho thích hợp;
Ví dụ Nên là SoBD hay sBD thay vì SBD

 

[lengoctan]

Cho chết! cái tội cẩu tha khi viết code.


Lẽ ra phải là SBD=16 thì lại viết là SDB=16.

Mà người ta dùng Long là được rùi, không cần sài Double.

Em cảm ơn ạ. Em ko rà hết biến và ko ngờ mà sai cơ bản đến vậy. Cảm ơn mọi người ạ.

 

[vova2209]

Chào anh chị!
em muốn cho 1 vùng thành value thì phải làm thế nào ạ
Ví dụ: vùng cần chuyển sang value từ L6:AF
Công thức em làm báo lỗi

    Dim lr As Long
    lr = Range("A9999").End(xlUp).row
    Range("L6:AF" & lr).Value

 

[HieuCD]

Chào anh chị!
em muốn cho 1 vùng thành value thì phải làm thế nào ạ
Ví dụ: vùng cần chuyển sang value từ L6:AF
Công thức em làm báo lỗi

    Dim lr As Long
    lr = Range("A9999").End(xlUp).row
    Range("L6:AF" & lr).Value

Thêm = chính nó

 

[vova2209]

Thêm = chính nó

là như nào ạ! a chỉnh cho em xem với

 

[giaiphap]

Chào anh chị!
em muốn cho 1 vùng thành value thì phải làm thế nào ạ
Ví dụ: vùng cần chuyển sang value từ L6:AF
Công thức em làm báo lỗi

    Dim lr As Long
    lr = Range("A9999").End(xlUp).row
    Range("L6:AF" & lr).Value

Dòng cuối = dòng cuối.