Chuyên mục xử lý, gỡ rối code VBA

[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

 

[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.

 

[HieuCD]

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

Range("L6:AF" & lr).Value=Range("L6:AF" & lr).Value

 

[vova2209]

Range("L6:AF" & lr).Value=Range("L6:AF" & lr).Value

vâng được rồi, nãy em để Range("L6:AF" & lr) = Range("L6:AF" & lr).Value
Cảm ơn a nhiều!

 

[lameco411]

Chào các bác! e có một vấn đề như thế này! Em có một cột dữ liệu như màu vàng, giờ em muốn chuyển dữ liệu sang ô màu xanh theo thứ tự giống như hình!
Em có viết code như thế này!
Sub dichuyen()
Dim vungchuyen As Range
Dim obatdau As Range
Dim tang As Integer
Dim mang As Variant
Dim i, j As Long
Dim c As Long
Set vungchuyen = Selection
mang = vungchuyen.Value
Set obatdau = Sheet6.Range(InputBox("nhap o bat dau"))
c = 0
i = 0
Do
j = 0
Do
obatdau.Offset(j * -1, i).Value = i + j + 2 * c
j = j + 1
Loop Until j = 3 Or i + j + 2 * c > UBound(mang) - 1
c = c + 1
i = i + 1
Loop While i + j + 2 * c <= UBound(mang) + 2
End Sub

thì đã đi tới đây

giờ có số thứ tự hết rồi mà khi em đưa số thứ tự đó vô mảng nó lại báo lỗi

Em không biết nó sai chỗ nào mong các bác chỉ giáo!