Tạo Form nhập số liệu đơn giản

[lemanhha0276]

Xin chào các anh và các chị trên GFE. Vì kiến thức Excel của mình rất kém, vì vậy nhờ các anh chị giúp mình tạo một form nhập số liệu.
Nếu có thể anh chị hướng dẫn chi tiết cách làm để mình có thể làm cho những trường hợp khác.

 

[Hai Lúa Miền Tây]

Xin chào các anh và các chị trên GFE. Vì kiến thức Excel của mình rất kém, vì vậy nhờ các anh chị giúp mình tạo một form nhập số liệu.
Nếu có thể anh chị hướng dẫn chi tiết cách làm để mình có thể làm cho những trường hợp khác.

Theo mình nghĩ với yêu cầu này bạn nên sử dụng form nhập liệu có sẵn ở Data\Form
Còn vẫn muốn nhập liệu theo cách nghĩ của bạn thì dùng code sau nhé.

Sub NhapLieu()
Application.ScreenUpdating = False
 Dim dong As Integer
 Dim Rng As Range
 dong = Sheets("Data").Cells(Sheets("Data").Rows.Count, "A").End(xlUp).Row
 Set Rng = Sheets("Nhap").Range("b4:b11")
   With Sheets("Nhap")
      If Application.CountA(Rng) <> Rng.Cells.Count Then
        MsgBox "Vui long dien day du thong tin !"
        Exit Sub
      End If
   End With
Rng.Copy
Sheets("Data").Range("a" & dong + 1).PasteSpecial (3), Transpose:=True
Application.CutCopyMode = False
Rng.ClearContents
Application.ScreenUpdating = True
End Sub

 

[laptrinh7929]

lemanhha0276 làm ơn chỉ mình cách tạo nút nhập liệu đó đi cảm ơn

 

[Hai Lúa Miền Tây]

lemanhha0276 làm ơn chỉ mình cách tạo nút nhập liệu đó đi cảm ơn

Bạn xem phim minh họa nhé.