Chủ đề: Form nhập liệu và bảng tổng hợp
-
05-27-2016, 04:27 PM #1Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 2
Form nhập liệu và bảng tổng hợp
Chào mợi người, mình không chuyên bên VBA nên có vấn để nhờ mọi người giúp đỡ, thanks all đã xem!
Hiện tại mình có cái form nhập liệu theo dạng excel, nhập dữ liệu xong bấm vào button OK thì nó lấy dữ liệu đã nhập copy sang sheet BANG TONG HOP, BANG TONG HOP đã có list dữ liệu nhập, nên dữ liệu sẽ nhập tiếp theo vào cuối bảng. Hic dài dòng khó hiểu quá!
Đây là code để copy dữ liệu từ sheet NHAP đển sheet BANG TONG HOP.
Code bị vấn đề gì đó, chạy rất tốn tài nguyên của máy, máy lag quá trời, tại gà mờ nên ko biết viết sao cho đúng
"
Sub NhapLieu()
Sheets("Bang Tong Hop").Select
n = Range("B" & Rows.Count).End(xlUp).Row
Sheets("NHAP").Select
NumRows = Range("A4", Range("A4").End(xlDown)).Rows.Count
If NumRows > 1 And NumRows < 1000 Then
For x = 1 To NumRows
Worksheets("Bang Tong Hop").Range("B" & x + n).Value = Range("B" & x + 3).Value
Worksheets("Bang Tong Hop").Range("C" & x + n).Value = Range("C" & x + 3).Value
Worksheets("Bang Tong Hop").Range("D" & x + n).Value = Range("D" & x + 3).Value
Worksheets("Bang Tong Hop").Range("E" & x + n).Value = Range("E" & x + 3).Value
Worksheets("Bang Tong Hop").Range("F" & x + n).Value = Range("F" & x + 3).Value
Next
Else
Sheets("Bang Tong Hop").Select
n = Range("F1").Value
Range("B1").Select
ActiveCell.Offset(n + 3, 0).Value = Sheets("NHAP").Range("B4").Value
ActiveCell.Offset(n + 3, 1).Value = Sheets("NHAP").Range("C4").Value
ActiveCell.Offset(n + 3, 2).Value = Sheets("NHAP").Range("D4").Value
ActiveCell.Offset(n + 3, 3).Value = Sheets("NHAP").Range("E4").Value
ActiveCell.Offset(n + 3, 4).Value = Sheets("NHAP").Range("F4").Value
End If
Sheets("NHAP").Select
Range("B4:B" & Range("B4").End(xlDown).Row).ClearContents
Range("E4:E" & Range("E4").End(xlDown).Row).ClearContents
End Sub
"
Please help me!!!View more random threads:
- Kiểm tra giá trị trong ô
- Gán giá trị cho 1 cell
- Vba tài chính.cả nhà giúp em với.
- Bổ Sung Dùm Code Lập Cân Đối Kế Toán
- tạo Pivot table giup mình với cả nhà!
- copy dữ liệu sang các sheet tương ứng
- Tạo nút xóa cho sheet!
- Chỉnh Sửa Macro Tổ Hợp Giúp
- [Help] Tự động liên kết các file excel lại với nhau
- Chuyển một chuỗi dạng công thức
-
06-02-2016, 04:26 PM #2Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Bạn gửi file mẫu của bạn để mình sửa giúp cho.
https://www.facebook.com/phamkieukieuvn
https://www.facebook.com/groups/VBAForExcel/
-
07-01-2016, 07:41 PM #3Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
1./ Câu lệnh này hơi kỳ:
Mã:NumRows = Range("A4", Range("A4").End(xlDown)).Rows.Count
Mã nguồn PHP:[COLOR=#000000]
NumRows [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"A4"[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]End[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]xlDown[/COLOR][COLOR=#007700])).[/COLOR][COLOR=#0000BB]Row[/COLOR]
3./ Bạn lạm dụng câu lệnh .Select quá nhiều; Chuyện này cũng làm chậm;
Trong trường hợp chỉ thao tác trên 2 trang tính; bạn nên đứng ở 1 trang tính thôi;
Còn trang tính bên kia còn lại bạn nên làm vầy:
Khai báo 1 biến đối tượng là trang tính, như
Dim Sh As WorkSheet
Sau đó sét đối tượng này vô trang còn lại mà xài, như
Set Sh= ThisworkBook.WorkSheets("Nhap")
Sau đó thì thay vì:
Mã:Sheets("NHAP").Select Range("B4:B" & Range("B4").End(xlDown).Row).ClearContents Range("E4:E" & Range("E4").End(xlDown).Row).ClearContents
Mã nguồn PHP:[COLOR=#000000]
Sh[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Sh[/COLOR][COLOR=#007700].[[/COLOR][COLOR=#0000BB]B4[/COLOR][COLOR=#007700][, [/COLOR][COLOR=#0000BB]Sh[/COLOR][COLOR=#007700].[[/COLOR][COLOR=#0000BB]B4[/COLOR][COLOR=#007700]].[/COLOR][COLOR=#0000BB]End[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]xlDown[/COLOR][COLOR=#007700])).[/COLOR][COLOR=#0000BB]ClearContentsSh[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Sh[/COLOR][COLOR=#007700].[[/COLOR][COLOR=#0000BB]E4[/COLOR][COLOR=#007700]], [/COLOR][COLOR=#0000BB]Sh[/COLOR][COLOR=#007700].[[/COLOR][COLOR=#0000BB]E4[/COLOR][COLOR=#007700]].[/COLOR][COLOR=#0000BB]End[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]xlDown[/COLOR][COLOR=#007700])).[/COLOR][COLOR=#0000BB]ClearContents[/COLOR]
Với cách tiếp cận tối giản và hiện đại, New Citys là nguồn thông tin đáng tin cậy về ẩm thực, du lịch, kinh doanh và làm đẹp cho mọi người. Tận dụng sức mạnh của kiến thức, New Citys giúp bạn khám...
Sắm Role Mới với New Citys: Khám Phá Tổ Ẩm Thực và Du Lịch Đặc Sắc