Code lấy dày, rộng, dài

[DMQ]

Chào các anh chị!!!!
Em có file, trong file em có code lấy dày, rộng, dài. Em có bắt chước code của các anh chị trên DD, nhưng em thấy nó dài dài sao ấy, các anh chị có thể rút gọn lại dùm em ạ.
Em cám ơn.

 

[DMQ]

Cám ơn bạn @bebo021999 nhiều.

 

[DMQ]

Sao mình chép code bài #20 vào file, không chạy bạn @bebo021999 ơi....

 

[bebo021999]

Sao mình chép code bài #20 vào file, không chạy bạn @bebo021999 ơi....

"Không chạy" có nghĩa là gì bạn:
1) Báo lỗi
2) Không báo lỗi nhưng kết quả ra sai
3) Cụ thể bạn thao tác những gì và mô tả việc "không chạy" nhé

 

[DMQ]

Nó không có gì luôn, giống như file không hề có code vậy, khi mình gõ ngày và mã số vào, nó không điền diễn giải, dày, rộng, dài vào các cột tương ứng. Nó không run code

 

[bebo021999]

Bảo đảm là cột chứa mã số nhập vào là cột D nhé?
Không thì bạn post file có code lên xem thử.

 

[DMQ]

Cám ơn bạn đã quan tâm.
Mình đang mở bằng điện thoại.

 

[DMQ]

À, mình biết rồi, vì mã số bên sheet Sue định dạng Text, nên khi gõ mã số bên sheet Rec phải gõ thêm dấu nháy đơn, bạn có thể viết code khắc phục sự cố này

 

[DMQ]

Cũng không phải nữa các anh ơi, chỉ có mã số "1215120" là không chạy code thôi.
Mong các anh và bạn @bebo021999 xem coi vì sao lại bị chỉ mỗi mã số này.
Trong file em có bôi màu vàng.

 

[bebo021999]

Cũng không phải nữa các anh ơi, chỉ có mã số "1215120" là không chạy code thôi.
Mong các anh và bạn @bebo021999 xem coi vì sao lại bị chỉ mỗi mã số này.
Trong file em có bôi màu vàng.

Vì ở bên Sue nó là số. Format lại dạng Text đi bạn.
Bạn nên thống nhất dữ liệu lại nhé.

 

[DMQ]

Mình đã format lại dạng Text rồi mà vẫn vậy bạn ơi.

Bài đã được tự động gộp: 26/9/22

Bài đã được tự động gộp: 26/9/22

 

[DMQ]

Được rồi bạn ơi, mình phải xóa hết mã số bên sheet Sue, định dạng Text cho cột mã số và gõ lại mã số.
Cám ơn bạn @bebo021999 nhiều.

 

[DMQ]

À, bạn giúp mình đoạn code kẻ Borders khi nhập liệu tới đâu kẻ tới đó với.

 

[Hoàng Tuấn 868]

code kẻ Borders

Bạn cũng viết được code rồi thì gõ câu này lên tìm kiếm rồi nghiên cứu là tự viết được thôi, chứ nhờ không sót chút nào như vậy thì...hơi buồn.

 

[DMQ]

Ý là nhập liệu tới đâu kẻ border đến đấy

 

[Hoàng Tuấn 868]

nhập liệu tới đâu kẻ border đến đấy

Thậm chí không cần dùng code vẫn thực hiện được mà, chịu khó tìm hiểu Conditional Formatting thôi bạn.

 

[VetMini]

Bạn cũng viết được code rồi thì gõ câu này lên tìm kiếm rồi nghiên cứu là tự viết được thôi, chứ nhờ không sót chút nào như vậy thì...hơi buồn.

Buồn chỗ nào. Hay bạn nói buồn cười?
Vòi từng chút một là một kỹ năng được rèn luyện rất nhiệt tình ở diễn đàn này.
Người đã viết code ở trên sẽ không để code của mình mồ côi đâu. Họ sẽ hân hoan viết tiếp (hay viết lại) thôi.

 

[bebo021999]

À, bạn giúp mình đoạn code kẻ Borders khi nhập liệu tới đâu kẻ tới đó với.

Khi nào rảnh nhớ chịu khó google mày mò nhé.
Code mới :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r&, arr()
If Target.Column <> 4 Or Target.Count > 1 Or IsEmpty(Target) Then Exit Sub
r = Target.Row
If IsEmpty(Cells(r, 1)) Then
    MsgBox "Ban can nhap du lieu vao cot Ngay truoc", vbCritical
    Exit Sub
End If
With Sheets("Sue")
    lr = .Range("B" & Rows.Count).End(xlUp).Row
    For i = 6 To lr
        If .Range("B" & i) = Target Then
            ReDim arr(1 To 1, 1 To 6)
            arr(1, 1) = Target: arr(1, 2) = .Cells(i, "I").Value
            arr(1, 3) = .Cells(i, "E").Value: arr(1, 4) = .Cells(i, "F").Value
            arr(1, 5) = .Cells(i, "G").Value: arr(1, 6) = .Cells(i, "H").Value
            With Target
                .Resize(1, 6).Value = arr
                .Offset(, -3).Resize(1, 11).Borders.LineStyle = xlContinuous
            End With
            With Sheets("Rec")
                lr = .Range("D" & Rows.Count).End(xlUp).Row
                .Range("K2:K" & lr).Formula = "=I2*J2"
            End With
            Exit Sub
        End If
    Next
End With
End Sub

 

[DMQ]

Cam ơn bạn @bebo021999 nhiều, trong code mình có thêm đoạn code này để khi gõ mã số vào cột D thì nhảy tới cột J luôn để
gõ số lượng, mình thì thấy code chạy theo đúng ý mình rồi đó, bạn xem coi nó có lỗi gì tiềm ẩn không.

 Cells(r, "j").Select

 

[DMQ]

mình có định dạng số cho cột I (trọng lượng) như vầy, nhưng code lỗi:

Cells(i, "I").Value = Format(, "#,##0.00")

mong bạn chỉ giáo.

 

[anhtuan2939]

Cells(i, "I").Value = Format(, "#,##0.00")

Bạn sửa thành thế này

Cells(i, "I").NumberFormat = "#,##0.00"

Bài đã được tự động gộp: 27/9/22

mình có định dạng số cho cột I (trọng lượng) như vầy, nhưng code lỗi:

Cells(i, "I").Value = Format(, "#,##0.00")

mong bạn chỉ giáo.

Tốt nhất thì bạn định dạng cả cột trước, vì dữ liệu dán xuống cells được dán từ mảng nên sẽ giữ nguyên định dạng của nó.