Cập nhật dữ liệu sử dụng user form (3 người xem)

[tamhoncuada10313]

Em nhờ các cao thủ VBA viết giùm lệnh cho em nút add new với.Không hiểu sao khi em viết nó chỉ chèn được vào mỗi cell số thứ tự và nó không chèn được vào row mới mà cứ đè lên row dữ liệu đầu tiên.
Nhân tiện các bác viết giùm em luôn cái check mã thiết bị luôn(khi nhập mã mới vào thì kiẻm tra xem độ dài mã có nhỏ hơn 10 ký tự không và mã này đã được nhập vào hay chưa)

 

[cadafi]

Em nhờ các cao thủ VBA viết giùm lệnh cho em nút add new với.Không hiểu sao khi em viết nó chỉ chèn được vào mỗi cell số thứ tự và nó không chèn được vào row mới mà cứ đè lên row dữ liệu đầu tiên.
Nhân tiện các bác viết giùm em luôn cái check mã thiết bị luôn(khi nhập mã mới vào thì kiẻm tra xem độ dài mã có nhỏ hơn 10 ký tự không và mã này đã được nhập vào hay chưa)

Bạn tham khảo bài mình viết số #5 tại đây
http://www.giaiphapexcel.com/forum/showthread.php?t=10349

 

[tamhoncuada10313]

Bác giải thích hộ em mấy cái biến trong Cells với được không.Lấy dòng lệnh này làm ví dụ
Cells(MaxRowData1, 7) = Me.txtPhongBan.Value
Tiện thể bác cho em hỏi luôn cách tạo button ở sheet để gọi ra một user form nào đó

 

[cadafi]

Bác giải thích hộ em mấy cái biến trong Cells với được không.Lấy dòng lệnh này làm ví dụ
Cells(MaxRowData1, 7) = Me.txtPhongBan.Value

MaxRowData1 là tổng số dòng của danh sách Nhân viên + 1 (bạn xem sheet Setup - tảifile theo đường dẫn bên dưới)
http://www.giaiphapexcel.com/forum/s...ad.php?t=10349

Cells(MaxDataRow1, 7) chính là ô có địa chỉ là dòng cuối cùng trong danh mục nhân viên và cột số 7.

Có nghĩa là trước khi ghi dữ liệu từ form vào sheet, phải xác định dòng dữ liệu kế tiếp cuối cùng để chép vào. nếu không xác định thì làm sao excel chép xuống sheet được.

Còn nếu bạn cố định việc này ví dụ Cells(2,7)=me.txtPhongBan.Value thì lúc nào excel cũng chép vào ô cells(2,7) giá trị txtPhongBan.

 

[tamhoncuada10313]

Bác sửa lỗi giùm e với.Vừa làm vừa mò nên làm fiền bác vậy.Bác sửa chỗ nào bác nhớ đánh dấu hộ em.khi em nhập mã đã có rồi nó vẫn cho nhập mặc dù em đã xử lý phần nhập trùng rồi
Tiện thể em muốn ô số thứ tự trong form tự động điền vào thì làm thế nào ạ?

 

[yeudoi]

Tôi làm lại thử cho bạn file này bạn xem đó mà phát triển thêm. Mới làm không nên làm rắc rối cứ đơn giản đã, rồi nghiên cứu dần. Có gì không hiểu cứ hỏi tiếp.

 

[tamhoncuada10313]

hix,các bác giúp em với.Sao em vẫn bị lỗi ở phần kiểm tra mã trùng mà không biết cách nào sửa

 

[cadafi]

hix,các bác giúp em với.Sao em vẫn bị lỗi ở phần kiểm tra mã trùng mà không biết cách nào sửa

Bạn để ý thử dòng thứ 65535 trong file của bạn thử xem.

còn những đoạn code này:

Private Sub cmdnhaplieu_Click()
DMtbi.ngaylap.Value = " "
DMtbi.stt.Value = " "
DMtbi.ma.Value = " "
DMtbi.ten.Value = " "
DMtbi.dvt.Value = " "
DMtbi.bdsd.Value = " "
DMtbi.BH.Value = " "
DMtbi.dvban.Value = " "
DMtbi.dvban.Value = " "
DMtbi.ghichu.Value = " "
DMtbi.Show
End Sub

là gì vậy????
Khi không đi gán giá trị cho textbox là một khoản trắng là sao??

Mình đang tìm tiếp lỗi trong code cho bạn. Nhưng mà bạn cũng nên nghiên cứu thêm đi chứ? Vậy nhé.

 

[yeudoi]

hix,các bác giúp em với.Sao em vẫn bị lỗi ở phần kiểm tra mã trùng mà không biết cách nào sửa

Mình đã kiểm tra file được rồi mà, cứ cùng contif đếm nếu lớn hơn 1 là báo thôi. Mình góp ý file bạn nha.
1. Không nên dùng format cell hết toàn bộ 65536 dòng như vậy gây nặng file.
2. Không dùng validation nhiều dòng cũng gây nặng file.
3. Mới làm thì nên đưa code vào form luôn để tiện việc kiểm tra.
4. Tham khảo các file trên diễn đàn, dạng nhập liệu từ form có nhiều lắm.
Chúc bạn thành công

 

[tamhoncuada10313]

các bác cho em hỏi tiếp.Đôi khi trong quá trình nhập dữ liệu,ta có thể vô tình thay đổi những dữ liệu đã nhập vào mà không biết.Giờ em muốn tạo một cảnh bảo khi người nhập thay đổi dữ liệu cũ thì hỏi họ có muốn ghi lại không?Các bác giúp với

 

[tigertiger]

các bác cho em hỏi tiếp.Đôi khi trong quá trình nhập dữ liệu,ta có thể vô tình thay đổi những dữ liệu đã nhập vào mà không biết.Giờ em muốn tạo một cảnh bảo khi người nhập thay đổi dữ liệu cũ thì hỏi họ có muốn ghi lại không?Các bác giúp với

thế thì bạn phải sử dụng: bắt sự kiện Worksheet_Change

Private Sub Worksheet_Change(ByVal Target As Range)
     <........CODE cảnh báo ở đây ....>
End Sub

 

[tamhoncuada10313]

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
For Each rng In Target.Range
If ActiveCell.Value <> rng.Value Then
a = MsgBox("Ban co muon luu lai thay doi", vbYesNo + vbQuestion, "Thong bao")
If a = vbYes Then
ActiveCell.Value = rng.Value
Else
cancel = True
End If
Exit Sub
End If
End Sub
Các bác sửa đoạn code trên giùm em với.Em muốn khi giá trị đã có trong cell nào đó bị thay đổi thì sẽ hiện lên thông báo hỏi có muốn lưu thay đổi của cell đó không?Hu*c, không bác nào sửa giùm em à,em đang cần gấp