Nhìn cách bố trí dữ liệu này chắc giúp xong lại phải giúp tiếp!Mình có một file gồm rất nhiều sheet. ở sheet Form cells b4 là nơi nhâp tên sheep khác ( vi du 8888, 123). mình muốn hỏi khi mình nhâp dữ liệu vào sheet Form thì dựa vào B4 dữ liệu sẽ được nhập vào sheet tương ứng. Dùng công thức Như thế nào ?
Mình có một file gồm rất nhiều sheet. ở sheet Form cells b4 là nơi nhâp tên sheep khác ( vi du 8888, 123). mình muốn hỏi khi mình nhâp dữ liệu vào sheet Form thì dựa vào B4 dữ liệu sẽ được nhập vào sheet tương ứng. Dùng công thức Như thế nào ?
Sub NhapLieu()
Dim sArr(), dArr(1 To 1, 1 To 10), J As Long, WSname As String, Rws As Long
With Sheets("Form")
WSname = .Range("B1").Value
sArr = .Range("B3:B9").Value
End With
dArr(1, 1) = "=N(R[-1]C) +1"
For J = 1 To 6
dArr(1, J + 1) = sArr(J, 1)
Next J
If Right(sArr(3, 1), 3) = "Thu" Then
dArr(1, 8) = sArr(4, 1) * sArr(5, 1) * sArr(6, 1)
Else
dArr(1, 9) = sArr(4, 1) * sArr(5, 1) * sArr(6, 1)
End If
dArr(1, 10) = sArr(7, 1)
With Sheets(WSname)
Rws = .Range("A65536").End(xlUp).Row + 1
.Range("A" & Rws).Resize(, 10) = dArr
.Range("A" & Rws).Value = .Range("A" & Rws).Value
End With
End Sub
Bạn thử file rồi áp dụngMình có một file gồm rất nhiều sheet. ở sheet Form cells b4 là nơi nhâp tên sheep khác ( vi du 8888, 123). mình muốn hỏi khi mình nhâp dữ liệu vào sheet Form thì dựa vào B4 dữ liệu sẽ được nhập vào sheet tương ứng. Dùng công thức Như thế nào ?
Tác giả nói rõ là File có nhiều sheet mà bạn! Bạn làm thế này nếu có File có 100 sheet thì phải tạo 100 button ah?Bạn thử file rồi áp dụng
Cảm ơn bạn tất nhiên 100 sheet là đã trừ sheet form ra rồi.99 button thôi à . sheet form đâu có tính