Excel - Makro untuk mendapatkan kod berangka yang bersamaan untuk warna

Makro ini membolehkan anda mendapatkan kod warna, anda boleh mengubahnya menjadi kemudahan anda:

 Sub distri_color () Dim Lign Sebagai Integer Untuk Lign = 1 Kepada 12 Lembar Kerja (1) .Range ("C" & Lign) .Value = Worksheets (1) .Range ("B" & Lign) .Interior.Color Next Lign End Sub 
  • 'Ganti 12 dengan jumlah baris yang ingin anda proseskan.
  • 'Gantikan "C" dengan lajur yang anda ingin gunakan untuk hasil (kod warna).
  • 'Gantikan "B" dengan lajur yang mengandungi warna yang akan ditapis.

Artikel Sebelumnya Artikel Seterusnya

Tip-Tip Utama