luuquanghung91
Thành viên mới
- Tham gia
- 25/6/21
- Bài viết
- 9
- Được thích
- 2
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
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 ạ
- Thread starter luuquanghung91
- Ngày gửi
Thành viên mới
luuquanghung91
Thành viên mới
- Tham gia
- 25/6/21
- Bài viết
- 9
- Được thích
- 2
chân thành cám ơn b
luuquanghung91
Thành viên mới
- Tham gia
- 25/6/21
- Bài viết
- 9
- Được thích
- 2
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 Subluuquanghung91
Thành viên mới
- Tham gia
- 25/6/21
- Bài viết
- 9
- Được thích
- 2
thak kiu bác ạ
e mơi họcHUONGHCKT
Zalo 0986997214
- Tham gia
- 30/8/12
- Bài viết
- 1,744
- Được thích
- 3,115
- Donate (Paypal)
- Donate (Momo)
- Giới tính
- Nam
Nếu vẫn còn hứng thú với bài này
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
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
- Tham gia
- 8/6/06
- Bài viết
- 14,554
- Được thích
- 22,853
- Nghề nghiệp
- U80
luuquanghung91
Thành viên mới
- Tham gia
- 25/6/21
- Bài viết
- 9
- Được thích
- 2
sArr = Sheets("Sheet1").Range("A2:G2").Value
"Sheet1" là tên sheet cần xử lý, hình như là "CT7"
luuquanghung91
Thành viên mới
- Tham gia
- 25/6/21
- Bài viết
- 9
- Được thích
- 2
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
luuquanghung91
Thành viên mới
- Tham gia
- 25/6/21
- Bài viết
- 9
- Được thích
- 2
Ý 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:
File đính kèm
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
Thành viên mới
- Tham gia
- 25/6/21
- Bài viết
- 9
- Được thích
- 2
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 Subluuquanghung91
Thành viên mới
- Tham gia
- 25/6/21
- Bài viết
- 9
- Được thích
- 2
em cám ơn bác..........
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
Bài viết mới nhất
- Question
- Question