Về Userform, cách tự động sang cột khi hết hàng và dùng phương thức Find ! (1 người xem)

h.nguyen132133 · 1/1/20

Dạ tình hình là em có tạo một bảng tính, với 3 thông số là kg (khối lượng), Sp (sản phẩm) và S/l (số lượng). Khi nhập dữ liệu vào thì sẽ tự động tìm và cộng dồn nếu tên Sp trùng lập (cộng dồn kg và S/l). Mong muốn em là khi nhập tới ô thứ 39 của cột C thì sẽ tự động sang cột khác (cụ thể là cột H) và vẫn tìm Sp trùng và cộng dồn... lý do là em muốn tiết kiệm giấy khi in và trong gọn gàng ạ ! em trình thì chỉ code được tới đây (file đính kèm) mong các bác giúp đỡ thêm.

SA_DQ · 2/1/20

PHP:

Private Sub CmdNhap_Click() '** Chú Ý Tên Các Controls Cân Doi Lai     '
Dim DgNhap As Long, Col As Integer:              Dim Cls As Range
Const NN As String = "Cân Nhâp Sô Liêu Vô ConTrol Này:"

If Me!tbSF.Value = "" Then                         'TextBox San Fam        '
    MsgBox NN
    Me!tbSF.SetFocus:                                           Exit Sub
ElseIf Me!tbKL.Value = "" Or Not IsNumeric(Me!tbKL.Value) Then
    MsgBox NN                                           'TextBox Khôi Luong      '
    Me!tbKL.SetFocus:                                           Exit Sub
ElseIf Me!tbSL.Value = "" Or Not IsNumeric(Me!tbSL.Value) Then
    MsgBox NN                                           'TextBox Sô Luong       '
    Me!tbSL.SetFocus:                                           Exit Sub
End If
For Col = 1 To 72 Step 5
    If Cells(39, Col).Value = "" Then
        DgNhap = Cells(99, Col).End(xlUp).Row + 1
        Cells(DgNhap, Col).Value = Me!tbSF.Value:       Me!tbSF.Text = ""
        Cells(DgNhap, 2 + Col).Value = Me!tbKL.Value:   Me!tbKL.Text = Space(0)
        Cells(DgNhap, 4 + Col).Value = Me!tbSL.Value:   Me!tbSL.Text = ""
        MsgBox "Nhâp Xong Rôi!":                                Exit For
    Else
        Cells(39, Col).Interior.ColorIndex = 38
    End If
Next Col
End Sub

h.nguyen132133 · 2/1/20

SA_DQ đã viết:

PHP:

Private Sub CmdNhap_Click() '** Chú Ý Tên Các Controls Cân Doi Lai     '
Dim DgNhap As Long, Col As Integer:              Dim Cls As Range
Const NN As String = "Cân Nhâp Sô Liêu Vô ConTrol Này:"

If Me!tbSF.Value = "" Then                         'TextBox San Fam        '
    MsgBox NN
    Me!tbSF.SetFocus:                                           Exit Sub
ElseIf Me!tbKL.Value = "" Or Not IsNumeric(Me!tbKL.Value) Then
    MsgBox NN                                           'TextBox Khôi Luong      '
    Me!tbKL.SetFocus:                                           Exit Sub
ElseIf Me!tbSL.Value = "" Or Not IsNumeric(Me!tbSL.Value) Then
    MsgBox NN                                           'TextBox Sô Luong       '
    Me!tbSL.SetFocus:                                           Exit Sub
End If
For Col = 1 To 72 Step 5
    If Cells(39, Col).Value = "" Then
        DgNhap = Cells(99, Col).End(xlUp).Row + 1
        Cells(DgNhap, Col).Value = Me!tbSF.Value:       Me!tbSF.Text = ""
        Cells(DgNhap, 2 + Col).Value = Me!tbKL.Value:   Me!tbKL.Text = Space(0)
        Cells(DgNhap, 4 + Col).Value = Me!tbSL.Value:   Me!tbSL.Text = ""
        MsgBox "Nhâp Xong Rôi!":                                Exit For
    Else
        Cells(39, Col).Interior.ColorIndex = 38
    End If
Next Col
End Sub

Cảm ơn bác rất nhiều ạ, để em test và ngâm cứu thử

h.nguyen132133 · 2/1/20

SA_DQ đã viết:

PHP:

Private Sub CmdNhap_Click() '** Chú Ý Tên Các Controls Cân Doi Lai     '
Dim DgNhap As Long, Col As Integer:              Dim Cls As Range
Const NN As String = "Cân Nhâp Sô Liêu Vô ConTrol Này:"

If Me!tbSF.Value = "" Then                         'TextBox San Fam        '
    MsgBox NN
    Me!tbSF.SetFocus:                                           Exit Sub
ElseIf Me!tbKL.Value = "" Or Not IsNumeric(Me!tbKL.Value) Then
    MsgBox NN                                           'TextBox Khôi Luong      '
    Me!tbKL.SetFocus:                                           Exit Sub
ElseIf Me!tbSL.Value = "" Or Not IsNumeric(Me!tbSL.Value) Then
    MsgBox NN                                           'TextBox Sô Luong       '
    Me!tbSL.SetFocus:                                           Exit Sub
End If
For Col = 1 To 72 Step 5
    If Cells(39, Col).Value = "" Then
        DgNhap = Cells(99, Col).End(xlUp).Row + 1
        Cells(DgNhap, Col).Value = Me!tbSF.Value:       Me!tbSF.Text = ""
        Cells(DgNhap, 2 + Col).Value = Me!tbKL.Value:   Me!tbKL.Text = Space(0)
        Cells(DgNhap, 4 + Col).Value = Me!tbSL.Value:   Me!tbSL.Text = ""
        MsgBox "Nhâp Xong Rôi!":                                Exit For
    Else
        Cells(39, Col).Interior.ColorIndex = 38
    End If
Next Col
End Sub

Mình đã test, sang dòng được rồi ạ. Nhưng mà TÌM Sản phẩm trùng và cộng dồn lại (khối lượng và số lượng) nếu tìm thấy trùng. Không trùng thì thêm bình thường làm sao ạ bạn !

SA_DQ · 2/1/20

h.nguyen132133 đã viết:
Mình đã test, sang dòng được rồi ạ. Nhưng mà TÌM Sản phẩm trùng và cộng dồn lại (khối lượng và số lượng) nếu tìm thấy trùng. Không trùng thì thêm bình thường làm sao ạ bạn !

Như vậy bạn phải có danh sách (DM) tên SF (sản phẩm) hay DM mã SF
& khi ý TextBox thứ 2 để nhập tên SF hiện thời sẽ biến thành ComboBox để bạn chọn 1 SF từ DM
Chỉ có vậy mới đảm bảo an toàn cho CSDL của bạn; không trở thành đống rác nguy hại ngay chính cho bạn!

h.nguyen132133 · 2/1/20

SA_DQ đã viết:
Như vậy bạn phải có danh sách (DM) tên SF (sản phẩm) hay DM mã SF
& khi ý TextBox thứ 2 để nhập tên SF hiện thời sẽ biến thành ComboBox để bạn chọn 1 SF từ DM
Chỉ có vậy mới đảm bảo an toàn cho CSDL của bạn; không trở thành đống rác nguy hại ngay chính cho bạn!

Do SP không nhất quán và số lượng lớn (>1000) mà dùng ComboBox thì lựa cũng rất là phê, mình muốn dùng phương thức Find để tìm và gộp được không bạn...

SA_DQ · 2/1/20

Do SP không nhất quán và số lượng >1000 mà dùng ComboBox thì lựa cũng rất là phê, mình muốn dùng phương thức Find để tìm và gộp được không bạn...

Cụm từ 'không nhất quán' mình chưa thể hiểu!
Xài Combox thì chậm mà chắc; Ai bảo chứng cho bạn luôn nhập đúng tên từ ngàn SF như vậy mà không sai chính tả?!?
Nhanh hay chậm khi dò trên ComboBox còn do cách bạn phân loại SF nữa đó nha. Hãy dùng cách chia để trị trên ngàn SF của bạn đi
Nếu không xài ComboBox thì mình sẽ không giúp tiếp bạn được đâu: Giúp là hại bạn về lâu dài mà thôi!

Mình ví dụ như loại hàng là lương thực & thực phẩm:

Mã	Tên	DVT
GV___	Gia vị
GVDC00	Dầu ăn	lít
GVDJ01	Đường đỏ	Kg
GVDJ02	Đường trắng	Kg
GVDJ03	Dấm chua	Kg
GVMC00	Muối	Kg
GVMC01	Mì chính	gói
GVNC00	Nước mắm thường	lít
GVNJ01	Nước mắm chai	chai
GVNJ02	Nước hàng	kg
GVNJ03	Ngũ Vị	gói
GVTJ00	Thính gạo	kg
HQ___	Hoa quả
HQCK00	Chuối	quả
HQDK00	Dưa hấu	kg
HQDK01	Dứa	kg
HQMK00	Mía	kg
Khac_	Khác
KHNJ04	Nước rửa bát	lọ
*LT___*	*Lương thực*
LTNA00	Gạo nếp	Kg
LTTN00	Gạo tẻ	Kg
LTTT00	Gạo tẻ	Kg
ML-	mua lẻ
MLCM00	Cá trôi	Kg
MLCM01	Cá mè	Kg
MLCM02	Cá vược	Kg
MLCM03	Cá chim	Kg
MLCM04	Cá nục	Kg
MLCM05	chả cá	Kg
NL___	Chất đốt
NLCB00	Củi ép	Kg
RC___	Rau củ quả
RCBJ00	Bắp cải	Kg
RCBJ01	Bí đỏ	Kg
RCBJ02	Bí xanh	Kg
RCBJ03	Bầu quả	Kg
RCCJ00	Củ cải	Kg
RCCJ01	Cà chua	Kg
RCCJ02	Cà rốt	Kg
RCCJ03	Cải canh	Kg
RCCJ04	Cải ngọt	Kg
RCCJ05	Cải thảo	Kg
RCCJ06	Cần Tây	Kg
RCDJ00	Dọc mùng	Kg
RCDJ01	Dưa chua	Kg
RCGE00	Giá đỗ	Kg
RCGJ01	Gừng củ	Kg
RCHJ00	Hành lá	Kg
RCHJ01	Hành tây	Kg
RCHJ01	Hạt tiêu	Kg
RCL0J1	Lạc	Kg
RCLJ00	Lá chanh	Kg
RCMJ00	Mùng tơi	Kg
RCMJ01	Mùi tàu	Kg
RCMJ02	Mướp hương	Kg
RCMJ03	Mướp đắng	Kg
RCNJ00	Nghệ củ	Kg
RCOJ00	Ớt	Kg
RCRJ01	Rau muống	Kg
RCRJ02	Rau răm	Kg
RCRJ03	Riềng	Kg
RCRJ04	Rau ngổ	Kg
RCRJ05	Rau ngót	Kg
RCTJ00	Tỏi	Kg
RCTJ01	Tai chua	Kg
RCTJ02	Thì là	Kg
RCVJ00	Vừng vỏ	Kg
RCXJ00	Xả củ	Kg
TF___	Thực phẩm
TFBI00	Bì nộm thính	Kg
TFBI01	Thịt bê	Kg
TFBI02	Thịt bò loại 1	Kg
TFBI03	Thịt bò loại 2	Kg
TFCG00	Cá trôi	Kg
TFCG02	Cá mè	Kg
TFCG03	Cá vược	Kg
TFCG04	Cá chim	Kg
TFCH00	Cá trôi	Kg
TFCH01	Cá cơm	Kg
TFCH02	Cá mè	Kg
TFCH03	Cá vược	Kg
TFCH04	Cá chim	Kg
TFCH05	Cá nục	Kg
TFCH06	chả cá	Kg
TFCH07	Tôm	Kg
TFDD00	Đậu phụ	Kg
TFGI00	Giò chả	Kg
TFGI00	Thịt gà ta	Kg
TFGI01	Giò bò	Kg
TFGI01	Thịt gà CN	Kg
TFGI02	Chim cút	Con
TFLI00	Lòng lợn	Kg
TFMI00	Mỡ nước	Kg
TFMI01	Mỡ lá	Kg
TFNJ00	Ngao	Kg
TFTF00	Trứng gà	Quả
TFTF01	Trứng Vịt	Quả
TFTG01	Trứng gà	Quả
TFTG01	Trứng Vịt	Quả
TFTI00	Thịt mông	Kg
TFTI01	Thịt vai	Kg
TFTI01	Trứng Vịt	Quả
TFTI02	Thịt ba chỉ	Kg
TFTI03	Thịt thủ	Kg
TFTI04	Thịt nạc mông	Kg
TFTI05	Thịt nạc vai	Kg
TFTI06	Thịt ba chỉ không đầu	Kg
TFXI00	Xương sườn	Kg
TFXI01	Xương ống	Kg

SA_DQ · 2/1/20

Bạn tham khảo file này

h.nguyen132133 · 2/1/20

[

SA_DQ đã viết:
Bạn tham khảo file này

À mình hiểu ý của bạn rồi, mình sẽ tham khảo cách của bạn... Cảm ơn bạn rất là nhiều ạ !!!

Về Userform, cách tự động sang cột khi hết hàng và dùng phương thức Find ! (1 người xem)

Người dùng đang xem chủ đề này

h.nguyen132133

Thành viên mới

File đính kèm

SA_DQ

/(hông là gì!

h.nguyen132133

Thành viên mới

h.nguyen132133

Thành viên mới

SA_DQ

/(hông là gì!

h.nguyen132133

Thành viên mới

SA_DQ

/(hông là gì!

SA_DQ

/(hông là gì!

File đính kèm

h.nguyen132133

Thành viên mới

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

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Sinh nhật lần 19 GPE