Tạo form nhập dữ liệu trong VBA

[Hoantk223]

Mình đang muốn tạo 1 form nhập liệu trong VBA cho các dự án. Khi nhập dự án nào từ sheet Import thì nó sẽ hiện sang đúng ngày ở bên sheet data. Và nếu dự án nào đang chỉ là kế hoạch mà chưa thực hiện bên sheet data sẽ hiển thị màu vàng. Còn Dự án nào thực hiện rồi, thì sẽ nhập lại và bấm chọn đã thực hiện vào sheet Import nó sẽ tìm đúng mã dự án đó và hiển thị thêm màu đó vào ngày đã thực hiện. Mọi người xem giúp mình với ạ. Mình cảm ơn!

 

[buihuuchung]

Gửi bạn tham khảo nhé

 

[Hoantk223]

Gửi bạn tham khảo nhé

Mình cảm ơn ạ. Đúng cái mình cần rồi ạ.

Bài đã được tự động gộp: 23/6/23

Bạn có thể xem giúp mình đoạn Code này không ạ. Mình đang muốn ghép tất cả các Sheet vào 1 sheet tổng (Cái này mình làm được rồi). Nhưng vì có nhiều file giống vậy nên mình đã gọi tên file part vào 1 file có chưa vba, và đặt lệnh để mở từng file đó lên để ghép nhiều sheet lại với nhau. Nhưng đến khi cho chạy thì lại bị bảo lỗi như ảnh dưới ạ.

Sub GopSheet()
Dim wb As Workbook
Dim strFile As String
Dim J As Integer
Dim i As Integer
Dim lr As Long

On Error Resume Next
Application.ScreenUpdating = False
For i = 1 To 10000
strFile = Sheets("Sheet1").Cells(2 + i, 2)

Set wb = Workbooks.Open(strFile)
Sheets(1).Select
Worksheets.Add
Sheets(1).Name = "Data"
Sheets(2).Activate
Range("A4").EntireRow.Select
Selection.Copy Destination:=Sheets(1).Range("A1")
Sheets(1).Range("H1") = "SoKH"
For J = 2 To Sheets.Count
Sheets(J).Activate
lr = Sheets(J).Range("A" & Rows.Count).End(xlUp).Row
Sheets(J).Range("H5:H" & lr) = Tach_so(Sheets(J).Range("A2"))
Range("A1").CurrentRegion.Select
Selection.Offset(4, 0).Resize(Selection.Rows.Count - 1).Select
Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2)
Next
ActiveWorkbook.Close SaveChanges:=True
Application.ScreenUpdating = True
Next
End Sub

 

[buihuuchung]

Options > Trust Center > Trust Center Settings > Privacy Options >
bỏ check box "Remove personal information from file properties on save" đi
sau đó nhấn OK
bạn thử xem

 

[Hoantk223]

Options > Trust Center > Trust Center Settings > Privacy Options >
bỏ check box "Remove personal information from file properties on save" đi
sau đó nhấn OK
bạn thử xem

phần này của mình không tích ạ

Bài đã được tự động gộp: 26/6/23

Options > Trust Center > Trust Center Settings > Privacy Options >
bỏ check box "Remove personal information from file properties on save" đi
sau đó nhấn OK
bạn thử xem

Em chạy quay các link xong thì nó sẽ báo như này nếu như e ko mở code ạ