Liệu excel có chạy kịp!

Liên hệ QC
duyhuynh9922

duyhuynh9922

Thành viên mới
Tham gia
25/10/21
Bài viết
16
Được thích
8
Xin chào các anh, chi. Hiện tại em có 1 thắc mắc là khi thực hiện đoạn code này với số lượng khoảng 3000 công nhân thì liệu excel có kịp load đúng dữ liệu cần in không ạ. Với mỗi ô tô màu vàng thì đều sử dụng hàm vLookup. Mong đc giải đáp!!!
Mã: 
Public Sub PRINTING()
    Dim MAX, U, Y, A As Integer
    Dim SARR()
    Dim WSPR, WSDT As Worksheet
    Dim DA, DB, DC, DD, DE
    Application.ActivePrinter = "RICOH Aficio MP 4001 PCL 6 ON NE00:"
    Application.Calculation = xlCalculationAutomatic
    Set WSDT = ThisWorkbook.Sheets("DD")
    Set WSPR = ThisWorkbook.Sheets("FF")
    MAX = WSDT.Range("A" & Rows.Count).End(xlUp).Row
    SARR = WSDT.Range("A1:C" & MAX).Value

DC = MAX Mod 5

If DC = 0 Then
   
    For A = 1 To UBound(SARR)
       
            Y = Y + 1
            If Y = 1 Then
                WSPR.Range("A5").Value = SARR(A, 1)
            ElseIf Y = 2 Then
                    WSPR.Range("A15").Value = SARR(A, 1)
            ElseIf Y = 3 Then
                    WSPR.Range("A25").Value = SARR(A, 1)
            ElseIf Y = 4 Then
                    WSPR.Range("A35").Value = SARR(A, 1)
            ElseIf Y = 5 Then
                    WSPR.Range("A45").Value = SARR(A, 1)
                    Y = 0
                    ActiveSheet.PageSetup.PrintArea = "$A$1:$R$49"
                    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
                    IgnorePrintAreas:=False
            End If
             
       
     
       Next A

ElseIf DC = 1 Then
    For A = 1 To UBound(SARR)
        DA = DA + 1
            If DA <= MAX - 1 Then
            Y = Y + 1
            If Y = 1 Then
                WSPR.Range("A5").Value = SARR(A, 1)
            ElseIf Y = 2 Then
                    WSPR.Range("A15").Value = SARR(A, 1)
            ElseIf Y = 3 Then
                    WSPR.Range("A25").Value = SARR(A, 1)
            ElseIf Y = 4 Then
                    WSPR.Range("A35").Value = SARR(A, 1)
            ElseIf Y = 5 Then
                    WSPR.Range("A45").Value = SARR(A, 1)
                    Y = 0
                    ActiveSheet.PageSetup.PrintArea = "$A$1:$R$49"
                    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
                    IgnorePrintAreas:=False
            End If

        Else
            WSPR.Range("A5").Value = SARR(A, 1)
            ActiveSheet.PageSetup.PrintArea = "$A$1:$R$10"
            ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
                    IgnorePrintAreas:=False
     
      End If
       Next A

ElseIf DC = 2 Then
     For A = 1 To UBound(SARR)
        DA = DA + 1
            If DA <= MAX - 2 Then
            Y = Y + 1
            If Y = 1 Then
                WSPR.Range("A5").Value = SARR(A, 1)
            ElseIf Y = 2 Then
                    WSPR.Range("A15").Value = SARR(A, 1)
            ElseIf Y = 3 Then
                    WSPR.Range("A25").Value = SARR(A, 1)
            ElseIf Y = 4 Then
                    WSPR.Range("A35").Value = SARR(A, 1)
            ElseIf Y = 5 Then
                    WSPR.Range("A45").Value = SARR(A, 1)
                    Y = 0
                    ActiveSheet.PageSetup.PrintArea = "$A$1:$R$49"
                    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
                    IgnorePrintAreas:=False
            End If

        Else
            ActiveSheet.PageSetup.PrintArea = "$A$1:$R$20"
            DB = DB + 1
            If DB = 1 Then
            WSPR.Range("A5").Value = SARR(A, 1)
            Else
            WSPR.Range("A15").Value = SARR(A, 1)
            ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
                    IgnorePrintAreas:=False
            End If
      End If
       Next A

ElseIf DC = 3 Then
        For A = 1 To UBound(SARR)
        DA = DA + 1
            If DA <= MAX - 3 Then
            Y = Y + 1
            If Y = 1 Then
                WSPR.Range("A5").Value = SARR(A, 1)
            ElseIf Y = 2 Then
                    WSPR.Range("A15").Value = SARR(A, 1)
            ElseIf Y = 3 Then
                    WSPR.Range("A25").Value = SARR(A, 1)
            ElseIf Y = 4 Then
                    WSPR.Range("A35").Value = SARR(A, 1)
            ElseIf Y = 5 Then
                    WSPR.Range("A45").Value = SARR(A, 1)
                    Y = 0
                    ActiveSheet.PageSetup.PrintArea = "$A$1:$R$49"
                    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
                    IgnorePrintAreas:=False
            End If

        Else
            ActiveSheet.PageSetup.PrintArea = "$A$1:$R$30"
            DB = DB + 1
            If DB = 1 Then
            WSPR.Range("A5").Value = SARR(A, 1)
            ElseIf DB = 2 Then
            WSPR.Range("A15").Value = SARR(A, 1)
            Else
            WSPR.Range("A25").Value = SARR(A, 1)
            ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
                    IgnorePrintAreas:=False
            End If
      End If
       Next A

ElseIf DC = 4 Then
       For A = 1 To UBound(SARR)
        DA = DA + 1
            If DA <= MAX - 4 Then
            Y = Y + 1
            If Y = 1 Then
                WSPR.Range("A5").Value = SARR(A, 1)
            ElseIf Y = 2 Then
                    WSPR.Range("A15").Value = SARR(A, 1)
            ElseIf Y = 3 Then
                    WSPR.Range("A25").Value = SARR(A, 1)
            ElseIf Y = 4 Then
                    WSPR.Range("A35").Value = SARR(A, 1)
            ElseIf Y = 5 Then
                    WSPR.Range("A45").Value = SARR(A, 1)
                    Y = 0
                    ActiveSheet.PageSetup.PrintArea = "$A$1:$R$49"
                    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
                    IgnorePrintAreas:=False
            End If

        Else
            ActiveSheet.PageSetup.PrintArea = "$A$1:$R$40"
            DB = DB + 1
            If DB = 1 Then
            WSPR.Range("A5").Value = SARR(A, 1)
            ElseIf DB = 2 Then
            WSPR.Range("A15").Value = SARR(A, 1)
            ElseIf DB = 3 Then
            WSPR.Range("A25").Value = SARR(A, 1)
            Else
            WSPR.Range("A35").Value = SARR(A, 1)
            ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
                    IgnorePrintAreas:=False
            End If
      End If
       Next A
Else
End If
End Sub
Untitled.jpg
 
Lần chỉnh sửa cuối:
Sắp xếp theo thời gian sắp xếp theo bầu chọn
duyhuynh9922 đã viết:
Xin chào các anh, chi. Hiện tại em có 1 thắc mắc là khi thực hiện đoạn code này với số lượng khoảng 3000 công nhân thì liệu excel có kịp load đúng dữ liệu cần in không ạ. Với mỗi ô tô màu vàng thì đều sử dụng hàm vLookup. Mong đc giải đáp!!!
Mã: 
Public Sub PRINTING()
    Dim MAX, U, Y, A As Integer
    Dim SARR()
    Dim WSPR, WSDT As Worksheet
    Dim DA, DB, DC, DD, DE
    Application.ActivePrinter = "RICOH Aficio MP 4001 PCL 6 ON NE00:"
    Application.Calculation = xlCalculationAutomatic
    Set WSDT = ThisWorkbook.Sheets("DD")
    Set WSPR = ThisWorkbook.Sheets("FF")
    MAX = WSDT.Range("A" & Rows.Count).End(xlUp).Row
    SARR = WSDT.Range("A1:C" & MAX).Value

DC = MAX Mod 5

If DC = 0 Then
  
    For A = 1 To UBound(SARR)
      
            Y = Y + 1
            If Y = 1 Then
                WSPR.Range("A5").Value = SARR(A, 1)
            ElseIf Y = 2 Then
                    WSPR.Range("A15").Value = SARR(A, 1)
            ElseIf Y = 3 Then
                    WSPR.Range("A25").Value = SARR(A, 1)
            ElseIf Y = 4 Then
                    WSPR.Range("A35").Value = SARR(A, 1)
            ElseIf Y = 5 Then
                    WSPR.Range("A45").Value = SARR(A, 1)
                    Y = 0
                    ActiveSheet.PageSetup.PrintArea = "$A$1:$R$49"
                    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
                    IgnorePrintAreas:=False
            End If
            
      
    
       Next A

ElseIf DC = 1 Then
    For A = 1 To UBound(SARR)
        DA = DA + 1
            If DA <= MAX - 1 Then
            Y = Y + 1
            If Y = 1 Then
                WSPR.Range("A5").Value = SARR(A, 1)
            ElseIf Y = 2 Then
                    WSPR.Range("A15").Value = SARR(A, 1)
            ElseIf Y = 3 Then
                    WSPR.Range("A25").Value = SARR(A, 1)
            ElseIf Y = 4 Then
                    WSPR.Range("A35").Value = SARR(A, 1)
            ElseIf Y = 5 Then
                    WSPR.Range("A45").Value = SARR(A, 1)
                    Y = 0
                    ActiveSheet.PageSetup.PrintArea = "$A$1:$R$49"
                    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
                    IgnorePrintAreas:=False
            End If

        Else
            WSPR.Range("A5").Value = SARR(A, 1)
            ActiveSheet.PageSetup.PrintArea = "$A$1:$R$10"
            ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
                    IgnorePrintAreas:=False
    
      End If
       Next A

ElseIf DC = 2 Then
     For A = 1 To UBound(SARR)
        DA = DA + 1
            If DA <= MAX - 2 Then
            Y = Y + 1
            If Y = 1 Then
                WSPR.Range("A5").Value = SARR(A, 1)
            ElseIf Y = 2 Then
                    WSPR.Range("A15").Value = SARR(A, 1)
            ElseIf Y = 3 Then
                    WSPR.Range("A25").Value = SARR(A, 1)
            ElseIf Y = 4 Then
                    WSPR.Range("A35").Value = SARR(A, 1)
            ElseIf Y = 5 Then
                    WSPR.Range("A45").Value = SARR(A, 1)
                    Y = 0
                    ActiveSheet.PageSetup.PrintArea = "$A$1:$R$49"
                    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
                    IgnorePrintAreas:=False
            End If

        Else
            ActiveSheet.PageSetup.PrintArea = "$A$1:$R$20"
            DB = DB + 1
            If DB = 1 Then
            WSPR.Range("A5").Value = SARR(A, 1)
            Else
            WSPR.Range("A15").Value = SARR(A, 1)
            ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
                    IgnorePrintAreas:=False
            End If
      End If
       Next A

ElseIf DC = 3 Then
        For A = 1 To UBound(SARR)
        DA = DA + 1
            If DA <= MAX - 3 Then
            Y = Y + 1
            If Y = 1 Then
                WSPR.Range("A5").Value = SARR(A, 1)
            ElseIf Y = 2 Then
                    WSPR.Range("A15").Value = SARR(A, 1)
            ElseIf Y = 3 Then
                    WSPR.Range("A25").Value = SARR(A, 1)
            ElseIf Y = 4 Then
                    WSPR.Range("A35").Value = SARR(A, 1)
            ElseIf Y = 5 Then
                    WSPR.Range("A45").Value = SARR(A, 1)
                    Y = 0
                    ActiveSheet.PageSetup.PrintArea = "$A$1:$R$49"
                    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
                    IgnorePrintAreas:=False
            End If

        Else
            ActiveSheet.PageSetup.PrintArea = "$A$1:$R$30"
            DB = DB + 1
            If DB = 1 Then
            WSPR.Range("A5").Value = SARR(A, 1)
            ElseIf DB = 2 Then
            WSPR.Range("A15").Value = SARR(A, 1)
            Else
            WSPR.Range("A25").Value = SARR(A, 1)
            ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
                    IgnorePrintAreas:=False
            End If
      End If
       Next A

ElseIf DC = 4 Then
       For A = 1 To UBound(SARR)
        DA = DA + 1
            If DA <= MAX - 4 Then
            Y = Y + 1
            If Y = 1 Then
                WSPR.Range("A5").Value = SARR(A, 1)
            ElseIf Y = 2 Then
                    WSPR.Range("A15").Value = SARR(A, 1)
            ElseIf Y = 3 Then
                    WSPR.Range("A25").Value = SARR(A, 1)
            ElseIf Y = 4 Then
                    WSPR.Range("A35").Value = SARR(A, 1)
            ElseIf Y = 5 Then
                    WSPR.Range("A45").Value = SARR(A, 1)
                    Y = 0
                    ActiveSheet.PageSetup.PrintArea = "$A$1:$R$49"
                    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
                    IgnorePrintAreas:=False
            End If

        Else
            ActiveSheet.PageSetup.PrintArea = "$A$1:$R$40"
            DB = DB + 1
            If DB = 1 Then
            WSPR.Range("A5").Value = SARR(A, 1)
            ElseIf DB = 2 Then
            WSPR.Range("A15").Value = SARR(A, 1)
            ElseIf DB = 3 Then
            WSPR.Range("A25").Value = SARR(A, 1)
            Else
            WSPR.Range("A35").Value = SARR(A, 1)
            ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
                    IgnorePrintAreas:=False
            End If
      End If
       Next A
Else
End If
End Sub
Nhấp chuột vào đây để mở rộng...
Chắc không vấn đề gì đâu bạn.
 
Upvote 0
Sử dụng Elseif nhiều thì trình hơi non
 
Upvote 0
VetMini đã viết:
Tại sao phải "chắc"?
Có code thì cứ lập dữ liệu chạy thử. Bảo người ta lập dữ liệu giùm thì còn phya.

Tôi chỉ có nthắc mắc: 3000 tờ thì hỏi máy in chứ sao lại hỏi Excel?
Nhấp chuột vào đây để mở rộng...
Không đến 3000 tờ đâu anh. Vì 1 tờ A4 in đc 5 bảng. Khi test khoảng 100 < thì vẫn ok.
Bài đã được tự động gộp:

PhanTuHuong đã viết:
Sử dụng Elseif nhiều thì trình hơi non
Nhấp chuột vào đây để mở rộng...
Đoạn trên em dùng Record Macro, xong mới bổ xung thêm thành như vậy. Nếu không dùng Elseif thì mình có thể dùng cấu trúc nào khác mong anh hướng dẫn thêm. Mới tiếp xúc nên còn ngơ lắm!!!
 
Lần chỉnh sửa cuối:
Upvote 0
duyhuynh9922 đã viết:
Nếu không dùng Elseif thì mình có thể dùng cấu trúc nào khác mong anh hướng dẫn thêm
Nhấp chuột vào đây để mở rộng...
Code dài dòng quá đọc không xuể, kèm không có file lại càng không biết cái dữ liệu nguồn thế nào, thôi trước mắt sửa khúc này đã:
  • Y=1 :A5, Y=2 : A15 ... , Y=5 :A45. Chỗ này có sự tương quan giữa Y và địa chỉ dòng (10Y-5 = dòng) thì nên cắt bớt if else.
  • Khúc Mod rồi if else cho điều kiện của DC kia cũng có thể rút gọn, tuy nhiên không biết dữ liệu gốc thế nào nên không đoán
 
Upvote 0
Để cho chắc Excel cũng kịp mà máy in cũng kịp hãy thử:
Thay For A = 1 To UBound(SARR) bằng For A = 1 To 50
Nếu được (kịp) thì sửa lại như cũ
Nhưng tốt hơn hết (do in nhiều quá), thì thêm 1 điều kiện bên trong, chạy 1 lần 50 dòng dữ liệu thôi, thêm cái Msgbox để chờ, in xong 50 dòng đó mới ok in tiếp 50 dòng.
Mã: 
For A = 1 to Ubound(SARR)
    'Code in'
    If A Mod 50 = 0 Then MsgBox "Wait for the printer finish"
Next
 
Upvote 0
Upvote 0
befaint đã viết:
Không thích "k" nhưng lại dùng "ok" thì hơi bị lạ đó anh. :D
Nhấp chuột vào đây để mở rộng...
Ý tôi là nhấn nút ok trên Msgbox để in tiếp.
VetMini đã viết:
Cái từ ok nó ăn vào tiếng Việt rồi :p
... văn hóa Mẽo cưỡng h*** văn hóa Việt.
Nhấp chuột vào đây để mở rộng...
Chữ k mà tôi ghét ở trong văn hóa chat chit tào lao. hok, ak, đến "vợ. chồng" cũng vk, ck.
Tương tự như vậy là k trong 50k: k là viết tắt của kilo, tiếp đầu ngữ cho 1 đơn vị đo lường mang nghĩa 1 ngàn như kg, km, kW, kJ, kCal. Nếu theo định nghĩa đó mà dùng cho tiền tệ thì phải có đơn vị tiền tệ như kđ, kUSD, ... mà thuở xưa cũng không ai dùng cho đơn vị tiền tệ.
 
Upvote 0
befaint đã viết:
Nếu thế anh viết in hoa "OK" thì có thể đoán ra được trong ngữ cảnh đó.
Nhấp chuột vào đây để mở rộng...
VetMini đã viết:
Dùng "nhấn OK" thì khỏi đoán điếc gì hết.
Nhấp chuột vào đây để mở rộng...
Nguyên văn là "in xong 50 dòng đó mới ok in tiếp 50 dòng." chứ không phải "in xong 50 dòng đó ok mới in tiếp 50 dòng." Thường câu văn của tôi ít khi thiếu chữ hoặc dư chữ, đúng ngữ cảnh.
Tuy nhiên đọc lướt qua sẽ nhầm ngữ cảnh, thêm chữ "nhấn" sẽ khó nhầm hơn.
 
Upvote 0
ptm0412 đã viết:
Để cho chắc Excel cũng kịp mà máy in cũng kịp hãy thử:
Thay For A = 1 To UBound(SARR) bằng For A = 1 To 50
Nếu được (kịp) thì sửa lại như cũ
Nhưng tốt hơn hết (do in nhiều quá), thì thêm 1 điều kiện bên trong, chạy 1 lần 50 dòng dữ liệu thôi, thêm cái Msgbox để chờ, in xong 50 dòng đó mới ok in tiếp 50 dòng.
Mã: 
For A = 1 to Ubound(SARR)
    'Code in'
    If A Mod 50 = 0 Then MsgBox "Wait for the printer finish"
Next
Nhấp chuột vào đây để mở rộng...
Em nghĩ sẽ tạo UserForm để nhập 2 giá trị đầu và cuối. Chia khoảng in ngắn lại!
 
Upvote 0
duyhuynh9922 đã viết:
Em nghĩ sẽ tạo UserForm để nhập 2 giá trị đầu và cuối. Chia khoảng in ngắn lại!
Nhấp chuột vào đây để mở rộng...
Tôi có sử dụng For....Next gửi trên 4.000 lệnh in trong công việc. Excel chạy xong tắt màn hình ngủ một giấc mà máy in vẫn còn chạy miệt mài. Nói chung tùy bộ nhớ máy in chứ Excel vô tư.
 
Upvote 0
ho van luong đã viết:
... Nói chung tùy bộ nhớ máy in chứ Excel vô tư.
Nhấp chuột vào đây để mở rộng...
Đấy là bạn nói theo kiểu dân Ai-Ti.

Dân tạp dịch văn phòng như tôi thì chỉ biết cái máy in Laser nó có chu kỳ lượng in của nó: một tháng tối đa bao nhiêu tờ. Bắt nó in một lúc nhiều quá, bên trong nguội không kịp, plastic (các phụ kiện) bị dòn, cao su (mép cuốn giấy) bị khô. Nó chết bất cứ lúc nào.
Các máy in to như cái tủ, ầm ầm ngày hằng mấy ngàn tờ là loại được nhà sản xuất dùng vật liệu bền.

Chu kỳ lượng kế: có ghi rõ trong ca ta lô chi tiết máy.
 
Upvote 0
VetMini đã viết:
Đấy là bạn nói theo kiểu dân Ai-Ti.

Dân tạp dịch văn phòng như tôi thì chỉ biết cái máy in Laser nó có chu kỳ lượng in của nó: một tháng tối đa bao nhiêu tờ. Bắt nó in một lúc nhiều quá, bên trong nguội không kịp, plastic (các phụ kiện) bị dòn, cao su (mép cuốn giấy) bị khô. Nó chết bất cứ lúc nào.
Các máy in to như cái tủ, ầm ầm ngày hằng mấy ngàn tờ là loại được nhà sản xuất dùng vật liệu bền.

Chu kỳ lượng kế: có ghi rõ trong ca ta lô chi tiết máy.
Nhấp chuột vào đây để mở rộng...
Công ty toàn sử dụng máy thuê không hà - in nhiều máy photo loại lớn - có trục trặc thì gọi họ tới sửa liền anh ơi. Còn em cũng tay ngang code cóp nhặt ghép lại cho nó chạy thì thôi chứ không hiểu tại sao nó chạy được nữa.
 
Upvote 0
ho van luong đã viết:
Công ty toàn sử dụng máy thuê không hà - in nhiều máy photo loại lớn - có trục trặc thì gọi họ tới sửa liền anh ơi. Còn em cũng tay ngang code cóp nhặt ghép lại cho nó chạy thì thôi chứ không hiểu tại sao nó chạy được nữa.
Nhấp chuột vào đây để mở rộng...
Trường hợp này thì phải do printer server, đường truyền, ưu tiên sử dụng (nếu nhiều nguồi cùng in thì máy ưu tiên ai) chứ "bộ nhớ máy in" như bạn nói ở bài #17 là chuyện nhỏ.
 
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

T
Lỗi import dữ liệu
Trả lời
1
Đọc
9
ongke0711
ongke0711
K
  • Question
Sử dụng Power Query để xử lý nhật ký chung nhiều nợ nhiều có
    • Cười
Trả lời
13
Đọc
223
ptm0412
ptm0412
Huy@@*
Giải đáp giùm em, cách khắc phục lỗi này trên VBA
2
Trả lời
28
Đọc
335
ptm0412
ptm0412
SA_DQ
Phẩu thuật Nụ cười lần 3 tại Huế.
    • Thích
Trả lời
0
Đọc
45
SA_DQ
SA_DQ
ongke0711
  • Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba
    • Thích
    • Yêu thích
7 8 9
Trả lời
175
Đọc
9K
ongke0711
ongke0711
E
  • Question
Tạo bảng lọc theo điều kiện
Trả lời
7
Đọc
128
Hoàng Tuấn 868
H
N
Giúp em hàm Aggregate không chạy được trên Google sheet ah
Trả lời
1
Đọc
64
BuiQuangThuan
B
Bùi Thúy Thúy
  • Question
Lấy dữ liệu thời tiết Accuweather để điền vào nhật ký thi công
2 3 4
Trả lời
62
Đọc
18K
HeSanbi
HeSanbi
B
Nhờ anh/chị giúp em tìm hàm cho công thức tính lương
Trả lời
0
Đọc
54
Bobomkkk
B
vova2209
Index kết hợp với match 2 điều kiện
Trả lời
14
Đọc
1K
dunghtgiga
dunghtgiga
D
  • Question
Xin cách tạo tab và button cho Add-in trên ribbon Maintabs
Trả lời
2
Đọc
97
Decepticon
D
N
cộng các dữ liệu không trùng nhau
Trả lời
12
Đọc
194
Nguyễn Hiền1508
N
T
Chèn dữ liệu từ sheet này qua sheet khác theo điều kiện
Trả lời
3
Đọc
139
HieuCD
H
T
Trùng 2 lần: Tìm dữ liệu nhiều điều kiện
Trả lời
0
Đọc
85
Thulib
T
N
  • Question
Xin mã code ẩn hiện dòng theo điều kiện
Trả lời
10
Đọc
126
Nguyễn Diêu Hiền
N
N
Công thức tính số phù hợp với % mong muốn
Trả lời
9
Đọc
169
CHAOQUAY
C
B
Giúp em xử lý lỗi macro khi chạy VBA
2
Trả lời
21
Đọc
463
huhumalu
H
hunganh.nguyen
Xin giúp code tách dòng tổng thành những dòng chi tiết với giá trị là 1
Trả lời
6
Đọc
335
DeTong
D
T
cả nhà hỗ trợ giúp em là em phải dùng hàm gì cho đúng ạ, em làm mãi không được
    • Cười
Trả lời
2
Đọc
116
DeTong
D
nguyenanhhoa
Nhờ các bác giúp: e muốn tô màu khác nhau đối với các ô giống nhau về giá trị
    • Cười
Trả lời
7
Đọc
147
SA_DQ
SA_DQ
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