ဤဆောင်းပါးတွင်၊ အတန်း၊ ကော်လံ သို့မဟုတ် ဇယားတစ်ခုလုံးတွင် ဇယားဆဲလ်တစ်ခု၏ ဖြည့်စွက်အရောင်ကို အမြန်အသုံးပြုရန် နည်းလမ်းငါးခုကို ပေးပါမည်။
Word ရှိ ဇယားဆဲလ်တစ်ခုတွင် ကော်ပီလုပ်သည့်အခါ ဆဲလ်အကြောင်းအရာကိုသာ ရရှိသော်လည်း ဖြည့်စွက်အရောင် ဘယ်တော့မှ မရရှိသည်ကို သတိပြုမိပေမည်။ ထို့ကြောင့် ဤပြဿနာကို ဖြေရှင်းရန် နည်းလမ်းငါးခုကို သင့်အား ပြသလိုပါသည်။ 
နည်းလမ်း 1- ဇယားဆဲလ်၏ RGB တန်ဖိုးကို ကိုယ်တိုင်ရယူပါ။
- ပထမဆုံးအနေနဲ့ သင်ရလိုတဲ့ အရောင်ဖြည့်ဆဲလ်ကို ရွေးပါ။
- ထို့နောက် "ဒီဇိုင်း" tab ကိုနှိပ်ပါ။
- “Shading” အောက်ရှိ command ကိုရှာပြီး ထို command ပေါ်ရှိ drop-down button ကိုနှိပ်ပါ။
- မီနူးတွင် တူညီသောအမည် dialog box ကိုဖွင့်ရန် "နယ်နိမိတ်နှင့်အရိပ်" ကိုရွေးချယ်ပါ။
- နောက်တစ်ခုဖွင့်အကွက်တွင်၊ "အရိပ်" tab ကိုနှိပ်ပါ။
- "Fill" အကွက်သို့သွားပြီး drop-down ခလုတ်ကိုနှိပ်ပါ။
- ပြီးလျှင် “အရောင်များ” အကွက်ကိုဖွင့်ရန် “More Colors” ကို ရွေးပါ။
- "အရောင်မော်ဒယ်" အကွက်အတွက် "RGB" ကိုရွေးချယ်ပါ။ အောက်ပါ RGB တန်ဖိုးကို ရယူပါ။
- ပြီးရင် ဘောက်စ်အားလုံးကိုပိတ်ပြီး cursor ကို target cell ထဲမှာထားပါ။ ဒါမှမဟုတ် cell အများကြီး၊ row တွေ၊ column တွေ ဒါမှမဟုတ် table တစ်ခုလုံးကို ရွေးနိုင်ပါတယ်။
- ပြီးလျှင် “More Colors” ကိုရွေးချယ်ရန် “အရိပ်ထိုးခြင်း” အမိန့်ရှိ drop-down ခလုတ်ကို နှိပ်ပါ။
- "Custom" tab အောက်တွင် RGB တန်ဖိုးကို ရိုက်ထည့်ပြီး "OK" ကိုနှိပ်ပါ။
နည်းလမ်း 2- “Reveal Formatting” Pane ကိုဖွင့်ပါ။
RGB တန်ဖိုးကို ရယူပြီး target cell များ၊ row များ၊ column များ သို့မဟုတ် table တစ်ခုလုံးတွင် အသုံးချခြင်းမှာ သဘောတရားနှင့် ဆင်တူပါသည်။
- ပထမဦးစွာ၊ ဖြည့်ထားသောဆဲလ်အတွင်း ထည့်သွင်းညွှန်ပြချက်ကို ထည့်သွင်းပါ။
- ထို့နောက် "Reveal Formatting" pane ကိုဖွင့်ရန် "Shift+ F1" ကိုနှိပ်ပါ။ ပြီးလျှင် "အရိပ်ထိုးခြင်း" ကဏ္ဍအောက်ရှိ ဆဲလ်၏ RGB တန်ဖိုးကို သင်တွေ့မြင်နိုင်မည်ဖြစ်သည်။
- နည်းလမ်း 9 တွင် အဆင့် 11 မှ 1 ကို လိုက်နာပါ။
နည်းလမ်း 3- ဆဲလ်တစ်ခု၏ ဖြည့်စွက်အရောင်ကို VBA မှတစ်ဆင့် ဇယားတစ်ခုလုံးတွင် အသုံးချပါ။
စာတန်းထိုးအကြံပြုထားသည့်အတိုင်း၊ ဤနေရာတွင် စားပွဲတစ်ခုလုံးကို အရောင်တစ်ခုတည်းဖြင့် ပေါင်းစည်းရန် နည်းလမ်းဖြစ်သည်။
- စတင်ရန်၊ ရောင်စုံဆဲလ်တစ်ခုအတွင်း ထည့်သွင်းမှုညွှန်ပြချက်ကို နေရာချပါ။
- VBA တည်းဖြတ်မှုကို စတင်ရန် "Alt+ F11" ကိုနှိပ်ပါ။
- ထို့နောက် "Normal" ပရောဂျက်ကိုနှိပ်ပြီး "Insert" tab ကိုနှိပ်ပါ။
- ထို့နောက် အဆိုပါမီနူးတွင် “Module” ကိုရွေးချယ်ပါ။
- ၎င်းကို double click ဖြင့်ဖွင့်ပါ။
- ပြီးလျှင် အောက်ပါကုဒ်များကို ထိုနေရာတွင် ကူးထည့်ပါ။
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
- နောက်ဆုံးအနေနဲ့ "Run" ကိုနှိပ်ပါ သို့မဟုတ် "F5" ကိုနှိပ်ပါ။
နည်းလမ်း 4- ဆဲလ်တစ်ခု၏ ဖြည့်စွက်အရောင်ကို VBA မှတစ်ဆင့် အတန်းတစ်ခုလုံးတွင် အသုံးချပါ။
- ပထမဦးစွာ ဆဲလ်တစ်ခုအတွင်း ကာဆာထည့်ပါ။
- ထို့နောက် method 3 တွင် တူညီသော အဆင့်များအတိုင်း အတိအကျ လိုက်လုပ်ထားသော macro တစ်ခုကို install လုပ်ပြီး run ပါ။
- ထို့နောက် အထက်ဖော်ပြပါ ကုဒ်များကို ဤအရာများဖြင့် အစားထိုးပါ။
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- ဆဲလ်တစ်ခု၏ ဖြည့်စွက်အရောင်ကို VBA မှတစ်ဆင့် ကော်လံတစ်ခုလုံးသို့ အသုံးချပါ။
- ဖြစ်နိုင်သည်မှာ၊ ဆဲလ်တစ်ခုအတွင်း ကာဆာကို ဦးစွာထည့်ပါ။
- ထို့နောက် မက်ခရိုကို မှန်ကန်စွာ ထည့်သွင်းပြီး လုပ်ဆောင်ပါ။
- မက်ခရိုကို ဤတစ်ခုဖြင့် အစားထိုးပါ-
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 ကိုအသုံးပြုခြင်းလုပ်ငန်းစဉ်တွင် ပြဿနာများအမြဲရှိနေပါသည်။ ဒါကြောင့် ဒီစိတ်အနှောက်အယှက်ဖြစ်စရာပြဿနာတွေအားလုံးကို ကိုင်တွယ်ဖြေရှင်းဖို့ မှန်ကန်တဲ့လှည့်ကွက်ကို လေ့လာထားဖို့ လိုပါတယ်။ လုပ်သင့်လုပ်ထိုက်တဲ့ အစီအမံတွေထဲက တစ်ခုကတော့ ကိုင်ထားဖို့ပါပဲ။ စကားလုံးပြင်တယ်။ tool ကိုကြိုတင်ပြောပါ။ စာရွက်စာတမ်းတစ်ခု ပျက်စီးသွားသည်နှင့် သင် ထိတ်လန့်နေမည်မဟုတ်ပါ။
စာရေးသူနိဒါန်း:
Vera Chen သည် ဒေတာပြန်လည်ရယူရေးဆိုင်ရာ ကျွမ်းကျင်သူဖြစ်သည်။ DataNumen, Inc. အပါအဝင် ဒေတာပြန်လည်ရယူရေးနည်းပညာများတွင် ကမ္ဘာ့ခေါင်းဆောင်ဖြစ်သည်။ Excel ကိုပြန်လည်ရယူပါ။ နှင့် pdf ဆော့ဖ်ဝဲ ထုတ်ကုန်များကို ပြုပြင်ခြင်း။ ပိုမိုသိရှိလိုပါကသွားရောက်ကြည့်ရှု www ။datanumen.com




