Tốc độ ẩn hàng không cần thiết VBA

Liên hệ QC
V

Vo Duy Minh

Thành viên hoạt động
Tham gia
21/3/19
Bài viết
113
Được thích
32
Chào các bạn,

Tôi có lệnh VBA đẻ ẩn hàng các hàng không có thông số (bằng cách đánh dấu cột D số 1 làm ChkCol).
Vấn đề là nếu chỉ có khoảng vài trăm hàng thì lệnh chạy còn chấp nhận được, nhưng khi lên đến 3000 hàng (trong đó có khoảng 2.500 hàng cần ẩn) thì tốc độ quá chậm (có lẽ cả 30 phút không chừng).
Thời đại 4.0 thế thì khó chấp nhận được vì thà ẩn hàng manually thì còn nhanh hơn.
Rất mong được các bạn giúp được lệnh để đẩy nhanh tốc độ xử lý khả quan hơn.
Xin cám ơn các bạn trước.

Sub HideRows_Day()
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Application.DisplayStatusBar = False
Application.EnableEvents = False
ActiveSheet.Protect UserInterfaceOnly:=True

BeginRow = 8
EndRow = 3000
ChkCol = 4

For RowCnt = BeginRow To EndRow
If Cells(RowCnt, ChkCol).Value = 1 Then
Cells(RowCnt, ChkCol).EntireRow.Hidden = True
Else
Cells(RowCnt, ChkCol).EntireRow.Hidden = False
End If
Next RowCnt
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Application.DisplayStatusBar = True
Application.EnableEvents = True
Range("b6").Select
ActiveWindow.SmallScroll
End Sub
 
Sắp xếp theo thời gian sắp xếp theo bầu chọn
Thử thay đoạn
Mã: 
For rowcnt = BeginRow To EndRow
If Cells(rowcnt, ChkCol).Value = 1 Then
Cells(rowcnt, ChkCol).EntireRow.Hidden = True
Else
Cells(rowcnt, ChkCol).EntireRow.Hidden = False
End If
Next rowcnt
bằng đoạn
Mã: 
Dim rng As Range
Range("A" & BeginRow).Resize(EndRow - BeginRow + 1).EntireRow.Hidden = True
For rowcnt = BeginRow To EndRow
    If Cells(rowcnt, ChkCol).Value <> 1 Then
        If rng Is Nothing Then
            Set rng = Range("A" & rowcnt)
        Else
            Set rng = Union(rng, Range("A" & rowcnt))
        End If
    End If
Next rowcnt
If Not rng Is Nothing Then rng.EntireRow.Hidden = False
 
Upvote 0
Vo Duy Minh đã viết:
Chào các bạn,

Tôi có lệnh VBA đẻ ẩn hàng các hàng không có thông số (bằng cách đánh dấu cột D số 1 làm ChkCol).
Vấn đề là nếu chỉ có khoảng vài trăm hàng thì lệnh chạy còn chấp nhận được, nhưng khi lên đến 3000 hàng (trong đó có khoảng 2.500 hàng cần ẩn) thì tốc độ quá chậm (có lẽ cả 30 phút không chừng).
Thời đại 4.0 thế thì khó chấp nhận được vì thà ẩn hàng manually thì còn nhanh hơn.
Rất mong được các bạn giúp được lệnh để đẩy nhanh tốc độ xử lý khả quan hơn.
Xin cám ơn các bạn trước.

Sub HideRows_Day()
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Application.DisplayStatusBar = False
Application.EnableEvents = False
ActiveSheet.Protect UserInterfaceOnly:=True

BeginRow = 8
EndRow = 3000
ChkCol = 4

For RowCnt = BeginRow To EndRow
If Cells(RowCnt, ChkCol).Value = 1 Then
Cells(RowCnt, ChkCol).EntireRow.Hidden = True
Else
Cells(RowCnt, ChkCol).EntireRow.Hidden = False
End If
Next RowCnt
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Application.DisplayStatusBar = True
Application.EnableEvents = True
Range("b6").Select
ActiveWindow.SmallScroll
End Sub
Nhấp chuột vào đây để mở rộng...
Câu hỏi đặt ra là Bạn ẩn dòng để làm gì? Có phải bạn muốn lọc dữ liệu theo một điều kiện nào đó? Nếu vậy bạn có thể dùng cách khác: Advanced Filter chẳng hạn
Cuối cùng: nếu bạn vẫn chưa tự làm được, hãy cho file lên đây
 
Upvote 0
Tôi chưa thử xem lệnh của bạn effective thế nào.
Tuy nhiên phản hồi cực nhanh của bạn rất đáng trân trọng.
Chân thành cảm ơn bạn.
Bài đã được tự động gộp:

Chào bạn "batman1"
Tuyệt vời còn hơn real Batman nữa.
Lệnh trước của tôi chạy nửa tiếng chưa xong,
thay bằng lệnh của bạn thì nó chạy trong "3 GIÂY"
Tôi hết sức cảm ơn bạn.
Chúc bạn nhiều sức khỏe và luôn tiếp tục prompt reply và reply effectively.
 
Lần chỉnh sửa cuối:
Upvote 0
Vo Duy Minh đã viết:
thay bằng lệnh của bạn thì nó chạy trong "3 GIÂY"
Nhấp chuột vào đây để mở rộng...
Tức thao tác trên sheet (EntireRow.Hidden) chỉ làm 2 lần thay cho làm 2993 lần như bạn làm. Mọi thao tác trên sheet rất chậm. Vì thế để đổ vd. 50 000 số lên sheet thì không ai đổ vào từng ô. Phải nhập 50 000 giá trị "đó" vào mảng rồi đổ 1 lần xuống sheet.
 
Upvote 0
Nguyễn Hoàng Nhật Phương? Hình như cô quân nhân này hồi xưa tên là Nguyễn Hoàng Oanh Thơ chứ nhỉ.
 
Upvote 0
batman1 đã viết:
Tức thao tác trên sheet (EntireRow.Hidden) chỉ làm 2 lần thay cho làm 2993 lần như bạn làm. Mọi thao tác trên sheet rất chậm. Vì thế để đổ vd. 50 000 số lên sheet thì không ai đổ vào từng ô. Phải nhập 50 000 giá trị "đó" vào mảng rồi đổ 1 lần xuống sheet.
Nhấp chuột vào đây để mở rộng...

Cám ơn bạn thêm một lần nữa.
Tôi không giỏi gì với VBA, nhưng khái niệm của bạn giúp tôi nắm thêm vấn đề rõ hơn nhiều.
Tôi sẽ cố gắng suy từ đó khi cần thiết với những trường hợp khác.
Dĩ nhiên sau khi HIde thì tôi cũng có Show để bung ra, tốc độ cũng chấp nhận được (khoảng 5 đến 10 giây).
Nhưng không dám làm phiền bạn thêm nữa.
Chúc bạn một buổi tối ngủ ngon.
Một lần nữa, xin cám ơn bạn, tôi vẫn còn sững sở với tốc độ xử lý mà lệnh của bạn giúp tôi.
 
Upvote 0
batman1 đã viết:
Nguyễn Hoàng Nhật Phương? Hình như cô quân nhân này hồi xưa tên là Nguyễn Hoàng Oanh Thơ chứ nhỉ.
Nhấp chuột vào đây để mở rộng...
Con chào Bác Siwtom
Cảm ơn Bác đã quan tâm và nhớ đến con ạ huhu T_T
Dạ vâng Bác, Nhật Phương là tên bé gái nhà con năm nay cháu được 3 tuổi Bác ạ,con muốn thay đổi một chút nên đã nhờ BQT đổi tên.
Bác dạo này có khỏe không ạ?
Oanh Thơ
 
Upvote 0
Nguyễn Hoàng Nhật Phương đã viết:
Con chào Bác Siwtom
Cảm ơn Bác đã quan tâm và nhớ đến con ạ huhu T_T
Dạ vâng Bác, Nhật Phương là tên bé gái nhà con năm nay cháu được 3 tuổi Bác ạ,con muốn thay đổi một chút nên đã nhờ BQT đổi tên.
Bác dạo này có khỏe không ạ?
Oanh Thơ
Nhấp chuột vào đây để mở rộng...
Cám ơn bạn đã hỏi thăm. Sức khoẻ thì bình thường nhưng hơi "mệt" vì cô Vi. Ở Hà Nội mọi người cũng cố gắng nhé. Đợt này hơi nguy hiểm.
 
Upvote 0
batman1 đã viết:
Cám ơn bạn đã hỏi thăm. Sức khoẻ thì bình thường nhưng hơi "mệt" vì cô Vi. Ở Hà Nội mọi người cũng cố gắng nhé. Đợt này hơi nguy hiểm.
Nhấp chuột vào đây để mở rộng...
Con chào bác Siwtom,
Con cảm ơn Bác đã gửi lời ạ, hic tự nhiên con cảm thấy xúc động ... có thể vì ký ức quá khứ tràn về khi con nhớ đến người ông (đã mất) của mình và con nhớ lại khoảng thời gian khi được Bác giúp đỡ & tận tình chỉ dẫn ...
Con cầu chúc Bác cùng gia đình ở phương xa luôn mạnh khỏe & công tác tốt.
Oanh Thơ.
 
Upvote 0
"công tác tốt" ở trời tây người ta hiếm xài trong giao tiếp lắm!

Tuy nhiên, khi gặp nhau người ta buông câu: "Công việc thế nào?", nhưng chủ iếu gần như là hỏi về sức khỏe.
 
Upvote 0
batman1 đã viết:
Thử thay đoạn
Mã: 
For rowcnt = BeginRow To EndRow
If Cells(rowcnt, ChkCol).Value = 1 Then
Cells(rowcnt, ChkCol).EntireRow.Hidden = True
Else
Cells(rowcnt, ChkCol).EntireRow.Hidden = False
End If
Next rowcnt
bằng đoạn
Mã: 
Dim rng As Range
Range("A" & BeginRow).Resize(EndRow - BeginRow + 1).EntireRow.Hidden = True
For rowcnt = BeginRow To EndRow
    If Cells(rowcnt, ChkCol).Value <> 1 Then
        If rng Is Nothing Then
            Set rng = Range("A" & rowcnt)
        Else
            Set rng = Union(rng, Range("A" & rowcnt))
        End If
    End If
Next rowcnt
If Not rng Is Nothing Then rng.EntireRow.Hidden = False
Nhấp chuột vào đây để mở rộng...
Bác hay quá, kiểu tư duy sáng tạo như cách viết đoạn code này có học được không ạ?
 
Upvote 0
Chào bạn batman1,
Một lần nữa tôi rất cám ơn bạn đã giúp cho tôi lệnh ẩn hàng không cần thiết. Trước đây tôi cứ phải khổ sở "cân đo đong đếm" để số hàng không vượt quá 3000, vì nhiêu đó có khi mất đến 4, 5 phút mới ẩn hết hàng. Với lệnh của bạn tôi đã đưa số hàng lên đến gần 30.000 mà nó mất chỉ hai ba giây là xong hết.
Thật là tuyệt với, bạn đã giúp tôi giải quyết rất nhiều việc.
Hôm nay tôi xin được bạn giúp thêm một chút.
Tôi muốn viết một lệnh (như lệnh ẩn hàng lần trước), nhưng thay vì chỉ thực hiện với một sheet đang mở (active sheet) thì lệnh được thực thi với những sheet mà tôi khai báo (có thể 5 sheet)
Như lệnh Hiderows dưới đây

Sub HideRows_Day ()
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Application.DisplayStatusBar = False
Application.EnableEvents = False
ActiveSheet.Protect UserInterfaceOnly:=True

BeginRow = 6
EndRow = 3000
ChkCol = 4

Dim rng As Range
Range("A" & BeginRow).Resize(EndRow - BeginRow + 1).EntireRow.Hidden = True
For rowcnt = BeginRow To EndRow
If Cells(rowcnt, ChkCol).Value <> 1 Then
If rng Is Nothing Then
Set rng = Range("A" & rowcnt)
Else
Set rng = Union(rng, Range("A" & rowcnt))
End If
End If
Next rowcnt
If Not rng Is Nothing Then rng.EntireRow.Hidden = False

Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Application.DisplayStatusBar = True
Application.EnableEvents = True
Range("b6").Select
ActiveWindow.SmallScroll
End Sub

thì cái ActiveSheet chỉ cho ẩn hàng sheet đang mở, nếu mình muốn cùng lúc lệnh sẽ được thực thi với nhiều sheet khác thì sao.

Xin cám ơn bạn trước.
 
Upvote 0
Vo Duy Minh đã viết:
Chào bạn batman1,
Một lần nữa tôi rất cám ơn bạn đã giúp cho tôi lệnh ẩn hàng không cần thiết. Trước đây tôi cứ phải khổ sở "cân đo đong đếm" để số hàng không vượt quá 3000, vì nhiêu đó có khi mất đến 4, 5 phút mới ẩn hết hàng. Với lệnh của bạn tôi đã đưa số hàng lên đến gần 30.000 mà nó mất chỉ hai ba giây là xong hết.
Thật là tuyệt với, bạn đã giúp tôi giải quyết rất nhiều việc.
Hôm nay tôi xin được bạn giúp thêm một chút.
Tôi muốn viết một lệnh (như lệnh ẩn hàng lần trước), nhưng thay vì chỉ thực hiện với một sheet đang mở (active sheet) thì lệnh được thực thi với những sheet mà tôi khai báo (có thể 5 sheet)
Như lệnh Hiderows dưới đây

Sub HideRows_Day ()
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Application.DisplayStatusBar = False
Application.EnableEvents = False
ActiveSheet.Protect UserInterfaceOnly:=True

BeginRow = 6
EndRow = 3000
ChkCol = 4

Dim rng As Range
Range("A" & BeginRow).Resize(EndRow - BeginRow + 1).EntireRow.Hidden = True
For rowcnt = BeginRow To EndRow
If Cells(rowcnt, ChkCol).Value <> 1 Then
If rng Is Nothing Then
Set rng = Range("A" & rowcnt)
Else
Set rng = Union(rng, Range("A" & rowcnt))
End If
End If
Next rowcnt
If Not rng Is Nothing Then rng.EntireRow.Hidden = False

Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Application.DisplayStatusBar = True
Application.EnableEvents = True
Range("b6").Select
ActiveWindow.SmallScroll
End Sub

thì cái ActiveSheet chỉ cho ẩn hàng sheet đang mở, nếu mình muốn cùng lúc lệnh sẽ được thực thi với nhiều sheet khác thì sao.

Xin cám ơn bạn trước.
Nhấp chuột vào đây để mở rộng...
Bạn thử tham khảo code dưới nhé:
Rich (BB code): 
Sub HideRows_Day()

Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Application.DisplayStatusBar = False
Application.EnableEvents = False
ActiveSheet.Protect UserInterfaceOnly:=True

BeginRow = 6
EndRow = 3000
ChkCol = 4

Dim sh As Worksheet
Dim rng As Range

    For Each sh In ThisWorkbook.Sheets
        Range("A" & BeginRow).Resize(EndRow - BeginRow + 1).EntireRow.Hidden = True
        For rowcnt = BeginRow To EndRow
        If Cells(rowcnt, ChkCol).Value <> 1 Then
            If rng Is Nothing Then
                Set rng = Range("A" & rowcnt)
            Else
                Set rng = Union(rng, Range("A" & rowcnt))
            End If
        End If
    Next rowcnt
    If Not rng Is Nothing Then rng.EntireRow.Hidden = False
    Next sh

Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Application.DisplayStatusBar = True
Application.EnableEvents = True
Range("b6").Select
ActiveWindow.SmallScroll

End Sub
 
Upvote 0
phuocam đã viết:
Code chỉ làm việc trên Active sheet.

EndRow = 3000 => Dữ liệu ít hay nhiều, nó cũng chạy đến đây.

EndRow nên theo dữ liệu của trang tính.
Nhấp chuột vào đây để mở rộng...

Chắc là thế này ạ:
Mã: 
'.................
    BeginRow = 6
    ChkCol = 4
    Dim sh As Worksheet, rng As Range
    For Each sh In ThisWorkbook.Sheets
        EndRow = sh.Cells(sh.Rows.Count, "A").End(xlUp).Row
        sh.Range("A" & BeginRow).Resize(EndRow - BeginRow + 1).EntireRow.Hidden = True
        For rowcnt = BeginRow To EndRow
        If Cells(rowcnt, ChkCol).Value <> 1 Then
            If rng Is Nothing Then
                Set rng = sh.Range("A" & rowcnt)
            Else
                Set rng = Union(rng, sh.Range("A" & rowcnt))
            End If
        End If
    Next rowcnt
    If Not rng Is Nothing Then rng.EntireRow.Hidden = False
    sh.Range("b6").Select
    Next sh
'.................
 
Upvote 0
PHP: 
For Each sh In Array("Sheet1", "Sheet2", "Sheet3", "Sheet4") 'Change here
    With Sheets(sh)
        EndRow = .Range("A" & .Rows.Count).End(xlUp).Row
        .Range("A" & BeginRow).Resize(EndRow - BeginRow + 1).EntireRow.Hidden = True
        For rowcnt = BeginRow To EndRow
            If .Cells(rowcnt, ChkCol).Value <> 1 Then
                If rng Is Nothing Then
                    Set rng = .Range("A" & rowcnt)
                Else
                    Set rng = Union(rng, .Range("A" & rowcnt))
                End If
            End If
        Next rowcnt
        If Not rng Is Nothing Then rng.EntireRow.Hidden = False
        Set rng = Nothing
    End With
Next sh
 
Upvote 0
quick87 đã viết:
Bạn thử tham khảo code dưới nhé:
Rich (BB code): 
Sub HideRows_Day()

Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Application.DisplayStatusBar = False
Application.EnableEvents = False
ActiveSheet.Protect UserInterfaceOnly:=True

BeginRow = 6
EndRow = 3000
ChkCol = 4

Dim sh As Worksheet
Dim rng As Range

    For Each sh In ThisWorkbook.Sheets
        Range("A" & BeginRow).Resize(EndRow - BeginRow + 1).EntireRow.Hidden = True
        For rowcnt = BeginRow To EndRow
        If Cells(rowcnt, ChkCol).Value <> 1 Then
            If rng Is Nothing Then
                Set rng = Range("A" & rowcnt)
            Else
                Set rng = Union(rng, Range("A" & rowcnt))
            End If
        End If
    Next rowcnt
    If Not rng Is Nothing Then rng.EntireRow.Hidden = False
    Next sh

Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Application.DisplayStatusBar = True
Application.EnableEvents = True
Range("b6").Select
ActiveWindow.SmallScroll

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


Cám ơn bạn đã phản hồi rất nhanh chóng.
Vấn đề của tôi là trong workbook thì có nhiều sheets, nhưng tôi chỉ muốn một số sheets cùng loại trong đó mà thôi (đều có Endrow = 3000), còn những sheets khác thì không bị ảnh hưởng.
Tôi cũng vừa thử dùng lệnh bạn vừa gửi nhưng nó vẫn không ảnh hưởng đến các sheets khác, cũng chỉ hide sheet đang mở mà thôi.
 
Upvote 0
phuocam đã viết:
Code chỉ làm việc trên Active sheet.

EndRow = 3000 => Dữ liệu ít hay nhiều, nó cũng chạy đến đây.

EndRow nên theo dữ liệu của trang tính.
Nhấp chuột vào đây để mở rộng...
Cảm ơn @phuocam và @NHN_Phương ! Lại được học thêm kiến thức của mọi người chia sẻ!

Vo Duy Minh đã viết:
Cám ơn bạn đã phản hồi rất nhanh chóng.
Vấn đề của tôi là trong workbook thì có nhiều sheets, nhưng tôi chỉ muốn một số sheets cùng loại trong đó mà thôi (đều có Endrow = 3000), còn những sheets khác thì không bị ảnh hưởng.
Tôi cũng vừa thử dùng lệnh bạn vừa gửi nhưng nó vẫn không ảnh hưởng đến các sheets khác, cũng chỉ hide sheet đang mở mà thôi.
Nhấp chuột vào đây để mở rộng...
Bạn tham khảo 2 bài viết trên của @phuocam và @NHN_Phương nhé.
 
Upvote 0
phuocam đã viết:
PHP: 
For Each sh In Array("Sheet1", "Sheet2", "Sheet3", "Sheet4") 'Change here
    With Sheets(sh)
        EndRow = .Range("A" & .Rows.Count).End(xlUp).Row
        .Range("A" & BeginRow).Resize(EndRow - BeginRow + 1).EntireRow.Hidden = True
        For rowcnt = BeginRow To EndRow
            If .Cells(rowcnt, ChkCol).Value <> 1 Then
                If rng Is Nothing Then
                    Set rng = .Range("A" & rowcnt)
                Else
                    Set rng = Union(rng, .Range("A" & rowcnt))
                End If
            End If
        Next rowcnt
        If Not rng Is Nothing Then rng.EntireRow.Hidden = False
        Set rng = Nothing
    End With
Next sh
Nhấp chuột vào đây để mở rộng...

Chào bạn @phuocam
Tôi thử dùng code bạn gửi, nhưng không được. Nó báo "Subscript out of range"
Tôi vẫn còn nhớ tên của bạn, trước đây bạn đã giúp tôi viết một hàm excel, tôi đã ứng dụng hướng dẫn của bạn và đã giải quyết được rất nhiều cho công việc của tôi.
Một lần nữa, rất cám ơn bạn.
 
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

triplet123
GIÚP EM VỚI Ạ EM CẢM ƠN MỌI NGƯỜI NHIỀU Ạ
    • Phẫn nộ
Trả lời
2
Đọc
50
DeTong
D
PhanTuHuong
Bàn về môn thể thao bóng bàn nào!
    • Thích
    • Yêu thích
    • Cười
2
Trả lời
36
Đọc
2K
Tuấn Bụng Bự
Tuấn Bụng Bự
Tuấn Bụng Bự
  • Question
Tìm Bộ 8 số xuất hiện nhiều nhất trong random( 1 - 80)
2
Trả lời
31
Đọc
747
Tuấn Bụng Bự
Tuấn Bụng Bự
S
  • Question
Xin file excel bảng giá quần áo, trang phục, phụ kiện
Trả lời
2
Đọc
33
VetMini
V
P
Tổng hợp dữ liệu từ các sheet theo chọn lọc
Trả lời
19
Đọc
344
VetMini
V
dung09031989
Xin giúp công thức tô màu các ô phía sau khi kế hoạch đặt hàng thiếu so với tồn kho.?
Trả lời
4
Đọc
131
VetMini
V
C
Chia sẻ: Kết quả xổ số Keno
    • Cười
    • Thích
Trả lời
13
Đọc
343
VetMini
V
P
Nhờ giúp đỡ hàm lọc dữ liệu theo tỉnh
Trả lời
9
Đọc
120
VetMini
V
H
Tính và sắp xếp theo thư tự tăng dần có điều kiệu (có dữ liệu trùng nhau)
Trả lời
2
Đọc
65
longtay1111
L
nobita994
Trừ số lượng dần theo dòng khi quét Sumif tổng có tên sản phẩm bị trùng.
Trả lời
0
Đọc
37
nobita994
nobita994
kimtanmap
  • Question
Nhờ viết code VBA Macro lập lại.
Trả lời
6
Đọc
208
kimtanmap
kimtanmap
20050911
File Excel lỗi ''The file could not be accessed. Try one of the following:.."
Trả lời
4
Đọc
181
VetMini
V
ongke0711
  • Question
Trộn dữ liệu từ Excel sang Word mở rộng (phiên bản ongke0711)
    • Thích
    • Yêu thích
    • Cảm ơn
11 12 13
Trả lời
257
Đọc
25K
Pham Ha 233
Pham Ha 233
C
Công thức tự nhập liệu số lượng nhập khi bị âm
Trả lời
2
Đọc
121
cherry0187
C
N
Vẽ biểu đồ kết hợp nhiều yếu tố trong excel
Trả lời
4
Đọc
128
Ny Ny 2024
N
ongke0711
  • Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba
    • Thích
    • Yêu thích
11 12 13
Trả lời
251
Đọc
13K
ongke0711
ongke0711
N
Định mức nguyên vật liệu
Trả lời
1
Đọc
175
yeudoi
yeudoi
GPE-Trợ Lý
KHÓA HỌC BỨT PHÁ KỸ NĂNG EXCEL
    • Thích
Trả lời
1
Đọc
326
PhanTuHuong
PhanTuHuong
B
Định dạng condition formatting, đếm hỗn hợp dữ liệu merge và không merge
Trả lời
17
Đọc
212
batista911
B
V
  • Question
Lấy dữ liệu lãi suất từ website Sbv.gov.vn bằng Power Query
Trả lời
1
Đọc
527
Minhhanhsgu
M
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

Back
Top Bottom