Học code DICTIONARY ARRAY

[hoahuongduong1986]

Em đang học Code về Dic Arr và có tham khảo ví dụ trên mạng nhưng chưa hiểu code nhờ anh chị giúp đỡ ạ,
- Em chưa hiểu đoạn này: Em hiểu nó sẽ kiểm tra nếu không tồn tại giá trị nào thì sẽ Add dic cái gì đó...Cái Offset, dấu "/", &1 em chưa hiểu
If Not Dic.Exists(cl.Value) Then
Dic.Add cl.Value, cl.Offset(, 1).Value2 & "|" & 1
- Em chưa hiểu đoạn này:
Dic(cl.Value) = Split(Dic(cl.Value), "|")(0) + cl.Offset(, 1).Value2 & _
"|" & Split(Dic(cl.Value), "|")(1) + 1 => Chưa hiểu đoạn này làm sao có thể tính toán được, em hiểu nó giống kiểu thay cho hàm sumif trong Excel (split (0) rồi split(1)
- Phần mã hàng em đang hiểu nó đếm sự xuất hiện chứ chưa đếm việc giống hay khác nhau: Ví dụ ở đây Bình có 2 mã hàng thì đếm là 2 thì đúng, nhưng An có 2 mã hàng giống nhau thì chỉ đếm 1 thôi, thì làm sao ạ.

- làm sao để list kết quả ra Sheet Kết quả bắt đầu từ A1 ạ.
- Anh chị nào có nhiều các giải khác thì góp ý thêm ạ, để có thêm cơ hội học ạ.

Em cảm ơn ạ.

 

[PacificPR]

Option Explicit

Sub GetFileNames()

Dim xRow As Long

Dim xDirect$, xFname$, InitialFoldr$

ActiveSheet.Range("C2").Select

InitialFoldr$ = "C:\"

With Application.FileDialog(msoFileDialogFolderPicker)

.InitialFileName = Application.DefaultFilePath & "\"

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

.InitialFileName = InitialFoldr$

.Show

If .SelectedItems.Count <> 0 Then

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

xFname$ = Dir(xDirect$, 7)

Do While xFname$ <> ""

ActiveCell.Offset(xRow) = xFname$

xRow = xRow + 1

xFname$ = Dir

Loop

End If

End With

End Sub

chào các bác trong diễn đàn,em cũng vừa bắt đầu tìm hiểu và học VBA ,tò mò lên mạng tìm được code này. (xin lỗi vì không gán nguồn vì em quên lấy ở đâu rồi) nhưng các bác có thể giải thích giúp em là code ở trên dùng để lấy tên file từ một folder ra bẳng tính excel nhưng lúc em chạy code thì có kết quả nhưng đối với những tên file là tiếng việt có dấu thì lại bị lỗi font chữ,các bác giúp em khăc phuc với ạ

Bài đã được tự động gộp: 12/6/20

View attachment 239158
đây là lỗi khi chạy code lấy tên file ạ

Sao nị nhẩy bài này vào đây vậy nhỉ

 

[VetMini]

Sao nị nhẩy bài này vào đây vậy nhỉ

Vậy mà biết đâu có câu trả lời mới hay chứ.