[Help] Nhập liệu trong excel

[zphot9x]

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

View more random threads:

• Dùng hàm nào để tìm kiếm giá trị trong Mảng?
• XML Notepad 2007
• Ví dụ viết trong VB, sử dụng Excel như là 1 DB
• Có cách nào để copy 1 UserForm?
• Nhờ gỡ rối lỗi khi ẩn sheet
• Thuốc viagra là thuốc gì? Giá viagra hàng xịn hộp 4 viên tphcm
• Hạn chế của file excel có macro!!!!!!
• Cần giúp tạo sheet điều khiển
• Một số ví dụ VBA (ST)
• Lấy dữ liệu từ Textbox trong file khác vào textBox trong file hiện hành ( PowerPoint)

[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.