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

[thaibinh_excel]

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

 

[mon25]

Sub NhapLieu()
Sheets("Form").Select
Ten = Range("B3").Value
DiaChi = Range("B4").Value
Phone = Range("B5").Value
Sheets("Bang Tong Hop").Select
n = Range("F1").Value- n=range("f1").value là bằng 0, như vậy offset(n+3) sẽ xác định = ô B4 sao dữ liệu lại chạy được vào ô B5 và biến n không thay đổi nhưng sao lại tự động xuống được các ô B5, b6, b7 được thế các anh- em không hiểu lắm, ai giải thích giúp em vơi
Range("B1").Select
ActiveCell.Offset(n + 3, 0).Value = Ten
ActiveCell.Offset(n + 3, 1).Value = DiaChi
ActiveCell.Offset(n + 3, 2).Value = Phone
Sheets("Form").Select
Range("B3:B5").Select
Selection.ClearContents
Range("B3").Select
End Sub

 

[secretland]

Em không rành về VBA, các anh chị giúp em tạo Form cho mấy sheet trong file TH với ạ. Em mới vào làm năm vừa rồi, giờ qua năm mới nên em muốn có form nhập cho dễ chứ không có form nhập lâu quá.
Với có cách nào để e nhập dữ liệu vào sheet NNL2015 bên file TH thì nó tự động cập nhật dữ liệu vào file "theo dõi" được không ạ. Anh chị nào có thời gian thì code giúp em với, em xin cảm ơn. !
Năm mới vui vẻ . Pass file TH : 123

 

[bkphong]

Bạn Viehoai giúp đỡ mọi người thật nhiệt tình. Làm thế nào để học VBA giỏi được như bạn nhỉ, bạn mách mình với được không?

 

[nguyenhong94]

Cảm ơn. bài viết rất hữu ích

 

[sunnyhuu]

Bạn nào hướng dẫn mình với, mình muốn Sheet Bang Tong Hop được protect, chỉ cho nhập dữ liệu vào bằng Sheet Nhap Lieu thôi..
Thanks

 

[khanhlinh.gao]

Mh định nhập một form như này để quản lý thông tin sách đơn gian mà k bít làm thế nào cho nhanh, lại chèn được ảnh bìa vào nữa, mong dc chỉ bảo.
có thử cách làm tạo form của a Đức Huy Lê trên youtube nhưng k lập được được nhìu sheet.

 

[dechangcum]

Xin chào mọi người mình có muốn làm form nhập dữ liệu
như ví dụ sau:

cái khó củ phần này là đầu ra có thôn ... xã... lại nằm ngang chứ không nằm dạng cột.

mọi người giúp mình nhé
vì lt còn chưa biết

cảm ơn!

 

[supercam]

Chào các anh/chị,

Em xin phiền các anh chị giúp đỡ tạo code để nhập liệu vào form này (Sheet thứ 2) để tự cập nhật sang 1 sheet mới với ạ.

Em đã cố gắng download 1 số mẫu các anh/chị đã làm rồi mày mò tự sửa code mà ko đc.

Em rất mong sự giúp đỡ của các anh chị ạ

 

[vuxuandat]

hép

Đó là cái name ma trong Insert --> Name --> Define bạn ạ!

file này rất hay, em có chỉnh 1 chút theo thực tế nhưng không hiểu sao không còn: chức năng tìm kiếm

anh có thể giúp em viết thêm chức năng năng edit ( chỉnh sửa và cập nhật theem0 sau khi tìm kiếm xong được không.

Cám ơn anh.!

 

[pttungdlk]

Giúp mình làm file này với.

 

[rickypham]

Một chủ đề rất hay

 

[20cent]

Mình tham gia forum từ khá lâu rồi, nhưng chủ yếu là vào xem các hàm. Dạo này mới biết FORM nhập liệu này và cũng mò mò... làm thử cho bà chị 1 file excel để bã quản lý thu chi cái motel nhỏ nhỏ. Mình gửi file đính kèm để mọi người cho ý kiến.
Cho mình hỏi có cách nào để 2 ô (Số phòng đêm ~ D11 và Số phòng giờ ~ D13 của sheet Input ) mặc địch là 0 nều loại giao dịch (D7) không phải là "Tiền phòng"... còn nếu loại giao dịch (D7) là "Tiền phòng" thì mình tự gõ để nhập liệu.

Chân thành cảm ơn.

 

[20cent]

hoặc có cách nào không bắt buộc điền cả 5 ô nhập liệu không?

 

[SA_DQ]

Mình tham gia forum từ khá lâu... Dạo này mới biết FORM nhập liệu này và cũng mò làm thử file quản lý thu chi cái motel nhỏ nhỏ. (2) Mình gửi file đính kèm để mọi người cho ý kiến.
(1) Cho mình hỏi có cách nào để 2 ô (Số phòng đêm ~ D11 và Số phòng giờ ~ D13 của sheet Input ) mặc địch là 0 nều loại giao dịch (D7) không phải là "Tiền phòng"... còn nếu loại giao dịch (D7) là "Tiền phòng" thì mình tự gõ để nhập liệu.
Chân thành cảm ơn.

(1) Bạn có thể làm cái Validation tại [D7]
Sau đó xài macro sự kiện tại [D7] này; Ví dụ:

If Left(Target.Value, 2) <> "Ti" And Right(Target.Value, 4)<> "phòng" Then
   Union([D11], [D13]).value=0
End If

(2) Nếu là mình thì macro để chép dữ liệu từ SheetForm vô trang '...Data' nên gán trực tiếp từng ô Sau khi tìm ra chỉ số dòng cuối cần gán dữ liệu
Như
Sh.Cells(Rws,"A").Value = Now()
Sh.Cells(Rws,"C").Value = Date
. . . . .

Lúc cho macro này chạy, hiễn nhiên bạn đang fải ở trang tính 'Input'; Cho nên bạn đang thừa vài lênh

 

[be_09]

Xin chào mọi người mình có muốn làm form nhập dữ liệu
như ví dụ sau:

cái khó của phần này là đầu ra có thôn ... xã... lại nằm ngang chứ không nằm dạng cột.
.............................................................................................................................
cảm ơn!

Của bạn theo dõi sao lung tung thế, đối với File này nên làm chung 1 File cho gọn, sheet Đầu vào DK04 và sheet Đầu vào DK04CN nên gộp lại 1 và thêm cột Loại đối tượng (vì nó cùng nội dung nhưng khác đối tượng).

Nói chung phải thiết kế lại File, vì vậy bạn nên mở Toic mới để được nhiều người trợ giúp hơn.

 

[20cent]

(1) Bạn có thể làm cái Validation tại [D7]
Sau đó xài macro sự kiện tại [D7] này; Ví dụ:

If Left(Target.Value, 2) <> "Ti" And Right(Target.Value, 4)<> "phòng" Then
   Union([D11], [D13]).value=0
End If

(2) Nếu là mình thì macro để chép dữ liệu từ SheetForm vô trang '...Data' nên gán trực tiếp từng ô Sau khi tìm ra chỉ số dòng cuối cần gán dữ liệu
Như
Sh.Cells(Rws,"A").Value = Now()
Sh.Cells(Rws,"C").Value = Date
. . . . .

Lúc cho macro này chạy, hiễn nhiên bạn đang fải ở trang tính 'Input'; Cho nên bạn đang thừa vài lênh

dùng hàm trên sheet.. thì được... bạn chỉ mình viết code thì khó quá thật sự mình chỉ dừng ở mức mở ra và mò mò thôi... nhưng dẫu sao đọc đoạn code của bạn mình cũng hiểu được nội dung... để thời gian sau mò nữa xem thế nào!? Cảm ơn bạn nhiều.

 

[nghiapv084]

Nhờ các anh chị giúp em với ạ , tình hình là em cũng đang cần một file excell có ghi du liệu được và có thể load lên để chỉnh sửa là cập nhật lại được . bảng ghi dữ liệu và load là một . xin anh em cứu với a.

 

[ChanhTQ@]

Nhờ các anh chị, tình hình là em cũng đang cần một file excell có ghi du liệu được và có thể load lên để chỉnh sửa là cập nhật lại được . bảng ghi dữ liệu và load là một . xin anh em cứu với a.

Đến đây thì mất fương hướng!

 

[nghiapv084]

ChanhTQ@, Em có 1 file để đánh bảng kê , file nầy có 5 người dùng 4 người đánh bảng kê 1 người dùng đối soát lại số liệu của bảng kê , đặc biệt trong file bảng kê có phần pallet, rollcage , smt, mâm , là những phần cần đối soát chính ( tức là khi mấy bạn đánh bảng kê đánh sl của paalett hay rocage cho xe đi rồi thì khi trả bảng kê về bạn đối soát sẽ nhập số lượng để kiểm tra có sự chênh lẹch hay không , còn những dữ liệu khác chỉ cần kiểm tra lại thông tin.khi nhập mã biên bản thì bảng kê có thể load dữ liệu lên như form trong file em định sẵn . code nhap trong file là của một anh trong diễn đàn mà em xin dùng . Em gửi lại file anh chỉ giúp

 

[20cent]

bạn có thể làm giúp mình được không!? mình mò không được... Rất mong sự giúp đỡ từ bạn.

(1) Bạn có thể làm cái Validation tại [D7]
Sau đó xài macro sự kiện tại [D7] này; Ví dụ:

If Left(Target.Value, 2) <> "Ti" And Right(Target.Value, 4)<> "phòng" Then
   Union([D11], [D13]).value=0
End If

(2) Nếu là mình thì macro để chép dữ liệu từ SheetForm vô trang '...Data' nên gán trực tiếp từng ô Sau khi tìm ra chỉ số dòng cuối cần gán dữ liệu
Như
Sh.Cells(Rws,"A").Value = Now()
Sh.Cells(Rws,"C").Value = Date
. . . . .

Lúc cho macro này chạy, hiễn nhiên bạn đang fải ở trang tính 'Input'; Cho nên bạn đang thừa vài lênh