Code so sánh hai mảng và đưa ra kết quả

Liên hệ QC
P

Phương Phương mito

Thành viên thường trực
Tham gia
1/5/19
Bài viết
275
Được thích
65
Kính gửi anh chị,
E có số liệu bán hàng của tháng 1 và 3. Nếu không dùng Pivot mà Code em muốn so sánh giá trị hàng theo mã hàng giữa hai tháng 1&3 và đưa ra kết quả theo 3 tiêu thức tại vùng H19:K21 như File thì code sẽ như thế nào ạ. Em cảm ơn anh chị ạ.
 

File đính kèm

Sắp xếp theo thời gian sắp xếp theo bầu chọn
khanhly94 đã viết:
Kính gửi anh chị,
E có số liệu bán hàng của tháng 1 và 3. Nếu không dùng Pivot mà Code em muốn so sánh giá trị hàng theo mã hàng giữa hai tháng 1&3 và đưa ra kết quả theo 3 tiêu thức tại vùng H19:K21 như File thì code sẽ như thế nào ạ. Em cảm ơn anh chị ạ.
Nhấp chuột vào đây để mở rộng...
Bạn xem thử file với code "Cùi bắp".
 

File đính kèm

Upvote 0
Ba Tê đã viết:
Bạn xem thử file với code "Cùi bắp".
Nhấp chuột vào đây để mở rộng...
Quá tuyệt vời với hai từ "Cùi bắp" đó ạ !!! Em còn một í thui ạ, với yêu cầu 2 và 3 ấy ạ, nó chỉ List ra các mã mà có tổng lớn hơn 200 thì thêm Code thế nào ạ. (Ví như G(87), H(225) thì nó chỉ list là H(225) vì G(87) < 200 ạ). Em cảm ơn Anh ạ !
 
Upvote 0
Ba Tê đã viết:
Bạn xem thử file với code "Cùi bắp".
Nhấp chuột vào đây để mở rộng...
Em cũng muốn học Code này của Bác Bate ạ. Nếu có thời gian nhờ bác chỉ rõ ý nghĩ của từng đoạn Code chính với ạ.

Public Sub sGpe()
Dim Arr1(), Arr2(), dArr(), tArr(), I As Long, J As Long, K As Long, R1 As Long, R2 As Long, Txt As String
Arr1 = Range("B2", Range("B10000").End(xlUp)).Resize(, 4).Value
R1 = UBound(Arr1)
Arr2 = Range("L2", Range("L10000").End(xlUp)).Resize(, 4).Value
R2 = UBound(Arr2)
ReDim tArr(1 To R1 + R2, 1 To 3)
With CreateObject("Scripting.Dictionary")

For I = 1 To R1
Txt = Arr1(I, 1)
If Not .Exists(Txt) Then
K = K + 1
.Item(Txt) = K
tArr(K, 1) = Txt
tArr(K, 2) = Arr1(I, 4)
Else
tArr(.Item(Txt), 2) = tArr(.Item(Txt), 2) + Arr1(I, 4)
End If
Next I



For I = 1 To R2
Txt = Arr2(I, 1)
If Not .Exists(Txt) Then
K = K + 1
.Item(Txt) = K
tArr(K, 1) = Txt
tArr(K, 3) = Arr2(I, 4)
Else
tArr(.Item(Txt), 3) = tArr(.Item(Txt), 3) + Arr2(I, 4)
End If
Next I
End With
R1 = K
ReDim dArr(1 To 3, 1 To 3)
For I = 1 To R1
If tArr(I, 2) > 0 And tArr(I, 3) > 0 Then
dArr(1, 1) = dArr(1, 1) + 1
dArr(1, 2) = dArr(1, 2) & tArr(I, 1) & ", "
dArr(1, 3) = dArr(1, 3) + tArr(I, 2) - tArr(I, 3)
ElseIf tArr(I, 2) > 0 And tArr(I, 3) = 0 Then
dArr(2, 1) = dArr(2, 1) + 1
dArr(2, 2) = dArr(2, 2) & tArr(I, 1) & "(" & tArr(I, 2) & "), "
dArr(2, 3) = dArr(2, 3) + tArr(I, 2)
ElseIf tArr(I, 2) = 0 And tArr(I, 3) > 0 Then
dArr(3, 1) = dArr(3, 1) + 1
dArr(3, 2) = dArr(3, 2) & tArr(I, 1) & "(" & tArr(I, 3) & "), "
dArr(3, 3) = dArr(3, 3) + tArr(I, 3)
End If
Next I
For I = 1 To 3
If Len(dArr(I, 2)) Then dArr(I, 2) = Left(dArr(I, 2), Len(dArr(I, 2)) - 2)
Next I
Range("H6").Resize(3, 3) = dArr
End Sub
 
Upvote 0
khanhly94 đã viết:
Kính gửi anh chị,
E có số liệu bán hàng của tháng 1 và 3. Nếu không dùng Pivot mà Code em muốn so sánh giá trị hàng theo mã hàng giữa hai tháng 1&3 và đưa ra kết quả theo 3 tiêu thức tại vùng H19:K21 như File thì code sẽ như thế nào ạ. Em cảm ơn anh chị ạ.
Nhấp chuột vào đây để mở rộng...
Mã: 
Sub SoSanh()
  Dim sArr1(), sArr2(), tArr(), Res(1 To 3, 1 To 3), Dic As Object, iKey As String
  Dim i As Long, sRow1 As Long, sRow2 As Long, k As Long, ik As Long

  Set Dic = CreateObject("Scripting.Dictionary")
  sArr1 = Range("B2", Range("B" & Rows.Count).End(xlUp)).Resize(, 4).Value
  sArr2 = Range("L2", Range("L" & Rows.Count).End(xlUp)).Resize(, 4).Value
  sRow1 = UBound(sArr1): sRow2 = UBound(sArr2)
  ReDim tArr(1 To sRow1 + sRow2, 1 To 3)
  For i = 1 To sRow1
    iKey = sArr1(i, 1)
    If Not Dic.Exists(iKey) Then
      k = k + 1
      Dic.Add iKey, k
      tArr(k, 3) = iKey
    End If
    ik = Dic.Item(iKey)
    tArr(ik, 1) = tArr(ik, 1) + sArr1(i, 4)
  Next i
 
  For i = 1 To sRow2
    iKey = sArr2(i, 1)
    If Not Dic.Exists(iKey) Then
      k = k + 1
      Dic.Add iKey, k
      tArr(k, 3) = iKey
    End If
    ik = Dic.Item(iKey)
    tArr(ik, 2) = tArr(ik, 2) + sArr2(i, 4)
  Next i

  For i = 1 To k
    If Len(tArr(i, 1)) = 0 Then
      Res(3, 1) = Res(3, 1) + 1
      If tArr(i, 2) >= 200 Then
        Res(3, 2) = Res(3, 2) & "," & tArr(i, 3) & "(" & tArr(i, 2) & ")"
      End If
      Res(3, 3) = Res(3, 3) + tArr(i, 2)
    ElseIf Len(tArr(i, 2)) = 0 Then
      Res(2, 1) = Res(2, 1) + 1
      If tArr(i, 1) >= 200 Then
        Res(2, 2) = Res(2, 2) & "," & tArr(i, 3) & "(" & tArr(i, 1) & ")"
      End If
      Res(2, 3) = Res(2, 3) + tArr(i, 1)
    Else
      Res(1, 1) = Res(1, 1) + 1
      Res(1, 3) = Res(1, 3) + tArr(i, 1) - tArr(i, 2)
    End If
  Next i

  Res(2, 2) = Mid(Res(2, 2), 2, Len(Res(2, 2)))
  Res(3, 2) = Mid(Res(3, 2), 2, Len(Res(3, 2)))
  Range("I19").Resize(3, 3) = Res
End Sub
 
Upvote 0
HieuCD đã viết:
Mã: 
Sub SoSanh()
  Dim sArr1(), sArr2(), tArr(), Res(1 To 3, 1 To 3), Dic As Object, iKey As String
  Dim i As Long, sRow1 As Long, sRow2 As Long, k As Long, ik As Long

  Set Dic = CreateObject("Scripting.Dictionary")
  sArr1 = Range("B2", Range("B" & Rows.Count).End(xlUp)).Resize(, 4).Value
  sArr2 = Range("L2", Range("L" & Rows.Count).End(xlUp)).Resize(, 4).Value
  sRow1 = UBound(sArr1): sRow2 = UBound(sArr2)
  ReDim tArr(1 To sRow1 + sRow2, 1 To 3)
  For i = 1 To sRow1
    iKey = sArr1(i, 1)
    If Not Dic.Exists(iKey) Then
      k = k + 1
      Dic.Add iKey, k
      tArr(k, 3) = iKey
    End If
    ik = Dic.Item(iKey)
    tArr(ik, 1) = tArr(ik, 1) + sArr1(i, 4)
  Next i

  For i = 1 To sRow2
    iKey = sArr2(i, 1)
    If Not Dic.Exists(iKey) Then
      k = k + 1
      Dic.Add iKey, k
      tArr(k, 3) = iKey
    End If
    ik = Dic.Item(iKey)
    tArr(ik, 2) = tArr(ik, 2) + sArr2(i, 4)
  Next i

  For i = 1 To k
    If Len(tArr(i, 1)) = 0 Then
      Res(3, 1) = Res(3, 1) + 1
      If tArr(i, 2) >= 200 Then
        Res(3, 2) = Res(3, 2) & "," & tArr(i, 3) & "(" & tArr(i, 2) & ")"
      End If
      Res(3, 3) = Res(3, 3) + tArr(i, 2)
    ElseIf Len(tArr(i, 2)) = 0 Then
      Res(2, 1) = Res(2, 1) + 1
      If tArr(i, 1) >= 200 Then
        Res(2, 2) = Res(2, 2) & "," & tArr(i, 3) & "(" & tArr(i, 1) & ")"
      End If
      Res(2, 3) = Res(2, 3) + tArr(i, 1)
    Else
      Res(1, 1) = Res(1, 1) + 1
      Res(1, 3) = Res(1, 3) + tArr(i, 1) - tArr(i, 2)
    End If
  Next i

  Res(2, 2) = Mid(Res(2, 2), 2, Len(Res(2, 2)))
  Res(3, 2) = Mid(Res(3, 2), 2, Len(Res(3, 2)))
  Range("I19").Resize(3, 3) = Res
End Sub
Nhấp chuột vào đây để mở rộng...
Code rất hay ạ. Nhưng em muốn Anh bớt chút time diễn giải giúp em ý nghĩa một số đoạn code chính được không ạ. Em muốn học thêm cách làm này ạ (Em muốn biết ý nghĩa của cái sArr1(i, 4), Arr(i, 3), Res(3, 1)........vì sao lại lúc 3, lúc 4....em đọc ham quá mà không hiểu ạ :((). Mong anh chỉ giáo giúp em ạ !!! Em cảm ơn anh ạ.
 
Upvote 0
khanhly94 đã viết:
Code rất hay ạ. Nhưng em muốn Anh bớt chút time diễn giải giúp em ý nghĩa một số đoạn code chính được không ạ. Em muốn học thêm cách làm này ạ (Em muốn biết ý nghĩa của cái sArr1(i, 4), Arr(i, 3), Res(3, 1)........vì sao lại lúc 3, lúc 4....em đọc ham quá mà không hiểu ạ :((). Mong anh chỉ giáo giúp em ạ !!! Em cảm ơn anh ạ.
Nhấp chuột vào đây để mở rộng...
Nên học cơ bản từ đầu, VBA là gì, rồi Array trong VBA thì bạn sẽ hiểu, giờ thành viên khác có giải thích thì cũng chưa chắc đã hiểu, hay hiểu chưa chắc đã áp dụng chỗ khác.
 
Upvote 0
Upvote 0
Upvote 0
khanhly94 đã viết:
Code rất hay ạ. Nhưng em muốn Anh bớt chút time diễn giải giúp em ý nghĩa một số đoạn code chính được không ạ. Em muốn học thêm cách làm này ạ (Em muốn biết ý nghĩa của cái sArr1(i, 4), Arr(i, 3), Res(3, 1)........vì sao lại lúc 3, lúc 4....em đọc ham quá mà không hiểu ạ :((). Mong anh chỉ giáo giúp em ạ !!! Em cảm ơn anh ạ.
Nhấp chuột vào đây để mở rộng...
Bạn tìm lớp học VBA căn bản, hoặc đọc sách để nắm cơ bản
Trong file , mảng sArr1() là vùng dữ liệu tương ứng B2:E17, Res() tương ứng với I19:K21, là mảng 2 chiều
Cú pháp sArr(i,j) lấy giá trị tại dòng i và cột j của mảng sArr
Bạn xem minh họa trong file, các vấn đề khác phải học một số kiến thức căn bản mới có khả năng hiểu được
 

File đính kèm

Upvote 0
HieuCD đã viết:
Bạn tìm lớp học VBA căn bản, hoặc đọc sách để nắm cơ bản
Trong file , mảng sArr1() là vùng dữ liệu tương ứng B2:E17, Res() tương ứng với I19:K21, là mảng 2 chiều
Cú pháp sArr(i,j) lấy giá trị tại dòng i và cột j của mảng sArr
Bạn xem minh họa trong file, các vấn đề khác phải học một số kiến thức căn bản mới có khả năng hiểu được
Nhấp chuột vào đây để mở rộng...
Em cảm ơn nhiều ạ !
 
Upvote 0
HieuCD đã viết:
Bạn tìm lớp học VBA căn bản, hoặc đọc sách để nắm cơ bản
Trong file , mảng sArr1() là vùng dữ liệu tương ứng B2:E17, Res() tương ứng với I19:K21, là mảng 2 chiều
Cú pháp sArr(i,j) lấy giá trị tại dòng i và cột j của mảng sArr
Bạn xem minh họa trong file, các vấn đề khác phải học một số kiến thức căn bản mới có khả năng hiểu được
Nhấp chuột vào đây để mở rộng...
Dear Anh,
Để hiểu các số 2,3,1...em đã thay đổi lại ví trị các dòng và vị trí để xuất ra kết quả. Nhưng em thấy nó báo lỗi. A xem giúp em em sửa Code của anh sai chỗ nào ạ.
Em đang hiểu sơ là
+ sArr1 = Range("B2", Range("B" & Rows.Count).End(xlUp)).Resize(, 4).Value thì em sẽ thay 4 =1
+ Kích cỡ của vùng ra kết quả không thay đổi nên vẫn tối đa sẽ bằng 3 về kích cỡ
+ Thay đổi vị trí ô bắt đầu vùng xuất kết quả thành ô J6
 

File đính kèm

Upvote 0
AutoReply đã viết:
Yếu quá, bạn xí dụ 1 đứa nhóc học 200 đô hoa kỳ / 1 buổi còn chưa được thì sức đâu mà vào chốn ấy học chứ
Nhấp chuột vào đây để mở rộng...
Cái "đứa nhóc" kia nó nói tiếng Việt.
Còn ở đây là dân Tây, xổ ra toàn đía đọt thánh thọt, chắc khi học sẽ được bụt gu gô phù hộ.
 
Lần chỉnh sửa cuối:
Upvote 0
khanhly94 đã viết:
Dear Anh,
Để hiểu các số 2,3,1...em đã thay đổi lại ví trị các dòng và vị trí để xuất ra kết quả. Nhưng em thấy nó báo lỗi. A xem giúp em em sửa Code của anh sai chỗ nào ạ.
Em đang hiểu sơ là
+ sArr1 = Range("B2", Range("B" & Rows.Count).End(xlUp)).Resize(, 4).Value thì em sẽ thay 4 =1
+ Kích cỡ của vùng ra kết quả không thay đổi nên vẫn tối đa sẽ bằng 3 về kích cỡ
+ Thay đổi vị trí ô bắt đầu vùng xuất kết quả thành ô J6
Nhấp chuột vào đây để mở rộng...
Resize(, 4) là lấy 4 cột từ cột B, file cần lấy 2 cột
sArr1 = Range("B2", Range("B" & Rows.Count).End(xlUp)).Resize(, 2).Value
Lúc đó cột giá trị là cột thứ 2: sArr1(i, 2)
Mã: 
Sub SoSanh()
  Dim sArr1(), sArr2(), tArr(), Res(1 To 3, 1 To 3), Dic As Object, iKey As String
  Dim i As Long, sRow1 As Long, sRow2 As Long, k As Long, ik As Long

  Set Dic = CreateObject("Scripting.Dictionary")
  sArr1 = Range("B2", Range("B" & Rows.Count).End(xlUp)).Resize(, 2).Value
  sArr2 = Range("F2", Range("F" & Rows.Count).End(xlUp)).Resize(, 2).Value
  sRow1 = UBound(sArr1): sRow2 = UBound(sArr2)
  ReDim tArr(1 To sRow1 + sRow2, 1 To 3)
  For i = 1 To sRow1
    iKey = sArr1(i, 1)
    If Not Dic.Exists(iKey) Then
      k = k + 1
      Dic.Add iKey, k
      tArr(k, 3) = iKey
    End If
    ik = Dic.Item(iKey)
    tArr(ik, 1) = tArr(ik, 1) + sArr1(i, 2)
  Next i
 
  For i = 1 To sRow2
    iKey = sArr2(i, 1)
    If Not Dic.Exists(iKey) Then
      k = k + 1
      Dic.Add iKey, k
      tArr(k, 3) = iKey
    End If
    ik = Dic.Item(iKey)
    tArr(ik, 2) = tArr(ik, 2) + sArr2(i, 2)
  Next i

  For i = 1 To k
    If Len(tArr(i, 1)) = 0 Then
      Res(3, 1) = Res(3, 1) + 1
      If tArr(i, 2) >= 200 Then
        Res(3, 2) = Res(3, 2) & "," & tArr(i, 3) & "(" & tArr(i, 2) & ")"
      End If
      Res(3, 3) = Res(3, 3) + tArr(i, 2)
    ElseIf Len(tArr(i, 2)) = 0 Then
      Res(2, 1) = Res(2, 1) + 1
      If tArr(i, 1) >= 200 Then
        Res(2, 2) = Res(2, 2) & "," & tArr(i, 3) & "(" & tArr(i, 1) & ")"
      End If
      Res(2, 3) = Res(2, 3) + tArr(i, 1)
    Else
      Res(1, 1) = Res(1, 1) + 1
      Res(1, 3) = Res(1, 3) + tArr(i, 1) - tArr(i, 2)
    End If
  Next i

  Res(2, 2) = Mid(Res(2, 2), 2, Len(Res(2, 2)))
  Res(3, 2) = Mid(Res(3, 2), 2, Len(Res(3, 2)))
  Range("j6").Resize(3, 3) = Res
End Sub
 
Upvote 0
HieuCD đã viết:
Resize(, 4) là lấy 4 cột từ cột B, file cần lấy 2 cột
sArr1 = Range("B2", Range("B" & Rows.Count).End(xlUp)).Resize(, 2).Value
Lúc đó cột giá trị là cột thứ 2: sArr1(i, 2)
Mã: 
Sub SoSanh()
  Dim sArr1(), sArr2(), tArr(), Res(1 To 3, 1 To 3), Dic As Object, iKey As String
  Dim i As Long, sRow1 As Long, sRow2 As Long, k As Long, ik As Long

  Set Dic = CreateObject("Scripting.Dictionary")
  sArr1 = Range("B2", Range("B" & Rows.Count).End(xlUp)).Resize(, 2).Value
  sArr2 = Range("F2", Range("F" & Rows.Count).End(xlUp)).Resize(, 2).Value
  sRow1 = UBound(sArr1): sRow2 = UBound(sArr2)
  ReDim tArr(1 To sRow1 + sRow2, 1 To 3)
  For i = 1 To sRow1
    iKey = sArr1(i, 1)
    If Not Dic.Exists(iKey) Then
      k = k + 1
      Dic.Add iKey, k
      tArr(k, 3) = iKey
    End If
    ik = Dic.Item(iKey)
    tArr(ik, 1) = tArr(ik, 1) + sArr1(i, 2)
  Next i

  For i = 1 To sRow2
    iKey = sArr2(i, 1)
    If Not Dic.Exists(iKey) Then
      k = k + 1
      Dic.Add iKey, k
      tArr(k, 3) = iKey
    End If
    ik = Dic.Item(iKey)
    tArr(ik, 2) = tArr(ik, 2) + sArr2(i, 2)
  Next i

  For i = 1 To k
    If Len(tArr(i, 1)) = 0 Then
      Res(3, 1) = Res(3, 1) + 1
      If tArr(i, 2) >= 200 Then
        Res(3, 2) = Res(3, 2) & "," & tArr(i, 3) & "(" & tArr(i, 2) & ")"
      End If
      Res(3, 3) = Res(3, 3) + tArr(i, 2)
    ElseIf Len(tArr(i, 2)) = 0 Then
      Res(2, 1) = Res(2, 1) + 1
      If tArr(i, 1) >= 200 Then
        Res(2, 2) = Res(2, 2) & "," & tArr(i, 3) & "(" & tArr(i, 1) & ")"
      End If
      Res(2, 3) = Res(2, 3) + tArr(i, 1)
    Else
      Res(1, 1) = Res(1, 1) + 1
      Res(1, 3) = Res(1, 3) + tArr(i, 1) - tArr(i, 2)
    End If
  Next i

  Res(2, 2) = Mid(Res(2, 2), 2, Len(Res(2, 2)))
  Res(3, 2) = Mid(Res(3, 2), 2, Len(Res(3, 2)))
  Range("j6").Resize(3, 3) = Res
End Sub
Nhấp chuột vào đây để mở rộng...
Em cảm ơn sự chỉ bảo tận tình của anh ạ !!!
 
Upvote 0
HieuCD đã viết:
Resize(, 4) là lấy 4 cột từ cột B, file cần lấy 2 cột
sArr1 = Range("B2", Range("B" & Rows.Count).End(xlUp)).Resize(, 2).Value
Lúc đó cột giá trị là cột thứ 2: sArr1(i, 2)
Mã: 
Sub SoSanh()
  Dim sArr1(), sArr2(), tArr(), Res(1 To 3, 1 To 3), Dic As Object, iKey As String
  Dim i As Long, sRow1 As Long, sRow2 As Long, k As Long, ik As Long

  Set Dic = CreateObject("Scripting.Dictionary")
  sArr1 = Range("B2", Range("B" & Rows.Count).End(xlUp)).Resize(, 2).Value
  sArr2 = Range("F2", Range("F" & Rows.Count).End(xlUp)).Resize(, 2).Value
  sRow1 = UBound(sArr1): sRow2 = UBound(sArr2)
  ReDim tArr(1 To sRow1 + sRow2, 1 To 3)
  For i = 1 To sRow1
    iKey = sArr1(i, 1)
    If Not Dic.Exists(iKey) Then
      k = k + 1
      Dic.Add iKey, k
      tArr(k, 3) = iKey
    End If
    ik = Dic.Item(iKey)
    tArr(ik, 1) = tArr(ik, 1) + sArr1(i, 2)
  Next i

  For i = 1 To sRow2
    iKey = sArr2(i, 1)
    If Not Dic.Exists(iKey) Then
      k = k + 1
      Dic.Add iKey, k
      tArr(k, 3) = iKey
    End If
    ik = Dic.Item(iKey)
    tArr(ik, 2) = tArr(ik, 2) + sArr2(i, 2)
  Next i

  For i = 1 To k
    If Len(tArr(i, 1)) = 0 Then
      Res(3, 1) = Res(3, 1) + 1
      If tArr(i, 2) >= 200 Then
        Res(3, 2) = Res(3, 2) & "," & tArr(i, 3) & "(" & tArr(i, 2) & ")"
      End If
      Res(3, 3) = Res(3, 3) + tArr(i, 2)
    ElseIf Len(tArr(i, 2)) = 0 Then
      Res(2, 1) = Res(2, 1) + 1
      If tArr(i, 1) >= 200 Then
        Res(2, 2) = Res(2, 2) & "," & tArr(i, 3) & "(" & tArr(i, 1) & ")"
      End If
      Res(2, 3) = Res(2, 3) + tArr(i, 1)
    Else
      Res(1, 1) = Res(1, 1) + 1
      Res(1, 3) = Res(1, 3) + tArr(i, 1) - tArr(i, 2)
    End If
  Next i

  Res(2, 2) = Mid(Res(2, 2), 2, Len(Res(2, 2)))
  Res(3, 2) = Mid(Res(3, 2), 2, Len(Res(3, 2)))
  Range("j6").Resize(3, 3) = Res
End Sub
Nhấp chuột vào đây để mở rộng...
Dear Anh,
Em làm phiền anh chút nữa vấn đề này với ạ. Tiếp theo mục đích trên, tại kết quả đưa ra tại K7 và K8 em muốn thêm yêu cầu:
(1) Các mã hàng đưa ra xếp theo thứ tự giá trị từ lớn đến bé ạ
(2) Sau đó, List ra tại I13 và J13 mã của 5 loại hàng có giá trị lớn nhất của từng tháng ạ.

Code sẽ thêm vào thế nào ạ. Em cảm ơn Anh ạ.
 

File đính kèm

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

H
Công thức tìm kết quả
Trả lời
6
Đọc
45
haquyet2013
H
Mewwo98
Thay dấu ngăn cách sau chữ số hàng nghìn, hàng triệu, hàng tỷ trong Mail Merge
Trả lời
1
Đọc
14
Hoàng Tuấn 868
H
Huyen9
Lỗi không mailings được.
Trả lời
1
Đọc
18
Mewwo98
Mewwo98
N
Nhờ các anh chỉ chỉnh lỗi giúp em với ạ, em cảm ơn ạ.
Trả lời
3
Đọc
59
minhminh27
minhminh27
T
File quản lý thiết bị trong trường học!
Trả lời
4
Đọc
115
VetMini
V
Xoainon3005
Xin file mẫu kế hoạch sản xuất theo tháng ngành động cơ
Trả lời
1
Đọc
112
VetMini
V
Momominh
Sơ đồ hàng hóa trong Container
Trả lời
3
Đọc
106
VetMini
V
L
Viết phần mềm đánh lô bằng Visual Basic
    • Thích
2 3
Trả lời
51
Đọc
103K
taimeanh
T
hungtin1997
  • Question Question
[Hỏi] Tạo Hyperlink đến ô chạy ngang theo cột
Trả lời
6
Đọc
402
A HOANG 620
A
LuuAnh980
Add in tạo QR code miễn phí.
Trả lời
14
Đọc
534
htin1997
htin1997
tramcannt
Các bác cho hỏi làm cách nào để thu nhỏ thanh công thức này với ạ. Em cảm ơn.
Trả lời
2
Đọc
54
Nhattanktnn
Nhattanktnn
S
  • Question Question
Điều chỉnh kích thước dòng tự động theo trang in
Trả lời
5
Đọc
134
HUONGHCKT
H
A
Tạo vé Loto bằng Excel
2
Trả lời
20
Đọc
23K
Tuấn tata
Tuấn tata
Nauduong
Cách chuyển định dạng từ PDF sang Image
Trả lời
9
Đọc
251
Châu Bá Thông
Châu Bá Thông
minhduongct
  • Question Question
Viết code VBA thay cho dùng hàm vlookup
Trả lời
6
Đọc
1K
VetMini
V
N
Thử viết code lập trình đa luồng bằng TwinBasic và khả năng ứng dụng vào COM add-in chạy trong Excel
    • Thích
Trả lời
0
Đọc
142
nguyendang95
N
Thanh271188
Tìm giá trị xuất hiện bất kì (không phải giá trị đầu, cuối) trong excel
    • Cười
Trả lời
4
Đọc
220
Duy Tùng 9x
Duy Tùng 9x
H
Xin viết dùng mã vba thay thế cho hàm vlookup
    • Thích
12 13 14
Trả lời
264
Đọc
79K
VetMini
V
SA_DQ
  • Question Question
[Bài tập VBA cho người rỗi rảnh] Hãy viết 1 macro tìm ra 3 số nguyên tố liên tiếp
2
Trả lời
35
Đọc
751
VetMini
V
P
Các Bác cho e hỏi làm thế nào để ẩn công thức trên GOOGLE SHEET với ạ?
2
Trả lời
22
Đọc
18K
yeudoi
yeudoi
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
Chúc mừng năm mới Ất Tỵ 2025
Back
Top Bottom