එක්සෙල් පත්‍රයක ඇති සම්භාව්‍ය පතන ලැයිස්තුව විශිෂ්ටයි, නමුත් එය ඔබට ඉදිරිපත් කළ කට්ටලයෙන් එක් විකල්පයක් පමණක් තෝරා ගැනීමට ඉඩ සලසයි. සමහර විට මෙය ඔබට අවශ්‍ය දේම වේ, නමුත් පරිශීලකයාට තෝරා ගැනීමට අවශ්‍ය අවස්ථා තිබේ ඇතැම් ලැයිස්තුවෙන් මූලද්රව්ය.
එවැනි බහු-තේරීම් ලැයිස්තුවක සාමාන්‍ය ක්‍රියාත්මක කිරීම් කිහිපයක් දෙස බලමු.
විකල්ප 1. තිරස්
පරිශීලකයා පතන ලැයිස්තුවෙන් අයිතම එකින් එක තෝරන අතර, ඒවා ස්වයංක්‍රීයව තිරස් ලෙස ලැයිස්තුගත කර වෙනස් වන කොටුවේ දකුණට දිස්වේ:
මෙම උදාහරණයේ සෛල C2:C5 හි පතන ලැයිස්තු සම්මත ආකාරයෙන් සාදා ඇත, එනම්
- C2:C5 සෛල තෝරන්න
- ටැබ් හෝ මෙනුව දත්ත කණ්ඩායමක් තෝරන්න දත්ත වලංගුකරණය
- විවෘත වන කවුළුව තුළ, විකල්පයක් තෝරන්න ලැයිස්තුව සහ පරාසයක් ලෙස සඳහන් කරන්න මූලාශ්රය A1:A8 ලැයිස්තුව සඳහා මූලාශ්‍ර දත්ත සහිත කොටු
එවිට ඔබට පත්‍ර මොඩියුලයට මැක්‍රෝ එකක් එක් කිරීමට අවශ්‍ය වේ, එය සියලු ප්‍රධාන කාර්යයන් සිදු කරනු ඇත, එනම් හරිත සෛලවල දකුණට තෝරාගත් අගයන් එක් කරන්න. මෙය සිදු කිරීම සඳහා, පතන ලැයිස්තු සහිත ෂීට් ටැබය මත දකුණු-ක්ලික් කර විධානය තෝරන්න ප්රභව කේතය. විවෘත වන දෘශ්‍ය මූලික සංස්කාරක කවුළුවට පහත කේතය අලවන්න:
Private Sub Worksheet_Change(ByVal Target as Range) Error Resume මීළඟට ඡේදනය නොවේ නම්(ඉලක්කය, පරාසය("C2:C5")) කිසිවක් නැත සහ Target.Cells.Count = 1 එවිට Application.EnableEvents = False නම් Len(Target.Offset) (0. අවශ්‍ය නම්, මෙම කේතයේ දෙවන පේළියේ ඇති පතන ලැයිස්තුවේ C2:C5 හි සංවේදී පරාසය ඔබේම ලෙස ප්‍රතිස්ථාපනය කරන්න.
විකල්ප 2. සිරස්
පෙර අනුවාදයට සමාන වේ, නමුත් නව තෝරාගත් අගයන් දකුණට එකතු කර නැත, නමුත් පහළට:
එය හරියටම එකම ආකාරයකින් සිදු කරයි, නමුත් හසුරුවන්නාගේ සාර්ව කේතය තරමක් වෙනස් වේ:
Private Sub Worksheet_Change(ByVal Target as Range) Error Resume මීළඟට ඡේදනය නොවේ නම්(ඉලක්කය, පරාසය("C2:F2")) කිසිවක් නැත සහ Target.Cells.Count = 1 එවිට Application.EnableEvents = False නම් 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 = උප නිමිත්ත නම් සත්‍ය අවසානය නැවතත්, අවශ්‍ය නම්, මෙම කේතයේ දෙවන පේළියේ ඇති C2:F2 පතන ලැයිස්තුවේ සංවේදී පරාසය ඔබේම ලෙස ප්‍රතිස්ථාපනය කරන්න.
විකල්ප 3. එකම සෛලය තුළ සමුච්චය සමග
මෙම විකල්පය තුළ, සමුච්චය පතන ලැයිස්තුව පිහිටා ඇති එකම සෛලය තුළ සිදු වේ. තෝරාගත් මූලද්රව්ය ඕනෑම අක්ෂරයකින් වෙන් කරනු ලැබේ (උදාහරණයක් ලෙස, කොමාවක්):
හරිත සෛලවල පතන ලැයිස්තු පෙර ක්‍රමවල මෙන් සම්පූර්ණයෙන්ම සම්මත ආකාරයකින් නිර්මාණය කර ඇත. සියලුම වැඩ නැවත සිදු කරනු ලබන්නේ පත්‍ර මොඩියුලයේ ඇති මැක්‍රෝ එකක් මගිනි:
Private Sub Worksheet_Change(ByVal Target as Range) Error Resume මීලඟට ඡේදනය නොවේ නම්(ඉලක්කය, පරාසය("C2:C5")) කිසිවක් සහ ඉලක්ක නොවේ.Cells.Count = 1 එවිට Application.EnableEvents = False newVal = Undo Application. oldval = Target If Len(oldval) <> 0 සහ oldval <> newVal Then Target = Target & "," & newVal Else Target = newVal End If Len(newVal) = 0 එවිට Target.ClearContents Application.EnableEvents = True End නම් අවසානය උප අවශ්‍ය නම්, ඔබට කේතයේ 9 වැනි පේළියේ ඇති බෙදුම්කරු අක්ෂරය (කොමාව) ඔබේම (උදාහරණයක් ලෙස, හිස්තැනක් හෝ අර්ධ කොමාවක්) සමඟ ප්‍රතිස්ථාපනය කළ හැකිය.
- එක්සෙල් ෂීට් කොටුවක සරල පතන ලැයිස්තුවක් සාදා ගන්නේ කෙසේද
- අන්තර්ගතය සහිත පතන ලැයිස්තුව
- නැතිවූ විකල්ප එක් කළ පතන ලැයිස්තුව
- මැක්‍රෝස් යනු මොනවාද, ඒවා භාවිතා කරන්නේ කෙසේද, විෂුවල් බේසික් තුළ මැක්‍රෝ කේතය ඇතුළත් කළ යුතු ස්ථානය