Giúp mình code kiểm tra khi thêm Item trong Listbox

  • Thread starter Thread starter quyenpv
  • Ngày gửi Ngày gửi
Liên hệ QC

quyenpv

Thu nhặt kiến thức
Tham gia
5/1/13
Bài viết
721
Được thích
97
Giới tính
Nam
Nghề nghiệp
Decode cuộc đời!
Mã:
Private Sub cmdAdd_Tinh_Click()
    Dim StrPath As String
    StrPath = Application.GetOpenFilename(VNI("Teäp tin Ñôn giaù") & "(*.xls),*.xls,All Files (*.*),*.*", 1, VNI("Choïn teäp tin Ñôn giaù"), VNI("Môû"), False)
    If StrPath = "False" Then Exit Sub
    If SheetExist(get_Foldername_ofpath(StrPath), Get_FileName(StrPath), "Infor") = False Then
        ShowHelp VNI("File [" & Get_FileName(StrPath) & "] khoâng thuoäc kieåu döõ lieäu cuûa chöông trình"), 116
        Exit Sub
    End If
    If Kiemtra_Duongdan(get_Foldername_ofpath(StrPath) & "\Infor.ini") = False Then
        ShowHelp VNI("Baïn vui loøng kieåm tra laïi file thoâng tin ñôn giaù keøm theo döõ lieäu"), 117
        Exit Sub
    End If
    '- Kiem tra xem co trung so voi du lieu mac dinh
    If lb1.ListCount > 0 Then
        For i = 1 To lb1.ListCount
            If Replace(lb1.List(i), "*", "", 1, -1, vbTextCompare) Like StrPath Then
                ShowWarning VNI("Ñöông daãn : [" & StrPath & "] ñaõ coù. Baïn vui loøng choïn laïi ñöôøng daãn khaùc")
                Exit Sub
            End If
        Next
    End If
    'Kiem tra trung so voi du lieu Dung chung
    Dim tmpDG As String
    If lb1.ListCount > 0 Then
        For i = 1 To lb1.ListCount
            tmpDG = Replace(lb1.List(i), "#[0]", "", 1, -1, vbTextCompare)
            tmpDG = Replace(tmpDG, "#[1]", "", 1, -1, vbTextCompare)
            tmpDG = Replace(tmpDG, "#[2]", "", 1, -1, vbTextCompare)
            tmpDG = Replace(tmpDG, "#[3]", "", 1, -1, vbTextCompare)
'            tmpDG = Replace(tmpDG, "#[4]", "", 1, -1, vbTextCompare)
            If tmpDG Like StrPath Then
                ShowWarning VNI("Ñöông daãn : [" & StrPath & "] ñaõ coù. Baïn vui loøng choïn laïi ñöôøng daãn khaùc")
                Exit Sub
            End If
        Next
    End If
    If SheetExist(get_Foldername_ofpath(StrPath), Get_FileName(StrPath), "Infor") = False Then
        ShowHelp VNI("File [" & Get_FileName(StrPath) & "] khoâng thuoäc kieåu döõ lieäu cuûa chöông trình"), 116
        Exit Sub
    End If
    If Kiemtra_Duongdan(get_Foldername_ofpath(StrPath) & "\Infor.ini") = False Then
        ShowHelp VNI("Baïn vui loøng kieåm tra laïi file thoâng tin ñôn giaù keøm theo döõ lieäu"), 117
        Exit Sub
    End If
    If lb1.ListCount = 0 Then
        lb1.AddItem "**" & StrPath
        '- Nap thong tin vao file ConfigRibbon
        Dim strInfor As String
        strInfor = get_Foldername_ofpath(StrPath) & "\Infor.ini"
        With ThisWorkbook.Sheets("Config_Ribbon")
            .Range("B118").Value = Write_Ini_Excel(strInfor, "Thongtin", "DG:", "DG")
            .Range("B119").Value = Write_Ini_Excel(strInfor, "Thongtin", "DM:", "DM")
            .Range("B120").Value = Write_Ini_Excel(strInfor, "Thongtin", "TDVT:", "TDVT")
            .Range("B121").Value = Write_Ini_Excel(strInfor, "Thongtin", "GVT:", "GVT")
            .Range("B122").Value = Write_Ini_Excel(strInfor, "Thongtin", "PLV:", "PLV")
            .Range("B123").Value = Write_Ini_Excel(strInfor, "Thongtin", "CVC:", "CVC")
            .Range("B124").Value = Write_Ini_Excel(strInfor, "Thongtin", "TDCM:", "TDCM")
        End With
    Else
        lb1.AddItem StrPath
    End If
End Sub

Mình có đoạn code này, khi thêm đường dẫn 1 file vào Listbox. Mục đích sẽ kiểm tra có chọn trùng file trước đó không thì bị báo lỗi
Mong anh chị em ghé qua giúp đỡ
 

File đính kèm

  • 1.jpg
    1.jpg
    88.7 KB · Đọc: 7
  • 2.jpg
    2.jpg
    83.1 KB · Đọc: 7
'- Kiem tra xem co trung so voi du lieu mac dinh
If lb1.ListCount > 0 Then
For i = 0 To lb1.ListCount - 1
If Replace(lb1.List(i), "*", "", 1, -1, vbTextCompare) Like StrPath Then
ShowWarning VNI("Nöông daan : [" & StrPath & "] nao cou. Bain vui loong choin laii nöôong daan khauc")
Exit Sub
End If
Next
End If
Những chỗ giống thế sửa tương tự. Tại sao? Xem hình. Có một kho kiến thức nằm ngay trong tầm tay mà bỏ đấy thì quá phí hoài.list.JPG
 
Upvote 0
Những chỗ giống thế sửa tương tự. Tại sao? Xem hình. Có một kho kiến thức nằm ngay trong tầm tay mà bỏ đấy thì quá phí hoài.View attachment 213476
Không đúng, trong List của em có giá trị rồi, bây giờ thêm giá trị muốn kiểm tra nó có trung với giá trị đã có trong Listbox không thì xuất hiện lỗi
Bài đã được tự động gộp:

Những chỗ giống thế sửa tương tự. Tại sao? Xem hình. Có một kho kiến thức nằm ngay trong tầm tay mà bỏ đấy thì quá phí hoài.View attachment 213476
Thanks a, em không để ý chỗ biến chạy Vòng lặp for
 

File đính kèm

  • 3.PNG
    3.PNG
    20 KB · Đọc: 8
Upvote 0
Không đúng, trong List của em có giá trị rồi, bây giờ thêm giá trị muốn kiểm tra nó có trung với giá trị đã có trong Listbox không thì xuất hiện lỗi
Bài đã được tự động gộp:


Cảm ơn a, em không để ý chỗ biến chạy Vòng lặp for
...
 
Lần chỉnh sửa cuối:
Upvote 0
Web KT

Bài viết mới nhất

Back
Top Bottom