Cách nhập dữ liệu trong Excel bằng form tự tạo

thaibinh_excel

Thành viên hoạt động
Tham gia ngày
18 Tháng mười 2007
Bài viết
127
Được thích
29
Điểm
0
Nơi ở
Quận 3, HCM
Các bạn giúp mình nhé,

Mình có 1 Form số liệu mà nếu nhập bằng cách trực tiếp thì rất dài và mất thời gian, còn nếu dùng lệnh Form của Excel thi nó không thể hiện hết nổi các sheet và phải dùng Tab mới chuyển được.

Mình muốn tạo 1 Form riêng để nhập số liệu tiết kiệm thời gian hơn bằng cách hễ mình nhập trong Form của mình là nó sẽ tự cập nhật qua sheet tổng hợp, nhập xong mình xóa đi nhập dữ liệu khác là nó tự động xuống 1 hàng để chuyển tiếp dữ liệu mà không mất đi dữ liệu của mình. Mình có đính kèm file để các bạn xem thử ?

Không biết Excel có làm được cái này không nhỉ? Các bạn xem và giúp mình nhé.

Cảm ơn các bạn nhiều
 

File đính kèm

XuanThanh

Thành viên hoạt động
Tham gia ngày
20 Tháng ba 2007
Bài viết
180
Được thích
305
Điểm
0
thaibinh_excel đã viết:
Các bạn giúp mình nhé,

Mình có 1 Form số liệu mà nếu nhập bằng cách trực tiếp thì rất dài và mất thời gian, còn nếu dùng lệnh Form của Excel thi nó không thể hiện hết nổi các sheet và phải dùng Tab mới chuyển được.

Mình muốn tạo 1 Form riêng để nhập số liệu tiết kiệm thời gian hơn bằng cách hễ mình nhập trong Form của mình là nó sẽ tự cập nhật qua sheet tổng hợp, nhập xong mình xóa đi nhập dữ liệu khác là nó tự động xuống 1 hàng để chuyển tiếp dữ liệu mà không mất đi dữ liệu của mình. Mình có đính kèm file để các bạn xem thử ?

Không biết Excel có làm được cái này không nhỉ? Các bạn xem và giúp mình nhé.

Cảm ơn các bạn nhiều
Gửi bạn file này tham khảo. Trong file có dùng đến macro, vì vậy để mở được, bạn vào Tôls/Macro/Security, đánh dấu kiểm vào Medium. Đóng Excel và mở file, nhớ chọn Ena...Macro(nút ở giữa)
Sau khi nhập liệu vào Form bạn nhấn nút "Nhap Lieu", dử liệu từ form của bạn sẽ tự động chuyển sang Sheet Tổng hợp và các ô trong form tự động xóa để bạn nhập dữ liệu mới
Yêu cầu phải nhập đủ dữ liệu trong form roi mói nhan nút Nhap Lieu, neu không sẽ có thông báo nhắc nhở bạn
Chúc vui với bài tập này. Muốn xem Macro, nhấn Alt+F11
Thân
 

File đính kèm

thaibinh_excel

Thành viên hoạt động
Tham gia ngày
18 Tháng mười 2007
Bài viết
127
Được thích
29
Điểm
0
Nơi ở
Quận 3, HCM
Cảm ơn bạn Xuân Thanh và Boong rất nhiều. Cho mình hỏi thêm 1 chút nữa nhé, mong các bạn đừng phiền. Mình có mở Macro ra xem và thiệt tình là không hiểu gì hết, chắc tại mình không biết tới những cái này. Do Form mà mình làm nó rất phức tạp, tới khoảng 30 mục cần nhập, nếu vậy mình phải viết lại Marco theo đúng yêu cầu của mình phải không ạ? Và nếu như vậy mình phải biết về MVB mới làm được, chứ còn nếu dùng các function của Excel là không thể được đúng không ?

Các bạn có biết ai dạy kèm mấy cái này tốt không? có thể giới thiệu giúp mình được không ?

Cám ơn các bạn nhiều,
 

anhtuan1066

Thành viên gạo cội
Tham gia ngày
10 Tháng ba 2007
Bài viết
5,814
Được thích
6,812
Điểm
860
Tuổi
52
Nơi ở
Biên Hòa, Đồng Nai

tuetinhqb

Thành viên mới
Tham gia ngày
11 Tháng một 2009
Bài viết
1
Được thích
1
Điểm
0
Form nhập liệu trong excel

Gửi bạn file này tham khảo. Trong file có dùng đến macro, vì vậy để mở được, bạn vào Tôls/Macro/Security, đánh dấu kiểm vào Medium. Đóng Excel và mở file, nhớ chọn Ena...Macro(nút ở giữa)
Sau khi nhập liệu vào Form bạn nhấn nút "Nhap Lieu", dử liệu từ form của bạn sẽ tự động chuyển sang Sheet Tổng hợp và các ô trong form tự động xóa để bạn nhập dữ liệu mới
Yêu cầu phải nhập đủ dữ liệu trong form roi mói nhan nút Nhap Lieu, neu không sẽ có thông báo nhắc nhở bạn
Chúc vui với bài tập này. Muốn xem Macro, nhấn Alt+F11
Thân

Cám ơn các anh rất nhiều,

Các anh có thể giúp em việc này nữa được ko?

ở sheet3 - Nhập số thứ tự của một người đã có trong bảng tổng hợp. Sau đó bấm nút sẽ in thông tin về người này (bao gồm cả số thứ tự) theo một mẫu định sẵn.

Các anh giúp em với nhá! Cảm ơn.
 

boong

Thành viên thường trực
Tham gia ngày
11 Tháng một 2008
Bài viết
285
Được thích
261
Điểm
0
Bạn có dữ liệu về người này không đã? Và mẫu định sẵn kia trông như thế nào? Vì không có thì làm sao mà làm được chứ.
 
Lần chỉnh sửa cuối:

quochuy86

Thành viên chính thức
Tham gia ngày
3 Tháng năm 2007
Bài viết
56
Được thích
8
Điểm
0
Tuổi
33
Nơi ở
^^!
to:boong bạn ơi mình copy đoạn code của bạn sang 1 file excel mới nhưng nó không chạy được giống file cũ. mình không biết làm sao để có được cái nút " nhập liệu" cả. bạn có thể hướng dẫn giúp mình được không.
 

Po_Pikachu

Po_pikachu@ymail.com
Tham gia ngày
29 Tháng tư 2008
Bài viết
2,209
Được thích
3,560
Điểm
0
Nơi ở
#VALUE!
Không chạy thì có thể bạn đã chép sai rồi. Hoặc không đúng với vị trí mà code đã quy định. Vậy tốt nhất bạn nên đưa cái file không chạy kia lên đi. Để mọi người chỉnh lại cho.
Thân.
 

quochuy86

Thành viên chính thức
Tham gia ngày
3 Tháng năm 2007
Bài viết
56
Được thích
8
Điểm
0
Tuổi
33
Nơi ở
^^!
không ý mình là như thế này. cái file của ban boong mình copy về và đã chạy rất tốt, nhưng khi mình copy code trong modune của bạn ấy ra 1 file mới thì nó không chạy được. Khi sử dụng mình thấy nó có nhảy 1 msgbox thông báo là chưa có dữ liệu( trường hợp chưa có dữ liệu), nhưng mình xem đoạn code trong vba thì không thấy có. nên mình không biết là đã copy thiếu cái jf cả.
Thân!
 

Po_Pikachu

Po_pikachu@ymail.com
Tham gia ngày
29 Tháng tư 2008
Bài viết
2,209
Được thích
3,560
Điểm
0
Nơi ở
#VALUE!
À thì ra bạn mới copy phần code trong Module thôi. Còn code nằm trong Sheet nữa bạn à!
Bạn nhấn phải chuột lên tên Sheet FORM trong cửa sổ bảng tính của Excel đó. Chọn View Code thì bạn sẽ thấy code nằm trong đó điều khiển quá trình nhập liệu và nút lệnh Button nữa.
Thân.
 

quochuy86

Thành viên chính thức
Tham gia ngày
3 Tháng năm 2007
Bài viết
56
Được thích
8
Điểm
0
Tuổi
33
Nơi ở
^^!
to: pikachu cảm ơn bạn mình đã làm được rùi.
Ah cho mình hỏi tý nữa mình không bít cái đoạn mã nào giúp cho nó khi copy dữ liệu sang sheet "BANG TONG HOP" nó tự động nhảy xuống hàng.
Mình có nhu cầu thiết kế một file: nếu a1=2 nó sẽ tự động tăng thêm 1 dòng nữa. giống như trong bảng kê ấy.
Thân!
 

Po_Pikachu

Po_pikachu@ymail.com
Tham gia ngày
29 Tháng tư 2008
Bài viết
2,209
Được thích
3,560
Điểm
0
Nơi ở
#VALUE!
to: pikachu cảm ơn bạn mình đã làm được rùi.
Ah cho mình hỏi tý nữa mình không bít cái đoạn mã nào giúp cho nó khi copy dữ liệu sang sheet "BANG TONG HOP" nó tự động nhảy xuống hàng.
Mình có nhu cầu thiết kế một file: nếu a1=2 nó sẽ tự động tăng thêm 1 dòng nữa. giống như trong bảng kê ấy.
Thân!
Vầy nha! Để mình thiết kế cho bạn luôn. Rồi chỉ bạn tại sao mình lại viết code như vậy?
Vấn đề không phải mình không chỉ bạn được mà ngại bản quyền của bạn Boong kia thôi. Và cũng để bạn xem cho dễ hiểu. Theo mình code trên còn rườm rà quá!
Thân.
 

quochuy86

Thành viên chính thức
Tham gia ngày
3 Tháng năm 2007
Bài viết
56
Được thích
8
Điểm
0
Tuổi
33
Nơi ở
^^!
to: pikachu Cảm ơn bạn trước nha! chắc là bạn boong sẽ k ý kiến j đâu( đoán thôi nha :)) vì bạn ấy post lên đây là đã free và mong muốn mọi người cùng phát triển và hoàn thiện rùi .:D
:D
 

tuyetbay

Thành viên hoạt động
Tham gia ngày
23 Tháng một 2008
Bài viết
154
Được thích
179
Điểm
0
Code lấy thông tin từ các dòng dữ liệu
PHP:
    Sheets("Form").Select
    Ten = Range("B3").Value
    DiaChi = Range("B4").Value
    Phone = Range("B5").Value
Code chuyển qua Sheet Tổng Hợp.
PHP:
    Sheets("Bang Tong Hop").Select
    n = Range("F1").Value
    Range("B1").Select
    ActiveCell.Offset(n + 3, 0).Value = Ten
    ActiveCell.Offset(n + 3, 1).Value = DiaChi
    ActiveCell.Offset(n + 3, 2).Value = Phone
Code này lấy thông số để tăng lên cho từng dòng.
PHP:
n = Range("F1").Value
Bác xem ô F1 bên Sheet Tổng Hợp sẽ thấy.
Thân.
 

quochuy86

Thành viên chính thức
Tham gia ngày
3 Tháng năm 2007
Bài viết
56
Được thích
8
Điểm
0
Tuổi
33
Nơi ở
^^!
to: tuyetbay
Cảm ơn bạn nha mình đã hơi hỉu hỉu rồi. để ngâm cứu thêm :D
 

tdis

Thành viên mới
Tham gia ngày
25 Tháng hai 2009
Bài viết
2
Được thích
1
Điểm
0
Tuổi
43
bài này hay quá! có cách nào làm ở sheet "form" và sheet "Bảng tổng hợp", nếu bổ sung thêm hàng thì tự động bổ sung mới ở sheet "Bảng tổng hợp không? có ai biết giúp mình với! Cảm ơn nhiều!
 

HopBVB

Thành viên chính thức
Tham gia ngày
26 Tháng mười một 2008
Bài viết
55
Được thích
30
Điểm
0
Tuổi
43
nhập liệu nhanh

Cũng quan tâm đến việc nhập số liệu trên excel, mình rất mong các bạn giúp phần này:
Mình có một file excel, muốn nhập số liệu ở một sheet1, sau khi enter (hoặc click) vào ô nào đó thì nó tự nhập dữ liệu vào sheet 2.
Các bạn giúp mình nhé.
 

File đính kèm

Lần chỉnh sửa cuối:

SA_DQ

/(hông là gì!
Thành viên danh dự
Tham gia ngày
8 Tháng sáu 2006
Bài viết
5,552
Được thích
9,331
Điểm
860
Bạn xài macro sau & cho í kiến!

Mình muốn nhập số liệu ở một sheet1, sau khi enter (hoặc click) vào ô nào đó thì nó tự nhập dữ liệu vào sheet 2.
Các bạn giúp mình nhé,
Liên hệ: Mr Hợp --=0 Phòng Bảo hiểm - Ngân hàng Bảo Việt. Tel: 0902082233
PHP:
Option Explicit
Sub NhapLieu()
 Dim HTen As Range, oTo As Range, XeMay As Range, Nguoi As Range
 Dim Chay As Range, Hang As Range, KThuat As Range, Tau As Range
 Dim sRng As Range:                         Dim Sh As Worksheet
 Dim Col As String, Jj As Byte, eRw As Long
 
 Set HTen = Range("B3:B5"):                 Set oTo = Range("B8:B13")
 Set XeMay = Range("B16:B21"):              Set Nguoi = Range("B24:B28")
 Set Chay = Range("B31:B36"):               Set Hang = Range("B39:B43")
 Set KThuat = Range("B46:B50"):             Set Tau = Range("B53:B57")
 Set Sh = Sheets("Bang Tong Hop"):          Application.ScreenUpdating = False
 If [b3].Value <> "" Then
    eRw = Sh.[b65500].End(xlUp).Row + 1
    For Jj = 1 To 8
        Set sRng = Choose(Jj, HTen, oTo, XeMay, Nguoi, Chay, Hang, KThuat, Tau)
        Col = Choose(Jj, "B", "E", "K", "Q", "V", "AB", "AG", "AL")
        sRng.Copy
        With Sh.Range(Col & eRw)
            .PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
                False, Transpose:=True
            Application.CutCopyMode = False
        End With
    Next Jj
 Else
    MsgBox "CAN NHAP TEN NGUOI DONG BAO HIEM!", , "GPE.COM"
    Exit Sub
 End If
 MsgBox "DA NHAP XONG RECORD NAY!", , "GPE.COM"
 [b3] = ""
End Sub
 

Hai Lúa Miền Tây

Chuyên gia GPE
Thành viên BQT
Administrator
Tham gia ngày
18 Tháng ba 2008
Bài viết
7,271
Được thích
14,060
Điểm
1,910
Nơi ở
Tp.HCM
Cũng quan tâm đến việc nhập số liệu trên excel, mình rất mong các bạn giúp phần này:
Mình có một file excel, muốn nhập số liệu ở một sheet1, sau khi enter (hoặc click) vào ô nào đó thì nó tự nhập dữ liệu vào sheet 2.
Các bạn giúp mình nhé,
Liên hệ:
Mr Hợp
Phòng Bảo hiểm - Ngân hàng Bảo Việt. Tel: 0902082233
Theo mình nghĩ mình dùng = user form để nhập liệu cho nó dể nhập hơn, file của bạn có tất cả 7 danh mục bảo hiểm thì mình tạo 7 cái tab trong form, mỗi 1 tab là 1 danh mục, bạn muốn nhập danh mục nào thì nhấn vào danh mục đó cho nó đở rối.
Bạn tham khảo trong file đính kèm của mình nhé
Thân
 

File đính kèm

Top