Form Search bị lỗi (1 người xem)

[quykh]

Em sưu tầm File này trên DĐ, lúc trước file này Listbox chỉ có 2 colum bây giờ em chỉnh lại hiện 3 colum. em không rành VBA nên code bị sai chổ nào mà khi double Click thì Debug. Mong Các AC giúp đỡ!!! File đính kèm đây Ah:

 

[quykh]

Nhờ các AC giúp em với

 

[mhung12005]

Nhờ các AC giúp em với

Bạn thử sửa trong Sub UserForm_Initialize() như sau :

Thay dòng này:

ArrChungLoai = .Range(.Range("C65000").End(xlUp), .Range("E3")).Value

thành:

ArrChungLoai = .Range(.Range("C3"), .Range("E65000").End(xlUp)).Value

và bỏ dòng này:

pri_Ubd3 = UBound(ArrChungLoai, 3)

 

[quykh]

Các AC có thể giúp em chỉnh code để ghi từ form vào sheet Userform từ cột "C"(Không dùng phương thức"ActiveCell")vì khi con trỏ đặt nằm tại cell có dữ liệu rồi thì nó lại xóa dữ liệu cữ đi.Và chỉnh dùm em Textbox "Số Lượng" thành định dạng number vì hiện tại nó đang là dạng "Text". Mong AC giúp đỡ!!!!

 

[mhung12005]

Các AC có thể giúp em chỉnh code để ghi từ form vào sheet Userform từ cột "C"(Không dùng phương thức"ActiveCell")vì khi con trỏ đặt nằm tại cell có dữ liệu rồi thì nó lại xóa dữ liệu cữ đi.Và chỉnh dùm em Textbox "Số Lượng" thành định dạng number vì hiện tại nó đang là dạng "Text". Mong AC giúp đỡ!!!!

    Private Sub UpdateSolieu()[COLOR=#ff0000]    Dim rTarget As Range[/COLOR]
    If ActiveCell.Column <> 2 Then
        MsgBox ("Vi. tri' chuot phai? la` cot B"), vbExclamation
        Exit Sub
    End If


    If Me.tbx_Maso <> "" Or Me.tbx_soluong <> "" Then
[COLOR=#ff0000]        Set rTarget = Sheet2.Range("C1048576").End(xlUp).Offset(1)[/COLOR]
[COLOR=#ff0000]        rTarget = tbx_Maso[/COLOR]
[COLOR=#ff0000]        If tbx_soluong <> "" Then rTarget.Offset(, 4) = CDbl(tbx_soluong)[/COLOR]
        
        
        tbx_Search = Empty
        tbx_Maso = Empty
        tbx_THH = Empty
        tbx_DVT = Empty
        tbx_soluong = Empty
        
        tbx_Search.SetFocus
        'sau khi Update xong thi` listbox se~ show all va chon. lai. vi tri ' row cua lan` Search truoc
    End If
    
End Sub

Chỗ màu đỏ là mình sửa hoặc thêm vào.

 

[quykh]

Cám Ơn Bạn mhung12005, chắc chỉ có bạn giúp mình thôi, thế còn vế thứ 2 thì sao hả bạn( giá trị của "Số Lượng" định dạng là "Text") Mong bạn giúp cho chót.

 

[mhung12005]

Cám Ơn Bạn mhung12005, chắc chỉ có bạn giúp mình thôi, thế còn vế thứ 2 thì sao hả bạn( giá trị của "Số Lượng" định dạng là "Text") Mong bạn giúp cho chót.

Thì chuyển thành số rồi còn gì bạn, đoạn này này:

If tbx_soluong <> "" Then rTarget.Offset(, 4) = CDbl(tbx_soluong)

Chú ý: Cột G bạn để formatcells là General nhé.

 

[quykh]

Có voi đòi tiên. Thế bây giờ muốn ghi luôn cả "THH" và "ĐVT" thì code làm sao hả bạn. Bạn có thể giải thích từ "CDbl(Tbx_Soluong) là gì vì mình tưởng định dạng Tbx_Soluong=formatnumber(#.##0.00) là thành number chứ?????

 

[mhung12005]

Có voi đòi tiên. Thế bây giờ muốn ghi luôn cả "THH" và "ĐVT" thì code làm sao hả bạn. Bạn có thể giải thích từ "CDbl(Tbx_Soluong) là gì vì mình tưởng định dạng Tbx_Soluong=formatnumber(#.##0.00) là thành number chứ?????

Bạn cứ yêu cầu tí một thế này làm ngại lắm. Bạn xem lại đi xem nhu cầu của bạn có cần thêm cái gì nữa không thì nhờ 1 thể luôn chứ cứ thế này sẽ khó nhận đc sự trợ giúp.

CDbl(Tbx_Soluong) = convert value trong Tbx_Soluong thành số.

Thân.

 

[quykh]

Thật là làm phiền bạn quá, mình rất là Cám ơn bạn vì thấy bạn đã giúp mình từ mấy hôm nay. Ý định của mình là muốn tạo thêm một Listbox thứ 2 nữa để khi nhấn nút Add thì ghi vào Listbox thứ 2 này rồi có nút ghi vào sheet nữa để ghi vào. sheet. Thật lòng cám ơn bạn!!!!

 

[quykh]

sao ở file trên em bỏ nút ADD và xóa code của nút ADD(vì em thấy có sự kiện tbx_soluong_keydown rồi), thì mở file lên lại bị Debug chổ Userform.Show. Mong mọi người giúp!!!!

 

[quykh]

Nhờ các AC chỉnh dùm em 2 đoạn code để khi nhập số lượng ở textbox_soluong xong nhấn enter thì ghi giá trị vào listbox2

Private Sub tbx_soluong_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)      
If KeyCode = 13 Then ghilistbox2 'ENTER key
End Sub

và

Private Sub ghilistbox2()
If Trim(tbx_DH) = "" Or tbx_NH = "" Then
MsgBox ("Chua co Don Hang va Nhan Hieu"), , "A.QUANG": Exit Sub
End If
With ListBox2
.ColumnCount = 4
 .ColumnWidths = "220;90;90;100"
.AddItem tbx_THH
.List(.ListCount - 1, 1) = tbx_Maso
.List(.ListCount - 1, 2) = tbx_DVT
.List(.ListCount - 1, 3) = tbx_soluong
.ListIndex = .ListCount - 1
End With
tbx_THH = Empty
tbx_Maso = Empty
tbx_DVT = Empty
tbx_soluong = Empty
tbx_Search.SetFocus
End Sub

Mong các AC giúp đỡ!!!!!