Đổi màu cho cell hiện hành (ActiveCell) (6 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é