Chương trình tự tổng hợp các thư mục trong đường dẫn đã cho và tạo List cây thư mục giống hệt trên Web

Link tải chương trình : Tại đây
Code sử dụng:

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim xRow As Long
Dim s As String


Dim xDirect$, xFname$, InitialFoldr$

InitialFoldr$ = "C:\Users\cuongnh\Desktop\"

With Application.FileDialog(msoFileDialogFolderPicker)

.InitialFileName = Application.DefaultFilePath & "\"

.Title = "Please select a folder to list Files from"

.InitialFileName = InitialFoldr$

.Show

s = .SelectedItems(1)

Target.Value = s

Cells(Target.Row - 1, Target.Column + 1).Select

If .SelectedItems.Count <> 0 Then

xDirect$ = .SelectedItems(1) & "\"

xFname$ = Dir(xDirect$, 7)

    Do While xFname$ <> ""
    'ActiveCell.Offset(xRow).Select
    ActiveCell.Offset(1).Select
    ActiveCell = xFname$

    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=.SelectedItems(1) & "\" & xFname$
    ActiveCell.Offset(0, -1) = s
    'xRow = xRow + 1

    xFname$ = Dir

    Loop

End If

End With

ActiveSheet.PivotTables("PivotTable6").PivotCache.Refresh

End Sub

Hàm trả về số thứ tự trong năm của tuần chứa ngày đã cho trong Excel

Hàm ISOWEEKNUM - Hàm trả về số thứ tự trong năm của tuần chứa ngày đã cho trong Excel

Bài viết dưới đây giới thiệu tới các bạn hàm ISOWEEKNUM – 1 trong số những hàm nằm trong nhóm hàm ngày tháng và thời gian rất được ưa dùng trong Excel.

Mô tả: Hàm trả về số thứ tự trong năm của tuần chứa ngày đã cho.

Cú pháp: ISOWEEKNUM(date)

Trong đó: date là ngày cần xác định số thứ tự của tuần trong năm chứa ngày đó, là tham số bắt buộc.

Chú ý:

- Excel lưu trữ ngày tháng ở dạng số liên tiếp để thuận tiện cho quá trình tính toán.

- Đối số date không phải là số hợp lệ -> hàm trả về giá trị lỗi #NUM!

- Đối số date không phải là ngày hợp lệ -> hàm trả về giá trị lỗi #VALUE!

Ví dụ:

Tìm số thứ tự của tuần trong năm tương ứng với ngày trong bảng dưới đây:

- Tại ô cần tính nhập công thức: =ISOWEEKNUM(E7).

- Nhấn Enter -> ngày 12/25/16 nằm ở tuần thứ 51 trong năm:

- Tương tự sao chép công thức cho các giá trị còn lại được kết quả:

- Trường hợp giá trị ngày không hợp lệ -> hàm trả về giá trị lỗi #VALUE!

Trên đây là hướng dẫn và một số ví dụ cụ thể khi sử dụng hàm ISOWEEKNUM.

Chúc các bạn thành công!