Video Video về Excel Video về tin học khác Tin tức về tin học chung
Thông tin mới Featured content Tìm bài mới Tài Nguyên Mới Hoạt động gần nhất
Tài nguyên Đánh giá mới nhất Tìm tài nguyên
Facebook
Đóng góp
Đăng nhậpĐăng KýCó gì mới?Tìm kiếm
Tìm kiếm
Mọi nơi Đề tài Diễn đàn này Đề tài này Chỉ tìm trong tiêu đề NoteBởi:Tìm kiếmTìm nâng cao…
Tìm bài viết mới
Tìm theo chuyên mục
Menu Đăng nhập Đăng Ký Install the app Install How to install the app on iOS
Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Khách ơi! GPE thông tin đến bạn ấn phẩm "lập trình VBA trong Excel": - Phần cơ bản - Phần Nâng Cao - VBA trong Excel - Cải thiện và tăng tốc
Trang chủ
Diễn đàn
Lập Trình với Excel
You are using an out of date browser. It may not display this or other websites correctly.You should upgrade or use an alternative browser. Lỗi Run-time error '13': Type mismatch (1 người xem)
Thread starterThread starter tuanh1979
Ngày gửiNgày gửi 18/10/07
Người dùng đang xem chủ đề này
Đang trực tuyến: 2 (Thành viên: 0, Khách: 2)T
tuanh1979
Thành viên chính thức
Tham gia 7/7/07 Bài viết 57 Được thích 0 Khi mình nhấn vào button Nhap trong sheet chao thì màn hình báo lỗi như trên, mình không tìm được nguyên nhân vì sao. Mọi người chỉ giúp mình nhé. Mình đưa file lên nhờ mọi người xem dùm. Thank
File đính kèm
form nhap.xlsform nhap.xls 97.5 KB · Đọc: 166
Sắp xếp theo thời gian sắp xếp theo bầu chọn
anhtuan1066
Thành viên gạo cội
Tham gia 10/3/07 Bài viết 5,802 Được thích 6,913 trời... đưa file lên hỏi mà còn password nữa... Hic.. Upvote0D
duongsatdn
Thành viên tiêu biểu
Tham gia 15/6/07 Bài viết 455 Được thích 393 Bạn bỏ mật khẩu vào VBAProject để mọi người xem code cua bạn mới phát hiện lỗi mà giúp bạn chứ. Upvote0V
voda
Thành viên tiêu biểu
Thành viên danh dự Tham gia 27/3/07 Bài viết 687 Được thích 1,030 Lỗi này xảy ra khi các kiểu dữ liệu được sử dụng không phù hợp nhau. Ví dụ ta có phép cộng: kiểu chuỗi + kiểu số. Tất nhiên Excel không cộng được và sẽ báo lỗi. Bạn xem thử trong code có bị tình trạng này không? Upvote0T
tuanh1979
Thành viên chính thức
Tham gia 7/7/07 Bài viết 57 Được thích 0 Sorry sorry, mình quên mất, pass 123. hic. Trong bài của mình không có phép cộng mọi người xem lại cho mính với Upvote0T
tuanh1979
Thành viên chính thức
Tham gia 7/7/07 Bài viết 57 Được thích 0 Mình đã kiềm tra lại, có phép cộng: SoTT=SoTT+1,....Khi minh chưa làm form tong hop thì vẫn dùng được bình thường, chỉ khi mình tạo xong form tong hop thì bị lỗi, mình đã thừ bỏ from tong hop đi thì lại chạy được bình thường. xem giúp mình nhé. Upvote0V
voda
Thành viên tiêu biểu
Thành viên danh dự Tham gia 27/3/07 Bài viết 687 Được thích 1,030 Có lẽ lỗi xảy ra từ câu này: Me.sp = Sheet4.Range("W1") + 1 Upvote0T
tuanh1979
Thành viên chính thức
Tham gia 7/7/07 Bài viết 57 Được thích 0 Mình đã thử bỏ hẳn cầu lệnh đó đi nhưng không được, vẫn báo lỗi như vậy bạn a. xem lại cho mình nhé Upvote0
Mr Okebab
Ngon Ngất Ngây
Thành viên đã mất Tham gia 6/8/06 Bài viết 3,260 Được thích 3,790
tuanh1979 đã viết: Mình đã thử bỏ hẳn cầu lệnh đó đi nhưng không được, vẫn báo lỗi như vậy bạn a. xem lại cho mình nhé Nhấp chuột vào đây để mở rộng...
PHP: Sao chép. Private Sub UserForm_Initialize() On Error Resume Next Me.SoTT = 1 Call ngaynhap_Change Sheet2.Select Range("A1").Offset(Range("K1").Value, 0).Value = Me.sp.Text Range("A1").Offset(Range("K1").Value, 1).Value = Me.ngaynhap.Text Range("A1").Offset(Range("K1").Value, 4).Value = Me.SoTT.Text Me.Inphieu.Enabled = False Me.CapNhat.Enabled = False Me.Xoa.Enabled = False End Sub Me.sp = Sheet4.Range("W1") + 1 Đây là dong code bị sai, chẳng hiểu bạn dùng nó làm gì Sheet4.Range("W1") = "soluong" ????????????? Hãy kiểm soát code của mình tốt hơn nữa. Thân!
File đính kèm
form nhap-OB.rarform nhap-OB.rar 31.1 KB · Đọc: 126
Upvote0T
tuanh1979
Thành viên chính thức
Tham gia 7/7/07 Bài viết 57 Được thích 0 Mình đã tìm thấy lỗi rồi. khi mình tạo vùng điều kiện lọc thì gán cho W1 giá trị là chữ nên trong phần cập nhật và userform_initilize bị sai dòng lệnh đó. Cảm ơn Mr Okebab và Voda nhé. Mình sẽ cố gắng kiểm soát tốt các dòng lệnh hơn nữa. Upvote0N
nguyenhien80
Thành viên mới
Tham gia 12/1/12 Bài viết 1 Được thích 0 'Tim As_max i1 = dau1 As_max(1) = 0 a = 0 Do While Cells(i1, "A") = Cells(i1 + 1, "A") i1 = i1 + 1 a = Cells(i1 - 1, "BT") If As_max(1) < a Then As_max(1) = a ii1 = i1 - 1 End If CÁc bác ơi loi chu mau đo la sao vay Upvote0T
tranchautrungduong
Thành viên chính thức
Tham gia 6/6/13 Bài viết 92 Được thích 40 cứu em với, em cũng bị lỗi này, các sheet khác chạy form ok, riêng sheet "tuan 40" chạy lõi. Upvote0T
tranchautrungduong
Thành viên chính thức
Tham gia 6/6/13 Bài viết 92 Được thích 40
tranchautrungduong đã viết: cứu em với, em cũng bị lỗi này, các sheet khác chạy form ok, riêng sheet "tuan 40" chạy lõi. Nhấp chuột vào đây để mở rộng...
cám ơn anh chị! em thấy lỗi rồi Upvote0P
phamvanquangh
Thành viên mới
Tham gia 31/10/09 Bài viết 10 Được thích 0 chào mọi người, mình cũng mới chập chững VBA và mò mẫn viết Form nhập liệu, nhưng gần xong thì bị lỗi "Rung -time error 13:type mismatch" Mong mọi người chỉ giúp ạ. nhấn Nút "UPDATE" và Nút "XÓA" thì bị ah.
Thành viên danh dự Tham gia 8/6/06 Bài viết 14,776 Được thích 23,228 Nghề nghiệp U80 Đang báo lỗi chắc do dòng (hàng) cần nạp hay xóa dữ liệu => 0 Bạn thử thế này xem sao: PHP: Sao chép. Private Sub img_update_Click() Dim WS As Worksheet Set WS = ThisWorkbook.Sheets("DATA") If Excel.WorksheetFunction.And(Me.txt_hvt.Value <> "", Me.txt_ngaysinh.Value <> "", _ Me.txt_nh.Value <> "", Me.txt_cmnd.Value <> "", Me.txt_nhanvien.Value <> "") Then MsgBox "Dòng: " & Me.txt_row_id.Value WS.Range("b" & Me.txt_row_id).Value = Me.txt_hvt.Value WS.Range("c" & Me.txt_row_id).Value = Me.txt_nhanvien.Value WS.Range("d" & Me.txt_row_id).Value = Me.txt_chucdanh.Value WS.Range("e" & Me.txt_row_id).Value = Format(Me.txt_ngaysinh.Value, "dd/mm/yyyy") ' . . . . . . . ' 'sau khi nhap du lieu xong ta can phai xoa du lieu nen dung sub Call khoi_tao_du_lieu Call khoi_tao_du_lieu MsgBox ("UPDATE du lieu thanh cong") Else MsgBox ("Du lieu tren khong UPDATE duoc") End If End Sub Upvote0P
phamvanquangh
Thành viên mới
Tham gia 31/10/09 Bài viết 10 Được thích 0
SA_DQ đã viết: Đang báo lỗi chắc do dòng (hàng) cần nạp hay xóa dữ liệu => 0 Bạn thử thế này xem sao: PHP: Sao chép. Private Sub img_update_Click() Dim WS As Worksheet Set WS = ThisWorkbook.Sheets("DATA") If Excel.WorksheetFunction.And(Me.txt_hvt.Value <> "", Me.txt_ngaysinh.Value <> "", _ Me.txt_nh.Value <> "", Me.txt_cmnd.Value <> "", Me.txt_nhanvien.Value <> "") Then MsgBox "Dòng: " & Me.txt_row_id.Value WS.Range("b" & Me.txt_row_id).Value = Me.txt_hvt.Value WS.Range("c" & Me.txt_row_id).Value = Me.txt_nhanvien.Value WS.Range("d" & Me.txt_row_id).Value = Me.txt_chucdanh.Value WS.Range("e" & Me.txt_row_id).Value = Format(Me.txt_ngaysinh.Value, "dd/mm/yyyy") ' . . . . . . . ' 'sau khi nhap du lieu xong ta can phai xoa du lieu nen dung sub Call khoi_tao_du_lieu Call khoi_tao_du_lieu MsgBox ("UPDATE du lieu thanh cong") Else MsgBox ("Du lieu tren khong UPDATE duoc") End If End Sub Nhấp chuột vào đây để mở rộng...
Vâng để mình thử, cảm ơn bạn nhiều. Upvote0P
phamvanquangh
Thành viên mới
Tham gia 31/10/09 Bài viết 10 Được thích 0
SA_DQ đã viết: Đang báo lỗi chắc do dòng (hàng) cần nạp hay xóa dữ liệu => 0 Bạn thử thế này xem sao: PHP: Sao chép. Private Sub img_update_Click() Dim WS As Worksheet Set WS = ThisWorkbook.Sheets("DATA") If Excel.WorksheetFunction.And(Me.txt_hvt.Value <> "", Me.txt_ngaysinh.Value <> "", _ Me.txt_nh.Value <> "", Me.txt_cmnd.Value <> "", Me.txt_nhanvien.Value <> "") Then MsgBox "Dòng: " & Me.txt_row_id.Value WS.Range("b" & Me.txt_row_id).Value = Me.txt_hvt.Value WS.Range("c" & Me.txt_row_id).Value = Me.txt_nhanvien.Value WS.Range("d" & Me.txt_row_id).Value = Me.txt_chucdanh.Value WS.Range("e" & Me.txt_row_id).Value = Format(Me.txt_ngaysinh.Value, "dd/mm/yyyy") ' . . . . . . . ' 'sau khi nhap du lieu xong ta can phai xoa du lieu nen dung sub Call khoi_tao_du_lieu Call khoi_tao_du_lieu MsgBox ("UPDATE du lieu thanh cong") Else MsgBox ("Du lieu tren khong UPDATE duoc") End If End Sub Nhấp chuột vào đây để mở rộng...
hiii bạn vẫn làm không được bạn ơi, có thể giúp mình hoàn thiện tí không, tìm giá trị trong ws đưa lên textbox sửa rồi up date ok, nhưng khi lấy giá trị từ listbox đưa lên texbox sửa và update lại lổi run time error "13".mình nói rõ là file mình làm có hai cách tìm kiếm, tìm kiếm chính xác theo tên , điện thoại, cmnd thì ok rồi, nhưng tới khi tìm kiếm trong listbox kích chọn đưa lên textbox được tồi nhưng khi sửa xong update bị lỗi, nhờ bạn chỉ giáo giúp ah.cảm ơn bạn trước. Upvote0
SA_DQ
/(hông là gì!
Thành viên danh dự Tham gia 8/6/06 Bài viết 14,776 Được thích 23,228 Nghề nghiệp U80 Vấn đề không phải là làm được hay không làm được, mà thông tin mà MsgBox (mới thêm vô) sẽ cho bạn là gì & đúng ý đồ của bạn hay không? . . . . Form trong khi chưa hoàn chỉnh (do còn lỗi) thì các Control 2uan trọng như Me!txt_row_id không nên dấu đi như vậy. Bạn phải làm sao đó đển khi bạn chọn 1 dòng trong ListBox của danh sách thì Control này chứa trị là chỉ số dòng của (dòng) dữ liệu đó. Lần chỉnh sửa cuối: 19/7/21 Upvote0B
Thành viên danh dự Tham gia 8/6/06 Bài viết 14,776 Được thích 23,228 Nghề nghiệp U80 @Chủ bài đăng: Nên chú tâm hơn trong việc xây dựng CSDL của bạn, như sau:
Số TT
Họ Và Tên
Mã NV
Chức Danh
Ngày Sinh
Giới Tính
Số Đ.Thoại
Số CMND
1
phạm văn quốc
PVQ00
Trưởng Phòng
25/09/2012
Nam
0963789566
So CMND
2
nguyễn thi thơm
NTT00
Trưởng Phòng
25/09/2012
Nu
0899563225
9999999999
3
nguyễn văn ti
NVT00
Trưởng Phòng
25/09/2012
Nam
0325698654
1234564560
4
nguyễn văn quang
NVQ00
Trưởng Phòng
25/09/2012
Nam
56666666666
55666666666
5
nguyễn văn quang
NVQ01
Trưởng Phòng
25/09/2012
Nam
0006666666
555555555555
Thứ nhất: Tên người là danh từ riêng, cần viết bông, hết thảy các từ. Thứ nhì: Nên có trật tự hơn; Ví dụ Mới sinh ra, người ta đã có ngày sinh & giới tính, khi ấy chưa ai có thể có chức danh; Thông thường mọi người cần có CNND hay CCCD, còn SĐT thì thường có sau Thứ ba: Trong 1 cơ sở, số chức danh không nhiều & như thế sẽ dẫn đến việc trong CSDL sẽ trùng lắp nhiều khi nhập các chức danh này; Nếu là mình thì sẽ lập cho nó 1 bảng danh mục để tiện nhiều thứ khi nhập liệu như giảm tính đồ sộ không cần thiết, Sai chính tả ngớ ngẫn khi nhập chức danh,. . . .
Mã CD
Chúc danh
GD
Giám đốc
TF
Trưởng phòng
FF
Phó phòng
NV
Nhân viên
CN
công nhân
FB
Phó ban
. . .
. . . .
. . . . . Upvote0P
phamvanquangh
Thành viên mới
Tham gia 31/10/09 Bài viết 10 Được thích 0
batman1 đã viết: Bạn nghĩ là người khác sẽ đoán, sẽ dò tất cả các code của bạn để chỉ ra chỗ sai? Bạn có thể "giúp" những người muốn giúp bạn. Nếu bạn mô tả: khi hiển thị UserForm thì tôi nhấn cái này ... rồi kích vào chỗ kia ..., sau đó rê rê chuột và xông vào chỗ ấy ... thì thấy kêu là ... Tức chỉ ra các bước thao tác để người khác có cơ hội tạo lại tình huống mà ban gặp phải. Không có cái miêu tả này thì đoán mò và dò hết toàn bộ code? Tôi không có hứng đoán mò các bước thao tác của bạn nên tôi tự thử như sau: sau khi mở UserForm thì tôi chọn 1 mục trong ListBox -> nhấn nút UPDATE thì có lỗi ở dòng WS.Range("b" & Me.txt_row_id).Value = Me.txt_hvt.Value và các dòng tiếp theo. Rõ ràng nếu các bước thao tác như tôi thực hiện thì ở thời điểm nhấn UPDATE TextBox txt_row_id là RỖNG, tức nếu "ép" thành số thì có nghĩa là 0. Code ở trên "cố" truy cập tới (để thiết lập giá trị) ô "b" & Me.txt_row_id = "b" & "0" = "b0", tức tới ô ở cột B dòng 0. Lỗi là đúng vì bảng tính làm gì có dòng 0. Hãy tập mô tả vấn đề chính xác, cụ thể. Đừng bắt người khác phải đoán mò, phải "bơi" trong biển code của mình. Nhấp chuột vào đây để mở rộng...
Vâng xin chào bạn! cảm ơn bạn đã đọc và ý kiến chân thành của bạn. mình xin nói qua cái Form nhập liệu của mình như thế này. Ø Với Nút “THÊM” thì thêm mới dữ liệu nhập vào trên các TEXTBOX và tự động nhập xuống hàng dưới. Ø Với Nút “UPDATE”: Khi cần sửa 1 người nào đó trong danh sách ta có thể + Tìm theo tên : nhập Họ Và Tên cần tìm bấm nút tìm “ cái hình nút tìm kiếm” và lấy dữ liệu tên người đó điền vào các textbox sửa nội dung cần sửa như “nội dung sdt; tk ngân hàng, ngày sinh, mã nhân viên….” Rồi sau đó cập nhật. + Tìm theo Số điện thoại và tìm theo SCMND củng vậy. + với TEXTBOX cần tìm kiếm: Ta nhập nội cần tìm kiếm vào textbox tìm kiếm, thì nội dung cần tìm kiếm sẽ hiện dưới LISTBOX, sau đó kích chọn mục muốn sửa dưới LISTBOX, nội dung LISTBOX cần sửa sẽ cập nhật lên TEXTBOX sau đó sửa nội dung cần sửa và “UPDATE” dữ liệu. Ø Với Nút “RESET”: đưa các textbox về nhập liệu mới. Ø Với Nút “XÓA DL”: Nhập Tên cần Tìm kiếm hoặc SDT; số CMND , hoặc kích vào listbox nội dung cần xóa và tiến hành bấm nút “XÓA DL”. Ø Cái đã làm được: Khi tìm kiếm theo Họ Và Tên Số điện thoại và tìm theo SCMND tất cả các Nút đều không bị lổi. Ø Cái đang vướng: Khi nhập chuổi tìm kiếm vào TEXTBOX cần tìm kiếm, danh sách hiện lên listbox chọn vào nội dung LISTBOX cần sửa, và sửa nội dung trên TEXTBOX nhưng khi Bấm nút “UPDATE” thì bị lỗi (Run time error “13”) . Và với nút “XÓA DL” củng bị lổi (Run time error “13”). Mình không phải dân chuyên nên với khả năng của mình chỉ được như vậy mong mọi người giúp đỡ thêm để hoàn thiện. mình xin chân thành cảm ơn! Bài đã được tự động gộp: 19/7/21
SA_DQ đã viết: @Chủ bài đăng: Nên chú tâm hơn trong việc xây dựng CSDL của bạn, như sau:
Số TT
Họ Và Tên
Mã NV
Chức Danh
Ngày Sinh
Giới Tính
Số Đ.Thoại
Số CMND
1
phạm văn quốc
PVQ00
Trưởng Phòng
25/09/2012
Nam
0963789566
So CMND
2
nguyễn thi thơm
NTT00
Trưởng Phòng
25/09/2012
Nu
0899563225
9999999999
3
nguyễn văn ti
NVT00
Trưởng Phòng
25/09/2012
Nam
0325698654
1234564560
4
nguyễn văn quang
NVQ00
Trưởng Phòng
25/09/2012
Nam
56666666666
55666666666
5
nguyễn văn quang
NVQ01
Trưởng Phòng
25/09/2012
Nam
0006666666
555555555555
Thứ nhất: Tên người là danh từ riêng, cần viết bông, hết thảy các từ. Thứ nhì: Nên có trật tự hơn; Ví dụ Mới sinh ra, người ta đã có ngày sinh & giới tính, khi ấy chưa ai có thể có chức danh; Thông thường mọi người cần có CNND hay CCCD, còn SĐT thì thường có sau Thứ ba: Trong 1 cơ sở, số chức danh không nhiều & như thế sẽ dẫn đến việc trong CSDL sẽ trùng lắp nhiều khi nhập các chức danh này; Nếu là mình thì sẽ lập cho nó 1 bảng danh mục để tiện nhiều thứ khi nhập liệu như giảm tính đồ sộ không cần thiết, Sai chính tả ngớ ngẫn khi nhập chức danh,. . . .
Mã CD
Chúc danh
GD
Giám đốc
TF
Trưởng phòng
FF
Phó phòng
NV
Nhân viên
CN
công nhân
FB
Phó ban
. . .
. . . .
. . . . . Nhấp chuột vào đây để mở rộng...
Vâng xin chào bạn! cảm ơn bạn đã đọc và ý kiến chân thành của bạn. mình xin nói qua cái Form nhập liệu của mình như thế này. Ø Với Nút “THÊM” thì thêm mới dữ liệu nhập vào trên các TEXTBOX và tự động nhập xuống hàng dưới. Ø Với Nút “UPDATE”: Khi cần sửa 1 người nào đó trong danh sách ta có thể + Tìm theo tên : nhập Họ Và Tên cần tìm bấm nút tìm “ cái hình nút tìm kiếm” và lấy dữ liệu tên người đó điền vào các textbox sửa nội dung cần sửa như “nội dung sdt; tk ngân hàng, ngày sinh, mã nhân viên….” Rồi sau đó cập nhật. + Tìm theo Số điện thoại và tìm theo SCMND củng vậy. + với TEXTBOX cần tìm kiếm: Ta nhập nội cần tìm kiếm vào textbox tìm kiếm, thì nội dung cần tìm kiếm sẽ hiện dưới LISTBOX, sau đó kích chọn mục muốn sửa dưới LISTBOX, nội dung LISTBOX cần sửa sẽ cập nhật lên TEXTBOX sau đó sửa nội dung cần sửa và “UPDATE” dữ liệu. Ø Với Nút “RESET”: đưa các textbox về nhập liệu mới. Ø Với Nút “XÓA DL”: Nhập Tên cần Tìm kiếm hoặc SDT; số CMND , hoặc kích vào listbox nội dung cần xóa và tiến hành bấm nút “XÓA DL”. Ø Cái đã làm được: Khi tìm kiếm theo Họ Và Tên Số điện thoại và tìm theo SCMND tất cả các Nút đều không bị lổi. Ø Cái đang vướng: Khi nhập chuổi tìm kiếm vào TEXTBOX cần tìm kiếm, danh sách hiện lên listbox chọn vào nội dung LISTBOX cần sửa, và sửa nội dung trên TEXTBOX nhưng khi Bấm nút “UPDATE” thì bị lỗi (Run time error “13”) . Và với nút “XÓA DL” củng bị lổi (Run time error “13”). Mình không phải dân chuyên nên với khả năng của mình chỉ được như vậy mong mọi người giúp đỡ thêm để hoàn thiện. mình xin chân thành cảm ơn!
File đính kèm
QQQQ.jpg 179.9 KB · Đọc: 8
dang lam.xlsmdang lam.xlsm 349.2 KB · Đọc: 2
QQQQ.jpg 179.9 KB · Đọc: 8
dang lam.xlsmdang lam.xlsm 339 KB · Đọc: 0
Upvote0
SA_DQ
/(hông là gì!
Thành viên danh dự Tham gia 8/6/06 Bài viết 14,776 Được thích 23,228 Nghề nghiệp U80
phamvanquangh đã viết: . . . . . Ø Cái đang vướng: . . . . , danh sách hiện lên listbox chọn vào nội dung LISTBOX cần sửa, và sửa nội dung trên TEXTBOX nhưng khi Bấm nút “UPDATE” thì bị lỗi (Run time error “13”) . Và với nút “XÓA DL” củng bị lổi (Run time error “13”). Nhấp chuột vào đây để mở rộng...
Các chúng tôi đã chỉ cho bạn lỗi của 2 macro này là chương trình chưa biết cách tìm đến dòng nào đó trên CSDL để lưu dữ liệu; Nói rõ hơn là bạn đang bắt chương trình lưu dữ liệu từ các TextBox lên dòng nhỏ hơn dòng có chỉ số dòng bằng 1! Upvote0
SA_DQ
/(hông là gì!
Thành viên danh dự Tham gia 8/6/06 Bài viết 14,776 Được thích 23,228 Nghề nghiệp U80
phamvanquangh đã viết: Ø Với Nút “UPDATE”: Khi cần sửa 1 người nào đó trong danh sách ta có thể + Tìm theo tên : nhập Họ Và Tên cần tìm bấm nút tìm “ cái hình nút tìm kiếm” và lấy dữ liệu tên người đó điền vào các textbox sửa nội dung cần sửa như “nội dung sdt; tk ngân hàng, ngày sinh, mã nhân viên….” Rồi sau đó cập nhật. + Tìm theo Số điện thoại và tìm theo SCMND củng vậy. + với TEXTBOX cần tìm kiếm: Ta nhập nội cần tìm kiếm vào textbox tìm kiếm, thì nội dung cần tìm kiếm sẽ hiện dưới LISTBOX, sau đó kích chọn mục muốn sửa dưới LISTBOX, nội dung LISTBOX cần sửa sẽ cập nhật lên TEXTBOX sau đó sửa nội dung cần sửa và “UPDATE” dữ liệu. Nhấp chuột vào đây để mở rộng...
Nếu là mình thì mình sẽ không thực hiện việc tìm theo tên người vì 1 số lý do. . . , mà trong đó có lý do về lỗi chính tả & như vậy càng không thể tìm theo SĐT hay CCCD: Một điều hiễn nhiên là ta có số ĐT hay số CCCD của ai đó là ta đã biết tên (& cả họ) người đó. & mình sẽ tìm theo mã NV, như cách sau: Tìm theo mã của cá nhân; Ví dụ như bảng dưới đây:
Họ Và Tên
Mã NV
Dương Đình Đức
DFF00
Đỗ Phủ
FJP00
Đỗ Quốc Dung
FQD00
nguyễn thi thơm
NTT00
Ngô Thành Thái
NTT01
nguyễn văn quang
NVQ00
nguyễn văn quân
NVQ01
Nguyễn Vũ Quí
NVQ01
nguyễn văn ti
NVT00
Ngô Viết Thạnh
NVT01
phạm văn quốc
PVQ00
Phan Võ Quân
PVQ01
Upvote0P
phamvanquangh
Thành viên mới
Tham gia 31/10/09 Bài viết 10 Được thích 0
SA_DQ đã viết: Nếu là mình thì mình sẽ không thực hiện việc tìm theo tên người vì 1 số lý do. . . , mà trong đó có lý do về lỗi chính tả & như vậy càng không thể tìm theo SĐT hay CCCD: Một điều hiễn nhiên là ta có số ĐT hay số CCCD của ai đó là ta đã biết tên (& cả họ) người đó. & mình sẽ tìm theo mã NV, như cách sau: Tìm theo mã của cá nhân; Ví dụ như bảng dưới đây:
Họ Và Tên
Mã NV
Dương Đình Đức
DFF00
Đỗ Phủ
FJP00
Đỗ Quốc Dung
FQD00
nguyễn thi thơm
NTT00
Ngô Thành Thái
NTT01
nguyễn văn quang
NVQ00
nguyễn văn quân
NVQ01
Nguyễn Vũ Quí
NVQ01
nguyễn văn ti
NVT00
Ngô Viết Thạnh
NVT01
phạm văn quốc
PVQ00
Phan Võ Quân
PVQ01
Nhấp chuột vào đây để mở rộng...
Thật cảm ơn bạn, nhưng do tính chất của mỗi công việc nên mình phải thiết lập như vậy, chỉ cần họ đọc họ tên, nếu trùng tên học đọc SCMND, hay SDT thì mình tìm ra người đó ngay, hay nếu người đi làm hộ họ chỉ cần đọc SDT, vì mỗi người chỉ 1 CMND, 1 số Điện thoại chính để liên lạc. Upvote0
SA_DQ
/(hông là gì!
Thành viên danh dự Tham gia 8/6/06 Bài viết 14,776 Được thích 23,228 Nghề nghiệp U80 Bạn thử với nút 'Update' sau khi bấm vô 1 dòng trên ListBox của bạn & sửa 1 vài chi tiết xem sao.
File đính kèm
GPE.rarGPE.rar 276.7 KB · Đọc: 11
Upvote0P
phamvanquangh
Thành viên mới
Tham gia 31/10/09 Bài viết 10 Được thích 0
SA_DQ đã viết: Bạn thử với nút 'Update' sau khi bấm vô 1 dòng trên ListBox của bạn & sửa 1 vài chi tiết xem sao. Nhấp chuột vào đây để mở rộng...
Vâng cảm ơn bạn. Upvote0
SA_DQ
/(hông là gì!
Thành viên danh dự Tham gia 8/6/06 Bài viết 14,776 Được thích 23,228 Nghề nghiệp U80 Mình xin lưu ý với bạn với câu lệnh này Mã: Sao chép. If Excel.WorksheetFunction.And(Me.txt_hvt.Value <> "", Me.txt_ngaysinh.Value <> "", _ Me.txt_nh.Value <> "", Me.txt_cmnd.Value <> "",. . . , Me.txt_nhanvien.Value <> "") Then Trong tất cả các trường dữ liệu của bạn ta phải phân ra (a) 1 số trường/cột phải có ngay từ đầu; nếu thiếu nó ta không nên nhập dòng dữ liệu đó, như [STT], [Mã NV], [Tên NV], [Phái tính], [Ngày sinh] (b) 1 số trường có thể bổ sung sau, như [CCCD] (do chưa đến tuổi cấp], [Mã số thuế], [Nơi cư ngụ],. . . . (c) 1 số trường có thể thay đổi, như [Chức vụ], [Đơn vị CT], . . . . . Trong câu lệnh trích dẫn trên chỉ chứa những trường/cột ghi ở điểm (a) mà thôi; Nếu không thì bạn tự tìm ra nguyên nhân làm sáng tỏ tiếp đi nha . . . . Lần chỉnh sửa cuối: 20/7/21 Upvote0P
phamvanquangh
Thành viên mới
Tham gia 31/10/09 Bài viết 10 Được thích 0
SA_DQ đã viết: Mình xin lưu ý với bạn với câu lệnh này Mã: Sao chép. If Excel.WorksheetFunction.And(Me.txt_hvt.Value <> "", Me.txt_ngaysinh.Value <> "", _ Me.txt_nh.Value <> "", Me.txt_cmnd.Value <> "",. . . , Me.txt_nhanvien.Value <> "") Then Trong tất cả các trường dữ liệu của bạn ta phải phân ra (a) 1 số trường/cột phải có ngay từ đầu; nếu thiếu nó ta không nên nhập dòng dữ liệu đó, như [STT], [Mã NV], [Tên NV], [Phái tính], [Ngày sinh] (b) 1 số trường có thể bổ sung sau, như [CCCD] (do chưa đến tuổi cấp], [Mã số thuế], [Nơi cư ngụ],. . . . (c) 1 số trường có thể thay đổi, như [Chức vụ], [Đơn vị CT], . . . . . Trong câu lệnh trích dẫn trên chỉ chứa những trường/cột ghi ở điểm (a) mà thôi; Nếu không thì bạn tự tìm ra nguyên nhân làm sáng tỏ tiếp đi nha . . . . Nhấp chuột vào đây để mở rộng...
Chân thành cảm ơn sự nhiệt tình của bạn rất nhiều, với sự góp ý của bạn mình đã hoàn thành được form nhập liệu của riêng mình, và mình biết mình còn rất nhiều thiếu sót cũng như sự không linh hoạt trong câu lệnh, mong bạn có gì xin giúp đỡ thêm. Chúc bạn sức khỏe thật nhiều để giúp đỡ cho diễn đàn ta ngày còn phát triển. Upvote0
SA_DQ
/(hông là gì!
Thành viên danh dự Tham gia 8/6/06 Bài viết 14,776 Được thích 23,228 Nghề nghiệp U80 Nói về nút 'Thêm mới' của bạn có nội dung: PHP: Sao chép. 'NUT THEM DU LIEU ' Private Sub img_them_Click() Dim WS As Worksheet: Dim lRow As Long Set WS = ThisWorkbook.Sheets("DATA") 3 If Excel.WorksheetFunction.And(Me.txt_hvt.Value <> "", Me.txt_ngaysinh.Value <> "", Me.txt_diachi.Value <> "", Me.txt_chucdanh.Value <> "", Me.txt_date_bd.Value <> "", Me.txt_date_kt.Value <> "", Me.txt_nh.Value <> "", Me.txt_luong.Value <> "") Then If Excel.WorksheetFunction.CountIfs(WS.Range("h:h"), Me.txt_cmnd.Value) > 0 Then MsgBox ("So CMND da ton tai"): Exit Sub End If 7 If Excel.WorksheetFunction.CountIfs(WS.Range("c:c"), Me.txt_nhanvien.Value) > 0 Then MsgBox ("Ma nhan vien da ton tai"): Exit Sub End If 10 If Excel.WorksheetFunction.CountIfs(WS.Range("g:g"), Me.txt_sdt.Value) > 0 Then MsgBox ("So Dien Thoai da ton tai") End If 13 If Excel.WorksheetFunction.CountIfs(WS.Range("i:i"), Me.txt_stk.Value) > 0 Then MsgBox ("So Tai Khoan Ngan Hang ton tai"): Exit Sub End If 16 If Excel.WorksheetFunction.CountIfs(WS.Range("k:k"), Me.txt_email.Value) > 0 Then MsgBox ("Email da ton tai"): Exit Sub End If 18 lRow = 1 + WS.[B4].End(xlDown).Row 'Gán Vào Tùng Côt Excel: ' WS.Range("b" & lRow).Value = Me.txt_hvt.Value: WS.Range("c" & lRow).Value = Me.txt_nhanvien.Value WS.Range("d" & lRow).Value = Me.txt_chucdanh.Value WS.Range("e" & lRow).Value = Format(Me.txt_ngaysinh.Value, "dd/mm/yyyy") WS.Range("g" & lRow).Value = Me.txt_sdt.Value: WS.Range("f" & lRow).Value = Me.txt_sex.Value WS.Range("h" & lRow).Value = Me.txt_cmnd.Value: WS.Range("i" & lRow).Value = Me.txt_stk.Value WS.Range("j" & lRow).Value = Me.txt_nh.Value: WS.Range("L" & lRow).Value = Me.txt_email.Value WS.Range("K" & lRow).Value = Me.txt_diachi.Value: WS.Range("m" & lRow).Value = Me.txt_luong.Value WS.Range("n" & lRow).Value = Format(Me.txt_date_bd.Value, "dd/mm/yyyy") WS.Range("o" & lRow).Value = Format(Me.txt_date_kt.Value, "dd/mm/yyyy") WS.Range("p" & lRow).Value = Me.txt_img_url.Value 'Sau Khi Nhâp Du Liêu Xong Ta Cân Phai Xóa Du Liêu Nên Dùng Sub Call KhoiTaoDuLieu Call KhoiTaoDuLieu '? ' MsgBox ("Thêm Thành Công") Else MsgBox ("Chua Nhâp Du Du Liêu") End If End Sub (1) Nếu bạn dời dòng lệnh mang số 18 lên trước dòng lệnh mang số 3 thì các dòng lệnh 4, 7, 10, 13 & 16 sẽ không phải lấy vùng nguyên toàn bộ số dòng trang tính như thế. Chuyện này không nhỏ vì nó đi suốt trong khi nó tồn tại cùng bạn. (2) Câu lệnh mang số 3 nên chỉ liệt kê các trường cột sống của CSDL mà thôi; Các trường địa chỉ, SĐT, chức danh,. . . chưa cần đưa làm điều kiện phải nhập đủ ngay từ đầu. (3) Theo mình, số liệu Ngày-Tháng-Năm nên là MM/DD/yyyy & định dạng trên trang tính để quen mắt là DD/MM/yyyy. Upvote0 Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Bài viết mới nhất
P Tìm giá trị tồn kho đầu ngày (2 người xem)
ptthuongtn
Hôm nay lúc 15:15
Hàm và công thức Excel
Trả lời 1 Đọc 47 Hôm nay lúc 22:19 thanthanhan K Các nút Buttom, Combobox, Textbox bị thay đổi kích thước ... (2 người xem)
kaoehtkid
Thứ hai lúc 19:04
Những vấn đề chung
Trả lời 6 Đọc 129 Hôm nay lúc 18:40 ptm0412M Sai lệch vùng dữ liệu khi tạo Name Range bằng VBA (2 người xem)
Mr_Siro
Hôm nay lúc 10:57
Giải thích, gỡ rối, xử lý lỗi công thức
Trả lời 4 Đọc 80 Hôm nay lúc 17:38 SA_DQ Tính định mức sản phẩm (1 người xem)
Nguyenkhang2404
24/7/25
Hàm và công thức Excel
Trả lời 10 Đọc 822 Hôm nay lúc 15:54 thaodang88 T Xin giúp đỡ về việc áp dụng hàm phù hợp để phân tách dữ liệu (1 người xem)
skygatevn
Hôm nay lúc 11:59
Hướng dẫn sử dụng các hàm trong Excel
Trả lời 3 Đọc 60 Hôm nay lúc 13:52 skygatevn Bán sách Excel nâng cao để ủng hộ đồng bào bão lũ năm 2025!
PhanTuHuong
10/12/25
Câu lạc bộ hoạt động xã hội
Trả lời 5 Đọc 281 Hôm nay lúc 12:43 GPE-Trợ Lý D Xin giúp.......Kết hợp countifs và Sumproduct để đếm dữ liệu và tính số lượng tổng không trùng lặp với nhiều điều kiện
dieppk.nb92
Chủ nhật lúc 01:22
Hàm và công thức Excel
Trả lời 14 Đọc 371 Hôm nay lúc 10:20 dieppk.nb92 D Nếu diễn đàn GPE đóng cửa? (1 người xem)
PhanTuHuong
Chủ nhật lúc 23:46
Thư giãn
Trả lời 17 Đọc 509 Hôm nay lúc 09:21 anhtuanle123 A CHUNG TAY HƯỚNG VỀ MIỀN TRUNG NĂM 2025
GPE-Trợ Lý
24/11/25
Câu lạc bộ hoạt động xã hội
Trả lời 12 Đọc 843 Hôm nay lúc 07:38 PhanTuHuong
Đã giải quyết
WeatherXL - Ứng dụng lấy dữ liệu Thời tiết siêu nhanh (***Đang phát triển lại) (1 người xem)
HeSanbi
30/5/20
Lập Trình với Excel
Trả lời 92 Đọc 27K Hôm qua, lúc 19:57 Maika8008 P Lỗi hàm VBA phải add-in sau mỗi lần mở file
Video về Excel Video về tin học khác Tin tức về tin học chung 
QQQQ.jpg 179.9 KB · Đọc: 8 
QQQQ.jpg 179.9 KB · Đọc: 8 
K Các nút Buttom, Combobox, Textbox bị thay đổi kích thước ... (2 người xem) 
M Sai lệch vùng dữ liệu khi tạo Name Range bằng VBA (2 người xem) 
Tính định mức sản phẩm (1 người xem) 
Xin giúp đỡ về việc áp dụng hàm phù hợp để phân tách dữ liệu (1 người xem) 
Bán sách Excel nâng cao để ủng hộ đồng bào bão lũ năm 2025! 
D Xin giúp.......Kết hợp countifs và Sumproduct để đếm dữ liệu và tính số lượng tổng không trùng lặp với nhiều điều kiện 
P Lỗi hàm VBA phải add-in sau mỗi lần mở file 
E 
Cùng xây dựng file Gia Phả