Chuyên mục xử lý, gỡ rối code VBA (2 người xem)

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)
Status
Không mở trả lời sau này.
ndu96081631

ndu96081631

Huyền thoại GPE
Thành viên BQT
Super Moderator
Tham gia
5/6/08
Bài viết
30,703
Được thích
53,957
Sắp xếp theo thời gian sắp xếp theo bầu chọn
huuduy.duy đã viết:
[GPECODE=vb]Option ExplicitSub CopyCongSP()
Dim lRs As Long
lRs = LDQuanLy.[A65500].End(xlUp).Row - 10
ActiveSheet.Cells(11, 1).FormulaR1C1 = "=IF(RC9<>"""",RC[93],"""")"
ActiveSheet.Cells(11, 1).AutoFill Cells(11, 1).Resize(lRs)
ActiveSheet.Cells(11, 2).FormulaR1C1 = "=IF(RC9<>"""",RC[32],"""")"
ActiveSheet.Cells(11, 2).AutoFill Cells(11, 2).Resize(lRs)
ActiveSheet.Cells(11, 3).FormulaR1C1 = "=IF(AND(RC9<>"""",RC[63]<>""""),RC[63],"""")"
ActiveSheet.Cells(11, 3).AutoFill Cells(11, 3).Resize(lRs)
End Sub[/GPECODE]

Với đoạn code như trên thì cho em hỏi có cách nào để viết cho nó ngắn gon hơn nữa không?
Nhờ các anh chị giúp đỡ.
Trân trọng
Nhấp chuột vào đây để mở rộng...
Thử xem có đúng ý bạn không nhé!

Mã: 
Sub CopyCongSP()
    Dim lRs As Long
[COLOR=#ff0000]    lRs = LDQuanLy.Range("A" & Rows.Count).End(xlUp).Row[/COLOR]
    With ActiveSheet
        .Cells(11, 1).FormulaR1C1 = "=IF(RC9<>"""",RC[93],"""")"
        .Cells(11, 2).FormulaR1C1 = "=IF(RC9<>"""",RC[32],"""")"
        .Cells(11, 3).FormulaR1C1 = "=IF(AND(RC9<>"""",RC[63]<>""""),RC[63],"""")"
[COLOR=#ff0000]        Range(.Cells(11, 1), .Cells(11, 3)).AutoFill Range(.Cells(11, 1), .Cells(lRs, 3))[/COLOR]
    End With
End Sub
 
Upvote 0
Hoàng Trọng Nghĩa đã viết:
Thử xem có đúng ý bạn không nhé!

Mã: 
Sub CopyCongSP()
    Dim lRs As Long
[COLOR=#ff0000]    lRs = LDQuanLy.Range("A" & Rows.Count).End(xlUp).Row[/COLOR]
    With ActiveSheet
        .Cells(11, 1).FormulaR1C1 = "=IF(RC9<>"""",RC[93],"""")"
        .Cells(11, 2).FormulaR1C1 = "=IF(RC9<>"""",RC[32],"""")"
        .Cells(11, 3).FormulaR1C1 = "=IF(AND(RC9<>"""",RC[63]<>""""),RC[63],"""")"
[COLOR=#ff0000]        Range(.Cells(11, 1), .Cells(11, 3)).AutoFill Range(.Cells(11, 1), .Cells(lRs, 3))[/COLOR]
    End With
End Sub
Nhấp chuột vào đây để mở rộng...
Dạ đúng ý rồi anh. Cám ơn anh nhiều
 
Upvote 0
huuduy.duy đã viết:
Dạ đúng ý rồi anh. Cám ơn anh nhiều
Nhấp chuột vào đây để mở rộng...
Mà nếu dùng cho ActiveSheet thì cần gì With nữa ta! Ngoại trừ đừng dùng code này khi sheet LDQuanLy đang hiện hành!

Mã: 
Sub CopyCongSP()
    Dim lRs As Long
[COLOR=#ff0000]    lRs = LDQuanLy.Range("A" & Rows.Count).End(xlUp).Row[/COLOR]
    Cells(11, 1).FormulaR1C1 = "=IF(RC9<>"""",RC[93],"""")"
    Cells(11, 2).FormulaR1C1 = "=IF(RC9<>"""",RC[32],"""")"
    Cells(11, 3).FormulaR1C1 = "=IF(AND(RC9<>"""",RC[63]<>""""),RC[63],"""")"
[COLOR=#ff0000]    Range(Cells(11, 1), Cells(11, 3)).AutoFill Range(Cells(11, 1), Cells(lRs, 3))[/COLOR]
End Sub
 
Upvote 0
Hoàng Trọng Nghĩa đã viết:
Mà nếu dùng cho ActiveSheet thì cần gì With nữa ta! Ngoại trừ đừng dùng code này khi sheet LDQuanLy đang hiện hành!

Mã: 
Sub CopyCongSP()
    Dim lRs As Long
[COLOR=#ff0000]    lRs = LDQuanLy.Range("A" & Rows.Count).End(xlUp).Row[/COLOR]
    Cells(11, 1).FormulaR1C1 = "=IF(RC9<>"""",RC[93],"""")"
    Cells(11, 2).FormulaR1C1 = "=IF(RC9<>"""",RC[32],"""")"
    Cells(11, 3).FormulaR1C1 = "=IF(AND(RC9<>"""",RC[63]<>""""),RC[63],"""")"
[COLOR=#ff0000]    Range(Cells(11, 1), Cells(11, 3)).AutoFill Range(Cells(11, 1), Cells(lRs, 3))[/COLOR]
End Sub
Nhấp chuột vào đây để mở rộng...
Nếu muốn cho công thức thành giá trị Value thì sao hả anh
 
Upvote 0
Ba Tê đã viết:
Thêm đoạn này phía trên End Sub xem sao
PHP: 
Cells.Copy
    Range("A1").PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    Range("A1").Select
Nhấp chuột vào đây để mở rộng...
Ý cuả em chỉ muốn chuyển giá trị của 3 cột đó sang value, chứ không chuyển toàn bộ sheet ạ
 
Upvote 0
huuduy.duy đã viết:
Ý cuả em chỉ muốn chuyển giá trị của 3 cột đó sang value, chứ không chuyển toàn bộ sheet ạ
Nhấp chuột vào đây để mở rộng...
Thử xem có được không! Không có file nên toàn đoán non đoán già không đó!

Mã: 
Sub CopyCongSP()
    Cells(11, 1).FormulaR1C1 = "=IF(RC9<>"""",RC[93],"""")"
    Cells(11, 2).FormulaR1C1 = "=IF(RC9<>"""",RC[32],"""")"
    Cells(11, 3).FormulaR1C1 = "=IF(AND(RC9<>"""",RC[63]<>""""),RC[63],"""")"
[COLOR=#0000ff]    Dim lRs As Long, Rng As Range[/COLOR]
[COLOR=#0000ff]    lRs = LDQuanLy.Range("A" & Rows.Count).End(xlUp).Row[/COLOR]
[COLOR=#0000ff]    Set Rng = Range(Cells(11, 1), Cells(lRs, 3))[/COLOR]
[COLOR=#0000ff]    Range(Cells(11, 1), Cells(11, 3)).AutoFill Rng[/COLOR]
[COLOR=#0000ff]    Rng.Value = Rng.Value[/COLOR]
End Sub
 
Upvote 0
Hoàng Trọng Nghĩa đã viết:
Mã: 
Sub CopyCongSP()
    Cells(11, 1).FormulaR1C1 = "=IF(RC9<>"""",RC[93],"""")"
    Cells(11, 2).FormulaR1C1 = "=IF(RC9<>"""",RC[32],"""")"
    Cells(11, 3).FormulaR1C1 = "=IF(AND(RC9<>"""",RC[63]<>""""),RC[63],"""")"
[COLOR=#0000ff]    Dim lRs As Long, Rng As Range[/COLOR]
[COLOR=#0000ff]    lRs = LDQuanLy.Range("A" & Rows.Count).End(xlUp).Row[/COLOR]
[COLOR=#0000ff]    Set Rng = Range(Cells(11, 1), Cells(lRs, 3))[/COLOR]
[COLOR=#0000ff]    Range(Cells(11, 1), Cells(11, 3)).AutoFill Rng[/COLOR]
[COLOR=#0000ff] [/COLOR][B][COLOR=#ff0000]Calculate  [/COLOR][/B][COLOR=#0000ff] 
Rng.Value = Rng.Value[/COLOR]
End Sub
Nhấp chuột vào đây để mở rộng...
thêm cái đỏ đỏ phòng trường hợp máy tính không tự động chạy công thức, cái này tôi gặp hoài hà
 
Upvote 0
Sub CopyCongSP()
Cells(11, 1).FormulaR1C1 = "=IF(RC9<>"""",RC[93],"""")"
Cells(11, 2).FormulaR1C1 = "=IF(RC9<>"""",RC[32],"""")"
Cells(11, 3).FormulaR1C1 = "=IF(AND(RC9<>"""",RC[63]<>""""),RC[63],"""")"
Dim lRs As Long, Rng As Range
lRs = LDQuanLy.Range("A" & Rows.Count).End(xlUp).Row
Set Rng = Range(Cells(11, 1), Cells(lRs, 3))
Range(Cells(11, 1), Cells(11, 3)).AutoFill Rng
Calculate
Rng.Value = Rng.Value
Cells(11, 3). Format("000000000000")
End Sub
Em thêm vo chỗ màu đổ thì nó báo lỗi 400. Nhờ các anh chị xem giúp em
 
Lần chỉnh sửa cuối:
Upvote 0
huuduy.duy đã viết:
Sub CopyCongSP()
Cells(11, 1).FormulaR1C1 = "=IF(RC9<>"""",RC[93],"""")"
Cells(11, 2).FormulaR1C1 = "=IF(RC9<>"""",RC[32],"""")"
Cells(11, 3).FormulaR1C1 = "=IF(AND(RC9<>"""",RC[63]<>""""),RC[63],"""")"
Dim lRs As Long, Rng As Range
lRs = LDQuanLy.Range("A" & Rows.Count).End(xlUp).Row
Set Rng = Range(Cells(11, 1), Cells(lRs, 3))
Range(Cells(11, 1), Cells(11, 3)).AutoFill Rng
Calculate
Rng.Value = Rng.Value
Cells(11, 3). Format("000000000000")
End Sub
Em thêm vo chỗ màu đổ thì nó báo lỗi 400. Nhờ các anh chị xem giúp em
Nhấp chuột vào đây để mở rộng...
Cells(11, 3).NumberFormat = "000000000000"
 
Upvote 0
Chào Các anh
Em muốn copy thêm cột 23,24,25,29 nằm tiếp theo
Mã: 
Private Sub CommandButton1_Click()
Dim sArr(), dArr(), i As Long, j As Byte, n As Byte
With Sheet2
   sArr = .Range("G10", .[AI65536].End(3)).Value
   ReDim dArr(1 To UBound(sArr), 1 To 4)
   For i = 1 To UBound(sArr, 1)
      For j = 1 To 4
         n = Choose(j, 1, 2, 3, 7)
         dArr(i, j) = sArr(i, n)
      Next
   Next
   Sheet1.[B65536].End(3)(2).Resize(i - 1, 4) = dArr
End With
End Sub
 
Upvote 0
VetMini đã viết:
Thì chép lại đoạn code kể từ sArr = .Range... cho đến Sheet1.[B...
Sau đó sửa G10 thành AC10, và Sheet1.[B65536].End(3)(2).Resize(i - 1, 4) thành Sheet1.[B65536].End(3)(2).Offset(1, 0).Resize(i - 1, 4)
Nhấp chuột vào đây để mở rộng...
Copy code tiếp chạy thì báo lỗi tài dòng màu đỏ
Mã: 
Private Sub CommandButton1_Click()
Dim sArr(), dArr(), i As Long, j As Byte, n As Byte
With Sheet2
   sArr = .Range("G10", .[AI65536].End(3)).Value
   ReDim dArr(1 To UBound(sArr), 1 To 4)
   For i = 1 To UBound(sArr, 1)
      For j = 1 To 4
         n = Choose(j, 1, 2, 3, 7)
         dArr(i, j) = sArr(i, n)
      Next
   Next
   Sheet1.[B65536].End(3)(2).Resize(i - 1, 4) = dArr
End With
With Sheet2
   sArr = .Range("AC10", .[AI65536].End(3)).Value
   ReDim dArr(1 To UBound(sArr), 1 To 4)
   For i = 1 To UBound(sArr, 1)
      For j = 1 To 4
         n = Choose(j, 23, 24, 25, 29)
[COLOR=#ff0000]         dArr(i, j) = sArr(i, n)[/COLOR]
      Next
   Next
   Sheet1.[B65536].End(3)(2).Offset(1, 0).Resize(i - 1, 4) = dArr
End With
End Sub
 
Upvote 0
lhthai đã viết:
Copy code tiếp chạy thì báo lỗi tài dòng màu đỏ
Mã: 
Private Sub CommandButton1_Click()
Dim sArr(), dArr(), i As Long, j As Byte, n As Byte
With Sheet2
   sArr = .Range("G10", .[AI65536].End(3)).Value
   ReDim dArr(1 To UBound(sArr), 1 To 4)
   For i = 1 To UBound(sArr, 1)
      For j = 1 To 4
         n = Choose(j, 1, 2, 3, 7)
         dArr(i, j) = sArr(i, n)
      Next
   Next
   Sheet1.[B65536].End(3)(2).Resize(i - 1, 4) = dArr
End With
With Sheet2
   sArr = .Range("AC10", .[AI65536].End(3)).Value
   ReDim dArr(1 To UBound(sArr), 1 To 4)
   For i = 1 To UBound(sArr, 1)
      For j = 1 To 4
         n = Choose(j, 23, 24, 25, 29)
[COLOR=#ff0000]        dArr(i, j) = sArr(i, n)[/COLOR]
      Next
   Next
   Sheet1.[B65536].End(3)(2).Offset(1, 0).Resize(i - 1, 4) = dArr
End With
End Sub
Nhấp chuột vào đây để mở rộng...

Xem lại cho kỹ tôi nói:

1. Copy phần bên trong block With, không phải copy cả block With. Nhưng cái này không quan trọng, chỉ tự nhiên 2 blocks with thì nó rườm rà thôi.

2. Tôi không hề bảo sửa phần n = Choose(j, 1, 2, 3, 7). Sửa phần này thì bị subscript out of range là phải rồi.
 
Upvote 0
VetMini đã viết:
Xem lại cho kỹ tôi nói:

1. Copy phần bên trong block With, không phải copy cả block With. Nhưng cái này không quan trọng, chỉ tự nhiên 2 blocks with thì nó rườm rà thôi.

2. Tôi không hề bảo sửa phần n = Choose(j, 1, 2, 3, 7). Sửa phần này thì bị subscript out of range là phải rồi.
Nhấp chuột vào đây để mở rộng...
Cám ơn bạn nhiều nha
Trường hợp mình muốn bỏ những o trống được không
Mã: 
Private Sub CommandButton1_Click()
Dim sArr(), dArr(), i As Long, j As Byte, n As Byte
With Sheet2
   sArr = .Range("G10", .[AI65536].End(3)).Value
   ReDim dArr(1 To UBound(sArr), 1 To 4)
   For i = 1 To UBound(sArr, 1)
      For j = 1 To 4
         n = Choose(j, 1, 2, 3, 7)
         dArr(i, j) = sArr(i, n)
      Next
   Next
   Sheet1.[B65536].End(3)(2).Resize(i - 1, 4) = dArr
   sArr = .Range("AC10", .[AI65536].End(3)).Value
   ReDim dArr(1 To UBound(sArr), 1 To 4)
   For i = 1 To UBound(sArr, 1)
      For j = 1 To 4
         n = Choose(j, 1, 2, 3, 7)
         dArr(i, j) = sArr(i, n)
      Next
   Next
   Sheet1.[B65536].End(3)(2).Offset(1, 0).Resize(i - 1, 4) = dArr
End With
End Sub
 
Upvote 0
lhthai đã viết:
Cám ơn bạn nhiều nha
Trường hợp mình muốn bỏ những o trống được không
Mã: 
Private Sub CommandButton1_Click()
Dim sArr(), dArr(), i As Long, j As Byte, n As Byte
With Sheet2
   sArr = .Range("G10", .[AI65536].End(3)).Value
   ReDim dArr(1 To UBound(sArr), 1 To 4)
   For i = 1 To UBound(sArr, 1)
      For j = 1 To 4
         n = Choose(j, 1, 2, 3, 7)
         dArr(i, j) = sArr(i, n)
      Next
   Next
   Sheet1.[B65536].End(3)(2).Resize(i - 1, 4) = dArr
   sArr = .Range("AC10", .[AI65536].End(3)).Value
   ReDim dArr(1 To UBound(sArr), 1 To 4)
   For i = 1 To UBound(sArr, 1)
      For j = 1 To 4
         n = Choose(j, 1, 2, 3, 7)
         dArr(i, j) = sArr(i, n)
      Next
   Next
   Sheet1.[B65536].End(3)(2).Offset(1, 0).Resize(i - 1, 4) = dArr
End With
End Sub
Nhấp chuột vào đây để mở rộng...

Muốn bỏ qua dòng trống thì bạn phải dùng thêm câu lệnh if trong vòng lặp để bẫy rồi đồng thời khai báo thêm biến để xác định dòng dữ liệu để nạp vào mảng kết quả xuất ra

[GPECODE=vb]
Private Sub CommandButton1_Click()
Dim sArr(), dArr(), i As Long, j As Byte, n As Byte, k As Long
With Sheet2
sArr = .Range("G10", .[AI65536].End(3)).Value
ReDim dArr(1 To UBound(sArr), 1 To 4)
For i = 1 To UBound(sArr, 1)
If sArr(i, 1) <> "" Then

k = k + 1
For j = 1 To 4
n = Choose(j, 1, 2, 3, 7)

dArr(k, j) = sArr(i, n)

Next
End If
Next


End With
Sheet1.[B65536].End(3)(2).Resize(k, 4) = dArr
End Sub


[/GPECODE]
 
Upvote 0
@nmhung49:
Người hỏi không nêu rõ ràng điều kiện "dòng trống" có nghĩa là gì. Code của bạn chỉ xét ô đầu tiên trong dòng.
Đối với những người hỏi lơ mơ như vầy, ta chỉ có thể mách đường đi thôi, còn chi tiết code là của họ.
 
Upvote 0
VetMini đã viết:
@nmhung49:
Người hỏi không nêu rõ ràng điều kiện "dòng trống" có nghĩa là gì. Code của bạn chỉ xét ô đầu tiên trong dòng.
Đối với những người hỏi lơ mơ như vầy, ta chỉ có thể mách đường đi thôi, còn chi tiết code là của họ.
Nhấp chuột vào đây để mở rộng...
Code copy diễn đàn viết lai thoi anh co code nao ngắn chi giup
sao kết quả giống như file la duoc
 
Upvote 0
VetMini đã viết:
@nmhung49:
Người hỏi không nêu rõ ràng điều kiện "dòng trống" có nghĩa là gì. Code của bạn chỉ xét ô đầu tiên trong dòng.
Đối với những người hỏi lơ mơ như vầy, ta chỉ có thể mách đường đi thôi, còn chi tiết code là của họ.
Nhấp chuột vào đây để mở rộng...
Vì thấy có bảng kết quả mong muốn nên đoán là bỏ dòng trống là dòng không có dữ liệu --=0--=0
Em nghĩ bạn ấy cũng muốn học code và ra kết quả là được, em cũng giải thích tay ngang cho bạn ấy hiểu chứ code chủ yếu học từ diễn đàn mà ra.
 
Upvote 0
nmhung49 đã viết:
Muốn bỏ qua dòng trống thì bạn phải dùng thêm câu lệnh if trong vòng lặp để bẫy rồi đồng thời khai báo thêm biến để xác định dòng dữ liệu để nạp vào mảng kết quả xuất ra

[GPECODE=vb]
Private Sub CommandButton1_Click()
Dim sArr(), dArr(), i As Long, j As Byte, n As Byte, k As Long
With Sheet2
sArr = .Range("G10", .[AI65536].End(3)).Value
ReDim dArr(1 To UBound(sArr), 1 To 4)
For i = 1 To UBound(sArr, 1)
If sArr(i, 1) <> "" Then

k = k + 1
For j = 1 To 4
n = Choose(j, 1, 2, 3, 7)

dArr(k, j) = sArr(i, n)

Next
End If
Next


End With
Sheet1.[B65536].End(3)(2).Resize(k, 4) = dArr
End Sub

[/GPECODE]
Nhấp chuột vào đây để mở rộng...
BẠn có thể bổ sung thêm cột AC được không
Cám ơn bạn nha
 
Upvote 0
Status
Không mở trả lời sau này.
Web KT

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

B
Xin hướng dẫn cách để hàm Xlookup tự hiển thị theo số dòng có chứa điều kiện tìm kiếm ko dùng VBA (4 người xem)
Trả lời
3
Đọc
43
bcttymc
B
T
tìm ra số tháng mà lượng hàng nhập ban đầu sử dụng hết (1 người xem)
Trả lời
1
Đọc
45
bebo021999
B
DinhManh1307
Cách thống kê công việc sản xuất từng người để tính lương sản phẩm (1 người xem)
Trả lời
11
Đọc
204
DinhManh1307
DinhManh1307
V
Help: Hàm đếm lọc giá trị trùng (1 người xem)
Trả lời
12
Đọc
72
DeTong
D
S
NHỜ ANH EM GIÚP MÌNH TÌM KIẾM DỮ LIỆU (1 người xem)
Trả lời
11
Đọc
118
Duy Tùng 9x
Duy Tùng 9x
H
chuyển dữ liệu từ 1 dòng thành nhiều dòng, (1 người xem)
Trả lời
8
Đọc
51
thuytrangbp28
T
C
Filter có điều kiện đang ở dạng Cột
Trả lời
2
Đọc
51
thuytrangbp28
T
L
Có ai biết fix lỗi này không ạ
    • Buồn
Trả lời
2
Đọc
45
lekimhuy0812
L
tonny jj
Lập hàm thể hiện số công lệnh của ngày đi công tác
Trả lời
5
Đọc
169
Gà Công Nghệ
Gà Công Nghệ
GPE-Trợ Lý
[GPE] TALKSHOW KHÁM PHÁ SỨC MẠNH HÀM FILTER TRONG EXCEL 365
    • Thích
Trả lời
1
Đọc
3K
PhanTuHuong
PhanTuHuong
K
Lỗi cấu trúc hình ảnh khi mở file bằng điện thoại (1 người xem)
Trả lời
0
Đọc
35
Kecodonlalala
K
N
  • Question Question
Nhờ mọi người góp ý cho file Quản lý bán hàng viết bằng VBA đầu tay của mình
    • Cảm ơn
    • Thích
Trả lời
7
Đọc
162
newbiexo
N
H
Xin được trợ giúp lỗi máy không mở được cửa sổ VBE.
Trả lời
3
Đọc
67
Nguyễn Duy Tuân
Nguyễn Duy Tuân
HeSanbi
  • Question Question
Sự khác nhau giữa book.Worksheets và book.Sheets trong Application (1 người xem)
    • Thích
Trả lời
2
Đọc
144
Nguyễn Duy Tuân
Nguyễn Duy Tuân
PhanTuHuong
Hà Nội hẹn hò gặp gỡ đầu năm 2025 thôi :)
    • Thích
    • Yêu thích
Trả lời
7
Đọc
332
PhanTuHuong
PhanTuHuong
yeudoi
Cà phê giao lưu cùng thành viên kỳ cựu Cao Mạnh Sơn 19h 23/2/2025
    • Thích
    • Yêu thích
Trả lời
1
Đọc
75
PhanTuHuong
PhanTuHuong
K
Làm sao để ô excel hiển thị tên nhưng khi nhấp vào thì đó là công thức
Trả lời
1
Đọc
51
pycckuu410
P
Nguyễn Duy Tuân
Phiên bản mới Add-in A-Tools v10 (2024)
    • Thích
2 3
Trả lời
41
Đọc
3K
Nguyễn Duy Tuân
Nguyễn Duy Tuân
ongke0711
  • Question Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba
    • Thích
    • Yêu thích
    • Cảm ơn
15 16 17
Trả lời
326
Đọc
25K
pycckuu410
P
V
  • Question Question
Đếm xếp loại của đơn hàng
Trả lời
8
Đọc
240
vanlinh_2904
V
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
TALKSHOW KHÁM PHÁ SỨC MẠNH HÀM FILTER TRONG EXCEL 365
Back
Top Bottom