Nút để tô màu một số số nhất định trong bảng excel

Vấn đề

Tôi đang tìm cách tạo một nút màu tất cả các số bằng với số trên nút ... làm ví dụ, giả sử tôi có một hàng nút từ 1 đến 10 và trong cùng một ô có các số từ 1 đến 10 không theo thứ tự. Bây giờ tôi muốn nhanh chóng có thể xác định tất cả 3 và 7 bằng màu sắc. "Đơn giản: nhấp vào nút 3, hành động: tô màu tất cả các ô có số 3 trong đó và để nó như thế cho đến khi tôi nhấn lại nút ...

Dung dịch

Tôi sẽ đưa ra một giải pháp khác in các hướng dẫn này và làm theo (miễn là nó phù hợp với bạn)

MỞ MỘT FILE EXCEL MỚI

bây giờ trong trình soạn thảo vb sao chép macro này

 Kiểm tra phụ () Dim x As Integer, cfind () As Range, j As Integer, k As Integer, thêm As As String Strings ("A: A"). Internal.ColorIndex = xlNone x = Range ("F1"). j = WorksheetFunction.Count If (Cột ("A: A"), x) Nếu j = 0 thì MsgBox "không có giá trị nào như vậy trong cột A" Thoát Sub End If ReDim cfind (1 To j) For k = 1 To j Đặt cfind (k) = Cột ("A: A"). Cells.Find (what: = x, lookat: = xlWhole) cfind (k) .Interior.ColorIndex = 3 add = cfind (k) .Address Do Set cfind (k) = Cột ("A: A"). Các ô.FindNext (cfind (k)) Nếu cfind (k) Is nothing Then Thoát Do If cfind (k) .Address = add Sau đó Thoát Do cfind (k) .Interior .Color Index = 3 Vòng tiếp theo k Kết thúc

bấm vào xem menu-toolbars-form

trong danh sách các thanh công cụ biểu mẫu có một cái gọi là spinner

nhấp vào nó và vẽ một nút spinner

nhấp chuột phải vào nút và nhấp vào "điều khiển định dạng"

trong cửa sổ đó chọn điều khiển (mục cuối cùng ở hàng trên cùng)

loại 1 so với "giá trị tối thiểu"

loại 10 so với "giá trị tối đa"

"thay đổi gia tăng" sẽ là 1

liên kết các ô sẽ là $ F $ 1

nhấp vào ok

một lần nữa nhấp chuột phải vào nút spinner và nhấp vào "gán macro", tên "test" sẽ xuất hiện. làm nổi bật và nhấp vào ok, giả sử các số nằm trong cột A để kiểm tra loại một số số nguyên từ 1 đến 10 (một số lặp lại hai lần hoặc ba lần, một số số bị thiếu) từ A1 đến A20 lưu tệp bây giờ chọn bất kỳ ô nào bên ngoài nút quay tròn và nhấp lại hoặc mũi tên hướng xuống trong nút spinner. Xem giá trị trong F1. Nếu F1 là 1 thì sẽ không có gì xảy ra nếu bạn nhấp vào mũi tên hướng xuống tương tự nếu F1 là 10 mũi tên hướng lên sẽ không cho bất cứ thứ gì khác nếu tiếp tục nhấp vào mũi tên hướng xuống hoặc hướng lên, hãy theo dõi F1 và xem các số đó (có giá trị là giá trị F1) trong cột A sẽ được đánh dấu màu đỏ. Điều này sẽ sử dụng cho bạn. Bạn có thể sửa đổi kế hoạch