Cách tô màu cho 1 ô tại vị trí của con chuột trong Excel. (1 người xem)

[quikt81]

Hi ! Các bạn nào biết cách tô màu 1 ô trong Excel không vậy? Trong Excel khi ta di chuyển con chuột đến 1 ô bất kỳ, thì tại vị trí ô đó sẽ được đánh dấu chọn bằng 01 màu bất kỳ nào đó. Trong Excel có công cụ hỗ trợ sẵn việc này, hay ta phải viết 1 đoạn mã lập trình. Các bạn nào biết giúp mình với . Thanks !

 

[hoangdanh282vn]

Hi ! Các bạn nào biết cách tô màu 1 ô trong Excel không vậy? Trong Excel khi ta di chuyển con chuột đến 1 ô bất kỳ, thì tại vị trí ô đó sẽ được đánh dấu chọn bằng 01 màu bất kỳ nào đó. Trong Excel có công cụ hỗ trợ sẵn việc này, hay ta phải viết 1 đoạn mã lập trình. Các bạn nào biết giúp mình với . Thanks !

bạn xem VD minh họa sau :

Sub worksheet_selectionchange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
Columns(Target.Column).Interior.ColorIndex = 3
Rows(Target.Row).Interior.ColorIndex = 3
Target.Interior.ColorIndex = 5
End Sub

 

[huuthang_bd]

Hi ! Các bạn nào biết cách tô màu 1 ô trong Excel không vậy? Trong Excel khi ta di chuyển con chuột đến 1 ô bất kỳ, thì tại vị trí ô đó sẽ được đánh dấu chọn bằng 01 màu bất kỳ nào đó. Trong Excel có công cụ hỗ trợ sẵn việc này, hay ta phải viết 1 đoạn mã lập trình. Các bạn nào biết giúp mình với . Thanks !

Công cụ thì hình như là không có. Còn Macro thì tôi không biết được hay không vì tôi thấy không có sự kiện nào cho Mouse Move trên Worksheet cả.

Hoangdanh xem lại. Ở đây là di chuyển con chuột chứ không phải là chọn ô nhé.

 

[hoangdanh282vn]

Công cụ thì hình như là không có. Còn Macro thì tôi không biết được hay không vì tôi thấy không có sự kiện nào cho Mouse Move trên Worksheet cả.

Hoangdanh xem lại. Ở đây là di chuyển con chuột chứ không phải là chọn ô nhé.

Mình nghĩ là chắc là câu hỏi của bạn ấy cũng đúng với suy đoán của mình. Chứ rê con chuột đến đâu mà tô đến đó thì có tác dụng gì nhỉ.

Nhưng dù sao cũng chỉ là đoán.

 

[quikt81]

thanks! Nhưng mình chỉ tô màu tại vị trí của ô con chuột mà thôi , bạn làm đúng rồi, nhưng mình ko cần tô màu cho 1 dòng và 1 cột như vậy

 

[huuthang_bd]

Mình nghĩ là chắc là câu hỏi của bạn ấy cũng đúng với suy đoán của mình. Chứ rê con chuột đến đâu mà tô đến đó thì có tác dụng gì nhỉ.

Nhưng dù sao cũng chỉ là đoán.

Để những người mắt kém biết con chuột đang nằm chỗ nào để còn thao tác . Chứ như chọn ô thì Excel cũng đã hiển thị bằng một đường viền đậm đen rồi còn gì. Không biết ý tác giả thế nào nhỉ.

thanks! Nhưng mình chỉ tô màu tại vị trí của ô con chuột mà thôi , bạn làm đúng rồi, nhưng mình ko cần tô màu cho 1 dòng và 1 cột như vậy

Vậy thì sửa lại như thế này:

Sub worksheet_selectionchange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
Target.Interior.ColorIndex = 5
End Sub

Lưu ý: Sửa dụng code này màu nền của tất cả các ô trong sheet sẽ bị xóa.

 

[rollover79]

Nếu muốn đổi màu ô nhận trỏ chuột thì dùng thử Add-In này xem sao. Nếu chỉ đổi màu 1 ô thì nên dùng biến để lưu lại màu ô trước khi thay đổi màu rồi khi nào di chuyển sang ô khác sẽ trả lại màu cho ô đó sẽ hay hơn. Còn nếu đổi màu cả 1 cột+1 dòng thì tạm thời chưa nghĩ ra phương án nào tối ưu ngoài phương án kẻ khung giả.

 

[taxi51]

Để những người mắt kém biết con chuột đang nằm chỗ nào để còn thao tác . Chứ như chọn ô thì Excel cũng đã hiển thị bằng một đường viền đậm đen rồi còn gì. Không biết ý tác giả thế nào nhỉ.

Vậy thì sửa lại như thế này:

Sub worksheet_selectionchange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
Target.Interior.ColorIndex = 5
End Sub

Lưu ý: Sửa dụng code này màu nền của tất cả các ô trong sheet sẽ bị xóa.

Bạn huuthang_bd thân mến!
Đoạn code rất hay nhưng chỉ sử dụng được cho 1 sheet. Nếu muốn sử dụng trong toàn bộ bản tính của mình thì thêm lệnh nào? bạn chỉ giúp giùm mình.

 

[huuthang_bd]

Bạn huuthang_bd thân mến!
Đoạn code rất hay nhưng chỉ sử dụng được cho 1 sheet. Nếu muốn sử dụng trong toàn bộ bản tính của mình thì thêm lệnh nào? bạn chỉ giúp giùm mình.

Dán code này vào khung VBE của Workbook.

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Sh.Cells.Interior.ColorIndex = xlNone
Target.Interior.ColorIndex = 5
End Sub

 

[Hoàng Trọng Nghĩa]

bạn xem VD minh họa sau :

Sub worksheet_selectionchange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
Columns(Target.Column).Interior.ColorIndex = 3
Rows(Target.Row).Interior.ColorIndex = 3
Target.Interior.ColorIndex = 5
End Sub

Code của bạn hay quá, nhưng giá như khi Print Preview, cũng như Print, nó đừng có Show ra cái màu nền thì hay hơn nữa!!! Có khắc phục được không?

 

[hoangdanh282vn]

Code của bạn hay quá, nhưng giá như khi Print Preview, cũng như Print, nó đừng có Show ra cái màu nền thì hay hơn nữa!!! Có khắc phục được không?

Sheet1:

Sub worksheet_selectionchange(ByVal Target As Range)
Set Rng = Target
Cells.Interior.ColorIndex = xlNone
Rng.Interior.ColorIndex = 5
End Sub

This Workbook

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Rng.Interior.ColorIndex = xlNone
End Sub

 

[Hoàng Trọng Nghĩa]

Nếu làm như vậy, có ảnh hưởng đến những màu nền của mình đã định dạng không? (chắc phải thử trước quá!)
Cảm ơn.

PS: Đã kiểm tra, mất tất cả màu nền ẹc ... ẹc... (bắt chước thầy Ndu hehehehe)

 

[hoangdanh282vn]

Nếu làm như vậy, có ảnh hưởng đến những màu nền của mình đã định dạng không? (chắc phải thử trước quá!)
Cảm ơn.

PS: Đã kiểm tra, mất tất cả màu nền ẹc ... ẹc... (bắt chước thầy Ndu hehehehe)

Đúng vậy. Khi di chuyển con trỏ đến đâu thì màu sẽ bị thay đổi đến đó. Nếu muốn giữ lại Format đã được ấn định trước thì chỉ có cách khoanh vùng cho sự kiện Selection_change thôi. (tạm thời chưa nghĩ ra cách khắc phục)

 

[cadafi]

Excel có công cụ cho yêu cầu này, đơn giản ta dùng Conditional Formating với công thức điều kiện sau:

=AND(ROW()=CELL("row"),COLUMN()=CELL("col"))

Tham khảo thêm link tại đây của sư phụ NDU, giải quyết sạch sẽ yêu cầu của topic này.
http://www.giaiphapexcel.com/forum/showpost.php?p=108504&postcount=9

 

[Hoàng Trọng Nghĩa]

Excel có công cụ cho yêu cầu này, đơn giản ta dùng Conditional Formating với công thức điều kiện sau:

=AND(ROW()=CELL("row"),COLUMN()=CELL("col"))

Tham khảo thêm link tại đây của sư phụ NDU, giải quyết sạch sẽ yêu cầu của topic này.
http://www.giaiphapexcel.com/forum/showpost.php?p=108504&postcount=9

Cám ơn Ca_dafi, trước đây có xem qua, nhưng thấy nó không tiện, bởi vì nó không cho mình Copy hay Past gì hết, rồi cũng có giải pháp (ai đó cũng đã làm), nhưng lúc đó mình thấy nó chạy chậm hay gì đó và hay chớp chớp mà mình bỏ không xài nữa, tiếp đó vẫn bị tình trạng khi in ấn vẫn bị cái định dạng đó chi phối.
Giờ cái này thì Copy-Past vô tư, không thấy chớp mà nhanh, nhưng lại làm mất định dạng của mình. Đúng là được này mất kia.

 

[cadafi]

Cám ơn Ca_dafi, trước đây có xem qua, nhưng thấy nó không tiện, bởi vì nó không cho mình Copy hay Past gì hết, rồi cũng có giải pháp (ai đó cũng đã làm), nhưng lúc đó mình thấy nó chạy chậm hay gì đó và hay chớp chớp mà mình bỏ không xài nữa, tiếp đó vẫn bị tình trạng khi in ấn vẫn bị cái định dạng đó chi phối.
Giờ cái này thì Copy-Past vô tư, không thấy chớp mà nhanh, nhưng lại làm mất định dạng của mình. Đúng là được này mất kia.

Không biết anh có nhầm lẫn gì không, cái chỗ tô đậm màu đỏ đó:
- Dùng Conditional Formating thì có ảnh hưởng gì đến việc Copy và Paste nhỉ!?
- Muốn in mà không bị cái định dạng đó chi phối thì trước khi in, hãy click chuột ra khỏi cái vùng in rồi hãy in, cái này quá đơn giản mà anh.

- Còn cái vụ "Chớp chớp" thì phải chịu thôi, thử hỏi mỗi lần di chuyển ô hiện hành là mỗi lần đổi màu, không chớp mới lạ!

- Còn cái vụ tô đậm màu cam bên trên, dùng conditional formatting theo cách bên dưới đâu có làm mất định dạng riêng của anh đâu nhỉ!?

 

[Hoàng Trọng Nghĩa]

This Workbook

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Rng.Interior.ColorIndex = xlNone
End Sub

Bạn DANH ơi, có code nào mà khi in thì mất màu nền (nhiều khối ô), nhưng in xong thì màu nền đó trở lại bình thường không?

 

[me_excel]

Ơ,nhưnng mình ko biết thao tác viết thêm mã như thế nào, bạn có thể chi tiết cho mình không. Mình ngu phần này lắm. Nói chung là tịt. Níck của mình là Mê_EXCel, chứ ko phải là mẹ_excel đâu nha! Các bạn hướng dẫn hộ mình nha. Mình thấy di chuột tới đâu, thì tô màu cho dòng và cột cũng có cái tiện riêng các bạn ạ; cũng tiện lắm chứ bộ. Cảm ơn các bạn nha. Có gì chỉ chi tiết cho mình các thao tác để copy đoạn mã của các bạn. Thanks.

 

[taihuong]

Đúng vậy. Khi di chuyển con trỏ đến đâu thì màu sẽ bị thay đổi đến đó. Nếu muốn giữ lại Format đã được ấn định trước thì chỉ có cách khoanh vùng cho sự kiện Selection_change thôi. (tạm thời chưa nghĩ ra cách khắc phục)

Anh ơi, muốn khoanh vùng Selection_change như anh nói thì sửa code như thế nào anh?

 

[Đào Thị Vân]

Em đọc các trả lời của anh/chị mà em bị quay cuồng luôn ạ.
Nên em xin phép ké topic này của chủ thớt, hỏi về cách đổi màu viền của 1 ô excel mình đã chọn ạ.
Mong anh/chị hướng dẫn giúp em ạ.
Em cảm ơn!

 

[Đào Thị Vân]

Sheet1:

Sub worksheet_selectionchange(ByVal Target As Range)
Set Rng = Target
Cells.Interior.ColorIndex = xlNone
Rng.Interior.ColorIndex = 5
End Sub

This Workbook

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Rng.Interior.ColorIndex = xlNone
End Sub

Anh #hoangdanh228vn ơi, anh chỉ em cách chèm đoạn mã PHP của anh vào file excel với, em tìm cách chèn mãi mà không được ạ.
Anh giúp em với.

 

[befaint]

Em đọc các trả lời của anh/chị mà em bị quay cuồng luôn ạ.
Nên em xin phép ké topic này của chủ thớt, hỏi về cách đổi màu viền của 1 ô excel mình đã chọn ạ.
Mong anh/chị hướng dẫn giúp em ạ.
Em cảm ơn!

Tô màu nền bảng tính khác màu trắng thì cái khung chọn nó sẽ là màu khác màu đen.

 

[Hoang2013]

Bạn thử tham khảo macro sự kiện này:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Target.Cells.Count = 1 And Not Intersect(Target, [B1:B99]) Is Nothing Then
    VienKhung Target
 End If
End Sub

Sub VienKhung(Rng As Range)
 Dim MyColor As Byte, Dm As Byte

 Rng.Select:                             Randomize
 MyColor = (1 + 9 * Rnd()) \ 1
 For Dm = 7 To 10
    With Selection.Borders(Dm)
        .LineStyle = xlDouble:          .ColorIndex = MyColor
        .Weight = xlThick
    End With
 Next Dm
End Sub

 

[be_09]

Em đọc các trả lời của anh/chị mà em bị quay cuồng luôn ạ.
Nên em xin phép ké topic này của chủ thớt, hỏi về cách đổi màu viền của 1 ô excel mình đã chọn ạ.
Mong anh/chị hướng dẫn giúp em ạ.
Em cảm ơn!

Khi bạn chọn vùng thì có viềng đen đậm, nền vàng, click vào tên sheet muốn thao tác và chọn View Code rồi Paste code sau vào:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Cells.Interior.ColorIndex = xlNone
    Cells.Borders.ColorIndex = xlNone
    Target.Interior.ColorIndex = 6
    Target.Borders.Weight = xlMedium
End Sub

Lưu ý: Sử dụng code này thì màu nền và viềng của tất cả các ô đã định dạng trước đây trong sheet có code này sẽ bị xóa.

 

[vuthiphuc]

Không biết anh có nhầm lẫn gì không, cái chỗ tô đậm màu đỏ đó:
- Dùng Conditional Formating thì có ảnh hưởng gì đến việc Copy và Paste nhỉ!?
- Muốn in mà không bị cái định dạng đó chi phối thì trước khi in, hãy click chuột ra khỏi cái vùng in rồi hãy in, cái này quá đơn giản mà anh.

- Còn cái vụ "Chớp chớp" thì phải chịu thôi, thử hỏi mỗi lần di chuyển ô hiện hành là mỗi lần đổi màu, không chớp mới lạ!

- Còn cái vụ tô đậm màu cam bên trên, dùng conditional formatting theo cách bên dưới đâu có làm mất định dạng riêng của anh đâu nhỉ!?

cai minh minh lam theo thi su dung rat ok, nhung co 1 van de minh muon hoi la sao khi minh tat file di mo lai code van con nhung lenh lai k chay a, file da luu theo file chua dc marco duoi .xlsm

Bài đã được tự động gộp: 27/9/19

cai minh minh lam theo thi su dung rat ok, nhung co 1 van de minh muon hoi la sao khi minh tat file di mo lai code van con nhung lenh lai k chay a, file da luu theo file chua dc marco duoi .xlsm

cái này mình làm theo sử dụng rất ok, nhưng có 1 vấn đề mình muốn hỏi là sao khi tắt file mở lại thì cosde vẫn còn nhưng lệnh lại k chạy ạ, file đã lưu theo file có thể chứa marco đuôi .xlsm, xin chờ được giải đáp giúp đỡ ạ

 

[QuangMinhtb]

Để những người mắt kém biết con chuột đang nằm chỗ nào để còn thao tác . Chứ như chọn ô thì Excel cũng đã hiển thị bằng một đường viền đậm đen rồi còn gì. Không biết ý tác giả thế nào nhỉ.

Vậy thì sửa lại như thế này:

Sub worksheet_selectionchange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
Target.Interior.ColorIndex = 5
End Sub

Lưu ý: Sửa dụng code này màu nền của tất cả các ô trong sheet sẽ bị xóa.

Thầy cho em hỏi, để thay đổi màu nền của ô khi di chuyển chuột thì thay ở đoạn nào ạ?
Ở đoạn code thầy giúp đang là màu xanh, em muốn màu khác thì phải thay ra sao ạ?
Xin được thầy giúp thêm: thay đổi màu viền trong quá trình chọn ô (màu xanh nhạt "mặc định" -> màu đỏ) cho dễ nhìn
em cảm ơn thầy!

 

[huuthang_bd]

thay đổi màu nền của ô khi di chuyển chuột thì thay ở đoạn nào ạ?

Bạn thay số 5 thành số khác tương ứng với màu bạn chọn.

 

[QuangMinhtb]

Bạn thay số 5 thành số khác tương ứng với màu bạn chọn.

Em cảm ơn thầy!
Như bài #26, em có hỏi: thay đổi viền bao quanh ô được chọn (mặc định là xanh nhạt, em muốn thành màu đỏ cho dễ nhìn khi làm việc có được không ạ?

 

[huuthang_bd]

Em cảm ơn thầy!
Như bài #26, em có hỏi: thay đổi viền bao quanh ô được chọn (mặc định là xanh nhạt, em muốn thành màu đỏ cho dễ nhìn khi làm việc có được không ạ?

Không được đâu bạn, bạn có tô viền thì cũng bị cái viền của vùng chọn che mất thôi.

 

[QuangMinhtb]

Không được đâu bạn, bạn có tô viền thì cũng bị cái viền của vùng chọn che mất thôi.

À ý em là ví dụ: Em đặt con trỏ chuột vào 1 ô nào đó và thao tác (Ctrl+C) sau đó sẽ xuất hiện nét đứt màu xanh nhạt bao quanh ô đó, em muốn thay đổi nét đứt từ màu xanh nhạt sang màu khác (màu đỏ chẳng hạn) được không thầy.
Ví dụ: đặt con trỏ chuột vào ô B2, sau đó nhấn (Ctrl+C) -> xuất hiện viền xanh bao quanh ô B2, em muốn viền xanh ->viền đỏ

 

[tigertiger]

À ý em là ví dụ: Em đặt con trỏ chuột vào 1 ô nào đó và thao tác (Ctrl+C) sau đó sẽ xuất hiện nét đứt màu xanh nhạt bao quanh ô đó, em muốn thay đổi nét đứt từ màu xanh nhạt sang màu khác (màu đỏ chẳng hạn) được không thầy.
Ví dụ: đặt con trỏ chuột vào ô B2, sau đó nhấn (Ctrl+C) -> xuất hiện viền xanh bao quanh ô B2, em muốn viền xanh ->viền đỏView attachment 249327

Không được đầu vì đó là quy định viền của COPY của Microsoft rồi
Chắc Microsoft sẽ thay được, còn không thì có cách cũng phức tạp (không đáng làm)

 

[huuthang_bd]

À ý em là ví dụ: Em đặt con trỏ chuột vào 1 ô nào đó và thao tác (Ctrl+C) sau đó sẽ xuất hiện nét đứt màu xanh nhạt bao quanh ô đó, em muốn thay đổi nét đứt từ màu xanh nhạt sang màu khác (màu đỏ chẳng hạn) được không thầy.
Ví dụ: đặt con trỏ chuột vào ô B2, sau đó nhấn (Ctrl+C) -> xuất hiện viền xanh bao quanh ô B2, em muốn viền xanh ->viền đỏView attachment 249327

Cái này tôi không biết làm nha bạn.

 

[QuangMinhtb]

Không được đầu vì đó là quy định viền của COPY của Microsoft rồi
Chắc Microsoft sẽ thay được, còn không thì có cách cũng phức tạp (không đáng làm)

Dạ em cảm ơn anh/chị

Bài đã được tự động gộp: 14/11/20

Cái này tôi không biết làm nha bạn.

Vâng, em cảm ơn thầy ạ!

Bài đã được tự động gộp: 14/11/20

Cái này tôi không biết làm nha bạn.

Em xin phép làm phiền thầy chút xíu!
Thầy cho em hỏi có thể chuyển đoạn code thầy giúp thành add in đẻ sử dụng được không ạ?
Em vừa để như vậy sau đó lưu thành add in nhưng khi load vào không có tác dụng.

 

[huuthang_bd]

Em xin phép làm phiền thầy chút xíu!
Thầy cho em hỏi có thể chuyển đoạn code thầy giúp thành add in đẻ sử dụng được không ạ?
Em vừa để như vậy sau đó lưu thành add in nhưng khi load vào không có tác dụng.

Add in thì bạn tìm cái khác, trên diễn đàn có đó. Code này lâu rồi nên rất sơ sài.

 

[QuangMinhtb]

Add in thì bạn tìm cái khác, trên diễn đàn có đó. Code này lâu rồi nên rất sơ sài.

Dạ, em cung chỉ cần ứng dụng vậy thôi, Em thấy đơn giản và tiện dùng.
Nếu chuyển được thành add in mong thầy giúp em với ạ!

 

[QuangMinhtb]

Nếu muốn đổi màu ô nhận trỏ chuột thì dùng thử Add-In này xem sao. Nếu chỉ đổi màu 1 ô thì nên dùng biến để lưu lại màu ô trước khi thay đổi màu rồi khi nào di chuyển sang ô khác sẽ trả lại màu cho ô đó sẽ hay hơn. Còn nếu đổi màu cả 1 cột+1 dòng thì tạm thời chưa nghĩ ra phương án nào tối ưu ngoài phương án kẻ khung giả.

Em có dùng add in của anh/chị, thấy báo như hình.
Anh chị giúp em ạ!