Multi-select ဖြင့် Dropdown စာရင်း

Excel စာရွက်ရှိ ဂန္တဝင် drop-down စာရင်းသည် ကောင်းမွန်သော်လည်း တင်ပြထားသည့်အစုံမှ ရွေးချယ်ခွင့်တစ်ခုသာ ရွေးချယ်နိုင်မည်ဖြစ်သည်။ တစ်ခါတစ်ရံတွင် ၎င်းသည် သင်လိုချင်သည့်အတိုင်း အတိအကျဖြစ်သော်လည်း အသုံးပြုသူသည် ရွေးချယ်နိုင်ရန်လိုအပ်သည့် အခြေအနေများရှိသည်။ အချို့သော စာရင်းထဲကဒြပ်စင်များ။

ထိုသို့သော ရွေးချယ်မှုပေါင်းစုံစာရင်း၏ သာမာန်အကောင်အထည်ဖော်မှုများစွာကို ကြည့်ကြပါစို့။

ရွေးချယ်မှု 1. အလျားလိုက်

အသုံးပြုသူသည် drop-down list မှ အရာများကို တစ်ခုပြီးတစ်ခု ရွေးချယ်ပြီး ၎င်းတို့သည် ပြောင်းလဲနေသောဆဲလ်၏ ညာဘက်တွင် အလျားလိုက်ဖြင့် အလိုအလျောက် စာရင်းသွင်းထားသည်-

ဤဥပမာရှိဆဲလ် C2:C5 အတွင်းရှိ drop-down စာရင်းများကို စံနည်းလမ်းဖြင့် ဖန်တီးထားသည်။

  1. ဆဲလ် C2:C5 ကို ရွေးပါ။
  2. တက်ဘ် သို့မဟုတ် မီနူး ဒေတာများ အဖွဲ့တစ်ဖွဲ့ကိုရွေးချယ်ပါ။ ဒေတာစစ်ဆေးရန်
  3. ပွင့်လာသောဝင်းဒိုးတွင်၊ ရွေးစရာတစ်ခုကို ရွေးပါ။ စာရင်း အပိုင်းအခြားအဖြစ် သတ်မှတ်ပါ။ အရင်းအမြစ် A1:A8 စာရင်းအတွက် အရင်းအမြစ်ဒေတာပါရှိသော ဆဲလ်များ

ထို့နောက်တွင် သင်သည် အဓိကအလုပ်အားလုံးကို လုပ်ဆောင်ပေးမည့် Sheet module တွင် macro တစ်ခုထည့်ရန်လိုအပ်သည်၊ ဆိုလိုသည်မှာ အစိမ်းရောင်ဆဲလ်များ၏ညာဘက်တွင် ရွေးချယ်ထားသောတန်ဖိုးများကိုထည့်ပါ။ ဒါကိုလုပ်ဖို့၊ drop-down lists ပါတဲ့ sheet tab ပေါ်မှာ right-click နှိပ်ပြီး command ကိုရွေးပါ။ source code ကို. ဖွင့်ထားသည့် Visual Basic တည်းဖြတ်ဝင်းဒိုးတွင် အောက်ပါကုဒ်ကို ကူးထည့်ပါ-

Private Sub Worksheet_Change(ByVal Target As Range) တွင် Intersect မဟုတ်ပါက နောက်တစ်ခုတွင် အမှားအယွင်းရှိနေပါက (Target, Range("C2:C5"))) သည် ဘာမှမဟုတ်ပါ နှင့် Target.Cells.Count = 1 ထို့နောက် Application.EnableEvents = Len(Target.Offset) မှားယွင်းပါက (0, 1)) = 0 ထို့နောက် Target.Offset(0, 1) = Target Else Target.End(xlToRight).Offset(0, 1) = Target End If Target.ClearContents Application.EnableEvents = True End If End Sub

လိုအပ်ပါက၊ ဤကုဒ်၏ဒုတိယစာကြောင်းတွင် drop-down lists C2:C5 ၏ အရေးကြီးသောအကွာအဝေးကို သင့်ကိုယ်ပိုင်ဖြင့် အစားထိုးပါ။

ရွေးချယ်စရာ 2. ဒေါင်လိုက်

ယခင်ဗားရှင်းနှင့် အတူတူပင်ဖြစ်သော်လည်း အသစ်ရွေးချယ်ထားသော တန်ဖိုးများကို ညာဘက်တွင် မထည့်ဘဲ၊ အောက်ခြေအထိ-

၎င်းကို အတိအကျတူညီသောနည်းလမ်းဖြင့် လုပ်ဆောင်သော်လည်း handler macro code သည် အနည်းငယ်ပြောင်းလဲသွားသည်-

Private Sub Worksheet_Change(ByVal Target As Range) တွင် Intersect မဟုတ်ပါက နောက်တစ်ခုတွင် အမှားအယွင်းရှိနေပါက (Target, Range("C2:F2"))) သည် ဘာမှမဟုတ်သလို Target.Cells.Count = 1 ထို့နောက် Application.EnableEvents = Len(Target.Offset) မှားယွင်းပါက၊ (1, 0)) = 0 ထို့နောက် Target.Offset(1, 0) = Target Else Target.End(xlDown).Offset(1, 0) = Target End If Target.ClearContents Application.EnableEvents = True End If End Sub

လိုအပ်ပါက၊ C2:F2 drop-down list ၏ အရေးကြီးသော အတိုင်းအတာကို ဤကုဒ်၏ ဒုတိယစာကြောင်းတွင် သင့်ကိုယ်ပိုင်ဖြင့် အစားထိုးပါ။

ရွေးချယ်မှု 3. တူညီသောဆဲလ်တွင် စုစည်းမှု

ဤရွေးချယ်မှုတွင်၊ စုစည်းမှုသည် drop-down list တည်ရှိရာ ဆဲလ်တစ်ခုတည်းတွင် ဖြစ်ပေါ်သည်။ ရွေးချယ်ထားသောဒြပ်စင်များကို ပေးထားသည့် အက္ခရာတစ်ခုခုဖြင့် ပိုင်းခြားထားသည် (ဥပမာ၊ ကော်မာ)

အစိမ်းရောင်ဆဲလ်များရှိ drop-down စာရင်းများကို ယခင်နည်းလမ်းများကဲ့သို့ လုံးဝစံပုံစံဖြင့် ဖန်တီးထားသည်။ အလုပ်အားလုံးကို စာရွက်အပိုင်းရှိ မက်ခရိုတစ်ခုဖြင့် ပြီးသည်-

Private Sub Worksheet_Change(ByVal Target As Range) တွင် Intersect မဟုတ်ပါက နောက်တစ်ခုတွင် အမှားအယွင်းရှိ၍ ပြန်လည်စတင်မည်(Target, Range("C2:C5"))) ဘာမှမဖြစ်သလို Target.Cells.Count = 1 ထို့နောက် Application.EnableEvents = False newVal = Target Application.Undo oldval = Target If Len(oldval) <> 0 And oldval <> newVal Then Target = Target & "," & newVal Else Target = newVal End If Len(newVal) = 0 Then Target.ClearContents Application.EnableEvents = True End if အဆုံးခွဲ

ဆန္ဒရှိပါက၊ သင်သည် ကုဒ်၏ 9 ခုမြောက် စာကြောင်းတွင် ခြားထားသော အက္ခရာ (ကော်မာ) ကို သင့်ကိုယ်ပိုင် (ဥပမာ၊ space သို့မဟုတ် semicolon) ဖြင့် အစားထိုးနိုင်ပါသည်။

  • excel sheet cell တွင် ရိုးရှင်းသော drop down list တစ်ခုကို ဖန်တီးနည်း
  • အကြောင်းအရာများပါရှိသော dropdown စာရင်း
  • ပျောက်နေသော ရွေးစရာများပါရှိသော တွဲဆွဲစာရင်းကို ထည့်ထားသည်။
  • မက်ခရိုဟူသည် အဘယ်နည်း၊ ၎င်းတို့ကို အသုံးပြုနည်း၊ Visual Basic တွင် မက်ခရိုကုဒ်ထည့်ရမည့်နေရာ

တစ်ဦးစာပြန်ရန် Leave