[Help] Nhập liệu trong excel

[zphot9x]

cảm ơn bác nhiều, để em nghiệ cứu

View more random threads:

• tìm số có hàng thập phân khác 0
• Lập trình VB6 để thao tác với Excel
• Liệt kê toàn bộ các số điện thoại đẹp lên trang tính.
• Cần giúp đỡ hàm tạo hyperlink cho nhiều cell
• Truy van dữ liệu từ excel lấy về datagrid VB6
• Làm ơn mở giúp file này
• tự tìm kết quả ,vòng lặp có điều kiện
• VBA với Solver: không thêm được "SolverAdd .... FormulaText:="integer"
• quan ly ke hoach san xuat
• Visual Basic Language Specification 9.0 (Beta 2)

[conggameviet]

Em có file thu thập thông tin khách hàng, em muốn lập trình nhập liệu từ sheet NHAPLIEU để thông tin tự động nhập vào sheet DULIEU đồng thời chỉ cho nhập không cho xóa thông tin đã nhập, ai biết giúp em với . Em trân trọng cảm ơn !

[thangtnpt0021]

Bạn dùng code VBA này nhé. Rất đơn giản:

Sub NhapLieu()
Dim LastRow As Integer
LastRow = Sheets("DULIEU").Range("A" & Rows.Count).End(xlUp).Row + 1
Sheets("DULIEU").Cells(LastRow, 2) = Sheets("NHAPLIEU").Range("B2").Value
Sheets("DULIEU").Cells(LastRow, 3) = Sheets("NHAPLIEU").Range("B3").Value
Sheets("DULIEU").Cells(LastRow, 4) = Sheets("NHAPLIEU").Range("B4").Value
Sheets("DULIEU").Cells(LastRow, 5) = Sheets("NHAPLIEU").Range("B5").Value
Sheets("DULIEU").Cells(LastRow, 6) = Sheets("NHAPLIEU").Range("B6").Value
Sheets("DULIEU").Cells(LastRow, 7) = Sheets("NHAPLIEU").Range("B7").Value
Sheets("DULIEU").Cells(LastRow, 8) = Sheets("NHAPLIEU").Range("B8").Value
Sheets("DULIEU").Cells(LastRow, 9) = Sheets("NHAPLIEU").Range("B9").Value
Sheets("DULIEU").Cells(LastRow, 10) = Sheets("NHAPLIEU").Range("B10").Value
Sheets("DULIEU").Cells(LastRow, 11) = Sheets("NHAPLIEU").Range("B11").Value
Sheets("DULIEU").Cells(LastRow, 12) = Sheets("NHAPLIEU").Range("B12").Value
End Sub

còn vấn đề ko cho nhập và chỉnh sửa sheet DULIEU thì bạn chỉ cần protect sheet đó là đc.

[thuthao813]

Phụ bạn 1 tay dùng transpose của excel nhé
Pass sheet DULIEU = 12345678
chúc vui!

Private Sub CommandButton1_Click()
Dim arr
Dim rw As Long
Sheets("DULIEU").Unprotect ("12345678")
rw = Sheets("DULIEU").[b65536].End(xlUp).Row
arr = WorksheetFunction.Transpose(Sheets("NHAPLIEU").[b2:b12])
Sheets("DULIEU").Range("B" & rw, "L" & rw).Offset(1).Value = arr
Sheets("DULIEU").Protect ("12345678")
End Sub

[trung_vip2]

Em có file thu thập thông tin khách hàng, em muốn lập trình nhập liệu từ sheet NHAPLIEU để thông tin tự động nhập vào sheet DULIEU đồng thời chỉ cho nhập không cho xóa thông tin đã nhập, ai biết giúp em với . Em trân trọng cảm ơn !

Thử với 1 cách khác:
Nhấn nút Nhập liệu vào sheet Theodoi để nhập dữ liệu.

Gõ tên cần lọc tại B2 của sheet LOC_DULIEU, xong nhấn Alt+F8 chọn macro LocDuLieu và nhấn Run để lọc khách hàng.