Kết quả tìm kiếm

Lúc đầu đặt đúng địa chỉ, không biết sao nó chạy bậy Em cảm ơn Thầy!

Em Em có áp dụng bài này vào thực tế nhưng cũng vẫn chưa được Điều kiện: - Nếu B1>0 Em có áp dụng bài này vào thực tế nhưng nó vẫn chưa đúng kết quả như yêu cầu Điều kiện CF như sau =AND($H$7>0;$H$7<1700000;IsCheck) thì tô chữ màu đỏ cho ô E6 ............. Tất cả 5 điều kiện Nó có tô màu...

Em có áp dụng bài Chiêu số 18: Điều khiển Conditional Formating bằng checkbox. Nhưng không ra kết quả đúng Nhờ Thầy cô , anh chị chỉ chổ sai Em cảm ơn

Excel 10 không có hàm trên

Anh chị giúp em tìm số nhỏ nhất, lớn nhất trong 1 ngày Kết quả em muốn như cột E và F em đang sử dụng Excel 10 Em cảm ơn!

Em thử với code sau Private Sub NhomHang_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) Cancel = True End Sub Nhưng vẫn chưa đưa được Khi em nhập tìm chữ "bia" rồi enter thì nó không hiện ra list (con trỏ vẫn trong text box) Nhờ Thầy hướng dẫn thêm, em cảm ơn!

Em cảm ơn, nhưng để chuyển đổi thì cần phải có thời gian nghiên cứu Ở đây em là dạng học mò mẫm thôi ạ

Em nhờ các anh, chị giúp em sửa code mà làm sau khi Enter thì trong textbox vẫn còn con trỏ (nhấp nháy trong textbox) Ví dụ: Tại cell D9 double click thì hiện form, ví dụ trong text box em nhập chữ bia thì sau khi enter thì trong textbox con trỏ nó mất, em vẫn muốn con trỏ vẫn nhấp nháy sau chữ...

Em nhờ các anh, chị giúp em sửa code mà làm sao chỉ cần Enter 1 lần (hiện nay là phải enter 2 lần)trong textbox là hiện ra list danh sách cần tìm Ví dụ: Tại cell D9 double click thì hiện form, ví dụ trong text box em nhập chữ bia thì phải enter 2 lần, nó mới hiện ra list cần tìm Bây giờ em chỉ...

Các anh chị giúp em Trong Gmail, chọn gì để hộp thư đến phân ra các mục chính ( như hình) Ở Hộp thư đến nó hiện ra 3 mục chính - Chính - Quảng cáo - Mạng xã hội Em cảm ơn!

Có, mua màn hình rộng

Đã record và thêm dòng lệnh .AutoFilter Field:=13, Criteria1:="<=10000" nhưng không đúng

Em có đoạn code Sub FilterRows() With Worksheets("TH").Range("A8") .AutoFilter Field:=12, Criteria1:=">0" .AutoFilter Field:=13, Criteria1:=">0" End With End Sub Đoạn code trên dùng để Filter cột 12 và cột 13 (cột L và M) lớn hơn 0 Bây giờ em muốn thêm điều kiện filter...

Đây là code đã chỉnh sửa theo hướng trên Sub TrimCaiTien() Dim rng As Range Dim cell As Range Dim lr As Long lr = Sheets("MA").Range("C" & Rows.Count).End(xlUp).Row Set rng = Application.Sheets("MA").Range("C13:C" & lr) For Each cell In rng cell.Value =...

Nhở bạn sửa giúp, không dùng Inputbox

Dạ không, xoá khoảng trắng thừa ở trước , giữa và sau chuỗi như file đính kèm

Em chào anh/chị! Em nhờ anh chị hỗ trợ và giúp đỡ code xoá khoảng trắng thừa từ ô D8 đến ô D cuối cùng Em xin cảm ơn nhiều

Người ta đã chăn trên thì bạn thử chặn dưới xem

Thử code này Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count = 1 And Target.Column = 4 And Target.Row >= 4 Then If Target <> "" Then Target.Offset(0, 7).Select End If End If If Target.Count = 1 And Target.Column = 11 And Target.Row...

File có đuôi .xlsx thì làm gì có code trong file