Mong giúp đỡ về cách đổi màu dòng chứa ô hiện hành

[kieuhunglongbinh]

chào các bạn GPE ! Mong các bạn giúp mình vấn đề này với !
mình là giáo viên THCS . Hiện nay mình có làm file cộng điểm cho HS .
Giờ mình muốn khi nhấp chuột vào ô nào hay khi nhấn phím Enter xuống dòng thì toàn bộ dòng chứa ô đó ( ô hiện hành) đổi màu cho dễ quan sát tránh việc vào điểm nhầm lẫn giữa học sinh này với hs kế bên ! Thì phải làm thế nào ?
Mình ko biết là trong forum đã có bài HD này chưa ! nếu có xin các bạn chỉ giúp. Xin cảm ơn nhiều !

 

[ExcelQN]

Tôi sưu tầm trên net file này, chắc đúng ý bạn.

 

[kieuhunglongbinh]

cảm ơn bạn excelQN ! file đó là đúng thứ mình cần !

Có Bạn nào hướng dẫn mình làm với không ? Mình muốn tự tay làm . Chẳng hạn là
đổi màu dòng
đổi màu cột
đổi màu cả cột , cả dòng của ô hiện hành

 

[TrungChinhs]

cảm ơn bạn excelQN ! file đó là đúng thứ mình cần !

Có Bạn nào hướng dẫn mình làm với không ? Mình muốn tự tay làm . Chẳng hạn là
đổi màu dòng
đổi màu cột
đổi màu cả cột , cả dòng của ô hiện hành

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
    Cells.Interior.ColorIndex = 0
   ActiveCell.EntireRow.Interior.ColorIndex = 8
    [B][COLOR="red"][SIZE="4"]'[/SIZE][/COLOR][/B]ActiveCell.EntireColumn.Interior.ColorIndex = 8
    Application.CutCopyMode = True
End Sub

file này đã có sẵn các yêu cầu của bạn:Muốn tô màu cả cột và dòng bạn vào VBE (nhấn Alt + F11) xoá dấu nháy ỏ đầu dòng lệnh ActiveCell.EntireColumn.Interior.ColorIndex = 8; nếu chỉ tô màu cột thì đánh dấu nháy đơn vào đầu dòng lệnh ActiveCell.EntireRow.Interior.ColorIndex = 8. Tức là không muốn chạy lệnh nào thì đánh dẫu nháy vào đầu dòng đó và ngược lại.

 

[kieuhunglongbinh]

Cảm ơn TrungChinhs nhiều ! Nhờ bạn tôi đã biết một tí tì ti về VBA !

<< Tức là không muốn chạy lệnh nào thì đánh dẫu nháy vào đầu dòng đó và ngược lại. >>
Bạn là người thầy đầu tiên dạy VBA cho tôi !

Bạn có thể giảng thêm cho mình về cú pháp mấy câu còn lại trong đoạn code kia được không ? Mình mới biết sơ sơ về các hàm trong Excel thôi ! Chưa biết tí nào về VBA !

 

[ndu96081631]

Bạn có thể giảng thêm cho mình về cú pháp mấy câu còn lại trong đoạn code kia được không ? Mình mới biết sơ sơ về các hàm trong Excel thôi ! Chưa biết tí nào về VBA !

Private Sub Worksheet_SelectionChange(ByVal Target As Range) ---> Code này nằm trong sheet (code có sẳn, khỏi viết) với Target là cell mà ta đang chọn. Code này kích hoạt sự kiện chọn cell (mỗi khi thay đổi cell hiện hành là code chạy)
On Error Resume Next ---> Thường được viết ở đầu code, phòng trường hợp có lỗi gì đó thì.. cho qua luôn
Cells.Interior.ColorIndex = 0 ---> Cho toàn bộ cell trên bảng tính trờ về trạng thái chưa tô màu (Interior mang ý nghĩa là MÀU NỀN)
ActiveCell.EntireRow.Interior.ColorIndex = 8 ---> Chọn nguyên dòng tại ActiveCell (cell hiện hành) và tô màu cho dòng = 8 (thay đổi số 8 để biết là màu gì)
Application.CutCopyMode = True ---> Ghi vậy thôi chứ chẳng có tác dụng gì
---------------------
Nói thêm: Code này tuy đơn giản nhưng thực tế những ai biết VBA sẽ chẳng bao giờ thèm xài. Lý do:
- Dùng code này sẽ chẳng bao giờ tô được màu gì khác trên bảng tính
- Dùng code này thì chẳng thể nào copy paste được

 

[nholong]

Tô màu theo dòng mình đang xem !

Chào các bác !

Các bác cho em hỏi 1 vấn đề thế này nhé !

Em có 1 bảng excel có khá nhiều cột dữa liệu. Giờ để nhập dữ liệu chuẩn xác thì em có muôn là mỗi khi mình chạy con trỏ tời 1 ô nào đó,thì cả dòng chứa ô đó sẽ đc tô 1 màu khác biệt.Để mình vào số liệu theo dòng ngang và kiểm tra dữ liệu được chuẩn hơn ! Và mỗi khi mình di chuyển con trỏ qua các dòng khác nhau thì các dòng đó đều đc tô màu !

Nếu có phương án nào xử lý thì mong các bác chỉ giáo ạ !

Cảm ơn các bác rất nhiều !

 

[phihndhsp]

Theo mình, bạn nên đưa file của bạn lên, AE sẽ làm vào file của bạn luôn, còn tìm hiểu thì từ từ bạn học trên diễn đàn
Màu trên hàng nhập dữ liệu chỉ nên tô đến cột cuối cùng nhập liệu thôi (nên cần có file thật của bạn) không nên tô hết cột trong bảng tính
Thân

Bạn dùng định dạng có đk này xem sao
=ROW()=CELL("Row") (đk này học theo anh ndu)

 

[Bella125]

Bạn dùng định dạng có đk này xem sao
=ROW()=CELL("Row") (đk này học theo anh ndu)

Bạn ơi, bạn hướng dẫn kỹ hơn gúp mình với. Cảm ơn bạn nhiều!

 

[Nguyễn Hồng Quang]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Cells.Interior.ColorIndex = 0
ActiveCell.EntireRow.Interior.ColorIndex = 8
'ActiveCell.EntireColumn.Interior.ColorIndex = 8
Application.CutCopyMode = True
End Sub

Bạn ơi cho mình hỏi Có cách nào gán cái đoạn code này cho 1 nút lệnh để thực hiện không bạn

 

[dhn46]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Cells.Interior.ColorIndex = 0
ActiveCell.EntireRow.Interior.ColorIndex = 8
'ActiveCell.EntireColumn.Interior.ColorIndex = 8
Application.CutCopyMode = True
End Sub

Bạn ơi cho mình hỏi Có cách nào gán cái đoạn code này cho 1 nút lệnh để thực hiện không bạn

Để gán vào nút lệnh thì bạn làm 2 thao tác
1/ cho đoạn Code trên vào 1 module
2/ Đổi dòng

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Thành

Sub DoiMau()