Kết quả tìm kiếm

Liên hệ QC
  1. 3

    Blocked macros from running because the source of this file is untrusted

    Bác đưa link cho ACE đọc vỡ mẹt may mới hiểu. Bỏ qua việc Server chặn thì: Ngắn nhất đến đích: chuột phải vào Properties - General thấy có ô ở đáy phải kêu bỏ Unblock tích chọn OK. P/S: Nên nhớ là không phải file nào cũng bị chặn Macro nên việc trên là thủ công cho riêng 1 file, ko có cách nào...
  2. 3

    Tạm dừng và thực thi các hàm

    Khi thực thi lệnh Exit Sub sẽ có tình trạng mất AutoCalculate, các bác có ai chuyển về Auto được không?
  3. 3

    Lấy tên sheet

    Em sai, em xin lỗi thầy và các thành viên trên diễn đàn do sự không ăn khớp của bài. Cái hàm này đôi khi có hữu dụng khi kết hợp hàm tính dung lượng sheet => tác nhân gây nặng. Do trong công ty em các ACE yếu, nên em tuy cố gắng nhưng cũng không dạy nổi, nên tạo hàm cho mọi người dễ làm, thật ra...
  4. 3

    Không cho phép chỉnh sửa những ô chứa dữ liệu cách ngày hiện tại từ 3 ngày trở về trước

    'Viết Function này ra 1 Module Function Nhanh(YoN As Boolean) With Application .ScreenUpdating = Not (YoN) .EnableEvents = Not (YoN) .DisplayAlerts = Not (YoN) .Calculation = IIf(YoN, xlCalculationManual, xlCalculationAutomatic) End With End Function 'tại đầu mỗi sub thì Nhanh True On Error...
  5. 3

    Lấy tên sheet

    Function jTenSheet() As String With Application jTenSheet = .Caller.Worksheet.Name ' End With End Function Hàm trên lấy tên Sheet, chữ j excel không có hàm nào để phân biệt ta tạm dùng như thế. 1696920325 Function jNameSheet(rng As Range) As String With rng.Parent jNameSheet = .Name...
  6. 3

    Copy và past trong khi đang ở chế độ filter ?

    Thật ra sau khi tìm tòi và phát hiện chỉ cần dùng: Set rg = ws.AutoFilter.Range Dim rg As Range Set ws = ActiveSheet If ws.AutoFilterMode = True Then Set rg = ws.AutoFilter.Range MsgBox rg.Row & " is row has AutoFilter" End If
  7. 3

    Copy và past trong khi đang ở chế độ filter ?

    Cái này thì đương nhiên rồi thầy ạ. Cho em hỏi code tìm dòng thứ bao nhiêu ở chế độ lọc. Ví dụ dòng thứ 5 đang ở chế độ lọc. Đôi khi ta phải bỏ nó đi thì mới thực thi được code. Với kiểu lọc tiêu chuẩn thì dùng ShowAllData, AutoFilterMode = False cũng OK. Nhưng có khi gặp mấy ACE hơi yếu excel...
  8. 3

    Lấy giá trị dòng cuối cùng trong bảng dữ liệu.

    Cảm ơn bạn, tôi sai và bài viết trên của tôi vô tác dụng tôi xin sửa lại sau ở Function dưới. Sử dụng trong excel chỉ cần gõ dấu = jcuoi(0) = dòng cuối sheet hiện hành (kể cả dữ liệu phân bố rời rạc), sheet khác thì gõ tên sheet đó chính xác. Ứng dụng hàm này để so với end xlup do quá trình nháp...
  9. 3

    Lấy giá trị dòng cuối cùng trong bảng dữ liệu.

    'Bạn có thể viết Funtion dựa vào Sub dưới đây đúng với mọi tr.hợp Sub TimDongCuoi() On Error Resume Next Set sh = ActiveSheet ' Or sheet tu chon sh.ShowAllData With WorksheetFunction h = sh.Range("A60000").End(xlUp).Row + 1 d = sh.UsedRange.Rows.Count c = sh.UsedRange.Columns.Count For i = h To...
  10. 3

    [Hỏi] Cách liệt kê tất cả tổ hợp chập k của n phần tử

    Bài toán này chỉ là 1 trường hợp. Nếu n trường hợp (n<13) thì sao? Có cách nào tổng quát không hả bạn.
  11. 3

    Lấy tên sheet

    Sao các thầy không dùng ActiveSheet.Name, ActiveSheet.Index nhỉ?
  12. 3

    Chia sẻ sự mất mát của anh Ba Tê

    Chia buồn cùng gia đình bác Ba Tê. Trân trọng những bài viết bác đã từng Post lên có rất nhiều bổ ích. Rip.
  13. 3

    Hỏi về cách cảnh báo excel nếu 2 người mở cùng 1 file

    Tôi cũng vướng vấn đề này như bạn. Cách sau giải quyết cũng được tuy không hay lắm Dùng sự kiện selection change tên máy đang mở ghi vào 1 ô nào đó Dùng sự kiện workbook open để biết ai đang mở
  14. 3

    Tiếng Việt trong MsgBox

    Thế thì dùng copy ảnh cho xong
  15. 3

    Lịch Khai giảng các Khóa học Excel tháng 11/2018

    Không có lớp dạy online face to face hay sao. Tôi cũng có 1 chút nhỏ về kiến thức VBA nhưng thật sự rất vướng khi gặp một số vấn đề

Group

DIỄN ĐÀN GIẢI PHÁP EXCEL
Back
Top Bottom