cho 2 xin lệnh hoặc hàm ghép 5 dàn số tạo thành mức 0,1,2,3 với ạ

luuquanghung91 · 27/6/21

như tiêu đề, các bac pro cho e xin cách ghép các dàn số tạo mức như trong file. e càm ơn

dazkangel · 27/6/21

Nếu bạn yêu thích truyền thống, thì tôi sẽ sử dụng cột phụ:

luuquanghung91 · 27/6/21

dazkangel đã viết:
Nếu bạn yêu thích truyền thống, thì tôi sẽ sử dụng cột phụ:

chân thành cám ơn b

luuquanghung91 · 27/6/21

dazkangel đã viết:
Nếu bạn yêu thích truyền thống, thì tôi sẽ sử dụng cột phụ:

bác cho e xin làm bằng mã code nữa đc k?

HieuCD · 28/6/21

luuquanghung91 đã viết:
bác cho e xin làm bằng mã code nữa đc k?

Thích thì chiều

Mã:

Sub ABC()
  Dim sArr(), Arr&(0 To 99), S, Res(), sCol&, i&, j&

  sArr = Sheets("Sheet1").Range("A2:G2").Value
  sCol = UBound(sArr, 2)
  ReDim Res(0 To sCol, 1 To 2)
  For j = 1 To sCol
    S = Split(sArr(1, j), ",")
    For i = 0 To UBound(S)
      Arr(CLng(S(i))) = Arr(CLng(S(i))) + 1
    Next i
  Next j
  For i = 0 To 99
    If Res(Arr(i), 2) = Empty Then
      Res(Arr(i), 1) = "Muc:  " & Arr(i)
      Res(Arr(i), 2) = Format(i, "00")
    Else
      Res(Arr(i), 2) = Res(Arr(i), 2) & "," & Format(i, "00")
    End If
  Next i
  Sheets("Sheet1").Range("E5").Resize(sCol + 1, 2) = Res
End Sub

luuquanghung91 · 28/6/21

HieuCD đã viết:

Thích thì chiều

Mã:

Sub ABC()
  Dim sArr(), Arr&(0 To 99), S, Res(), sCol&, i&, j&

  sArr = Sheets("Sheet1").Range("A2:G2").Value
  sCol = UBound(sArr, 2)
  ReDim Res(0 To sCol, 1 To 2)
  For j = 1 To sCol
    S = Split(sArr(1, j), ",")
    For i = 0 To UBound(S)
      Arr(CLng(S(i))) = Arr(CLng(S(i))) + 1
    Next i
  Next j
  For i = 0 To 99
    If Res(Arr(i), 2) = Empty Then
      Res(Arr(i), 1) = "Muc:  " & Arr(i)
      Res(Arr(i), 2) = Format(i, "00")
    Else
      Res(Arr(i), 2) = Res(Arr(i), 2) & "," & Format(i, "00")
    End If
  Next i
  Sheets("Sheet1").Range("E5").Resize(sCol + 1, 2) = Res
End Sub

thak kiu bác ạ

e mơi học

HUONGHCKT · 28/6/21

Nếu vẫn còn hứng thú với bài này

luuquanghung91 đã viết:
e dùng hàm =CONCATENATE nhưng ghép với nhau thì k bỏ đc những số trùng.
làm sao để ghép dàn 1 và dàn 2 để ra đc dàn 3

thì thử xem.
P/S: Code học mót trên diễn dàn, chế cháo lại cho hợp vói đề bài. chắc cũng còn nhiều thiếu sót. mong các anh chị em xem, bổ xung và hoàn chỉnh

SA_DQ · 28/6/21

Xem ở đây: https://www.giaiphapexcel.com/diend...-2-dàn-thành-1-dàn-với-ạ.156321/#post-1034151

luuquanghung91 · 29/6/21

HieuCD đã viết:

Thích thì chiều

Mã:

Sub ABC()
  Dim sArr(), Arr&(0 To 99), S, Res(), sCol&, i&, j&

  sArr = Sheets("Sheet1").Range("A2:G2").Value
  sCol = UBound(sArr, 2)
  ReDim Res(0 To sCol, 1 To 2)
  For j = 1 To sCol
    S = Split(sArr(1, j), ",")
    For i = 0 To UBound(S)
      Arr(CLng(S(i))) = Arr(CLng(S(i))) + 1
    Next i
  Next j
  For i = 0 To 99
    If Res(Arr(i), 2) = Empty Then
      Res(Arr(i), 1) = "Muc:  " & Arr(i)
      Res(Arr(i), 2) = Format(i, "00")
    Else
      Res(Arr(i), 2) = Res(Arr(i), 2) & "," & Format(i, "00")
    End If
  Next i
  Sheets("Sheet1").Range("E5").Resize(sCol + 1, 2) = Res
End Sub

Em bị lỗi này là sao vậy bác. Hộ em với

HieuCD · 29/6/21

luuquanghung91 đã viết:
View attachment 261514 View attachment 261515
Em bị lỗi này là sao vậy bác. Hộ em với

sArr = Sheets("Sheet1").Range("A2:G2").Value
"Sheet1" là tên sheet cần xử lý, hình như là "CT7"

luuquanghung91 · 29/6/21

HieuCD đã viết:
sArr = Sheets("Sheet1").Range("A2:G2").Value
"Sheet1" là tên sheet cần xử lý, hình như là "CT7"

Vâng. Bác có viết đc code mức với số cùng 1 hàng như mẫu của em không ạ. Nếu được làm phiền bác hộ em với

HieuCD · 29/6/21

VBA chạy trên file excel không chạy được trên nền file hình ảnh

luuquanghung91 · 29/6/21

HieuCD đã viết:
VBA chạy trên file excel không chạy được trên nền file hình ảnh

Ý em là chạy ra mức 1 cột theo hàng dọc này ý ạ. Của a là thành 2 hàng dọc

Bài đã được tự động gộp: 30/6/21

HieuCD · 30/6/21

luuquanghung91 đã viết:
Ý em là chạy ra mức 1 cột theo hàng dọc này ý ạ. Của a là thành 2 hàng dọc

Bài đã được tự động gộp: 30/6/21

View attachment 261535

Hình bài #9 và bài #13 khác nhau không biết ý là gì? gởi file excel với kết quả mong muốn mình sẽ chỉnh code lần cuối

luuquanghung91 · 30/6/21

Dạ ý em là muốn nhờ bác hộ e chỉnh lại mã code cho dòng mức và số cùng 1 cột ạ ( em bôi đỏ), của bác bây giờ đang là 2 cột riếng. hơi phiền bác thông cảm giúp em

HieuCD · 30/6/21

luuquanghung91 đã viết:
Dạ ý em là muốn nhờ bác hộ e chỉnh lại mã code cho dòng mức và số cùng 1 cột ạ ( em bôi đỏ), của bác bây giờ đang là 2 cột riếng. hơi phiền bác thông cảm giúp em

Chỉnh lại

Mã:

Sub ABC()
  Dim sArr(), Arr&(0 To 99), S, Res(), sCol&, i&, k&

  sArr = Sheets("CT7").Range("A8:G8").Value
  sCol = UBound(sArr, 2)
  ReDim Res(0 To (sCol + 1) * 2, 1 To 2)
  For k = 1 To sCol
    S = Split(sArr(1, k), ",")
    For i = 0 To UBound(S)
      Arr(CLng(S(i))) = Arr(CLng(S(i))) + 1
    Next i
  Next k
  For i = 0 To 99
    k = Arr(i) * 2
    Res(k, 2) = Res(k, 2) + 1
    If Res(k, 1) = Empty Then
      Res(k, 1) = "Muc:  " & Arr(i)
      Res(k + 1, 1) = Format(i, "00")
    Else
      Res(k + 1, 1) = Res(k + 1, 1) & "," & Format(i, "00")
    End If
  Next i
  For k = 0 To sCol * 2 Step 2
    If Res(k, 2) <> Empty Then
      Res(k, 1) = Res(k, 1) & " ( " & Res(k, 2) & " So)"
    End If
  Next k
  Sheets("CT7").Range("C9").Resize((sCol + 1) * 2) = Res
End Sub

luuquanghung91 · 30/6/21

HieuCD đã viết:

Chỉnh lại

Mã:

Sub ABC()
  Dim sArr(), Arr&(0 To 99), S, Res(), sCol&, i&, k&

  sArr = Sheets("CT7").Range("A8:G8").Value
  sCol = UBound(sArr, 2)
  ReDim Res(0 To (sCol + 1) * 2, 1 To 2)
  For k = 1 To sCol
    S = Split(sArr(1, k), ",")
    For i = 0 To UBound(S)
      Arr(CLng(S(i))) = Arr(CLng(S(i))) + 1
    Next i
  Next k
  For i = 0 To 99
    k = Arr(i) * 2
    Res(k, 2) = Res(k, 2) + 1
    If Res(k, 1) = Empty Then
      Res(k, 1) = "Muc:  " & Arr(i)
      Res(k + 1, 1) = Format(i, "00")
    Else
      Res(k + 1, 1) = Res(k + 1, 1) & "," & Format(i, "00")
    End If
  Next i
  For k = 0 To sCol * 2 Step 2
    If Res(k, 2) <> Empty Then
      Res(k, 1) = Res(k, 1) & " ( " & Res(k, 2) & " So)"
    End If
  Next k
  Sheets("CT7").Range("C9").Resize((sCol + 1) * 2) = Res
End Sub

em cám ơn bác..........

Gacoi.px · 14/5/22

hello bác @HieuCD; Bác giúp tôi hiểu rõ code hơn được không?

Gacoi.px · 16/5/22

Bác @HieuCD lập giúp em hàm để tách mức các cột số trong bảng này với.

HieuCD · 17/5/22

Gacoi.px đã viết:
Bác @HieuCD lập giúp em hàm để tách mức các cột số trong bảng này với.

Chạy sub . . .

Mã:

Sub ABC()
  Dim sArr(), Arr&(0 To 99), S, Res$(), sRow&, i&, r&

  sArr = Sheets("Sheet1").Range("B2:B11").Value
  sRow = UBound(sArr, 1)
  ReDim Res(0 To sRow, 1 To 1)
  For r = 1 To sRow
    S = Split(sArr(r, 1), ",")
    For i = 0 To UBound(S)
      If S(i) <> Empty Then Arr(CLng(S(i))) = Arr(CLng(S(i))) + 1
    Next i
  Next r
  For i = 0 To 99
    If Res(Arr(i), 1) = Empty Then
      Res(Arr(i), 1) = Format(i, "00")
    Else
      Res(Arr(i), 1) = Res(Arr(i), 1) & "," & Format(i, "00")
    End If
  Next i
  Sheets("Sheet1").Range("G1").Resize(sRow + 1, 1) = Res
End Sub

cho 2 xin lệnh hoặc hàm ghép 5 dàn số tạo thành mức 0,1,2,3 với ạ

Thành viên mới

File đính kèm

<New Horizons>

File đính kèm

Thành viên mới

Thành viên mới

Chuyên gia GPE

Thành viên mới

Zalo 0986997214

File đính kèm

/(hông là gì!

Thành viên mới

Chuyên gia GPE

Thành viên mới

Chuyên gia GPE

Thành viên mới

File đính kèm

Chuyên gia GPE

Thành viên mới

File đính kèm

Chuyên gia GPE

Thành viên mới

Thành viên mới

Thành viên mới

File đính kèm

Chuyên gia GPE

Facebook

Group