Nhờ anh chị viết hộ em code lấy dữ liệu file khác (3 người xem)

  • Thread starter Thread starter vova2209
  • Ngày gửi Ngày gửi
Liên hệ QC

Người dùng đang xem chủ đề này

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
vova2209

vova2209

Thành viên tích cực
Tham gia
5/4/17
Bài viết
835
Được thích
112
Giới tính
Nam
Nghề nghiệp
Đường bộ
Em có 1 mong muốn nhỏ nhờ anh chị giúp đỡ!
Nhờ anh chị viết cho em code lấy dữ liệu dựa trên 2 điều kiện như hình dưới đây.. em xin chân thành cám ơn!

Untitled.png
 

File đính kèm

Sắp xếp theo thời gian sắp xếp theo bầu chọn
vova2209 đã viết:
Em có 1 mong muốn nhỏ nhờ anh chị giúp đỡ!
Nhờ anh chị viết cho em code lấy dữ liệu dựa trên 2 điều kiện như hình dưới đây.. em xin chân thành cám ơn!

View attachment 199189
Nhấp chuột vào đây để mở rộng...
Anh thấy kết quả sheet List BB đâu có giống nội dung em nêu tại BG5:BK20, em phải đưa vào thì người ta mới hiểu.
Cái này anh thấy làm thủ công có khi còn lẹ hơn chờ code:
1/ Copy sheet VoVa sang, Filter cột D chọn Blanks, Delete dòng.
2/ Xóa cột không cần thiết.
 
Upvote 0
be09 đã viết:
Anh thấy kết quả sheet List BB đâu có giống nội dung em nêu tại BG5:BK20, em phải đưa vào thì người ta mới hiểu.
Nhấp chuột vào đây để mở rộng...
đây là file mẫu để lấy dữ liệu sang thôi a
copy từ tất cả dữ liệu từ dòng thứ 4 trở đi sang 1 cột file khác dựa trên 2 điều kiện
Untitled1.png
 
Upvote 0
Upvote 0
be09 đã viết:
Cột D Sheet VoVa chỉ có số 2 và 3, còn trong hình thì 1,3, 6, 7, 10, 11.
Nó đâu có thống nhất đâu mà hiểu.
Nhấp chuột vào đây để mở rộng...
Nghĩa là khi copy dữ liệu sang thì điện kiện ko copy những dòng mà cột D có dữ liệu, và cột dữ liệu có dòng trống sẽ bỏ qua để copy dữ liệu sang kia liền kết quả như ở ảnh trên Điều kiện:
copy sang file khác ý anh ạ. em đăng lên 2 file mà
 
Lần chỉnh sửa cuối:
Upvote 0
vova2209 đã viết:
Nghĩa là khi copy dữ liệu sang thì điện kiện ko copy những dòng mà cột D có dữ liệu, và cột dữ liệu có dòng trống sẽ bỏ qua để copy dữ liệu sang kia liền kết quả như ở ảnh trên Điều kiện:
Nhấp chuột vào đây để mở rộng...
Em xem lại điều kiện (trong hình) cột D chỉ có số 2 và 3 (số 2 thì trùng), cột F thì lại ghi K=0,95 số 1, 3, 6, 7, 10, 11, trong khi cột D thì không có.
Ý anh nêu là em ví dụ không thống nhất thì làm sao hiểu nổi.
 
Upvote 0
be09 đã viết:
trong hình thì
Em xem lại điều kiện cột D chỉ có số 2 và 3 (số 2 thì trùng), cột F thì lại ghi K=0,95 số 1, 3, 6, 7, 10, 11, trong khi cột D thì không có.
Ý anh nêu là em ví dụ không thống nhất thì làm sao hiểu nổi.
Nhấp chuột vào đây để mở rộng...
để e tường thuật lại đã rồi anh giúp em nhé!
 
Upvote 0
be09 đã viết:
Em xem lại điều kiện (trong hình) cột D chỉ có số 2 và 3 (số 2 thì trùng), cột F thì lại ghi K=0,95 số 1, 3, 6, 7, 10, 11, trong khi cột D thì không có.
Ý anh nêu là em ví dụ không thống nhất thì làm sao hiểu nổi.
Nhấp chuột vào đây để mở rộng...
em trình bầy lại theo như hình ở 2 ảnh dưới anh xem dùm em
ành 1 copy dữ liệu sang
file tên Data
Untitled.png

Ảnh 2: file > lay du lieu DaTa
Copy sang file này Kết Quả như dưới
Untitled 2.png
 
Lần chỉnh sửa cuối:
Upvote 0
be09 đã viết:
Em xem lại điều kiện (trong hình) cột D chỉ có số 2 và 3 (số 2 thì trùng), cột F thì lại ghi K=0,95 số 1, 3, 6, 7, 10, 11, trong khi cột D thì không có.
Ý anh nêu là em ví dụ không thống nhất thì làm sao hiểu nổi.
Nhấp chuột vào đây để mở rộng...
Đây anh ơi! em update code vào file rồi, giờ làm sao loại bỏ điều kiện
1. cột D có dữ liệu thì ko copy dòng đấy
2. Cột E dữ liệu trống sẽ bỏ qua ko copy dòng đấy
 

File đính kèm

Upvote 0
vova2209 đã viết:
Đây anh ơi! em update code vào file rồi, giờ làm sao loại bỏ điều kiện
1. cột D có dữ liệu thì ko copy dòng đấy
2. Cột E dữ liệu trống sẽ bỏ qua ko copy dòng đấy
Nhấp chuột vào đây để mở rộng...
File bài #1 xử lý được, bài #9 thua
Căn cứ vào đâu bạn tô màu đánh dấu các dòng bài #9? :mad:
 
Upvote 0
HieuCD đã viết:
File bài #1 xử lý được, bài #9 thua
Căn cứ vào đâu bạn tô màu đánh dấu các dòng bài #9? :mad:
Nhấp chuột vào đây để mở rộng...
Code trong file
Cái phần bôi mầu là em đánh dấu code chưa loại bỏ được 2 điều kiện đó khi lấy dữ liệu từ file Data sang
Phần bôi màu xám là em không muốn lấy sang:

Untitled.png

em lấy được 1 code trên mạng giờ muốn tùy biến thêm:
Untitled.png
 
Lần chỉnh sửa cuối:
Upvote 0

File đính kèm

Upvote 0
vova2209 đã viết:
Vâng em cảm ơn! anh giúp em nhé
Nhấp chuột vào đây để mở rộng...
Mã: 
Sub Import_Data()
    Dim shMain As Worksheet, sh As Worksheet
    Dim wb As Workbook
    Dim strFolderPath As String
    Dim selectedFiles As Variant, sCol As Variant
    Dim sArr(), Res(), eRow As Integer, i As Integer, k As Integer, j As Integer
    Dim iFileNum As Integer
    Dim startTime As Double
    getSpeed (True)
    
    eRow = Range("A" & Rows.Count).End(xlUp).Row
    If eRow > 1 Then Range("A2:H" & eRow).ClearContents
    sCol = Array("", "", 3, 8, 27, 37, 0, 40, 41)
    Set shMain = ActiveWorkbook.Sheets("List BB")

    strFolderPath = ActiveWorkbook.Path
    ChDrive strFolderPath
    ChDir strFolderPath
    
    On Error GoTo NoFileSelected
    selectedFiles = Application.GetOpenFilename( _
                    filefilter:="Excel Files (*.xls*),*.xlsx*,*.xlsm*,*.xlsb*", MultiSelect:=True)
    'startTime = Timer
    For iFileNum = LBound(selectedFiles) To UBound(selectedFiles)
        Set wb = Workbooks.Open(selectedFiles(iFileNum))
        k = 0
        For Each sh In wb.Sheets
            If sh.Name Like "*VoVa" Then
                eRow = sh.Range("A" & Rows.Count).End(xlUp).Row
                If eRow > 2 Then
                    sArr = sh.Range("D3:AR" & eRow).Value
                    ReDim Res(LBound(sArr) To UBound(sArr), 1 To 8)
                    For i = LBound(sArr) To UBound(sArr)
                        If Len(sArr(i, 3)) Then
                            If Len(sArr(i, 1)) = 0 Then
                                k = k + 1
                                Res(k, 1) = k
                                For j = 2 To UBound(sCol)
                                    If sCol(j) > 0 Then Res(k, j) = sArr(i, sCol(j))
                                Next j
                            Else
                                Res(k, 2) = Res(k, 2) & ", " & sArr(i, 3)
                            End If
                        End If
                    Next i
                End If
                If k Then
                    eRow = shMain.Range("B" & Rows.Count).End(xlUp).Row
                    If eRow = 1 Then eRow = 2 Else eRow = eRow + 2
                    shMain.Range("A" & eRow).Resize(k, 8) = Res
                End If
            End If
        Next sh
        wb.Close savechanges:=False
    Next
    'MsgBox "Done in " & Int(Timer - startTime) & " s."
    getSpeed (False)
NoFileSelected:
    'MsgBox "Chu*a có File nào duoc chon!"
End Sub
    
'TAT CHE DO TINH TOAN VA CAP NHAT MAN HINH
Function getSpeed(doIt As Boolean)
    Application.ScreenUpdating = Not (doIt)
    Application.EnableEvents = Not (doIt)
    Application.Calculation = IIf(doIt, xlCalculationManual, xlCalculationAutomatic)
End Function
 
Upvote 0
HieuCD đã viết:
Mã: 
Sub Import_Data()
    Dim shMain As Worksheet, sh As Worksheet
    Dim wb As Workbook
    Dim strFolderPath As String
    Dim selectedFiles As Variant, sCol As Variant
    Dim sArr(), Res(), eRow As Integer, i As Integer, k As Integer, j As Integer
    Dim iFileNum As Integer
    Dim startTime As Double
    getSpeed (True)

    eRow = Range("A" & Rows.Count).End(xlUp).Row
    If eRow > 1 Then Range("A2:H" & eRow).ClearContents
    sCol = Array("", "", 3, 8, 27, 37, 0, 40, 41)
    Set shMain = ActiveWorkbook.Sheets("List BB")

    strFolderPath = ActiveWorkbook.Path
    ChDrive strFolderPath
    ChDir strFolderPath

    On Error GoTo NoFileSelected
    selectedFiles = Application.GetOpenFilename( _
                    filefilter:="Excel Files (*.xls*),*.xlsx*,*.xlsm*,*.xlsb*", MultiSelect:=True)
    'startTime = Timer
    For iFileNum = LBound(selectedFiles) To UBound(selectedFiles)
        Set wb = Workbooks.Open(selectedFiles(iFileNum))
        k = 0
        For Each sh In wb.Sheets
            If sh.Name Like "*VoVa" Then
                eRow = sh.Range("A" & Rows.Count).End(xlUp).Row
                If eRow > 2 Then
                    sArr = sh.Range("D3:AR" & eRow).Value
                    ReDim Res(LBound(sArr) To UBound(sArr), 1 To 8)
                    For i = LBound(sArr) To UBound(sArr)
                        If Len(sArr(i, 3)) Then
                            If Len(sArr(i, 1)) = 0 Then
                                k = k + 1
                                Res(k, 1) = k
                                For j = 2 To UBound(sCol)
                                    If sCol(j) > 0 Then Res(k, j) = sArr(i, sCol(j))
                                Next j
                            Else
                                Res(k, 2) = Res(k, 2) & ", " & sArr(i, 3)
                            End If
                        End If
                    Next i
                End If
                If k Then
                    eRow = shMain.Range("B" & Rows.Count).End(xlUp).Row
                    If eRow = 1 Then eRow = 2 Else eRow = eRow + 2
                    shMain.Range("A" & eRow).Resize(k, 8) = Res
                End If
            End If
        Next sh
        wb.Close savechanges:=False
    Next
    'MsgBox "Done in " & Int(Timer - startTime) & " s."
    getSpeed (False)
NoFileSelected:
    'MsgBox "Chu*a có File nào duoc chon!"
End Sub

'TAT CHE DO TINH TOAN VA CAP NHAT MAN HINH
Function getSpeed(doIt As Boolean)
    Application.ScreenUpdating = Not (doIt)
    Application.EnableEvents = Not (doIt)
    Application.Calculation = IIf(doIt, xlCalculationManual, xlCalculationAutomatic)
End Function
Nhấp chuột vào đây để mở rộng...
Code copy nhầm cột đầu tiên rồi anh ơi (cột đầu em muốn là cột E) như ảnh bài #12!
+ Kết quả lấy sang file lay du lieu DaTa chỉnh lại hộ e bắt đầu từ dòng thứ 3
+ Bỏ hộ em code đánh số thứ tự với ạ
 
Lần chỉnh sửa cuối:
Upvote 0
vova2209 đã viết:
Code copy nhầm cột đầu tiên rồi anh ơi (cột đầu em muốn là cột E) như ảnh bài #12!
+ Kết quả lấy sang file lay du lieu DaTa chỉnh lại hộ e bắt đầu từ dòng thứ 3
+ Bỏ hộ em code đánh số thứ tự với ạ
Nhấp chuột vào đây để mở rộng...
Code cho bài #12
Mã: 
Sub Import_Data()
    Dim shMain As Worksheet, sh As Worksheet
    Dim wb As Workbook
    Dim strFolderPath As String
    Dim selectedFiles As Variant, sCol As Variant
    Dim sArr(), Res(), eRow As Integer, i As Integer, k As Integer, j As Integer
    Dim iFileNum As Integer
    Dim startTime As Double
    getSpeed (True)
    
    eRow = Range("A" & Rows.Count).End(xlUp).Row
    If eRow > 1 Then Range("B3:H" & eRow).ClearContents
    sCol = Array("", 2, 8, 27, 37, "", 40, 41)
    Set shMain = ActiveWorkbook.Sheets("List BB")

    strFolderPath = ActiveWorkbook.Path
    ChDrive strFolderPath
    ChDir strFolderPath
    
    On Error GoTo NoFileSelected
    selectedFiles = Application.GetOpenFilename( _
                    filefilter:="Excel Files (*.xls*),*.xlsx*,*.xlsm*,*.xlsb*", MultiSelect:=True)
    'startTime = Timer
    For iFileNum = LBound(selectedFiles) To UBound(selectedFiles)
        Set wb = Workbooks.Open(selectedFiles(iFileNum))
        k = 0
        For Each sh In wb.Sheets
            If sh.Name Like "*VoVa" Then
                eRow = sh.Range("A" & Rows.Count).End(xlUp).Row
                If eRow > 2 Then
                    sArr = sh.Range("D3:AR" & eRow).Value
                    ReDim Res(LBound(sArr) To UBound(sArr), 1 To 7)
                    For i = LBound(sArr) To UBound(sArr)
                        If Len(sArr(i, 2)) Then
                            If Len(sArr(i, 1)) = 0 Then
                                k = k + 1
                                For j = 1 To UBound(sCol)
                                    If j <> 5 Then Res(k, j) = sArr(i, sCol(j))
                                Next j
                                Res(k, 5) = Res(k, 6) - Res(k, 4) + 1
                            End If
                        End If
                    Next i
                End If
                If k Then
                    eRow = shMain.Range("B" & Rows.Count).End(xlUp).Row
                    If eRow < 3 Then eRow = 3 Else eRow = eRow + 2
                    shMain.Range("B" & eRow).Resize(k, 7) = Res
                End If
            End If
        Next sh
        wb.Close savechanges:=False
    Next
    'MsgBox "Done in " & Int(Timer - startTime) & " s."
    getSpeed (False)
NoFileSelected:
    'MsgBox "Chu*a có File nào duoc chon!"
End Sub
 
Upvote 0
Vâng UOTE="HieuCD, post: 867435, member: 373036"]Code cho bài #12
Mã: 
Sub Import_Data()
    Dim shMain As Worksheet, sh As Worksheet
    Dim wb As Workbook
    Dim strFolderPath As String
    Dim selectedFiles As Variant, sCol As Variant
    Dim sArr(), Res(), eRow As Integer, i As Integer, k As Integer, j As Integer
    Dim iFileNum As Integer
    Dim startTime As Double
    getSpeed (True)
   
    eRow = Range("A" & Rows.Count).End(xlUp).Row
    If eRow > 1 Then Range("B3:H" & eRow).ClearContents
    sCol = Array("", 2, 8, 27, 37, "", 40, 41)
    Set shMain = ActiveWorkbook.Sheets("List BB")

    strFolderPath = ActiveWorkbook.Path
    ChDrive strFolderPath
    ChDir strFolderPath
   
    On Error GoTo NoFileSelected
    selectedFiles = Application.GetOpenFilename( _
                    filefilter:="Excel Files (*.xls*),*.xlsx*,*.xlsm*,*.xlsb*", MultiSelect:=True)
    'startTime = Timer
    For iFileNum = LBound(selectedFiles) To UBound(selectedFiles)
        Set wb = Workbooks.Open(selectedFiles(iFileNum))
        k = 0
        For Each sh In wb.Sheets
            If sh.Name Like "*VoVa" Then
                eRow = sh.Range("A" & Rows.Count).End(xlUp).Row
                If eRow > 2 Then
                    sArr = sh.Range("D3:AR" & eRow).Value
                    ReDim Res(LBound(sArr) To UBound(sArr), 1 To 7)
                    For i = LBound(sArr) To UBound(sArr)
                        If Len(sArr(i, 2)) Then
                            If Len(sArr(i, 1)) = 0 Then
                                k = k + 1
                                For j = 1 To UBound(sCol)
                                    If j <> 5 Then Res(k, j) = sArr(i, sCol(j))
                                Next j
                                Res(k, 5) = Res(k, 6) - Res(k, 4) + 1
                            End If
                        End If
                    Next i
                End If
                If k Then
                    eRow = shMain.Range("B" & Rows.Count).End(xlUp).Row
                    If eRow < 3 Then eRow = 3 Else eRow = eRow + 2
                    shMain.Range("B" & eRow).Resize(k, 7) = Res
                End If
            End If
        Next sh
        wb.Close savechanges:=False
    Next
    'MsgBox "Done in " & Int(Timer - startTime) & " s."
    getSpeed (False)
NoFileSelected:
    'MsgBox "Chu*a có File nào duoc chon!"
End Sub
[/QUOTE]
Vâng chiều về em xem.. Có j mắc giúp e nốt nhé
 
Upvote 0
HieuCD đã viết:
Code cho bài #12
Mã: 
Sub Import_Data()
    Dim shMain As Worksheet, sh As Worksheet
    Dim wb As Workbook
    Dim strFolderPath As String
    Dim selectedFiles As Variant, sCol As Variant
    Dim sArr(), Res(), eRow As Integer, i As Integer, k As Integer, j As Integer
    Dim iFileNum As Integer
    Dim startTime As Double
    getSpeed (True)

    eRow = Range("A" & Rows.Count).End(xlUp).Row
    If eRow > 1 Then Range("B3:H" & eRow).ClearContents
    sCol = Array("", 2, 8, 27, 37, "", 40, 41)
    Set shMain = ActiveWorkbook.Sheets("List BB")

    strFolderPath = ActiveWorkbook.Path
    ChDrive strFolderPath
    ChDir strFolderPath

    On Error GoTo NoFileSelected
    selectedFiles = Application.GetOpenFilename( _
                    filefilter:="Excel Files (*.xls*),*.xlsx*,*.xlsm*,*.xlsb*", MultiSelect:=True)
    'startTime = Timer
    For iFileNum = LBound(selectedFiles) To UBound(selectedFiles)
        Set wb = Workbooks.Open(selectedFiles(iFileNum))
        k = 0
        For Each sh In wb.Sheets
            If sh.Name Like "*VoVa" Then
                eRow = sh.Range("A" & Rows.Count).End(xlUp).Row
                If eRow > 2 Then
                    sArr = sh.Range("D3:AR" & eRow).Value
                    ReDim Res(LBound(sArr) To UBound(sArr), 1 To 7)
                    For i = LBound(sArr) To UBound(sArr)
                        If Len(sArr(i, 2)) Then
                            If Len(sArr(i, 1)) = 0 Then
                                k = k + 1
                                For j = 1 To UBound(sCol)
                                    If j <> 5 Then Res(k, j) = sArr(i, sCol(j))
                                Next j
                                Res(k, 5) = Res(k, 6) - Res(k, 4) + 1
                            End If
                        End If
                    Next i
                End If
                If k Then
                    eRow = shMain.Range("B" & Rows.Count).End(xlUp).Row
                    If eRow < 3 Then eRow = 3 Else eRow = eRow + 2
                    shMain.Range("B" & eRow).Resize(k, 7) = Res
                End If
            End If
        Next sh
        wb.Close savechanges:=False
    Next
    'MsgBox "Done in " & Int(Timer - startTime) & " s."
    getSpeed (False)
NoFileSelected:
    'MsgBox "Chu*a có File nào duoc chon!"
End Sub
Nhấp chuột vào đây để mở rộng...
Bỏ cho em cái code trừ ngày ở cột F này với
em xóa đoạn code này, em điền tay 1 công thức khác vào cột F khi chạy code thì toàn bị xóa dữ liệu cột F
Res(k, 5) = Res(k, 6) - Res(k, 4) + 1


Untitled.png
 
Lần chỉnh sửa cuối:
Upvote 0
vova2209 đã viết:
Bị lỗi khi lấy thêm dữ liệu file tiếp theo, nó xóa mất dòng đầu tiên, anh xem dùm hộ em

View attachment 199270

View attachment 199271
Nhấp chuột vào đây để mở rộng...
Mình nhầm v
vova2209 đã viết:
Bỏ cho em cái code trừ ngày ở cột F này với
em xóa đoạn code này, em điền tay 1 công thức khác vào cột F khi chạy code thì toàn bị xóa dữ liệu cột F
Res(k, 5) = Res(k, 6) - Res(k, 4) + 1


View attachment 199276
Nhấp chuột vào đây để mở rộng...
Để lại cột F chi cho rối, sao không để code tính luôn cho gọn
Mã: 
Sub Import_Data()
    Dim shMain As Worksheet, sh As Worksheet
    Dim wb As Workbook
    Dim strFolderPath As String
    Dim selectedFiles As Variant, sCol As Variant
    Dim sArr(), Res1(), Res2(), eRow As Integer, i As Integer, k As Integer, j As Integer
    Dim iFileNum As Integer
    Dim startTime As Double
    getSpeed (True)
    
    eRow = Range("B" & Rows.Count).End(xlUp).Row
    If eRow > 1 Then
      Range("B3:E" & eRow).ClearContents
      Range("G3:H" & eRow).ClearContents
    End If
    sCol = Array("", 2, 8, 27, 37, "", 40, 41)
    Set shMain = ActiveWorkbook.Sheets("List BB")

    strFolderPath = ActiveWorkbook.Path
    ChDrive strFolderPath
    ChDir strFolderPath
    
    On Error GoTo NoFileSelected
    selectedFiles = Application.GetOpenFilename( _
                    filefilter:="Excel Files (*.xls*),*.xlsx*,*.xlsm*,*.xlsb*", MultiSelect:=True)
    'startTime = Timer
    For iFileNum = LBound(selectedFiles) To UBound(selectedFiles)
        Set wb = Workbooks.Open(selectedFiles(iFileNum))
        For Each sh In wb.Sheets
            If sh.Name Like "*VoVa" Then
                eRow = sh.Range("A" & Rows.Count).End(xlUp).Row
                If eRow > 2 Then
                    sArr = sh.Range("D3:AR" & eRow).Value
                    ReDim Res1(LBound(sArr) To UBound(sArr), 1 To 4)
                    ReDim Res2(LBound(sArr) To UBound(sArr), 1 To 2)
                    k = 0
                    For i = LBound(sArr) To UBound(sArr)
                        If Len(sArr(i, 2)) Then
                            If Len(sArr(i, 1)) = 0 Then
                                k = k + 1
                                For j = 1 To 4
                                    Res1(k, j) = sArr(i, sCol(j))
                                Next j
                                Res2(k, 1) = sArr(i, sCol(6))
                                Res2(k, 2) = sArr(i, sCol(7))
                            End If
                        End If
                    Next i
                End If
                If k Then
                    eRow = shMain.Range("B" & Rows.Count).End(xlUp).Row
                    If eRow < 3 Then eRow = 3 Else eRow = eRow + 2
                    shMain.Range("B" & eRow).Resize(k, 4) = Res1
                    shMain.Range("G" & eRow).Resize(k, 2) = Res2
                End If
            End If
        Next sh
        wb.Close savechanges:=False
    Next
    'MsgBox "Done in " & Int(Timer - startTime) & " s."
    getSpeed (False)
NoFileSelected:
    'MsgBox "Chu*a có File nào duoc chon!"
End Sub
 
Upvote 0
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

Bài viết mới nhất

C
  • Question Question
Xin hỏi Cách viết chú thích trong vba hiển thị tiếng việt (1 người xem)
Trả lời
4
Đọc
129
ongke0711
ongke0711
B
Xin giải pháp chống sửa, xóa dữ liệu đã nhập vào từ ngày hôm trước. (2 người xem)
    • Thích
2
Trả lời
28
Đọc
7K
Hoàng Tuấn 868
H
G
Xin Code xóa Module. (1 người xem)
Trả lời
8
Đọc
273
huhumalu
H
00029591
Cần hỗ trợ công thức tổng hợp dữ liệu không cần cột phụ Vlookup
Trả lời
3
Đọc
146
tle2003
T
D
  • Đã giải quyết
Quản lý email outlook qua VBA cần giúp đỡ
2
Trả lời
22
Đọc
545
nguyendang95
N
S
Mở 2 cửa sổ riêng biệt
2
Trả lời
30
Đọc
23K
sakuraluu
S
F
Nhập dấu . (chấm) ở bàn phím phụ không tự chuyển thành dấu , (phẩy)
Trả lời
16
Đọc
57K
tubaodn21
tubaodn21
PhanTuHuong
Sách Lập trình VBA trong AutoCAD đã có mặt
    • Thích
    • Yêu thích
2
Trả lời
21
Đọc
1K
PhanTuHuong
PhanTuHuong
L
Lỗi font khi convert từ pdf
Trả lời
3
Đọc
138
lamvu0677
L
N
Khắc phục lỗi "The picture is too large and will be truncated" (1 người xem)
Trả lời
9
Đọc
5K
SonBDND
S
GPE-Trợ Lý
[GPE] TALKSHOW: PHÂN TÍCH BÁO CÁO ĐỘ NHẠY SỬ DỤNG EXCEL SOLVER (1 người xem)
    • Thích
Trả lời
0
Đọc
2K
GPE-Trợ Lý
GPE-Trợ Lý
K
  • Question Question
nhờ ace giúp đỡ tự động filter và In hàng loạt từng mục trong piviot table (1 người xem)
Trả lời
1
Đọc
119
khkkh
K
K
Xin dax tính tỷ trọng doanh thu
Trả lời
18
Đọc
797
SteveNguyen1991
S
F
  • Question Question
Tự động Merge Mail bằng VBA
Trả lời
6
Đọc
228
Hoàng Tuấn 868
H
N
Một ví dụ về XLL add-in: Tương tác với Google Gemini dưới dạng công thức bảng tính (2 người xem)
    • Thích
Trả lời
0
Đọc
146
nguyendang95
N
H
Nhờ anh/chị giúp đỡ em viết công thức trừ dữ liệu theo FiFo
Trả lời
1
Đọc
138
HieuCD
H
BNTT
LockXLS - Chương trình bảo vệ an toàn cho các file bảng tính Excel
    • Thích
4 5 6
Trả lời
118
Đọc
73K
YêuCN
Y
vsitcnh
Hỗ trợ công thức tính điểm dựa theo điều kiện.
Trả lời
14
Đọc
223
thuytrangbp28
T
micam111
  • Question Question
Cách chạy nhiều đồng hồ đếm giờ trong VBA
Trả lời
4
Đọc
712
thuytrangbp28
T
Emyeuexcel
  • Question Question
In tất cả các file trong cùng 1 thư mục (1 người xem)
Trả lời
3
Đọc
240
Hoàng Tuấn 868
H
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Đếm ngược thời gian

000
Ngày
00
Giờ
00
phút
00
giây
TALK SHOW: CÙNG NHẢY LAM BA ĐA VỚI HÀM LAMBDA (λ) EXCEL 365
Back
Top Bottom