Tombol untuk mewarnai angka-angka tertentu dalam lembar excel
Tombol untuk mewarnai angka-angka tertentu dalam lembar excel
Isu
Saya mencari cara untuk membuat warna tombol semua angka sama dengan angka pada tombol ... sebagai contoh, katakanlah saya memiliki deretan tombol dari 1 hingga 10, dan dalam sel lembar yang sama dengan angka dari 1 hingga 10 tanpa urutan. Saya sekarang ingin cepat dapat mengidentifikasi semua 3 dan 7 dengan warna. "Sederhana: klik tombol 3, tindakan: warnai semua sel dengan angka 3 di dalamnya dan biarkan seperti itu sampai saya menekan tombol lagi ...
Larutan
Saya akan memberikan solusi lain, cetak instruksi ini dan ikuti (asalkan cocok untuk Anda)
BUKA FILE EXCEL BARU
sekarang di editor vb salin makro ini
Sub test () Dim x As Integer, cfind () As Range, j As Integer, k As Integer, tambahkan As String Columns ("A: A"). Interior.ColorIndex = xlTidak ada x = Range ("F1"). Nilai j = WorksheetFunction.CountIf (Kolom ("A: A"), x) Jika j = 0 Lalu MsgBox "tidak ada nilai seperti itu tersedia di kolom A" Keluar Sub End Jika ReDim cfind (1 To j) Untuk k = 1 Ke j Set cfind (k) = Kolom ("A: A"). Cells.Find (apa: = x, cari: = xlWhole) cfind (k) .Interior.ColorIndex = 3 add = cfind (k). Alamat Apakah Set cfind (k) = Kolom ("A: A"). Cells.FindNext (cfind (k)) Jika cfind (k) Tidak Ada Maka Keluar Lakukan Jika cfind (k). Alamat = tambah Lalu Keluar Lakukan cfind (k). Interior .ColorIndex = 3 Loop Berikutnya k End Sub
klik lihat menu-toolbar-form
dalam daftar form Toolbar ada satu yang disebut spinner
klik dan gambar tombol pemintal
klik kanan tombol dan klik "kontrol format"
di jendela itu pilih kontrol (item terakhir di baris atas)
tipe 1 terhadap "nilai minimum"
ketik 10 terhadap "nilai maksimum"
"perubahan bertahap" akan menjadi 1
tautan sel akan menjadi $ F $ 1
klik ok
lagi klik kanan tombol pemintal dan klik "tetapkan makro" nama "tes" akan muncul. sorot itu dan klik ok misalkan angkanya ada di kolom A untuk menguji ketik beberapa bilangan bulat antara1 dan 10 (beberapa mengulangi dua atau tiga kali, beberapa angka hilang) dari A1 ke A20 simpan file sekarang pilih sel mana saja di luar tombol pemintal dan lagi klik ke atas atau panah ke bawah di tombol pemintal. Lihat nilai dalam F1. jika F1 adalah 1, tidak ada yang akan terjadi jika Anda mengklik panah ke bawah dengan cara yang sama jika F1 adalah panah ke atas 10 tidak akan memberikan apa pun jika tidak mengklik panah ke bawah atau ke atas, berjaga-jaga di F1 dan lihat angka-angka (yang nilainya nilai F1) di kolom A akan ditandai merah. Apakah ini berguna untuk Anda. Anda dapat memodifikasi paket
Catatan
Dipecahkan oleh venkat1926