Cám ơn anh rất nhiều. Ý Anh hỏi tính theo số ô không được tô màu em cũng muốn tính xem số ô không được tô màu từ 1 đến n lần như ô được tô màu ak. Phiền Anh có thể code thêm phần những ô không được tô màu từ 1 đến n lần. Ta tính thêm cho trường hợp ngược lại với bài toán tính ô có màu Anh ak!
Em đã chạy code và rất ngưỡng mộ Bác. ở đây code chạy rất ok. Nhưng với trường hợp ở những ô không có màu thì em thấy Anh viết code tính cộng cả các hàng bên trên không có màu. Mong muốn của em là mong Anh sửa giúp em với các ô không có màu từ 1 đến N cũng giống như với ô đã được tô màu ak!( Tính thêm với các ô không được bôi màu tương tự như với ô đã được bôi màu đó anh). Em đã ghi chú trong file đính kèm ak!
Thành thật xin lỗi Anh! đọc nội dung Anh viết em mừng quá. file vừa rồi e gửi thiếu nội dung nên lần này em chỉnh sửa lại theo câu hỏi của Anh đã ghi trong file. Quả thật Bác thiệt tài đọc luôn được ý trong đầu em vậy. Em xin gửi lại file Anh chiếu cố giúp cho.
Em có thêm một vấn đề nữa mong Bác giúp ak!
cái này là bài mới rồi mà. bạn nên lập chủ đề mới
Dạ em dốt quá đọc hướng dẫn sử dụng diễn đàn mà không biết tạo chủ đề mới như nào, Anh hướng dẫn em được không ak? chứ không em sợ phạm qui mất
Thế này chăng?
Chạy 2 code . . .
Option Explicit
Sub Dem()
Dim arr(), S, res(), str$, tmp$, t$, a$, d$
Dim sR&, i&, k&, j&, N&, fC&, c&
Const deli$ = ",.;:-"
With Sheet1
arr = .Range("A2", .Range("A2").End(xlDown)).Value
End With
sR = UBound(arr)
ReDim res(1 To sR, 1 To 3)
For i = 1 To sR
str = Replace(arr(i, 1), " ", "") & ","
N = Len(str)
fC = 1
k = 0
tmp = "|"
a = Empty: d = Empty
For j = 1 To N
c = InStr(1, deli, Mid(str, j, 1))
If c > 0 Then
t = Mid(str, fC, j - fC)
If InStr(1, tmp, "|" & t & "|") = 0 Then
k = k + 1
tmp = tmp & t & "|"
a = a & d & t
d = Mid(deli, c, 1)
End If
fC = j + 1
End If
Next j
If a = Empty Then res(i, 1) = str Else res(i, 1) = a
res(i, 2) = k
Next i
Sheet1.Range("B2").Resize(sR).NumberFormat = "@"
Sheet1.Range("B2").Resize(sR, 2) = res
End Sub
Sub Them()
Dim arr(), res(), sR&, sC&, i&, j&
arr = Sheet1.Range("E2:N2").Resize(10).Value
sR = UBound(arr, 1): sC = UBound(arr, 2)
For j = 1 To sC
For i = 2 To sR
If arr(i - 1, j) = 9 Then arr(i, j) = 0 Else arr(i, j) = arr(i - 1, j) + 1
Next i
Next j
Sheet1.Range("E2:N2").Resize(10).Value = arr
End SubCái sub dem đúng là tuyệt. Cám ơn thầy
em cám ơn anh nhiều ak! thực sự rất cảm kích sự giúp đỡ vô tư của Anh/ Chị trên diễn đàn
Thực lòng xin cảm ơn Thầy nhiều ak!, Em Kính chúc Thầy luôn mạnh khoẻ và thành công.
Thầy xử lí luôn được cả các kí tự :," ;, ." vv...và vv. Thầy đúng là quá giỏi.!
Cám ơn Anh đã hướng dẫn ak!
Cám ơn Anh ak! Code của Anh quá tuyệt vời, cuối cùng vượt ngoài mong đợi của em. Thành thật xin lỗi vì phiền anh nhiều vì văn phạm lủng củng không nói nên được nội dụng làm anh mất thời gian viết đi viết lại. Một lần nữa gửi lời chúc đến Anh và gia đình có ngày 8.3 vui vẻ và hạnh phúc!
Cám ơn Anh nhiều nhiều! Tuy nhiên khi chạy code chưa đúng với nội dung mong muốn và định dạng là text chứ không phải là number vì vậy mong Anh chỉnh giúp. Nội dung mong muốn sửa em ghi trong file ak!
Thầy ơi cứu em!
Dữ liệu khác code phải khác nhiều. Gởi file với cấu trúc dữ liệu thật, dữ liệu có thể thay thế bằng dữ liệu giả định nếu muốn bảo mật, để viết code 1 lần cuối
Bạn trình bày trong file thực tình tôi không hiểu gì cả.
Dạ! Thật lòng không biết nói gì ngoài lời cảm kích ngưỡng mộ Anh, em xin gửi lại file với nội dung mong muốn. Anh bớt chút thời gian xem qua và code giúp.
Dạ cái này nó ứng dụng nhiều đó anh, file giả lập về màu kiểu liệt kê màu những hàng có ô liên tục bôi màu kiểu đánh dấu ak.
