Hỏi về Fill color với số ô cho trước và lỗi font (1 người xem)

[lehoangtam]

Các bạn cho mình hỏi 2 câu:

Câu 1: Mình xài Unikey, nhưng khi đánh tiếng việt trong Excel thì bị lỗi các chữ có nguyên âm là ô, khi bỏ dấu thì bị mất nguyên âm, Vd Cộng -> cng.

Câu 2: Mình muốn fill color một số ô với hằng số cho trước.

Vd: 1 thì có 1 ô được fill, 5 thì có 5 ô được fill, các màu fill là khác nhau.

Mong các bạn giúp đỡ, xin cảm ơn các bạn.

 

[anhtuan1066]

Câu 1: tôi nghĩ là do bạn chọn sai bảng mã: Nếu bạn gõ bằng font Unicode thì right click lên biểu tượng Unikey và chọn Unicode, ngược lại nếu gõ bằng font VNI thì chọn mã VNI Windows... vân vân
Câu 2: Conditional Formating... bạn xem file nha!
ANH TUẤN

 

[voda]

Thêm một cách nữa cho vui.

 

[anhtuan1066]

Code của Voda hay lắm, tuy nhiên bạn xem lại chổ này:
Khi gõ 1 số, sau đó gõ lại bằng 1 số nhỏ hơn thì màu sắc có vấn đề.. Tôi nghĩ phải làm 1 đoạn code clear màu củ trước khi tô màu mới... ko biết có đúng ko nhỉ!
ANH TUẤN

 

[voda]

Đúng là mình chưa lường trước trường hợp này. Có thể thêm đoạn code sau để xoá màu cũ:
Range(Cells(Target.Row, 3), Cells(Target.Row, 255)).Select
Selection.Interior.ColorIndex = xlNone
Cám ơn bạn.

 

[anhtuan1066]

OK... tôi thêm code của bạn vào rồi... Hoạt động rất tốt!
Cám ơn bạn! Nhưng có 1 phát sinh nữa là: Lý ra khi gõ số 0 hoặc xóa hẳn cell thì nó phải mất màu chứ nhỉ? Bạn xem thêm trường hợp này nửa nha!
ANH TUẤN

 

[anhtuan1066]

Oh... xin lỗi... ko phải như vậy... tại tôi cho code nhầm chổ... Tốt rồi
ANH TUẤN

 

[lehoangtam]

Bạn ơi cho tôi hỏi thêm:

Tôi muốn thêm 2 tính năng nữa:

1. Tôi muốn ô bắt đầu fill là một biến số. VD: Công vệc 2 sau công việc 1 x ngày thì bắt đầu fill sau công việc 1 x ô.

2. Tôi muốn đánh dấu check vào khi hoàn thành công việc thì fill màu khác. Hoặc cách khác làm cho đổi màu.

Cảm ơn các bạn.

 

[voda]

Nguyên văn bởi anhtuan1066
Lý ra khi gõ số 0 hoặc xóa hẳn cell thì nó phải mất màu chứ nhỉ? Bạn xem thêm trường hợp này nửa nha!

Đúng là thêm 1 phát sinh nữa. Mình bổ sung đoạn code như sau, bạn test dùm nhé!

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Dim i, j As Integer
i = Target.Value
j = Int((56 * Rnd) + 1)
If Not Intersect(Range("B:B"), Target) Is Nothing Then
If Target <> "" And Target <> 0 Then
Range(Cells(Target.Row, 3), Cells(Target.Row, 255)).Select
Selection.Interior.ColorIndex = xlNone
Range(Cells(Target.Row, 3), Cells(Target.Row, 2 + i)).Select
With Selection.Interior
.ColorIndex = j
.Pattern = xlSolid
End With
Cells(1, 1).Select
Else
Range(Cells(Target.Row, 3), Cells(Target.Row, 255)).Select
Selection.Interior.ColorIndex = xlNone
Cells(1, 1).Select
End If
End If
End Sub

 

[anhtuan1066]

Bạn lehoangtam cho file cụ thể đi thì dễ nói chuyện hơn (trong file nhớ ghi yêu cầu rõ ràng nhé)
ANH TUẤN

 

[lehoangtam]

Tôi tải file lên.

Cảm ơn các bạn.

 

[anhtuan1066]

Bảng sắp xếp công việc khiến tôi hơi khó hiểu 1 chút, tuy nhiên tôi vẫn làm theo yêu cầu của bạn 2 dòng màu đầu tiên... Những cái khác sẽ tương tự như thế... Bạn cứ vào Conditional Formating sẽ thấy công thức...
Ko biết như thế này đả đúng ý chưa?
Mến
ANH TUẤN

 

[lehoangtam]

Cảm ơn bạn Anhtuan.

Nhưng tôi còn muốn làm thêm một chố nữa.

Dó là chỗ Công việc B, bắt đầu sau công viêc A 2 ngày thì cell bắt đầu fill phải sau công việc A 2 ngày. Và còn nhiều công việc như thế. Tôi muốn làm ngày bắt đầu là một biến số.

Ý tôi làm file này: Để theo dõi công việc và tiến độ công việc của nhân viên. Có thể làm thống kê vào cuối năm.

 

[anhtuan1066]

Vậy thì hoàn toàn khác rồi... vì lấy cái gì làm "chuẩn" cho cell đầu tiên... Nếu là như vậy thì tiêu đề từ H6 trở đi phải là giá trị ngày tháng năm, VD là từ ngày 1/9/2007, rồi so sánh ngày bắt đầu với cell tiêu đề
File ở đây, bạn xem đi... Lần sau có hỏi thì hỏi thật rõ, riêng tôi thì chẳng sợ tốn công, chỉ e bạn mất thời gian thôi...
Mến
ANH TUẤN