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

[Đà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 ạ!