[Help]Nhập dữ liệu nhanh hơn

[M.A.N]

Em có một bảng tính như này phải nhập hằng ngày gồm rất nhiều dữ liệu. Xin các bác giúp đỡ chỉ ra cách nhập nhanh hơn

Dữ liệu của mình không có quy luật mà chỉ nằm trong 1 tập hợp nhất định.

 

[ChanhTQ@]

Mình thấy có người làm như vầy

Chọn lấy 1 sheets làm sheet nhập liệu;
- Copy toàn bộ tiêu đề & dán Special Tranpose sang nớ, vô cột 'A' chẳng hạn;
- Nhập dữ liệu vô cột 'B' tương ứng;
(*) Đến đây có tối thiểu có 2 cách để bạn tiếp tục:
+ (Cho rằng bạn phải nhập dữ liệu từ 'B2:B19'; Ta cài thủ tục sự kiện, sau khi {ENTER} tại ô 'B19', dữ liệu sẽ được macro chưyển sang các trường của CSDL vào hàng cuối cùng'
+ Nhập xong 18 hàng dữ liệu, bấm nút để chạy macro, nó sẽ chép cho bạn như trên theo í bạn.

Thời gian sau, một khi bạn có nhiều thần công lực hơn, bạn sẽ làm FORM nhập liệu hoành tráng như ai mà coi!

Trên diễn đàn cũng đã có sẵn các phương án như trên; Nếu tìm chưa thấy, sẽ có người giúp bạn, một khi bạn khoái phương cách nào trong các phương cách trên

Chúc vui!

 

[M.A.N]

Em thấy 2 cách đều được và nó gần tương đương nhau.
Em cũng đang tìm hiểu làm Form nhưng chưa làm được. Còn Macro thì chắc chắn là chịu chết rồi

Nếu có thể anh làm ví dụ cho em 1 cách

 

[ChanhTQ@]

Bạn xem thêm trong file đính kèm

Option Explicit
Sub CopyTo()
   Range("B2:B19").Select:                        Selection.Copy
   Sheets("Sheet1").Select
   Range("A2").Select:               Selection.End(xlDown).Offset(1).Select
   Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, _
         SkipBlanks:=False,Transpose:=True
   Application.CutCopyMode = False
   Sheets("Nhap").Select:             [b2].Select
   With [C2].Interior
         If .ColorIndex < 34 Or .ColorIndex > 41 Then
                  .ColorIndex = 34
         Else
                 .ColorIndex = .ColorIndex + 1
         End If
   End With
 End Sub