Đổi màu cho cell hiện hành (ActiveCell)

thuyyeu99 · 21/10/08

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 · 21/10/08

thuyyeu99 đã viết:
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 · 22/10/08

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 · 22/10/08

thuyyeu99 đã viết:
Ý 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 · 22/10/08

thuyyeu99 đã viết:
Ý 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

Bạn bấm Atl+F11, trong VBE, mục VBA Project bạn chọn sheet nào cần đổi mầu và copy đoạn code này vào đó, ra ngoài để xem kết quả.

PHP:

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

hoangdanh282vn · 22/10/08

Cái này có lẽ sẽ đúng hơn tí

PHP:

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 · 22/10/08

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 · 22/10/08

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 · 22/10/08

Lệnh Hồ Đại Hiệp đã viết:
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 · 3/5/11

ndu96081631 đã viết:
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 · 3/5/11

anhdung_nb2007 đã viết:
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 · 28/1/13

ndu96081631 đã viết:
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! --=0

ndu96081631 · 28/1/13

laidaugaux9x đã viết:
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 · 28/1/13

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! --=0

cuonghoa176 · 28/1/13

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 · 28/1/13

cuonghoa176 đã viết:
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 · 28/1/13

ndu96081631 đã viết:
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! --=0

ndu96081631 · 29/1/13

laidaugaux9x đã viết:
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 · 31/1/13

ndu96081631 đã viết:
Đ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 · 31/1/13

gau2603 đã viết:
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é

Đổi màu cho cell hiện hành (ActiveCell)

Trùm Nhiều Chuyện

Huyền thoại GPE

Trùm Nhiều Chuyện

Thành viên tiêu biểu

Nguyễn Cảnh Hoàng Danh

Nguyễn Cảnh Hoàng Danh

Huyền thoại GPE

Độc cô Cửu kiếm

Huyền thoại GPE

File đính kèm

Thành viên mới

Thành viên tích cực

Thành viên mới

Huyền thoại GPE

File đính kèm

Thành viên mới

Hỏi nhiều

Huyền thoại GPE

Thành viên mới

Huyền thoại GPE

Thành viên mới

Huyền thoại GPE

Facebook

Group