Giải Pháp Excel

Chức năng ủng hộ tài chính cho cá nhân thành viên diễn đàn.​

Add-Ins hổ trợ Word trộn danh sách và lưu ra nhiều tệp tin khác nhau​

Function Sort mảng 2 chiều​

Option Explicit

Function SortArray2D(ByVal sArr, ByVal aCol, Optional bHeader As Boolean =...

File ghi điểm, thống kê kết quả thi đấu thể thao.​

Hôm nay tôi lại chia sẻ cho các bạn các Hàm UDF được viết bằng VBA, nhằm mục đích để sắp xếp mảng một cách tối ưu nhất.​

1. Hàm VSORT và Thủ tục VSORTING - Sắp xếp dọc
2. Hàm HSORT và Thủ tục HSORTING - Sắp xếp ngang

1. Sắp xếp cả mảng ngang và mảng dọc.
2. Sắp xếp phân tầng (nhiều hàng nhiều cột).
3. Sắp xếp Tiếng Việt và Tên tiếng Việt.
4. Giao diện tô màu mảng đẹp mắt.

• Hàm viết trong bảng tính:
  • =VSORT(Cells,Indexs,matchCase,color,DefaultFontColor,DefaultBackColor)
  • =HSORT(Cells,Indexs,matchCase,color,DefaultFontColor,DefaultBackColor)
  ...

Tặng file quản lý vật tư - công nợ (nhập xuất kho hàng và công nợ khách hàng)​

Ứng dụng Class Module để viết hàm UDF_ArrayFormula​

Option Explicit

Private cParam As New Collection
Private cCaller As New Collection
Private fCalc As Boolean

Private WithEvents Worksheet As Excel.Worksheet
Private WithEvents Workbook As Excel.Workbook

Sub Link(ParamArray iSubParam())
  If fCalc Then Exit Sub
  If TypeName(Application.Caller) <> "Range" Then Exit Sub
  cCaller.Add Application.Caller
  cParam.Add iSubParam
  Set Worksheet = Application.Caller.Worksheet
  If Workbook Is Nothing Then Set Workbook = Application.ThisWorkbook
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  If Application.CountA(Target) = 0 Then
    Set Workbook =...

Chia sẻ: Tạo thông báo nhắc nhở khi sắp đến ngày kỷ niệm​

xuongrongdat đã viết:

Chào mọi người,
Như tiêu đề, mình đang cần "làm" cái nhắc sinh nhật nhân viên công ty mình, khoảng 300 người. Mình có file Excel đầy đủ dữ liệu về họ tên, ngày...

Nhấp chuột vào đây để mở rộng...

Hàm LAMBDA trong Excel 365​

=LAMBDA([parameter1, parameter2, …,] calculation)

Tổng hợp dữ liệu từ nhiều file excel vào 1 file không cần mở file​

Bài toán đặt ra như sau:

Mình lúc nào cũng sẽ có 5 file dữ liệu (mỗi file khoảng 2000-5000 dòng dữ liệu), download trực tiếp hàng ngày từ server với định dạng định sẵn dưới định dạng .xls (số cột và vị trí cột định sẵn theo mẫu đính kèm là các file CA1, CA2, CA3, CA4, CA5). Mình cần tổng hợp lại 5 file vào 1 file duy nhất (như mẫu đính kèm) trong đó du liệu của các file CA1, CA2, CA3, CA4, CA5 sẽ nối tiếp nhau ghep vào 1 sheet theo đúng cột tương ứng. Để tổng hợp đc mà k cần mở cả 5 file lên là tốt nhất (như kiểu paste link và có linh external data vậy).

Bài toán trên chỉ là một trong những nhu cầu của rất nhiều người về việc làm thế nào để tổng hợp dữ liệu từ nhiều file Excel khác nhau vào chung một file.

Function...

Gửi email tính lương cho từng người bằng Outlook​

Option Explicit

Sub GuiMail()
    Dim OutApp As Object, OutMail As Object
    Dim WB As Workbook, Ash As Worksheet, mailAddress As String, i As Integer, ir As Integer
    Dim Rcount As Long, FileName As String, Rnum As Long, strHeader As String, strRow As String
    On Error GoTo cleanup
    Set OutApp = CreateObject("Outlook.Application")
    Set Ash = Sheet1
    Rcount = Application.WorksheetFunction.CountA(Ash.Columns(1))
    For i = 1 To...