Đổi màu cho cell hiện hành (ActiveCell) (1 người xem)

[thuyyeu99]

Cho em hỏi có cách nào đổi màu con trỏ chộut trong Excecl không. (mặc định của nó màu đen bay giờ em muốn đổi qua màu khác)

 

[ndu96081631]

Cho em hỏi có cách nào đổi màu con trỏ chộut trong Excecl không. (mặc định của nó màu đen bay giờ em muốn đổi qua màu khác)

Việc đổi màu, đổi kiểu Icon cho chuột không phải thuộc quyền quản lý của Excel
Muốn thế thì vào Control Panel\Mouse mà chỉnh
Chú ý: Việc tinh chỉnh có tác dụng trên toàn hệ thống đương nhiên có Excel)

 

[thuyyeu99]

ví dụ

Ý của mình là không phải đổi màu con trò chuọt của win mà là trong Excel. con trỏ ma chỉ vĩ trí o đó.
đây là ví dụ mẫu
http://www.4shared.com/file/67906877/8f60e9b4/vi_du.html

 

[TKT]

Ý của mình là không phải đổi màu con trò chuọt của win mà là trong Excel. con trỏ ma chỉ vĩ trí o đó.
đây là ví dụ mẫu
http://www.4shared.com/file/67906877/8f60e9b4/vi_du.html

Một hình chữ nhật có đường viền màu đen, có lẽ không đổi màu được. Tuy nhiên nếu bạn tô màu nền cho bảng tính thì nó sẽ tự đổi màu. Chẳng hạn nếu bạn tô nền là màu hồng, thì nó sẽ thành màu xanh lá cây.

 

[hoangdanh282vn]

Ý của mình là không phải đổi màu con trò chuọt của win mà là trong Excel. con trỏ ma chỉ vĩ trí o đó.
đây là ví dụ mẫu
http://www.4shared.com/file/67906877/8f60e9b4/vi_du.html

Bạn bấm Atl+F11, trong VBE, mục VBA Project bạn chọn sheet nào cần đổi mầu và copy đoạn code này vào đó, ra ngoài để xem kết quả.

Sub worksheet_selectionchange(ByVal target As Range)
Application.ScreenUpdating = False
Cells.ClearFormats
target.BorderAround ColorIndex:=4, Weight:=xlThick
Application.ScreenUpdating = True
End Sub

 

[hoangdanh282vn]

Cái này có lẽ sẽ đúng hơn tí

Dim Lastcell As Range
Sub worksheet_selectionchange(ByVal target As Range)
Application.ScreenUpdating = False
On Error Resume Next
Lastcell.ClearFormats
target.BorderAround ColorIndex:=4, Weight:=xlThick
Set Lastcell = target
Application.ScreenUpdating = True
End Sub

 

[ndu96081631]

Tôi không tán thành cách làm của bạn hoangdanh282vn ... Vì sao?
Các bạn nên nhớ 1 bảng tính phải có tô màu, kẽ khung... nói chúng là Format gì đó do người dùng tùy chọn... Nếu ta Highlight thì phải bảo đãm không phá vở Format củ trên bảng tính...
Xài mấy code trên bảng tính tiêu tùng luôn ---> chả có tô màu hay kẽ khung gì được ---> Vậy là bảng tính trống trơn sao?
Với yêu cầu trên chỉ nên Highlight bằng Conditional Formating là hiệu quả nhất (hoặc dùng Add-ins Highlight của bạn TuanVNUNI)... Ngoài ra tôi không nghĩ sẽ có cách nào hay hơn nữa

 

[Lệnh Hồ Đại Hiệp]

Hoặc nếu để nghiên cứu thì theo cách của bác hoangdanh :
Nên có biến tạm để chứa : địa chỉ Cell, các format cũ của cell mà ta muốn thay đổi.
Vì vậy khi dời đi nơi khác thì sẽ trả lại tên cho em trước đã.
Và phải bẫy lỗi để vùng chọn là 1 Cell.

 

[ndu96081631]

Hoặc nếu để nghiên cứu thì theo cách của bác hoangdanh :
Nên có biến tạm để chứa : địa chỉ Cell, các format cũ của cell mà ta muốn thay đổi.
Vì vậy khi dời đi nơi khác thì sẽ trả lại tên cho em trước đã.
Và phải bẫy lỗi để vùng chọn là 1 Cell.

Thay vì nghiên cứu theo hướng khó này (mà tôi nghĩ cũng chả tội gì phải nghiên cứu) sao ta không dùng CF <--- Quá gọn vì ai cũng làm được!
Xem file mẩu

 

[anhdung_nb2007]

Thay vì nghiên cứu theo hướng khó này (mà tôi nghĩ cũng chả tội gì phải nghiên cứu) sao ta không dùng CF <--- Quá gọn vì ai cũng làm được!
Xem file mẩu

Hay quá, hướng dẫn cụ thể di bạn.

 

[Ếch Xanh]

Hay quá, hướng dẫn cụ thể di bạn.

Hic, bạn hỏi bài mà giống ra lệnh quá! Chẳng nghiên cứu gì trước khi hỏi cả!

Bạn vào Conditional Formating, bạn sẽ thấy công thức =AND(ROW()=CELL("row"),COLUMN()=CELL("col")) và cách định dạng màu sắc trong đó.

Mà làm cái này chỉ mỏi mắt thêm, cứ chớp chớp màn hình hoài sao chịu nổi!

 

[laidaugaux9x]

Thay vì nghiên cứu theo hướng khó này (mà tôi nghĩ cũng chả tội gì phải nghiên cứu) sao ta không dùng CF <--- Quá gọn vì ai cũng làm được!
Xem file mẩu

A ndu96081631 ơi! Cho e hỏi, có cách nào tô màu cả hàng trong bảng, khi mình chọn 1 ô trong hàng đó. Thay vì chỉ tô 1 ô thôi ko a! Thank a nhiều!

 

[ndu96081631]

A ndu96081631 ơi! Cho e hỏi, có cách nào tô màu cả hàng trong bảng, khi mình chọn 1 ô trong hàng đó. Thay vì chỉ tô 1 ô thôi ko a! Thank a nhiều!

Nguyên dòng càng dễ:
- Quét chọn vùng dữ liệu
- Vào Conditional Formating, sửa công thức thành =ROW()=CELL("row")
Xong!

 

[laidaugaux9x]

Uki a, e làm được rồi!
May quá, bây giờ làm việc với bảng dữ liệu, ko còn sợ nhầm dòng nữa!
Thank a nhiều!

 

[cuonghoa176]

Em thấy cái CF của Thầy ndu rất hay, có thể áp dụng vào công việc của em. Tuy nhiên thầy không hướng dẫn cụ thể, em mò mãi nhưng tiếc là không ra, thầy hướng dẫn tụi em đi..!

 

[ndu96081631]

Em thấy cái CF của Thầy ndu rất hay, có thể áp dụng vào công việc của em. Tuy nhiên thầy không hướng dẫn cụ thể, em mò mãi nhưng tiếc là không ra, thầy hướng dẫn tụi em đi..!

Thì bạn đặt con trỏ chuột tại cell bất kỳ trong vùng dữ liệu, vào Conditional Formating sẽ thấy ngay công thức thôi

 

[laidaugaux9x]

Thì bạn đặt con trỏ chuột tại cell bất kỳ trong vùng dữ liệu, vào Conditional Formating sẽ thấy ngay công thức thôi

Hình như e thấy còn 1 đoạn code trong VBA nữa, nếu ko có đoạn này thì sẽ bị lỗi!

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = True
End Sub

Về lập trình e ko biết gì! nên bê nguyên xi luôn vào thôi!

 

[ndu96081631]

Hình như e thấy còn 1 đoạn code trong VBA nữa, nếu ko có đoạn này thì sẽ bị lỗi!

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = True
End Sub

Về lập trình e ko biết gì! nên bê nguyên xi luôn vào thôi!

Đoạn code này để cập nhật vị trí ActiveCell thôi
Nếu không có nó, mỗi khi bạn di chuyển chuột đến cell khác, bạn phải bấm F9 để cập nhật bằng tay (có code thì nó cập nhật tự động)

 

[gau2603]

Đoạn code này để cập nhật vị trí ActiveCell thôi
Nếu không có nó, mỗi khi bạn di chuyển chuột đến cell khác, bạn phải bấm F9 để cập nhật bằng tay (có code thì nó cập nhật tự động)

Cho em hỏi là đoạn code đó mỗi lần tắt file xong mở lên là nó bị mất đi, có cách nào để save nó hoàn toàn không vậy Em xài MO 2010

 

[ndu96081631]

Cho em hỏi là đoạn code đó mỗi lần tắt file xong mở lên là nó bị mất đi, có cách nào để save nó hoàn toàn không vậy Em xài MO 2010

Chắc bạn save thành file XLSX? Kiểu file này sẽ không cho phép lưu macro và nó sẽ tự động xóa hết code ---> Lúc Save chắc chắn sẽ có 1 thông báo, tại bạn không chịu đọc hoặc đọc mà không hiểu nên đã.. OK đại
Để code có thể hoạt động, phải SaveAs thành XLS hoặc XLSM nhé

 

[gau2603]

Chắc bạn save thành file XLSX? Kiểu file này sẽ không cho phép lưu macro và nó sẽ tự động xóa hết code ---> Lúc Save chắc chắn sẽ có 1 thông báo, tại bạn không chịu đọc hoặc đọc mà không hiểu nên đã.. OK đại
Để code có thể hoạt động, phải SaveAs thành XLS hoặc XLSM nhé

Ok thank anh, em cũng save thành xls rồi nhưng vẫn thích MO 2010 hơn nên hỏi thử xem có cách nào để save được không ^^

 

[nmh_phocu]

Hic, bạn hỏi bài mà giống ra lệnh quá! Chẳng nghiên cứu gì trước khi hỏi cả!

Bạn vào Conditional Formating, bạn sẽ thấy công thức =AND(ROW()=CELL("row"),COLUMN()=CELL("col")) và cách định dạng màu sắc trong đó.

Mà làm cái này chỉ mỏi mắt thêm, cứ chớp chớp màn hình hoài sao chịu nổi!

Cảm ơn các bác rất rất nhiều, các bác có cách nào không bị chớp chớp màn hình không nhỉ?

 

[ALEXNGUYEN33]

chào cả nhà. em là mem mới, cũng có problem với cái này, em xai word 2007, mò theo hướng dẫn trên mà không được.em gà excel. mong help.thanks

 

[vanle33]

chào cả nhà. em là mem mới, cũng có problem với cái này, em xai word 2007, mò theo hướng dẫn trên mà không được.em gà excel. mong help.thanks

Đây là topic liên quan đến excel, bạn đang muốn hỏi vấn đề cho word 2007 ah?
Bạn muốn hỏi bài nào trong topic này? Hãy nhấn "Trích Dẫn" để biết bạn nói với ai!?

 

[ALEXNGUYEN33]

Hic, bạn hỏi bài mà giống ra lệnh quá! Chẳng nghiên cứu gì trước khi hỏi cả!

Bạn vào Conditional Formating, bạn sẽ thấy công thức =AND(ROW()=CELL("row"),COLUMN()=CELL("col")) và cách định dạng màu sắc trong đó.

Mà làm cái này chỉ mỏi mắt thêm, cứ chớp chớp màn hình hoài sao chịu nổi!

Chào cả nhà, em là mem mới, em đang xai office 2007, em đã làm thử file highligh_CF_02.xls của bác ndu96081631, copy file của em paste vào file của bác í thì dùng được, chỉnh sửa được, nhưng làm từ file gốc của em thì nó chả nhảy múa gì cả , vẫn i xì, các cao thủ có thể cho biết lỗi không ạ, cảm ơn

 

[vanle33]

Chào cả nhà, em là mem mới, em đang xai office 2007, em đã làm thử file highligh_CF_02.xls của bác ndu96081631, copy file của em paste vào file của bác í thì dùng được, chỉnh sửa được, nhưng làm từ file gốc của em thì nó chả nhảy múa gì cả , vẫn i xì, các cao thủ có thể cho biết lỗi không ạ, cảm ơn

Tại sao bạn không làm ngược lại là copy code (hoặc công thức) của bác ndu vào bài của bạn + chỉnh sửa code (hoặc công thức) cho phù hợp với dữ liệu của bạn?
File của bạn làm gì có code (hoặc công thức) thì làm sao mà "nhày múa" gì được!!!

 

[ALEXNGUYEN33]

Tôi không tán thành cách làm của bạn hoangdanh282vn ... Vì sao?
Các bạn nên nhớ 1 bảng tính phải có tô màu, kẽ khung... nói chúng là Format gì đó do người dùng tùy chọn... Nếu ta Highlight thì phải bảo đãm không phá vở Format củ trên bảng tính...
Xài mấy code trên bảng tính tiêu tùng luôn ---> chả có tô màu hay kẽ khung gì được ---> Vậy là bảng tính trống trơn sao?
Với yêu cầu trên chỉ nên Highlight bằng Conditional Formating là hiệu quả nhất (hoặc dùng Add-ins Highlight của bạn TuanVNUNI)... Ngoài ra tôi không nghĩ sẽ có cách nào hay hơn nữa

Xin chào mọi người. Mình chỉ muốn đơn giản hoá vấn đề thôi, vì là gà excel mà, muốn làm cái đơn giản nhất như bác ndu hướng dẫn mà nó cũng ko nhúc nhích. viết code thì không có biết rùi...hix...nhu cầu chỉ là cần cái ô hiện hữu nó đổi màu khác dễ nhìn hơn thôi, chứ nhiều khi, xem 1 cái bảng giá gần 1000 hàng, search bằng ctrl + F rồi không biết cái con trỏ nó nhảy chỗ nào nữa ấy mà.
cảm ơn các cao thủ trước.

 

[vanle33]

Xin chào mọi người. Mình chỉ muốn đơn giản hoá vấn đề thôi, vì là gà excel mà, muốn làm cái đơn giản nhất như bác ndu hướng dẫn mà nó cũng ko nhúc nhích. viết code thì không có biết rùi...hix...nhu cầu chỉ là cần cái ô hiện hữu nó đổi màu khác dễ nhìn hơn thôi, chứ nhiều khi, xem 1 cái bảng giá gần 1000 hàng, search bằng ctrl + F rồi không biết cái con trỏ nó nhảy chỗ nào nữa ấy mà.
cảm ơn các cao thủ trước.

"đơn giản hóa" nhất là dùng luôn file ở bài của bác ndu đâu cần bạn phải "viết code" gì đâu!
Bạn đã biết Enable marco chưa? Chưa biết thì search trên diễn đàn để chạy được code, chứ cứ để yên thì "nó cũng ko nhúc nhích" luôn.

 

[ALEXNGUYEN33]

@vanle33 : thanks bác. ý mình cũng chỉ muốn vậy thôi.để mò tiếp.

 

[zidkt]

Tham gia cũng lâu mà chưa có bài viết. Hôm nay nghiên cứu file của bác NDU. Mình đã cải tiến 1 chút. Có lẽ có bạn sẽ cần.

 

[vuabocapxd]

Thay vì nghiên cứu theo hướng khó này (mà tôi nghĩ cũng chả tội gì phải nghiên cứu) sao ta không dùng CF <--- Quá gọn vì ai cũng làm được!
Xem file mẩu

a ndu oi em mún con trỏ chuột ở dạng bình thường nền trắng cũng đổi màu thì làm sao a

 

[be_09]

a ndu oi em mún con trỏ chuột ở dạng bình thường nền trắng cũng đổi màu thì làm sao a

Bạn thử code sau: Click phải vào tên sheet bất kỳ chọn View code rồi paste đoạn code sau vào (khi chọn bất kỳ Cell nào thì nó hiện vị trí chọn là màu hồng).

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Cells.Interior.ColorIndex = 0
    Target.Interior.ColorIndex = 40
End Sub

 

[ndu96081631]

Bạn thử code sau: Click phải vào tên sheet bất kỳ chọn View code rồi paste đoạn code sau vào (khi chọn bất kỳ Cell nào thì nó hiện vị trí chọn là màu hồng).

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Cells.Interior.ColorIndex = 0
    Target.Interior.ColorIndex = 40
End Sub

Người ta muốn đổi màu cho con trỏ chuột mà anh

a ndu oi em mún con trỏ chuột ở dạng bình thường nền trắng cũng đổi màu thì làm sao a

 

[be_09]

Người ta muốn đổi màu cho con trỏ chuột mà anh

Anh đọc bài viết thấy chỗ này "nền trắng cũng đổi màu", nên có thể hiểu là đổi màu Cell (không biết ngụ ý của người ta thế nào).
Muốn thay đổi màu sắc của con trỏ chuột thì cũng không phải là dễ nó phải sử dụng win32API.
Hay là đổi Icon của chuột giống như sử dụng MousePointer (của UserForm).

 

[Lanpx]

Nguyên dòng càng dễ:
- Quét chọn vùng dữ liệu
- Vào Conditional Formating, sửa công thức thành =ROW()=CELL("row")
Xong!

Hi anh ơi, cho e hỏi e cũng làm công thức thế này cũng xem file mẫu của anh, mà sao file e làm ra có khi thì nó tô màu có khi nó cũng ko có thay đổi gì cả. Chứ ko dc như file mẫu cái nào cũng tô màu. Trong file của e có dùng định dang Merge & Center có phải định dạng này làm ảnh hưởng tới định dạng tô màu ko ạ.

 

[123789654]

Thay vì nghiên cứu theo hướng khó này (mà tôi nghĩ cũng chả tội gì phải nghiên cứu) sao ta không dùng CF <--- Quá gọn vì ai cũng làm được!
Xem file mẩu

em làm giống bác nhưng mà cứ phỉa kích 2 lần mới chuyển màu khác. không giống dc như cái file của bác. bác chỉ cho em chỗ này với.

 

[lucjfer92]

em làm giống bác nhưng mà cứ phỉa kích 2 lần mới chuyển màu khác. không giống dc như cái file của bác. bác chỉ cho em chỗ này với.

em cùng cảnh ngộ với bác, bác nào giúp chúng em với ạ. chúc các bác 1 ngày làm việc hiệu quả.

 

[hoasenhong2017]

Việc đổi màu, đổi kiểu Icon cho chuột không phải thuộc quyền quản lý của Excel
Muốn thế thì vào Control Panel\Mouse mà chỉnh
Chú ý: Việc tinh chỉnh có tác dụng trên toàn hệ thống đương nhiên có Excel)

Nguyên dòng càng dễ:
- Quét chọn vùng dữ liệu
- Vào Conditional Formating, sửa công thức thành =ROW()=CELL("row")
Xong!

Bạn ndu96081631 ơi, sao mình làm công thức như bạn chỉ nhưng mỗi lần mình nhấp chuột hay dấu mũi tên lên xuống nó không đổi màu. Mình phải nhấp đúp chuột 2 lần nó mới đổi màu của dòng đó,bạn coi giúp file công thức mình làm có bị lỗi gì không mà sao nó không tự nhảy được, cảm ơn bạn.

 

[hoasenhong2017]

Cả nhà có ai biết chỉ giúp mình với không ạ. Mình cảm ơn nhiều lắm ạ.

 

[cuncon_cute]

Các bác cho em hỏi một trường hợp khác cũng liên quan đến conditional formatting.
Em có một bảng danh sách nhân sự, muốn tự động bôi màu CẢ DÒNG những nhân viên đã nghỉ, tuy nhiên vẫn chưa nghĩ ra công thức.
Dưới đây là ảnh chụp màn hình ảnh file của e.
Hiện e đang thử căn cứ vào cột ngày(hoặc tháng, năm) nghỉ để bôi màu. Điều kiện là: Cứ những ô đó có số là dòng tự đổi màu. Tuy nhiên vẫn chưa tìm đc công thức nào để conditional formatting hoạt động. Các bác giúp e với.

 

[phongtran2050]

Thay vì nghiên cứu theo hướng khó này (mà tôi nghĩ cũng chả tội gì phải nghiên cứu) sao ta không dùng CF <--- Quá gọn vì ai cũng làm được!
Xem file mẩu

Hay quá bạn, mình cứ tưởng đã nắm hết về Condition Fomatting rồi. Giờ mới thấy mình còn thiếu nhiều lắm

 

[Vinhham]

Bạn ndu96081631 ơi, sao mình làm công thức như bạn chỉ nhưng mỗi lần click chuột hay mũi tên lên xuống không đổi màu. Mình phải bấm gấp 2 lần để đổi màu của dòng đó, các bạn coi giúp file công thức mình làm bị lỗi gì mà sao nó không tự nhảy được, cảm ơn bạn.

bạn kích phải chuột vào Sheet đó, chọn dòng view code, dán:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = true
End sub
Sau đó lưu file .xlsm (Excel Macro - Enable Workbook) là ok à.

Bạn ndu96081631 ơi, sao mình làm công thức như bạn chỉ nhưng mỗi lần bấm chuột hay mũi tên lên xuống nó không đổi màu. Mình phải nhấp chuột gấp 2 lần để đổi màu của dòng đó, bạn coi giúp file công thức mình làm bị lỗi gì mà sao nó không tự nhảy được, cảm ơn bạn.