Kết quả tìm kiếm

Cái này có nhiều cách làm hay lắm, targetRange.cells(1,i).Value = ar(i)

Private Sub Worksheet_Change(ByVal Target As Range) Dim rE As Range Set rE = Application.Intersect(Target, Range("E:E")) If Not rE Is Nothing Then If rE.Areas.Count = 1 And rE.CountLarge = 1 Then On Error Resume Next Application.EnableEvents = False...

Đúng rồi bác. Dùng cái split cho nó được nhiều

Sub XoaDuLieu() Dim sH As Worksheet, lR As Long, i As Long, aColDele Set sH = ThisWorkbook.Sheets("Beginning") lR = sH.Cells(sH.Rows.Count, 4).End(xlUp).Row If lR <= 2 Then Exit Sub ' dong so 2 la header: no data aColDele = Array("D", "E", "J", "L") For i =...

tôi chạy thì được như này, chủ thớt hông rõ có cần liệt kê biến local hông nhỉ?

đúng là như thế. Và trong vba quy định thêm về việc tạo chuỗi hằng số là 1 dấu nháy kép sẽ được viết là 2 dấu nháy kép. Quy tắc này chỉ đúng khi định nghĩa chuỗi hằng số. A="abc"123" sẽ lỗi vì khi dịch tới dấu " thứ 2 vba thấy ký tự kế tiếp không phải là 1 nháy kép. Nó nghĩ đó là dấu hiệu của...

file bạn làm có bao textbox? Nếu dao diện mà ít control thì thêm 1 cái nút bấm ghi là paste cho nó trực quan mà đơn giản code.

Dùng hàm vlookup("*" & tentat &"*", bang1, 2 ,0) sẽ tìm được các mã.

Bạn có thể tìm hiểu về vba.userforms để unload các form. Hoặc cứ unload từng form. Unload f1: unload f2.... Dùng cái vba.userforms thì dễ ăn hơn.

Bài này dùng vlookup để làm thì có khác biệt gì không bạn?

Sửa như này thì đúng và nên tính xem có nên tách thành 2 câu lệnh if cho nó sáng sủa á bác?

Bạn sửa số 1 màu đỏ thành 2, 3 cho các cột khác

Cháu đoán là refresh trong power query không lỗi. Còn cái hình kia đang lỗi trong excel.

Lỗi kia là 1 cái tên nào đó đã không tồn tại. Tên table,tên sheet, hoặc 1 cái gì đó. Và nó không liên quan gì tới format.

Cho cháu hỏi cái này cái, là cài textbox from dùng để nhập ngày tháng, thế nếu người dùng nhập sai ngày tháng, hoặc nhập 1 chuỗi "abc" nào đó, thì sẽ code như nào để excel thông báo tình trạng nhập sai, và yêu cầu nhập lại? hoặc bất cứ 1 cách nào có thể dùng để giải quyết vấn đề nhập sai? cháu...

Bạn kiểm tra ô ô FG4

làm nhiều file quá sinh nhớ nhầm sang file của chủ thớt á? tổng có 9 sheet, 28 name, 49 style

Bạn sửa tất các các name có địa chỉ kiểu như trên về 1 vùng cụ thể; $c:$c thành $c$1:$c$2000,(2000 là tùy theo độ lớn của các bảng) thì tốc độ sẽ được cải thiện.

Sheet6.Cells(i, 7).Value = ws.Index(Sheet2.Range("P" & a & ":P" & b), c, 1) Bạn thử như này xem được không.

listbox có 1 thuộc tính có thể làm cái này, chỉ cần gán cho nó số rất lớn là được, mà mình không nhớ tên, là toplist, hay cái gì list ý , bạn kiểm tra lại xem.