Giúp đỡ về lấy tên sheet từ sheet tổng hợp để điền dữ liệu vào sheet đó (2 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

laohac22

Thành viên mới
Tham gia
18/5/12
Bài viết
12
Được thích
0
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 ?
 

File đính kèm

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 ?
Nhìn cách bố trí dữ liệu này chắc giúp xong lại phải giúp tiếp!--=0--=0--=0
 
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 ?

Dùng VBA thôi, công thức không thể nào.
Xoá hết các công thức đến dòng 2000 trong các sheet con đi rồi chạy Sub này.
PHP:
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
 
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 ?
Bạn thử file rồi áp dụng
 

File đính kèm

99 button thôi à . sheet form đâu có tính
 
Web KT

Bài viết mới nhất

Back
Top Bottom