Lỗi Run-time error '13': Type mismatch

tuanh1979 · 18/10/07

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

anhtuan1066 · 18/10/07

trời... đưa file lên hỏi mà còn password nữa... Hic..

duongsatdn · 19/10/07

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ứ.

voda · 19/10/07

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?

tuanh1979 · 19/10/07

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

tuanh1979 · 19/10/07

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é.

voda · 19/10/07

Có lẽ lỗi xảy ra từ câu này:
Me.sp = Sheet4.Range("W1") + 1

tuanh1979 · 19/10/07

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é

Mr Okebab · 19/10/07

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é

PHP:

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!

tuanh1979 · 20/10/07

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.

nguyenhien80 · 11/11/15

'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

tranchautrungduong · 28/9/19

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.

tranchautrungduong · 28/9/19

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.

cám ơn anh chị! em thấy lỗi rồi

phamvanquangh · 19/7/21

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.

https://www.giaiphapexcel.com/diendan/forums/lập-trình-với-excel.79/post-thread

SA_DQ · 19/7/21

Đ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:

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

phamvanquangh · 19/7/21

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:

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

Vâng để mình thử, cảm ơn bạn nhiều.

phamvanquangh · 19/7/21

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:

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

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.

SA_DQ · 19/7/21

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 đó.

batman1 · 19/7/21

Bạn nghĩ là người khác sẽ đoán, sẽ dò tất cả các code của bạn để chỉ ra chỗ sai?
Bạn có thể "giúp" những người muốn giúp bạn. Nếu bạn mô tả: khi hiển thị UserForm thì tôi nhấn cái này ... rồi kích vào chỗ kia ..., sau đó rê rê chuột và xông vào chỗ ấy ... thì thấy kêu là ... Tức chỉ ra các bước thao tác để người khác có cơ hội tạo lại tình huống mà ban gặp phải. Không có cái miêu tả này thì đoán mò và dò hết toàn bộ code?

Tôi không có hứng đoán mò các bước thao tác của bạn nên tôi tự thử như sau: sau khi mở UserForm thì tôi chọn 1 mục trong ListBox -> nhấn nút UPDATE thì có lỗi ở dòng

WS.Range("b" & Me.txt_row_id).Value = Me.txt_hvt.Value
và các dòng tiếp theo.

Rõ ràng nếu các bước thao tác như tôi thực hiện thì ở thời điểm nhấn UPDATE TextBox txt_row_id là RỖNG, tức nếu "ép" thành số thì có nghĩa là 0. Code ở trên "cố" truy cập tới (để thiết lập giá trị) ô "b" & Me.txt_row_id = "b" & "0" = "b0", tức tới ô ở cột B dòng 0. Lỗi là đúng vì bảng tính làm gì có dòng 0.

Hãy tập mô tả vấn đề chính xác, cụ thể. Đừng bắt người khác phải đoán mò, phải "bơi" trong biển code của mình.

SA_DQ · 19/7/21

@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

. . .

. . . .

. . . . .

Lỗi Run-time error '13': Type mismatch

Thành viên chính thức

File đính kèm

Thành viên gạo cội

Thành viên tiêu biểu

Thành viên tiêu biểu

Thành viên chính thức

Thành viên chính thức

Thành viên tiêu biểu

Thành viên chính thức

Ngon Ngất Ngây

File đính kèm

Thành viên chính thức

Thành viên mới

Thành viên chính thức

Thành viên chính thức

Thành viên mới

https://www.giaiphapexcel.com/diendan/forums/lập-trình-với-excel.79/post-thread​

File đính kèm

/(hông là gì!

Thành viên mới

Thành viên mới

/(hông là gì!

Thành viên gạo cội

/(hông là gì!

https://www.giaiphapexcel.com/diendan/forums/lập-trình-với-excel.79/post-thread