Chào thầy. Thầy cho em hỏi là em có ds học sinh 7 lớp. Em tạo 7 button để khi click button thì listbox sẽ load dữ liệu từ lớp đó lên. Giờ em muốn tạo thêm button in dữ liệu. Khi click in thì content trong listbox đang hiện sẽ dc in ra thì mình code như thế nào. Hi vọng dc thầy giúp đỡ
@tranvanbinh26605 ай бұрын
Ý tưởng củ mình định làm như này được không Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo Thoat With Target If .Column = 1 And .Row > 3 And .Count = 1 And .Value vbNullString Then If Application.WorksheetFunction.CountIf(Range("A4:A" & .Row - 1), .Value) > 0 Then MsgBox "Ten san pham ton tai" .Select End If End If End With Thoat: Exit Sub ' Call Tao_Name... ' Call Tao_Name... End Sub
@nguyenduc993 жыл бұрын
Chào thầy. Cái listNV thì tạo được danh sách sổ xuống, còn cái ListSP thì không tạo được vì trong Code VBA có 02 cột A và B (Sheets("KhaiBao").Range("A4:B" & lr).Name = "ListSP"). Thầy có thể tạo danh sách sổ xuống hiển thị 02 cột được không ạ. Cảm ơn thầy!