câu lệnh if ....then....elseif....else trong vba

Liên hệ QC
Tôi tuân thủ nội quy khi đăng bài
Có
D

Dũng Tống

Thành viên mới
Tham gia
24/8/23
Bài viết
8
Được thích
0
Em muốn in 1 lúc 2 sheet, 1sheet in cố định, sheet còn lại in phụ thuộc theo điều kiện của 1 ô trong sheet in cố định. Em viêt code nhưng không biết sai ở đâu, mong các cao nhân chỉ giúp em ạ
Sub inbbnt()

Dim Wya As Worksheet, Wyb As Worksheet, Wyc As Worksheet, Wyd As Worksheet, Wye As Worksheet, Wyf As Worksheet, Wyg As Worksheet, Wyh As Worksheet, Wyi As Worksheet, i As Long
Set Wya = Sheet2
Set Wyb = Sheet1
Set Wyc = Sheet5
Set Wyd = Sheet7
Set Wye = Sheet10
Set Wyf = Sheet11
Set Wyg = Sheet12
Set Wyh = Sheet18
Set Wyi = Sheet19
Sheet2.Select
If Range("Q9").Value = 1 Then Wyb.PrintOut
ElseIf Range("Q9").Value = 2 Then Wyc.PrintOut
ElseIf Range("Q9").Value = 3 Then Wyd.PrintOut
ElseIf Range("Q9").Value = 4 Then Wye.PrintOut
ElseIf Range("Q9").Value = 5 Then Wyf.PrintOut
ElseIf Range("Q9").Value = 6 Then Wyg.PrintOut
ElseIf Range("Q9").Value = 7 Then Wyh.PrintOut
Else
Wyi.PrintOut
End If

Next
 

File đính kèm

  • NTCV.xlsm
    162.5 KB · Đọc: 6
Sắp xếp theo thời gian sắp xếp theo bầu chọn
Dũng Tống đã viết:
Em muốn in 1 lúc 2 sheet, 1sheet in cố định, sheet còn lại in phụ thuộc theo điều kiện của 1 ô trong sheet in cố định. Em viêt code nhưng không biết sai ở đâu, mong các cao nhân chỉ giúp em ạ
Sub inbbnt()

Dim Wya As Worksheet, Wyb As Worksheet, Wyc As Worksheet, Wyd As Worksheet, Wye As Worksheet, Wyf As Worksheet, Wyg As Worksheet, Wyh As Worksheet, Wyi As Worksheet, i As Long
Set Wya = Sheet2
Set Wyb = Sheet1
Set Wyc = Sheet5
Set Wyd = Sheet7
Set Wye = Sheet10
Set Wyf = Sheet11
Set Wyg = Sheet12
Set Wyh = Sheet18
Set Wyi = Sheet19
Sheet2.Select
If Range("Q9").Value = 1 Then Wyb.PrintOut
ElseIf Range("Q9").Value = 2 Then Wyc.PrintOut
ElseIf Range("Q9").Value = 3 Then Wyd.PrintOut
ElseIf Range("Q9").Value = 4 Then Wye.PrintOut
ElseIf Range("Q9").Value = 5 Then Wyf.PrintOut
ElseIf Range("Q9").Value = 6 Then Wyg.PrintOut
ElseIf Range("Q9").Value = 7 Then Wyh.PrintOut
Else
Wyi.PrintOut
End If

Next
Nhấp chuột vào đây để mở rộng...
Thử thế này xem được không?
Mã: 
Sub inbbnt()
    Dim WS As Worksheet
    If Range("Q9").Value > 0 And Range("Q9").Value < 8 Then
        Set WS = Array(Sheet2, Sheet1, Sheet5, Sheet7, Sheet10, Sheet11, Sheet12, Sheet18)(Range("Q9").Value)
    Else
        Set WS = Sheet19
    End If
    WS.PrintOut
End Sub
 
Upvote 0
Thêm bẫy lỗi và cặp ngoặc vuông [Sheet1]

JavaScript: 
Sub inbbnt()
  On Error Resume Next
  Dim i%, a:  i = Range("Q9").value
  a = Array([Sheet19], [Sheet2], [Sheet1], [Sheet5], [Sheet7], [Sheet10], [Sheet11], [Sheet12], [Sheet18])
  On Error GoTo E
  a(i Mod (UBound(a) + 1)).PrintOut
Exit Sub
E:
MsgBox "PrintOut Error!"
End Sub
 
Upvote 0
Em hỏi cái món in mà có inputbox để ctrl chọn các sheet, liệu có được không các bác?
 
Upvote 0
em cảm ơn các anh đã quan tâm, e dùng if ... then ... và làm được rồi ạ

Sub inbbnt()
Dim Wya As Worksheet, Wyb As Worksheet, Wyc As Worksheet, Wyd As Worksheet, Wye As Worksheet, Wyf As Worksheet, Wyg As Worksheet, Wyh As Worksheet, Wyi As Worksheet, i As Long
Set Wya = Sheet2
Set Wyb = Sheet1
Set Wyc = Sheet5
Set Wyd = Sheet7
Set Wye = Sheet10
Set Wyf = Sheet11
Set Wyg = Sheet12
Set Wyh = Sheet18
Set Wyi = Sheet19
For i = Wya.Range("p5").Value To Wya.Range("p6").Value
Wya.Range("l6") = i
Wya.PrintOut
If Range("Q9").Value = "D" Then Wyb.PrintOut
If Range("Q9").Value = "CT" Then Wyc.PrintOut
If Range("Q9").Value = "CP" Then Wyd.PrintOut
If Range("Q9").Value = "BT" Then Wye.PrintOut
If Range("Q9").Value = "X" Then Wyf.PrintOut
If Range("Q9").Value = "T" Then Wyg.PrintOut
If Range("Q9").Value = "S" Then Wyh.PrintOut
If Range("Q9").Value = "C" Then Wyi.PrintOut

Next
 
Upvote 0
Dũng Tống đã viết:
em cảm ơn các anh đã quan tâm, e dùng if ... then ... và làm được rồi ạ


Next
Nhấp chuột vào đây để mở rộng...
9 biến worksheet, 8 cái If. Không phải là code tối ưu nhé.
Nếu các bài trả lời ở #2 và #3 mà ra kết quả đúng thì nên dùng.
Ít ra bạn cũng nên xác nhận cho mọi người về kết quả đúng hay sai.
 
Upvote 0
bebo021999 đã viết:
9 biến worksheet, 8 cái If. Không phải là code tối ưu nhé.
Nếu các bài trả lời ở #2 và #3 mà ra kết quả đúng thì nên dùng.
Ít ra bạn cũng nên xác nhận cho mọi người về kết quả đúng hay sai.
Nhấp chuột vào đây để mở rộng...
Vâng e cảm ơn. 2 cái cách mà 2 bác ở trên hướng dẫn e thử k được bác ạ, e muốn in cố định là sheet 2, và trong ô Q9 sheet 2 có chữ D thì in sheet 1, chữ CT in sheet 5( tương tự mấy sheet khác). Bác xem có cái cách nào tối ưu hơn, e xin bác chỉ giúp
 
Upvote 0
Dũng Tống đã viết:
Vâng e cảm ơn. 2 cái cách mà 2 bác ở trên hướng dẫn e thử k được bác ạ, e muốn in cố định là sheet 2, và trong ô Q9 sheet 2 có chữ D thì in sheet 1, chữ CT in sheet 5( tương tự mấy sheet khác). Bác xem có cái cách nào tối ưu hơn, e xin bác chỉ giúp
Nhấp chuột vào đây để mở rộng...
Có rất nhiều Cách

JavaScript: 
Sub inbbnt()
  On Error GoTo E
  Dim W as object:
  Select case cstr(Sheet2.Range("Q9").value)
  Case "D": Set W = [Sheet1]
 Case "CT": Set W = [Sheet5]
  End Select
  If W Is nothing then goto E
  W.PrintOut
Exit Sub
E:
MsgBox "PrintOut Error!"
End Sub
 
Upvote 0
Dũng Tống đã viết:
em cảm ơn các anh đã quan tâm, e dùng if ... then ... và làm được rồi ạ

Sub inbbnt()
Dim Wya As Worksheet, Wyb As Worksheet, Wyc As Worksheet, Wyd As Worksheet, Wye As Worksheet, Wyf As Worksheet, Wyg As Worksheet, Wyh As Worksheet, Wyi As Worksheet, i As Long
Set Wya = Sheet2
Set Wyb = Sheet1
Set Wyc = Sheet5
Set Wyd = Sheet7
Set Wye = Sheet10
Set Wyf = Sheet11
Set Wyg = Sheet12
Set Wyh = Sheet18
Set Wyi = Sheet19
For i = Wya.Range("p5").Value To Wya.Range("p6").Value
Wya.Range("l6") = i
Wya.PrintOut
If Range("Q9").Value = "D" Then Wyb.PrintOut
If Range("Q9").Value = "CT" Then Wyc.PrintOut
If Range("Q9").Value = "CP" Then Wyd.PrintOut
If Range("Q9").Value = "BT" Then Wye.PrintOut
If Range("Q9").Value = "X" Then Wyf.PrintOut
If Range("Q9").Value = "T" Then Wyg.PrintOut
If Range("Q9").Value = "S" Then Wyh.PrintOut
If Range("Q9").Value = "C" Then Wyi.PrintOut

Next
Nhấp chuột vào đây để mở rộng...
Bạn khai báo các tham biến từ Wya cho tới Wyi là không cần thiết
Cùng lắm chỉ cần 1 tham biến thôi, như
PHP: 
  Dim GPE As WorkSheet
 If Range("Q9").Value = "CT" Then
      Set GPE = Sheet5:      GPE.PrintOut
. . . .
 
Upvote 0
bebo021999 đã viết:
9 biến worksheet, 8 cái If. Không phải là code tối ưu nhé.
...
Nhấp chuột vào đây để mở rộng...
Có khi cần thiết.
Cứ mỗi IF là có một lệnh in. Biết đâu lúc in có bẫy event gì đó ảnh hưởng đến cái IF kế tiếp. Ví dụ, thay đỏi trị Range("Q9").

SA_DQ đã viết:
Bạn khai báo các tham biến từ Wya cho tới Wyi là không cần thiết
Cùng lắm chỉ cần 1 tham biến thôi, như
PHP: 
  Dim GPE As WorkSheet
 If Range("Q9").Value = "CT" Then
      Set GPE = Sheet5:      GPE.PrintOut
. . . .
Nhấp chuột vào đây để mở rộng...
Có khi cần thiết.
Đâu có ai bắt buộc Wya và Wyi phải trỏ vào hai sheets khác nhau đâu?
Khai báo nhiều biến có khi dễ chỉnh sửa và kiểm soát hơn.
(Chỉ có điều mấy cái tên đăt Wyi khơi khó hiểu. Nhưng biết đâu nó phản ánh cái gì đó trong môi trường thớt)
 
Upvote 0
HeSanbi đã viết:
Có rất nhiều Cách

JavaScript: 
Sub inbbnt()
  On Error GoTo E
  Dim W as object:
  Select case cstr(Sheet2.Range("Q9").value)
  Case "D": Set W = [Sheet1]
 Case "CT": Set W = [Sheet5]
  End Select
  If W Is nothing then goto E
  W.PrintOut
Exit Sub
E:
MsgBox "PrintOut Error!"
End Sub
Nhấp chuột vào đây để mở rộng...
anh ơi, giờ nêu ô Q9 của em nó bằng 0 thì em không in sheet nào thì câu lệnh viết thế nào ạ, mong anh giúp đỡ. Em cảm ơn anh ạ
 
Upvote 0
Dũng Tống đã viết:
Em muốn in 1 lúc 2 sheet, 1sheet in cố định, sheet còn lại in phụ thuộc theo điều kiện của 1 ô trong sheet in cố định. Em viêt code nhưng không biết sai ở đâu, mong các cao nhân chỉ giúp em ạ
Sub inbbnt()

Dim Wya As Worksheet, Wyb As Worksheet, Wyc As Worksheet, Wyd As Worksheet, Wye As Worksheet, Wyf As Worksheet, Wyg As Worksheet, Wyh As Worksheet, Wyi As Worksheet, i As Long
Set Wya = Sheet2
Set Wyb = Sheet1
Set Wyc = Sheet5
Set Wyd = Sheet7
Set Wye = Sheet10
Set Wyf = Sheet11
Set Wyg = Sheet12
Set Wyh = Sheet18
Set Wyi = Sheet19
Sheet2.Select
If Range("Q9").Value = 1 Then Wyb.PrintOut
ElseIf Range("Q9").Value = 2 Then Wyc.PrintOut
ElseIf Range("Q9").Value = 3 Then Wyd.PrintOut
ElseIf Range("Q9").Value = 4 Then Wye.PrintOut
ElseIf Range("Q9").Value = 5 Then Wyf.PrintOut
ElseIf Range("Q9").Value = 6 Then Wyg.PrintOut
ElseIf Range("Q9").Value = 7 Then Wyh.PrintOut
Else
Wyi.PrintOut
End If

Next
Nhấp chuột vào đây để mở rộng...
Xin chào, nhìn vào đoạn mã của bạn, tôi thấy rằng bạn đang có một số lỗi tại đây. Đầu tiên, các đối tượng trang tính cần phải được tham chiếu bằng cách sử dụng tên dưới dạng chuỗi ("Sheet2") hoặc sử dụng đối tượng Worksheets như Sheet1, Sheet2, v.v.Dưới đây là đoạn mã đã được sửa lỗi:

Mã: 
Sub PrintSheets()
    Dim Wya As Worksheet, Wyb As Worksheet, Wyc As Worksheet, Wyd As Worksheet, Wye As Worksheet, Wyf As Worksheet, Wyg As Worksheet, Wyh As Worksheet, Wyi As Worksheet
    Set Wya = Worksheets("Sheet2")
    Set Wyb = Worksheets("Sheet1")
    Set Wyc = Worksheets("Sheet5")
    Set Wyd = Worksheets("Sheet7")
    Set Wye = Worksheets("Sheet10")
    Set Wyf = Worksheets("Sheet11")
    Set Wyg = Worksheets("Sheet12")
    Set Wyh = Worksheets("Sheet13")
    Set Wyi = Worksheets("Sheet14")
    
    ' Code to print the fixed sheet
    
    Wyb.PrintOut
    
    ' Code to print the dynamic sheet based on a condition in a fixed sheet
    
    For i = 1 To Wya.Cells(Rows.Count, 1).End(xlUp).Row
        If Wya.Cells(i, 1).Value = "Your Condition" Then
            ' Change the sheet reference and printout code based on your requirement
            Wyc.PrintOut
            Exit For
        End If
    Next i
End Sub

Trong đoạn mã trên, tôi đã tham chiếu đúng đến các đối tượng trang tính và sửa lỗi việc kết thúc đoạn mã. Bạn chỉ cần thay đổi "Your Condition" thành điều kiện mà bạn muốn để in trang tính phụ thuộc.Hãy thử chạy lại đoạn mã này và cảm nhận nếu có bất kỳ lỗi nào xuất hiện. Nếu có vấn đề hoặc câu hỏi nào khác, xin hãy cho tôi biết.
 
Upvote 0
Văn Toàn 1996 đã viết:
Xin chào, nhìn vào đoạn mã của bạn, tôi thấy rằng bạn đang có một số lỗi tại đây. Đầu tiên, các đối tượng trang tính cần phải được tham chiếu bằng cách sử dụng tên dưới dạng chuỗi ("Sheet2") hoặc sử dụng đối tượng Worksheets như Sheet1, Sheet2, v.v.Dưới đây là đoạn mã đã được sửa lỗi:

Mã: 
Sub PrintSheets()
    Dim Wya As Worksheet, Wyb As Worksheet, Wyc As Worksheet, Wyd As Worksheet, Wye As Worksheet, Wyf As Worksheet, Wyg As Worksheet, Wyh As Worksheet, Wyi As Worksheet
    Set Wya = Worksheets("Sheet2")
    Set Wyb = Worksheets("Sheet1")
    Set Wyc = Worksheets("Sheet5")
    Set Wyd = Worksheets("Sheet7")
    Set Wye = Worksheets("Sheet10")
    Set Wyf = Worksheets("Sheet11")
    Set Wyg = Worksheets("Sheet12")
    Set Wyh = Worksheets("Sheet13")
    Set Wyi = Worksheets("Sheet14")
    
    ' Code to print the fixed sheet
    
    Wyb.PrintOut
    
    ' Code to print the dynamic sheet based on a condition in a fixed sheet
    
    For i = 1 To Wya.Cells(Rows.Count, 1).End(xlUp).Row
        If Wya.Cells(i, 1).Value = "Your Condition" Then
            ' Change the sheet reference and printout code based on your requirement
            Wyc.PrintOut
            Exit For
        End If
    Next i
End Sub

Trong đoạn mã trên, tôi đã tham chiếu đúng đến các đối tượng trang tính và sửa lỗi việc kết thúc đoạn mã. Bạn chỉ cần thay đổi "Your Condition" thành điều kiện mà bạn muốn để in trang tính phụ thuộc.Hãy thử chạy lại đoạn mã này và cảm nhận nếu có bất kỳ lỗi nào xuất hiện. Nếu có vấn đề hoặc câu hỏi nào khác, xin hãy cho tôi biết.
Nhấp chuột vào đây để mở rộng...
Do e cũng k biết nhiều nên a gửi a xem file, file này e muốn in nhanh nhiều biên bản, vi dụ e muốn in tự động 5 cái biên bản liên tục từ 1 đến 5, cái biên bản là của sheet 2, trong sheet 2 có ô Q9 là điều kiên để in các sheet khác, nếu bb 1 ô q9 là chữ D thì in thêm sheet 1, bb số 2 ô Q9 =0 thì in mỗi sheet2 và chuyển tiếp sang bb số 3, ô Q9 theo bb số 3 =VK thì in thêm sheet7
 

File đính kèm

  • NTCV.xlsm
    207.3 KB · Đọc: 2
Upvote 0
HeSanbi đã viết:
Thêm vào đoạn mã
Case else: exit sub
Trên End select
Nhấp chuột vào đây để mở rộng...
Sub inbbnt111()
Dim i As Long, printFrom As Long, printTo As Long
printFrom = Sheet2.Range("p5").Value
printTo = Sheet2.Range("p6").Value
For i = printFrom To printTo
Sheet2.Range("l6").Value = i
Sheet2.PrintOut copies:=1, preview:=False
Dim W As Object:
Select Case CStr(Range("Q9").Value)
Case "D": Set W = [Sheet1]
Case "CT": Set W = [Sheet5]
Case "VK": Set W = [Sheet7]
Case "BT": Set W = [Sheet10]
Case "X": Set W = [Sheet11]
Case "T": Set W = [Sheet12]
Case "S": Set W = [Sheet18]
Case "C": Set W = [Sheet19]
Case Else: Exit Sub
End Select
W.PrintOut
Next i
End Sub
anh ơi cho em hỏi là do em muốn in liên tục theo biến i, vi dụ e muốn in tự động 3 cái biên bản liên tục từ 1 đến 3, cái biên bản là của sheet 2, trong sheet 2 có ô Q9 là điều kiên để in các sheet khác, nếu bb 1 ô q9 là chữ D thì in sheet2 và in thêm sheet 1, bb số 2 ô Q9 =0 thì in mỗi sheet2 và tiếp tục bb số 3, ô Q9 theo bb số 3 =VK thì in sheet2 và in thêm sheet7. nhưng e nhập thêm cái Case else: exit sub vào thì nó lại dừng ở bb số 2 mà k in bb số 3 anh ạ thì có cách nào xử lý không anh
 
Upvote 0
Dũng Tống đã viết:
Sub inbbnt111()
Dim i As Long, printFrom As Long, printTo As Long
printFrom = Sheet2.Range("p5").Value
printTo = Sheet2.Range("p6").Value
For i = printFrom To printTo
Sheet2.Range("l6").Value = i
Sheet2.PrintOut copies:=1, preview:=False
Dim W As Object:
Select Case CStr(Range("Q9").Value)
Case "D": Set W = [Sheet1]
Case "CT": Set W = [Sheet5]
Case "VK": Set W = [Sheet7]
Case "BT": Set W = [Sheet10]
Case "X": Set W = [Sheet11]
Case "T": Set W = [Sheet12]
Case "S": Set W = [Sheet18]
Case "C": Set W = [Sheet19]
Case Else: Exit Sub
End Select
W.PrintOut
Next i
End Sub
anh ơi cho em hỏi là do em muốn in liên tục theo biến i, vi dụ e muốn in tự động 3 cái biên bản liên tục từ 1 đến 3, cái biên bản là của sheet 2, trong sheet 2 có ô Q9 là điều kiên để in các sheet khác, nếu bb 1 ô q9 là chữ D thì in sheet2 và in thêm sheet 1, bb số 2 ô Q9 =0 thì in mỗi sheet2 và tiếp tục bb số 3, ô Q9 theo bb số 3 =VK thì in sheet2 và in thêm sheet7. nhưng e nhập thêm cái Case else: exit sub vào thì nó lại dừng ở bb số 2 mà k in bb số 3 anh ạ thì có cách nào xử lý không anh
Nhấp chuột vào đây để mở rộng...

Bạn dựa theo mã dưới đây


JavaScript: 
Sub inbbnt111()
  On Error Resume Next
  Dim i As Long, W As Object: i = 1
  Select Case CStr(Range("Q9").value)
  Case "0", "D", "VK":
    i = Sheet2.Range("p6").value
    Set W = [Sheet2]: GoSub P
'  Case "1", "BT", "X", "T":
'    i = 1: i = Sheet5.Range("p6").value
'    Set W = [Sheet5]: GoSub P
  End Select

  Select Case CStr(Range("Q9").value)
  Case "D": Set W = [Sheet1]
  Case "CT": Set W = [Sheet5]
  Case "VK": Set W = [Sheet7]
  Case "BT": Set W = [Sheet10]
  Case "X": Set W = [Sheet11]
  Case "T": Set W = [Sheet12]
  Case "S": Set W = [Sheet18]
  Case "C": Set W = [Sheet19]
  End Select
  If Not W Is Nothing Then W.PrintOut
Exit Sub
P:
  If W Is Nothing Then Return
  W.PrintOut Copies:=i, preview:=False
  Set W = Nothing
Return
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

vova2209
  • Question
Tìm địa chỉ ô với 2đk và chuyển thành links
Trả lời
13
Đọc
208
curet
C
H
  • Question
Xóa toàn bộ các dòng giống nhau ở 1 cột
    • Cười
Trả lời
12
Đọc
72
hadoan-pap
H
pingping2288
Lỗi cứ lần mở lại file excel là font chữ và định dạng ô lại thay đổi
Trả lời
7
Đọc
17
pingping2288
pingping2288
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
164
Đọc
8K
chstbcaolanh
C
T
Đánh Số Thứ Tự Loại Bỏ Trùng
Trả lời
1
Đọc
19
bebo021999
B
H
Có thể mở file Excel mới sẽ Zoom mặc định 150% không?
Trả lời
4
Đọc
156
VetMini
V
O
  • Question
Tìm số thứ tự của sheet trong workbook có nhiều sheets
Trả lời
11
Đọc
3K
VetMini
V
Manhhung90
Liệt kê các ngày cộng dồn mong muốn vào 1 ô. Nhờ mọi người giúp mình ạ.
2 3 4
Trả lời
62
Đọc
744
VetMini
V
C
Hàm đánh số thứ tự như không đánh dữ liệu trùng
Trả lời
7
Đọc
8K
Trang Tuyet Ngoc Nhi
T
Hai Lúa Miền Tây
  • Question
Hàm chuyển dữ liệu từ cột sang dòng (Hàm melt + wide_to_long của Python trong Excel)
    • Thích
    • Cảm ơn
    • Yêu thích
Trả lời
9
Đọc
461
tranhungdao12a3
T
GPE-Trợ Lý
Đăng ký tham dự hội thảo tại Hà Nội: Power Query - Công cụ quản lý dữ liệu
    • Thích
    • Yêu thích
    • Cảm ơn
Trả lời
4
Đọc
463
PhanTuHuong
PhanTuHuong
tvcneo
  • Question
Nhờ Anh Chị Em giúp mình cách để tạo macro giống như trong file này
Trả lời
17
Đọc
223
huuthang_bd
huuthang_bd
T
Có phải lỗi Excel?
Trả lời
8
Đọc
9K
dinhthang8709
D
T
Công thức lấy dữ liệu
Trả lời
3
Đọc
116
HUONGHCKT
H
S
  • Question
Nhờ anh chị giúp em hàm ngẫu nhiên với tổng là 1 số
Trả lời
6
Đọc
150
SA_DQ
SA_DQ
L
Tự động nhảy số tham chiếu khi sang sheet mới
Trả lời
5
Đọc
5K
Romantic92
R
TieuLong2708
Danh sách lịch cắt người trực
Trả lời
0
Đọc
37
TieuLong2708
TieuLong2708
C
  • Question
Xin giúp đỡ Code kiểm tra và copy dữ liệu từ sheet 1 sang sheet 2
2
Trả lời
21
Đọc
627
conan1
C
H
  • Question
Mong giúp code chuyển file xls sang xlsx hàng loạt và không lỗi số liệu
Trả lời
16
Đọc
370
Hoàng Tuấn 868
H
jenny12345
tổng hợp dữ liệu theo tháng
Trả lời
10
Đọc
248
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

Back
Top Bottom