Kết quả 1 đến 5 của 5

Chủ đề: [Help] Nhập liệu trong excel

  1. #1
    zphot9x Guest

  2. #2
    Ngày tham gia
    Aug 2015
    Bài viết
    0

    [Help] Nhập liệu trong excel

    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 !

  3. #3
    thangtnpt0021 Guest
    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.

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


    Mã:
    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

  5. #5
    trung_vip2 Guest
    Trích dẫn Gửi bởi SuperManager
    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.

Quyền viết bài

  • Bạn Không thể gửi Chủ đề mới
  • Bạn Không thể Gửi trả lời
  • Bạn Không thể Gửi file đính kèm
  • Bạn Không thể Sửa bài viết của mình
  •