Bagaimana untuk menetapkan warna fon teks Excel dengan VBA?

Bagaimana untuk menetapkan warna fon teks Excel dengan VBA?

Dalam tutorial ini kita akan belajar cara menggunakan Visual Basic for Applications (VBA) untuk mengubah suai saiz dan gaya teks dalam sel Excel berdasarkan kandungan sel. Tutorial ini digunakan untuk Excel 365, 2021, 2019 dan 2016.

Pendahuluan

Jika anda baru dalam pembangunan Excel VBA, saya akan mengesyorkan bahawa sebelum melalui tutorial anda akan melihat buku asas makro Excel VBA kami.

Sebelum anda memulakan pengekodan, anda harus mendayakan tab pembangun anda pada Excel dalam Ribbon, kerana jika tidak, anda tidak akan dapat mengakses Editor Visual Basic anda.

Tukar sifat teks sel Excel anda dengan VBA

Tentukan hamparan anda

Kami akan mulakan dengan mentakrifkan hamparan Excel yang akan kami gunakan sebagai contoh. Jangan ragu untuk menggunakannya untuk mengikuti tutorial ini.

  • Buka Microsoft Excel dan buat Buku Kerja Excel Didayakan Makro baharu ( .xlsm ) bernama Excel_Macros.xlsm
  • Simpan Hamparan anda dalam pemacu setempat anda.
  • Dalam lembaran kerja Helaian1 , teruskan dan tambah jadual di bawah:

Bagaimana untuk menetapkan warna fon teks Excel dengan VBA?

  • Sekarang, dari Reben, tekan Formula .
  • Kemudian tekan Define Name .
  • Tentukan Julat Dinamakan yang mana anda akan menggunakan kod VBA anda seperti yang ditunjukkan di bawah dan tekan OK .

Bagaimana untuk menetapkan warna fon teks Excel dengan VBA?

Gunakan sifat Cell.Font VBA untuk menukar warna dan gaya fon

  • Beralih ke tab Pembangun .
  • Seterusnya teruskan dan tekan butang Visual Basic .
  • Di sebelah kiri Project Explorer , serlahkan projek Excel_Macros.xlsm kemudian tekan Sisipkan dan pilih Modul .
  • Modul VBA baharu bernama Module1 akan dibuat.
  • Teruskan dan tampal kod berikut dalam modul yang baru dibuat:
Sub Color_Cell_Text_Condition()

Dim MyCell As Range
Dim StatValue As String
Dim StatusRange As Range

Set StatusRange = Range("Completion_Status")

'loop through all cells in the range
For Each MyCell In StatusRange

StatValue = MyCell.Value

'modify the cell text values as needed.
Select Case StatValue

    'green
    Case "Progressing"
    With MyCell.Font
        .Color = RGB(0, 255, 0)
        .Size = 14
        .Bold = True
     End With

    'orange
    Case "Pending Feedback"
    With MyCell.Font
        .Color = RGB(255, 141, 0)
        .Size = 14
        .Bold = True
    End With
    
    'red
    Case "Stuck"
    With MyCell.Font
        .Color = RGB(255, 0, 0)
        .Size = 14
        .Bold = True
    End With

End Select

Next MyCell

End Sub
  • Tekan butang Simpan dalam editor Visual Basic anda.
  • Sekarang tekan Run dan kemudian pilih Run Sub/UserForm (atau hanya tekan F5).
  • Beralih ke lembaran kerja Helaian1 anda dan perhatikan perubahannya. Entri jadual anda telah diberikan berbilang kod warna mengikut teksnya (menggunakan fungsi warna RGB), dan kami juga menetapkan teks menjadi tebal dan meningkatkan saiznya.

Bagaimana untuk menetapkan warna fon teks Excel dengan VBA?

  • Jika anda belum menyimpan kod anda, tekan butang Simpan (atau Ctrl+S), kemudian simpan juga buku kerja anda.

Akses Makro VBA anda

  • Ambil perhatian bahawa kod anda sentiasa tersedia untuk anda jalankan daripada perintah Macros yang terdapat dalam tab View (atau secara alternatif dalam Developer | Macros)

Bagaimana untuk menetapkan warna fon teks Excel dengan VBA?

Bonus: Gaya Sel

Excel menawarkan keupayaan untuk mencipta "Gaya" Sel. Gaya boleh didapati dalam Reben Rumah > Gaya:

gaya fon vba yang cemerlang

Gaya membolehkan anda menyimpan Pemformatan Sel yang anda inginkan. Kemudian tetapkan gaya itu kepada sel baharu dan semua pemformatan sel digunakan serta-merta. Termasuk saiz fon, warna sel, status perlindungan sel dan apa-apa lagi yang tersedia daripada Menu Pemformatan Sel:

menu pemformatan sel excel

Secara peribadi, untuk kebanyakan model yang saya kerjakan, saya biasanya mencipta gaya sel "Input":

Julat("a1").Gaya = "Input"

Dengan menggunakan gaya anda juga boleh mengenal pasti jenis sel dengan mudah pada lembaran kerja anda. Contoh di bawah akan melingkari semua sel dalam lembaran kerja dan menukar mana-mana sel dengan Style = "Input" kepada "InputLocked":

Sel Malap sebagai Julat

Untuk Setiap Sel dalam ActiveSheet.Cells

Jika Cell.Style = "Input" kemudian Cell.Style = "InputLocked"

Tamat Jika

Sel Seterusnya


Cara menukar Chromebook akaun utama

Cara menukar Chromebook akaun utama

Untuk menukar akaun utama pada Chromebook anda, log masuk dengan akaun utama dan gunakan Powerwash untuk tetapan semula kilang peranti. Pelajari langkah-langkah yang mudah untuk proses ini.

Nota Google Keep hilang? Inilah cara untuk mendapatkan mereka kembali

Nota Google Keep hilang? Inilah cara untuk mendapatkan mereka kembali

Jika nota Google Keep hilang, semak arkib, sampah dan pastikan anda menyegerakkan semula dan menggunakan Akaun Google yang betul.

Apakah Maksud TTB dan Bagaimana Saya Menggunakannya?

Apakah Maksud TTB dan Bagaimana Saya Menggunakannya?

Singkatan internet TTB mempunyai lebih daripada satu makna tetapi terdapat satu yang digunakan terutamanya untuknya. Inilah pandangan tentang bagaimana cara anda harus menggunakannya.

Bagaimana Untuk Selesaikan Masalah Lampu Merah Pengawal PS4? [Penyelesaian Dicuba & Diuji]

Bagaimana Untuk Selesaikan Masalah Lampu Merah Pengawal PS4? [Penyelesaian Dicuba & Diuji]

Adakah anda sedang mencari penyelesaian pantas untuk menyelesaikan masalah lampu merah pengawal PS4? Kemudian cuba penyelesaian yang diberikan dan betulkan lampu merah pada PS4...

Cara Mengira Tahun Perkhidmatan dalam Excel

Cara Mengira Tahun Perkhidmatan dalam Excel

Ketahui cara mengira tahun perkhidmatan dalam Excel untuk memudahkan pengurusan pekerja dan manfaatkan fungsi-fungsi berguna seperti YEARFRAC dan DATEDIF.

Halia 2.7.53.0

Halia 2.7.53.0

Halia ialah penyemak ejaan dan tatabahasa percuma.

Blok

Blok

Blocks ialah permainan intelektual untuk pelajar sekolah rendah gred 3 untuk mempraktikkan kemahiran pengesanan dan mata mereka dan disertakan oleh guru dalam program sokongan pengajaran IT.

Prezi 6.26

Prezi 6.26

Prezi ialah aplikasi percuma yang membolehkan anda membuat persembahan digital, dalam talian dan luar talian.

Mathway

Mathway

Mathway ialah apl yang sangat berguna yang boleh membantu anda menyelesaikan semua masalah matematik yang memerlukan alat yang lebih kompleks daripada kalkulator terbina dalam peranti anda.

Adobe Presenter

Adobe Presenter

Adobe Presenter ialah perisian e-Pembelajaran yang dikeluarkan oleh Adobe Systems yang tersedia pada platform Microsoft Windows sebagai pemalam Microsoft PowerPoint.