Nhập số liệu với vòng lặp for

[tanduyk8]

Hi cả nhà , Mình muốn nhập số liệu theo vòng lặp for . Mọi người cho em xin code này được không ạ .
Nếu làm userform để nhập hết thì em nhập được rồi , nhưng nhập chọn dùng for thì em chưa rõ lắm .
mong các anh giúp đỡ .

 

[SA_DQ]

Mình chưa thể hiểu được ý tưởng "nhập số liệu theo vòng lặp for" là như thế nào cả?

Mình thấy trên trang tính đã có các cột cố định mang tên các loại trái cây (9)
Vậy thì bạn hoàn toàn tạo ra m9 TextBox để nhập số lượng trái cây mà thôi!
Hay bạn có ý định gì khác?

 

[tanduyk8]

Mình chưa thể hiểu được ý tưởng "nhập số liệu theo vòng lặp for" là như thế nào cả?

Mình thấy trên trang tính đã có các cột cố định mang tên các loại trái cây (9)
Vậy thì bạn hoàn toàn tạo ra m9 TextBox để nhập số lượng trái cây mà thôi!
Hay bạn có ý định gì khác?

Ý em là em chỉ có 3 cái mục chọn và nhập số lượng thôi ạ .
3 cái em chọn và nhập sẽ ngẫu nhiên . Nếu chọn 3 loại trái cây tương ứng sẽ điền số lượng vào đúng 3 vị trí đó trong excel .
Còn các loại khác sẽ tự điền " 0 " ạ . tương tự như vậy , lần nhập tiếp theo sẽ nhập số lượng của 3 loại hoa quả vào dòng tiếp theo .
Mong nhận phản hồi từ các anh chị ạ .

 

[snow25]

Hi cả nhà , Mình muốn nhập số liệu theo vòng lặp for . Mọi người cho em xin code này được không ạ .
Nếu làm userform để nhập hết thì em nhập được rồi , nhưng nhập chọn dùng for thì em chưa rõ lắm .
mong các anh giúp đỡ .

View attachment 223258

View attachment 223259

Bạn thử.Và tự viết kiểm tra lỗi nhé.

 

[tanduyk8]

Bạn thử.Và tự viết kiểm tra lỗi nhé.

Thật là tuyệt , Cảm ơn anh Snow25 đã giúp đỡ em rất nhiều . Em đã kiểm tra ok rồi ạ

 

[tanduyk8]

Bạn thử.Và tự viết kiểm tra lỗi nhé.

HI anh snow25 ,
Nếu như em nhập theo cột như sheet 3 thì em cần phải sửa code ntn cho đoạn code này ạ ? . Em cám ơn
With Sheets("Hoa Qua")
lr = .Range("B" & Rows.Count).End(xlUp).Row + 1
.Range("A" & lr).Value = lr - 4
.Range("b" & lr).Value = dk
.Range("C" & lr).Resize(, 9).Value = arr
End With

-> With Sheets("Hoa Qua")
lr = .cells(2, columns.Count).End(xltoLeft).column + 1
.Range("A" & lr).Value = lr - 2
.Range("b" & lr).Value = dk
.Range("C" & lr).Resize(, 9).Value = arr
End With

 

[giaiphap]

HI anh snow25 ,
Nếu như em nhập theo cột như sheet 3 thì em cần phải sửa code ntn cho đoạn code này ạ ? . Em cám ơn
With Sheets("Hoa Qua")
lr = .Range("B" & Rows.Count).End(xlUp).Row + 1
.Range("A" & lr).Value = lr - 4
.Range("b" & lr).Value = dk
.Range("C" & lr).Resize(, 9).Value = arr
End With

-> With Sheets("Hoa Qua")
lr = .cells(2, columns.Count).End(xltoLeft).column + 1
.Range("A" & lr).Value = lr - 2
.Range("b" & lr).Value = dk
.Range("C" & lr).Resize(, 9).Value = arr
End With

Nhập như kiểu sheet3 sau này sẽ rất khó thống kê và báo cáo. Bạn nên suy nghĩ lại kiểu bố trí dữ liệu.

 

[VetMini]

Nhập như kiểu sheet3 sau này sẽ rất khó thống kê và báo cáo. Bạn nên suy nghĩ lại kiểu bố trí dữ liệu.

GPE ít khi khuyến khích cái vụ "suy nghĩ".
Chuyện "sau này" đã có GPE lo. Và không có gì "rất khó" ở GPE cả.