Jadval katakchasini to'ldirish rangini butun qatorga, ustunga yoki jadvalga tezda qo'llashning 5 ta usuli

Ushbu maqolada biz sizga jadval katakchasini to'ldirish rangini butun satr, ustun yoki jadvalga tezda qo'llashning beshta usulini taklif qilamiz.

Siz Word-dagi jadval katakchasiga nusxa ko'chirganingizda, siz faqat hujayra tarkibini olasiz, lekin hech qachon to'ldirish rangiga ega bo'lmaysiz. Shuning uchun biz sizga ushbu muammoni hal qilish uchun beshta vaqtinchalik echimni ko'rsatmoqchimiz.    

1-usul: Jadval uyasining RGB qiymatini qo'lda oling

1. Avvalo, to'ldirish rangini olishingiz kerak bo'lgan hujayrani tanlang.
2. Keyin "Dizayn" yorlig'ini bosing.
3. Quyidagi "Shading" buyrug'ini toping va ushbu buyruqning ochiladigan tugmachasini bosing.
4. Xuddi shu nomdagi dialog oynasini ochish uchun menyuda "Chegaralar va soyalar" ni tanlang.
5. Keyingi ochilgan oynada "Shading" yorlig'ini bosing.
6. "To'ldirish" maydoniga o'ting va ochiladigan tugmani bosing.
7. Va "Ranglar" oynasini ochish uchun "Qo'shimcha ranglar" ni tanlang.
8. "Rangli model" maydoni uchun "RGB" ni tanlang. Quyidagi RGB qiymatini oling.
9. Keyin barcha katakchalarni yoping va kursorni maqsadli katak ichiga qo'ying. Yoki siz bir nechta katakchalarni, qatorlarni, ustunlarni yoki hatto butun jadvalni tanlashingiz mumkin.
10. Va "Qo'shimcha ranglar" ni tanlash uchun "Shading" buyrug'idagi ochiladigan tugmani bosing.
11. "Maxsus" yorlig'ida RGB qiymatini kiriting va "OK" tugmasini bosing.

2-usul: "Formatlashni ko'rsatish" panelini oching

G'oya shunga o'xshash, ya'ni RGB qiymatini olish va keyin uni maqsadli kataklarga, qatorlarga, ustunlarga yoki butun jadvalga qo'llash.

1. Birinchidan, qo'shish ko'rsatkichini to'ldirilgan hujayra ichiga joylashtiring.
2. Keyin "Formatlashni ko'rsatish" panelini ochish uchun "Shift + F1" tugmasini bosing. Va siz "Shading" bo'limida hujayraning RGB qiymatini ko'rishingiz mumkin.
3. 9-usuldagi 11-1-bosqichlarni bajaring.

3-usul: VBA orqali butun jadvalga bitta hujayraning to'ldirish rangini qo'llang

Subtitr taklif qilganidek, bu erda butun jadvalni bitta rangda birlashtirish yo'li.

1. Boshlash uchun qo'shish ko'rsatkichini rangli katak ichiga joylashtiring.
2. VBA muharririni ishga tushirish uchun “Alt+ F11” tugmasini bosing.
3. Keyin "Oddiy" loyihani bosing va "Qo'shish" yorlig'ini bosing.
4. Keyin ushbu menyuda "Modul" ni tanlang.
5. Uni ikki marta bosish orqali oching.
6. Va u erga quyidagi kodlarni joylashtiring:

Sub ApplyColorOfOneCellToEntireTable()
  Dim nRowIndex As Integer
  Dim nColumnIndex As Integer
  Dim nCellForeColor As Long
  Dim nCellBackColor As Long
 
  If Selection.Information(wdWithInTable) = True Then
    nRowIndex = Selection.Cells(1).RowIndex
    nColumnIndex = Selection.Cells(1).ColumnIndex
  Else
    MsgBox ("Please put your cursor inside a cell.")
    Exit Sub
  End If
  With Selection.Tables(1)
    nCellBackColor = .Cell(nRowIndex, nColumnIndex).Shading.BackgroundPatternColor
    nCellForeColor = .Cell(nRowIndex, nColumnIndex).Shading.ForegroundPatternColor
    .Shading.BackgroundPatternColor = nCellBackColor
    .Shading.ForegroundPatternColor = nCellForeColor
  End With
End Sub

7. Nihoyat, "Ishga tushirish" tugmasini bosing yoki "F5" tugmasini bosing.

4-usul: VBA orqali butun qatorga bitta katakning to'ldirish rangini qo'llang

1. Avval kursorni hujayra ichiga qo'ying.
2. Keyinchalik 3-usuldagi xuddi shu qadamlarni bajarib, makroni o'rnating va ishga tushiring.
3. Keyin yuqoridagi kodlarni quyidagilar bilan almashtiring:

Sub ApplyColorOfOneCellToEntireRow()
  Dim nRowIndex As Integer
  Dim nCellForeColor As Long
  Dim nCellBackColor As Long
 
  If Selection.Information(wdWithInTable) = True Then
    nRowIndex = Selection.Cells(1).RowIndex
    nCellBackColor = Selection.Cells(1).Shading.BackgroundPatternColor
    nCellForeColor = Selection.Cells(1).Shading.ForegroundPatternColor
  Else
    MsgBox ("Please put your cursor inside a cell.")
    Exit Sub
  End If
  With Selection.Tables(1).Rows(nRowIndex).Shading
    .BackgroundPatternColor = nCellBackColor
    .ForegroundPatternColor = nCellForeColor
  End With
End Sub

5-usul: VBA orqali bitta katakning to'ldirish rangini butun ustunga qo'llang

1. Ehtimol, birinchi navbatda kursorni hujayra ichiga qo'ying.
2. Keyin makroni to'g'ri o'rnating va ishga tushiring.
3. Makrosni shu bilan almashtiring:

Sub ApplyColorOfOneCellToEntireColumn()
  Dim nColumnIndex As Integer
  Dim nCellForeColor As Long
  Dim nCellBackColor As Long
 
  If Selection.Information(wdWithInTable) = True Then
    nColumnIndex = Selection.Cells(1).ColumnIndex
    nCellBackColor = Selection.Cells(1).Shading.BackgroundPatternColor
    nCellForeColor = Selection.Cells(1).Shading.ForegroundPatternColor
  Else
    MsgBox ("Please put your cursor inside a cell.")
    Exit Sub
  End If
  With Selection.Tables(1).Columns(nColumnIndex).Shading
    .BackgroundPatternColor = nCellBackColor
    .ForegroundPatternColor = nCellForeColor
  End With
End Sub

Word bilan bog'liq muammolarni hal qilish

Word dasturidan foydalanish jarayonida muammolar doimo mavjud va bo'ladi. Shunday qilib, bu zerikarli muammolarni hal qilish uchun to'g'ri hiyla-nayrangni o'rganish juda zarur. Qabul qilishingiz kerak bo'lgan chora-tadbirlardan biri bu a ni qo'lga kiritishdir So'zni tuzatish oldindan vosita. Hujjat buzilganidan keyin siz vahima qo'ymaysiz.

Muallif kirish:

Vera Chen - ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc excelni tiklang va pdf dasturiy mahsulotlarni ta'mirlash. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com