Hiện tại thì anh chưa biết cái không ổn là cái gì. @thanhphuongvip có rành vụ này không? Liệu có liên quan gì tới việc thiết định trên excel mà dẫn tới việc mọi người đều double click vào file csv mà lại hiển thị hình ảnh data cho ra khác nhau?
Có hai khả năng.
File Csv mở bằng notepad thì như này là đúng rồi bạn. Của m cũng vậy, có thể do phiên bản excel khác nhau nên dẫn đến hiển thị sai.
Bạn thử code này nhé.Vì mình cũng không xem được dữ liệu cứ nhìn hình viết code thôi.
Sub layxoadulieu()
Dim arr, i As Long, lr As Long, kq, dic As Object, mang, T, dk As String, chon As Boolean, link, wb As Workbook, lc As Long
Dim j As Long, b As Long
Set dic = CreateObject("scripting.dictionary")
ReDim kq(1 To 10000, 1 To 1000)
mang = Application.InputBox("chon du lieu can loc", , Type:=8)
For Each T In mang
dic.Item(T) = T
Next
If MsgBox("Ban chon giu lai hay xoa di", vbYesNo) = vbYes Then
chon = True
End If
Set link = Application.FileDialog(msoFileDialogFilePicker)
link.Show
link.AllowMultiSelect = True
For Each T In link.SelectedItems
Set wb = Workbooks.Open(T)
lc = wb.Sheets(1).Cells(1, Columns.Count).End(xlToLeft).Column
lr = wb.Sheets(1).Range("A" & Rows.Count).End(xlUp).Row
arr = wb.Sheets(1).Range("A1").Resize(lr, lc).Value
For j = 1 To UBound(arr, 2)
dk = arr(1, j)
If dic.exists(dk) = chon Then
b = b + 1
For i = 1 To UBound(arr)
kq(i, b) = arr(i, j)
Next i
End If
Next j
wb.Close False
Next
Set wb = Workbooks.Add
wb.Sheets(1).Range("A1").Resize(10000, b).Value = kq
End SubChào bạn, cám ơn bạn đã giúp đỡ mình nhé.
OK cám ơn bạn, vậy bạn làm theo Form giúp m nhé
Anh nên sửa lại ý tưởng. Nên loại bỏ sheet Option_1 và sheet Option_2 đi. Vì hai sheet này cũng ghi và xóa dữ liệu liên tục. Việc này qua thời gian cũng làm nặng file.OK cám ơn bạn, vậy bạn làm theo Form giúp m nhé
Tạm thời em fix xong giao diện.OK cám ơn bạn, vậy bạn làm theo Form giúp m nhé
Cám ơn bạn nhé, m ở trình độ cùi bắp nên chưa biết được file nó sẽ ra sao về sau này ^^. Nhờ các bạn chỉ giáo thêm nhiều nhé @@
