Petua: Bahasa lain diterjemahkan Google. Anda boleh melawat English versi pautan ini.
Log masuk
x
or
x
x
Daftar Sekarang
x

or

Bagaimana untuk memasukkan senarai drop down berkod warna dalam jadual Word?

Supaya, saya mempunyai jadual dalam dokumen Word saya, dan sekarang, saya ingin memasukkan senarai drop down berkod warna dalam lajur meja. Ini bermakna apabila saya memilih satu pilihan dari drop down, warna sel menjadi merah, dan apabila saya memilih satu lagi pilihan dalam drop down, warna sel menjadi hijau seperti tangkapan skrin berikut. Bagaimanakah anda dapat menyelesaikan tugas ini dalam dokumen Word?

drop color code dikodkan

Sisipkan senarai drop down berkod warna dalam dokumen Word dengan kod VBA


Sisipkan senarai drop down berkod warna dalam dokumen Word dengan kod VBA

Langkah-langkah berikut boleh membantu anda menyelesaikan tugas ini seperti yang anda perlukan, pertama, masukkan senarai drop-down, dan kemudian gunakan warna untuk drop down. Sila buat seperti ini:

1. Pilih sel di dalam jadual di mana anda ingin masukkan lungsur turun, kemudian klik Pemaju > Kawalan Kandungan Senarai Drop-Down ikon, lihat tangkapan skrin:

Dokumen warna coded drop down 1

2. Jatuh turun dimasukkan ke dalam sel tertentu, dan kemudian klik Pemaju > Hartanah, lihat tangkapan skrin:

Dokumen warna coded drop down 2

3. Di dalam Harta Kawalan Kandungan kotak dialog, sila lakukan operasi berikut:

(1.) Masukkan nama tajuk ke dalam Title kotak teks;

(2.) Klik Tambah butang pergi ke Tambah Pilihan dialog;

(3.) Dalam Tambah Pilihan dialog, taip item senarai drop-down ke dalam Nama Paparan kotak teks.

Dokumen warna coded drop down 3

4. Ulangi Langkah 3 untuk memasukkan item senarai jatuh turun yang anda perlukan.

5. Setelah membuat senarai drop down yang pertama, anda boleh menyalin dan menampalkannya ke sel lain yang anda perlukan. Lihat tangkapan skrin:

Dokumen warna coded drop down 4

6. Kemudian anda perlu memohon kod VBA, sila tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi tingkap.

7. Di dalam Microsoft Visual Basic untuk Aplikasi tetingkap, klik dua kali Dokumen ini dari yang Projek-Projek anak tetingkap untuk membuka mod, dan kemudian salin dan tampal kod berikut ke dalam modul kosong.

Kod VBA: Masukkan senarai drop down berkod warna ke dalam jadual dokumen Word:

Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
With ContentControl.Range
    If ContentControl.Title = "Status" Then
        Select Case .Text
            Case "Complete"
                .Cells(1).Shading.BackgroundPatternColor = wdColorRed
            Case "In Progress"
                .Cells(1).Shading.BackgroundPatternColor = wdColorGreen
            Case "Not Start"
                .Cells(1).Shading.BackgroundPatternColor = wdColorBlue
            Case Else
                .Cells(1).Shading.BackgroundPatternColor = wdColorAutomatic
        End Select
    End If
End With
End Sub

Dokumen warna coded drop down 5

Nota: Dalam kod di atas, status adalah nama tajuk apabila anda membuat senarai drop down, dan Lengkapkan, Dalam Kemajuan, Tidak bermula adalah item senarai jatuh ke bawah, anda boleh menukarnya kepada anda sendiri. Dan anda juga boleh menukar warna kepada keperluan anda.

8. Kemudian simpan dan tutup tetingkap kod, sekarang, apabila anda memilih satu item dari senarai drop down, warna relatif akan diisi dengan sel, lihat tangkapan skrin:

drop color code dikodkan


Alat produktiviti Word yang disyorkan

shot kutools perkataan kutools tab 1180x121
shot kutools perkataan kutools plus tab 1180x120

Kutools For Word - Lebih Daripada Ciri-ciri Lanjutan 100 Untuk Microsoft Word, Simpan 50% Time anda

  • Operasi yang rumit dan berulang boleh dilakukan pemprosesan satu kali dalam beberapa saat.
  • Sisipkan beberapa imej merentas folder ke dalam dokumen Word sekaligus.
  • Gabungkan dan menggabungkan beberapa fail Word merentas folder ke dalam satu dengan pesanan yang anda inginkan.
  • Pisah dokumen semasa ke dalam dokumen berasingan mengikut tajuk 1, pecahan bahagian atau kriteria lain.
  • Tukar fail antara Doc dan Docx, Docx dan PDF, koleksi alat untuk penukaran dan pilihan biasa, dan sebagainya...
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Raj · 1 months ago
    Instead of colors, could we use symbols? like if 'completed' display symbol with character code 252, if not started then symbol with character code 88 etc. can you share the vba code using symbols as display plz?
  • To post as a guest, your comment is unpublished.
    Patti · 3 months ago
    Could I modify this code to have it highlight any drop down choice without listing all of them out?
  • To post as a guest, your comment is unpublished.
    Shannon · 4 months ago
    Hi, Thank you for this. Is there a way of only changing the text color and not the entire cell?
    • To post as a guest, your comment is unpublished.
      skyyang · 3 months ago
      Hi, Shannon,
      To change the text color instead of the background color, the below VBA code can help you, please try it, hope it can help you!

      Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
      With ContentControl.Range
      If ContentControl.Title = "Status" Then
      Select Case .Text
      Case "Complete"
      .Cells(1).Range.Font.Color = wdColorRed
      Case "In Progress"
      .Cells(1).Range.Font.Color = wdColorGreen
      Case "Not Start"
      .Cells(1).Range.Font.Color = wdColorBlue
      Case Else
      .Cells(1).Range.Font.Color = wdColorAutomatic
      End Select
      End If
      End With
      End Sub
      • To post as a guest, your comment is unpublished.
        Bryan Rantala · 3 months ago
        Struggling here to apply this as a style rather than a color or shade.
  • To post as a guest, your comment is unpublished.
    mark · 6 months ago
    Could I enter custom colors? (rgb)
  • To post as a guest, your comment is unpublished.
    Paul · 6 months ago
    this worked grate! Thanks. I tried to apply same code to another drop down content box in same document and I'm having trouble. Don't know how to get tweo in the VBA window. I get 'compile error, Ambiguous name detected: Document_ContentControlOnExit'