එක්සෙල් හි දත්ත පෙරීමට VBA කේතය (උදාහරණ 8)

Hugh West

24-10-2023 මැක්‍රෝස් සහ amp; එක්සෙල් VBA
  • මේක Share කරන්න
Hugh West

Excel Sort & පෙරහන් විධානය දත්ත පෙරීමට සඳහා සීමිත පරාසයක් ඇත. නමුත් VBA භාවිතයෙන් ඔබට අවශ්‍ය පරිදි පුළුල් පරාසයක දත්ත පෙරීමට හැකිය. විචිත්‍රවත් රූප සටහන් සහිත VBA කේත භාවිතා කරමින් Excel හි VBA කේතය දත්ත පෙරීමට භාවිතා කිරීමට මෙම ලිපිය ඔබට ප්‍රයෝජනවත් උදාහරණ 8ක් ලබා දෙනු ඇත.

1>ප්‍රායෝගික වැඩපොත බාගන්න

ඔබට මෙතැනින් නොමිලේ Excel අච්චුව බාගත කර ඔබටම පුහුණු විය හැක.

VBA Code to Filter Data.xlsm

8 Excel හි දත්ත පෙරීමට VBA කේතය භාවිත කිරීමට උදාහරණ

අපි මුලින්ම සිසුන්ගේ ස්ත්‍රී පුරුෂ භාවය, තත්ත්‍වය, සහ නියෝජනය කරන අපගේ දත්ත කට්ටලයට හඳුන්වා දෙමු. වයස .

1. Excel හි පාඨ නිර්ණායකයක් මත පදනම්ව දත්ත පෙරීමට VBA කේතය භාවිතා කරන්න

අපගේ පළමු උදාහරණයේදී, අපි VBA සිට පෙරහන්න <1 පමණක් භාවිතා කරන්නෙමු. දත්ත කට්ටලයේ ලිංගභේදය තීරුවෙන්>පිරිමි සිසුන්.

පියවර:

  • දකුණු-ක්ලික් කරන්න පත්‍ර මාතෘකාව මත.
  • ඉන්පසු සන්දර්භය මෙනුව වෙතින් Vew Code තෝරන්න.

ඉක්මනින් පසුව, VBA කවුළුවක් විවෘත වේ.

3>

  • පහත කේත ටයිප් කරන්න එය- 
4664
  • පසුව, VBA

අවම කරන්න කේත බිඳවැටීම

  • මෙහි, මම උප ක්‍රියා පටිපාටියක්, Filter_Data_Text() නිර්මාණය කළෙමි.
  • ඉන්පසු භාවිතා කළේ පරාසය අපගේ අදාළ පත්‍ර නම ප්‍රකාශ කිරීමට දේපළ සහ පරාසය
  • ඊළඟට, මම ක්ෂේත්‍රය:=2 යන්නෙහි තේරුම නිර්ණායක භාවිත කිරීමට ස්වයංක්‍රීය පෙරහන් ක්‍රමය භාවිත කළෙමි. තීරුව 2 . සහ නිර්ණායක1:=”පිරිමි” ට පෙරහන්න පිරිමි සඳහා දත්ත.
  • ඉන් පසුව, <1 වෙත> Macros සංවාද කොටුව විවෘත කරන්න, පහත පරිදි ක්ලික් කරන්න: සංවර්ධක > Macros.

  • කේතවල සඳහන් පරිදි මැක්‍රෝ නාමය තෝරන්න .
  • අවසාන වශයෙන්, ධාවනය කරන්න ඔබන්න.

දැන් අපට පමණක් ලැබී ඇති බව බලන්න. 1>පිරිමි සිසුන්ගේ දත්ත පෙරීමෙන් පසු .

වැඩිදුර කියවන්න: Excel පෙරහන් දත්ත මත පදනම්ව සෛල අගය (කාර්යක්ෂම මාර්ග 6)

2. එක් තීරුවක බහු නිර්ණායක සමඟ දත්ත පෙරීමට VBA කේතය යොදන්න

මෙහි, අපි එක් තීරුවක බහු නිර්ණායක සඳහා පෙරහන්නෙමු. දත්ත කට්ටලයේ තීරු අංක තුනේ සිට, අපි උපාධි සහ පශ්චාත් උපාධි සිසුන් සඳහා පෙරහන් කරන්නෙමු.

පියවර: VBA කවුළුව විවෘත කිරීමට

  • පළමු පියවර දෙක පළමු උදාහරණය අනුගමනය කරන්න.
  • පසුව, එහි පහත කේත ටයිප් කරන්න- 
7691
  • ඉන්පසු VBA
<0 අවම කරන්න>

කේත බිඳවැටීම

  • මෙහි, මම උප ක්‍රියා පටිපාටියක්, නිර්මාණය කළෙමි. Filter_One_Column() .
  • ඉන්පසු පරාස දේපල භාවිතා කර අපගේ අදාල පත්‍ර නම සහ පරාසය
  • ප්‍රකාශ කරන්න ඊළඟට, මම ද භාවිතා කළාස්වයංක්‍රීය පෙරහන් ක්‍රමය ක්‍ෂේත්‍රය:=3 යන්නෙන් අදහස් වන්නේ තීරුව 3 යන මගේ තේරීමේ නිර්ණායක භාවිත කිරීමටය. මෙන්න, නිර්ණායක1:=”උපාධිය” සහ නිර්ණායක2:=”පශ්චාද් උපාධි” පෙරහන වෙත ශිෂ්‍යයාගේ තත්ත්වය .
  • අවසාන වශයෙන්, මම බහු නිර්ණායක සඳහා හෝ කොන්දේසිය පෙරහන යෙදීමට ක්‍රියාකරු:=xlOr භාවිතා කළෙමි.
  • මෙහිදී මොහොත, Macros සංවාද කොටුව විවෘත කිරීමට පළමු උදාහරණය තෙවැනි පියවර අනුගමනය කරන්න.
  • පසුව, තේරුම් නිශ්චිත මැක්‍රෝ නාමය සහ ධාවනය කරන්න ඔබන්න.

වැඩි කල් යන්නට මත්තෙන්, පහත රූපය වැනි බහු නිර්ණායක මත පදනම්ව ඔබට පෙරූ පේළි ලැබෙනු ඇත.

තවත් කියවන්න: Excel හි බහු නිර්ණායක පෙරන්න (සුදුසු මාර්ග 4)

3. එක්සෙල් හි විවිධ තීරු වල බහු නිර්ණායක සමඟ දත්ත පෙරීමට VBA කේතය යොදන්න

දැන් අපි පෙරහන්න බහු නිර්ණායක සඳහා- පිරිමි සහ උපාධිධාරීන් සිසුන්.

පියවර:

  • පළමු පියවර දෙක පළමු උදාහරණයෙන් අනුගමනය කරන්න VBA
  • පසුව, ලියන්න පහත කේත එහි- 
3304
  • ඉන් පසුව එය VBA කවුළුව අවම කිරීම .

කේත බිඳවැටීම

  • මෙහි, මම උප ක්‍රියාපටිපාටියක්, Filter_Different_Columns() .
  • ඉන්පසු, With ප්‍රකාශය භාවිතා කිරීමට මම භාවිතා කළෙමි>බහු තීරු .
  • ඉන්පසු පරාසය භාවිත කළාඅපගේ අදාළ පත්‍ර නාමය සහ පරාසය
  • ප්‍රකාශ කිරීමට දේපළ, මම නිර්ණායක භාවිතා කිරීමට ස්වයංක්‍රීය පෙරහන් ක්‍රමය භාවිතා කළෙමි මගේ තේරීම Field:=2 යන්නෙන් තීරුව 2 සහ Field:=3 යනු තීරුව 3 .
  • මෙහි , ස්ත්‍රී පුරුෂ භාවය තීරුව සඳහා නිර්ණායක1:=”පිරිමි” ද, තත්ත්වය තීරුවේ සිට පෙරහන සඳහා නිර්ණායක1:=”උපාධිය” ද තෝරාගෙන ඇත විවිධ තීරු වෙතින් දත්ත.
  • ඉන්පසු තෙවන පියවර අනුගමනය කරන්න පළමු උදාහරණයෙන් පළමු උදාහරණයෙන් Macros සංවාද කොටුව .
  • පසුව, නිශ්චිත මැක්‍රෝ නම තෝරන්න සහ Run ඔබන්න.

බහු නිර්ණායකවල ප්‍රතිදානය මෙන්න.

තවත් කියවන්න: Excel VBA බහු නිර්ණායක මගින් එකම තීරුවේ පෙරීමට (උදාහරණ 6)

4. Excel හි ඉහළම අයිතම 3 පෙරීමට VBA කේතය භාවිතා කරන්න

මෙම උදාහරණයේදී, අපි ඉහළ සිසුන් තිදෙනා ඔවුන්ගේ වයස අනුව පෙරන්නෙමු.

පියවර: VBA කවුළුව විවෘත කිරීමට

  • පළමු පියවර දෙක පළමු උදාහරණය අනුගමනය කරන්න .
  • ඉන්පසු ටයිප් කරන්න පහත කේත එහි- 
4853
  • ඉන් පසු අවම කරන්න. VBA කවුළුව .

කේත බිඳවැටීම

  • මෙන්න, මම උප ක්‍රියාපටිපාටිය, Filter_Top3_Items() .
  • ඉන්පසු Operator:=xlTop10Items to Filter සඳහා ඉහළම තුන දත්ත .
  • දැන් පළමු උදාහරණයෙන් තෙවන පියවර අනුගමනය කරන්න විවෘත කරන්න මැක්‍රෝස් සංවාද කොටුව .
  • ඉන්පසු මැක්‍රෝ නාමය තෝරා කේතවල සඳහන් කර ධාවනය කරන්න ඔබන්න.

එවිට ඔබට පහත රූපයේ ආකාරයට ප්‍රතිදානය ලැබෙනු ඇත-

වැඩිදුර කියවන්න: Excel VBA (ක්‍රම 4) භාවිතයෙන් සෛල අගය මත පදනම්ව පෙරහන කරන්නේ කෙසේද

සමාන කියවීම්

  • කොපි කර අලවන්නේ කෙසේද පෙරහන Excel හි යෙදේ
  • Excel හි අද්විතීය අගයන් පෙරන ආකාරය (පහසු ක්‍රම 8)
  • VBA සමඟ Excel හි බහු නිර්ණායක පෙරහන් කරන්න (දෙකම AND සහ OR වර්ග)
  • Excel හි පෙළ පෙරහන භාවිතා කරන්නේ කෙසේද (උදාහරණ 5)
  • Excel හි දිනය අනුව පෙරහන් කරන්නේ කෙසේද (4 ඉක්මන් ක්‍රම)

5. Excel හි ඉහළම සියයට 50 පෙරීමට VBA කේතය භාවිතා කරන්න

අපි ඉහළ සියයට පනහ සිසුන් ඔවුන්ගේ වයස අනුව පෙරීමට VBA කේත භාවිතා කරමු .

පියවර:

  • පළමුව, පළමු පියවර දෙක පළමු උදාහරණය අනුගමනය කරන්න VBA කවුළුව විවෘත කිරීමට.
  • පසුව, ටයිප් කරන්න පහත කේත එහි- 
5902
    12> VBA කවුළුව අවම කරන්න.

කේත බිඳවැටීම

  • මෙහි, මම උප ක්‍රියා පටිපාටියක්, Filter_Top50_Percent() නිර්මාණය කළෙමි.
  • පසුව, Operator:=xlTop10Percent සිට <1 දක්වා භාවිතා කරන ලදී> ඉහළ සියයට පනහ පෙරහන් කරන්න තීරුව-4 .
  • මේ මොහොතේ, විවෘත කිරීමට පළමු උදාහරණයෙන් තෙවන පියවර අනුගමනය කරන්න 1>මැක්‍රෝස් සංවාද කොටුව.
  • ඉන්පසු නිශ්චිත මැක්‍රෝ නම තෝරන්න සහ ධාවනය කරන්න ඔබන්න.
0>

සම්පූර්ණ සිසුන් 7 සිටි නිසා සියයට 50 සඳහා, එය ආසන්න වශයෙන් සිසුන් තිදෙනෙකු පෙන්වයි.

තවත් කියවන්න: Excel හි ලාභ ප්‍රතිශත සූත්‍රය භාවිතා කරන්නේ කෙසේද (උදාහරණ 3)

6 . වයිල්ඩ්කාඩ් භාවිතයෙන් දත්ත පෙරීමට VBA කේතය යොදන්න

අපට Excel හි දත්ත පෙරීමට VBA කේත හි Wildcard අක්ෂර-* (තරු ලකුණ) භාවිත කළ හැක. තත්ත්ව තීරුව වෙතින්, අපි පෙරහන් කරන්නේ 'Post' අඩංගු අගය පමණි.

පියවර:

    VBA කවුළුව විවෘත කිරීමට පළමු උදාහරණයේ
  • පළමු පියවර දෙක අනුගමනය කරන්න .
  • ඉන්පසු ලියන්න පහත කේත එහි- 
9836
  • පසුව, VBA කවුළුව අවම කරන්න.

කේත බිඳවැටීම

  • මෙහි, මම උප ක්‍රියා පටිපාටියක්, Filter_with_Wildcard()<නිර්මාණය කළෙමි. 18>.
  • පසුව පරාසය (“B4”) පරාසය සැකසීමට භාවිත කළේය.
  • ඊළඟ , භාවිතා කරන ලදී AutoFilter to Filter in Field:=3 එනම් තීරු 3.
  • Criteria1:=”*Post 'Post' අඩංගු අගයන් *” පෙරහන්න දක්වා.
  • දැන් තුන්වන පියවර පළමුවෙන් අනුගමනය කරන්න උදාහරණයක් මැක්‍රෝස් සංවාදය විවෘත කිරීමටකොටුව.
  • නිශ්චිත නිශ්චිත මැක්‍රෝ නාමය තෝරන්න සහ ධාවනය කරන්න ඔබන්න.

එවිට ඔබට අවශ්‍ය ප්‍රතිදානය ලැබෙනු ඇත.

වැඩිදුර කියවන්න: Excel හි පෙරහන එකතු කරන ආකාරය (ක්‍රම 4 ක්) )

7. Excel හි නව පත්‍රයක පෙරූ දත්ත පිටපත් කිරීමට Excel VBA එබ්බවන්න

මගේ දත්ත කට්ටලයේ පෙරූ දත්ත කිහිපයක් තිබෙන බව බලන්න. දැන් මම ඒවා VBA භාවිතයෙන් නව පත්‍රයකට පිටපත් කරමි. මෙම කේත පත්‍රයේ නිසි ලෙස ක්‍රියා නොකරනු ඇත, ඔබට ඒවා මොඩියුලයේ යෙදිය යුතුය.

පියවර:

  • 1>Alt+F11 ඔබන්න VBA

  • ඉන්පසු Insert > Module to to open a module .

  • දැන් පහත කේත ලියන්න – 
9277
  • ඉන්පසු VBA

<0 අවම කරන්න> කේත බිඳවැටීම
  • මෙහි, මම උප ක්‍රියා පටිපාටියක්, Copy_Filtered_Data_NewSheet() .
  • ඊට පසුව ද්වි-විචල්‍ය- x Rng පරාසය ලෙස සහ xWS වැඩ පත්‍රිකාව ලෙස ප්‍රකාශ කළේය.
  • ඉන්පසු IF ප්‍රකාශය වෙත පරීක්ෂා කරන්න පෙරහන ලද
  • පසුව, ප්‍රතිදානය පෙන්වීමට MsgBox භාවිතා කරන ලදී.
  • ඉන්පසු වැඩපත්‍ර(“පෙරන ලද දත්ත පිටපත් කරන්න”) භාවිතා කරන ලදී.AutoFilter .පරාසය පෙරහන ලද පරාසය තේරීමට සහ නව පත්‍රයක් එක් කිරීමට එකතු කරන්න භාවිත කළේය.
  • අවසාන වශයෙන්, පිටපත් පරාසය(“G4”) පෙරන ලද දත්ත නව පත්‍රයට පිටපත් කරයි.
  • පසුව, අනුගමනය කරන්නතුන්වන පියවර පළමු උදාහරණයෙන් Macros සංවාද කොටුව විවෘත කරන්න.
  • ඉන්පසු ඉන්පසු නිශ්චිත මැක්‍රෝ නම<තෝරන්න 2> සහ Run ඔබන්න.

දැන් බලන්න Excel නව පත්‍රයක් විවෘත කර පෙරූ පේළි පිටපත් කර ඇති බව.

තවත් කියවන්න: Excel ෆිල්ටරය සඳහා කෙටිමඟ (උදාහරණ සහිත ඉක්මන් භාවිත 3ක්)

8. පතන ලැයිස්තුව භාවිතයෙන් දත්ත පෙරීමට VBA කේතය යොදන්න

අපගේ අවසාන උදාහරණයේ දී, අපි පළමුව ස්ත්‍රී පුරුෂ භාවය සඳහා පතන ලැයිස්තුවක් සාදන්නෙමු, පසුව අපි දත්ත පෙරීමට එය භාවිතා කරන්නෙමු. ඒ සඳහා, මම ස්ත්‍රී පුරුෂ භාවය නිර්ණායක වෙනත් ස්ථානයක තබා ඇති අතර අපි Cell D14 හි පතන ලැයිස්තුවක් සාදන්නෙමු.

පියවර:

  • Cell D14 තෝරන්න.
  • ඉන්පසු පහත පරිදි ක්ලික් කරන්න: දත්ත > දත්ත මෙවලම් > දත්ත වලංගුකරණය > දත්ත වලංගු කිරීම.

ඉක්මනින්, සංවාද පෙට්ටියක් විවෘත වනු ඇත.

තෝරන්න. ඇලෝඩ්-ඩවුන් වෙතින්.

ඉන්පසු ප්‍රභව කොටුවෙන් විවෘත අයිකනය මත ක්ලික් කරන්න.

0>

දැන් නිර්ණායක පරාසය තෝරන්න සහ Enter බොත්තම ඔබන්න .

    12>මේ මොහොතේ, OK ඔබන්න.

දැන් අපගේ ඩ්‍රොප් ඩවුන් ලැයිස්තුව සූදානම්.

  • දැන් VBA කවුළුව විවෘත කිරීමට පළමු උදාහරණයේ පළමු පියවර දෙක අනුගමනය කරන්න. .
  • ඉන්පසු ලියන්න පහත කේත එහි- 
4760
  • ඉන්පසු VBA අවම කරන්නwindow .

කේත බිඳවැටීම

  • මෙන්න, මම හැදුවා පෞද්ගලික උප ක්‍රියාපටිපාටිය, වැඩපත්‍ර_වෙනස් කිරීම(පරාසයක් ලෙස බයිවල් ඉලක්කය).
  • ඉන්පසු, මම වැඩ පත්‍රිකාව සාමාන්‍ය සහ වෙනස් කිරීම ප්‍රකාශන වෙතින් තෝරා ගත්තෙමි.
  • ඉන්පසු ස්ථානය දැනගැනීම සඳහා ලිපිනය සකසන්න.
  • අවසානයේ IF ප්‍රකාශය තුළ AutoFilter ක්‍රමය Field <2 සමඟ භාවිතා කළේය>සහ නිර්ණායක
  • දැන් පතන ලැයිස්තුවෙන් නිර්ණායක තෝරන්න එවිට පෙරහන සක්‍රිය වනු ඇත .

මෙන්න පෙරහන ලද ප්‍රතිදානය පිරිමි ඩ්‍රොප් ඩවුන් වෙතින්.

වැඩිදුර කියවන්න: එක්සෙල් හි වෙනත් පත්‍රයක ලැයිස්තුවෙන් පෙරහන කරන්නේ කෙසේද (ක්‍රම 2)

1>පුහුණු අංශය

පැහැදිලි කරන ලද ක්‍රම පුහුණු කිරීම සඳහා ඉහත දක්වා ඇති Excel ගොනුවේ පුහුණු පත්‍රිකාවක් ඔබට ලැබෙනු ඇත.

නිගමනය

ඉහත විස්තර කර ඇති ක්‍රියා පටිපාටි එක්සෙල් හි පෙරීමට දත්ත VBA කේතය භාවිතා කිරීමට ප්‍රමාණවත් වනු ඇතැයි මම බලාපොරොත්තු වෙමි. අදහස් දැක්වීමේ කොටසේ ඕනෑම ප්‍රශ්නයක් ඇසීමට නිදහස් වන්න සහ කරුණාකර මට ප්‍රතිපෝෂණ ලබා දෙන්න.

කලින් පෝස්ට් එක Excel VBA: පරාසයක බහු නිර්ණායක සහිත උසස් පෙරහන (ක්‍රම 5) -
ඊළඟ පෝස්ට් එක Excel හි Format Painter Shortcut භාවිතා කරන්නේ කෙසේද (මාර්ග 5)

Hugh West යනු ක්ෂේත්‍රයේ වසර 10කට වැඩි පළපුරුද්දක් ඇති ඉතා පළපුරුදු Excel පුහුණුකරුවෙකු සහ විශ්ලේෂකයෙකි. ඔහු ගිණුම්කරණය සහ මූල්‍ය පිළිබඳ ශාස්ත්‍රවේදී උපාධියක් සහ ව්‍යාපාර පරිපාලනය පිළිබඳ ශාස්ත්‍රපති උපාධියක් ලබා ඇත. හියු ඉගැන්වීම සඳහා දැඩි ආශාවක් ඇති අතර අනුගමනය කිරීමට සහ තේරුම් ගැනීමට පහසු වන අද්විතීය ඉගැන්වීම් ප්‍රවේශයක් වර්ධනය කර ඇත. ඔහුගේ Excel පිළිබඳ විශේෂඥ දැනුම ලොව පුරා සිටින දහස් ගණනක් සිසුන්ට සහ වෘත්තිකයන්ට ඔවුන්ගේ කුසලතා වැඩිදියුණු කිරීමට සහ ඔවුන්ගේ වෘත්තීය ජීවිතය තුළ විශිෂ්ටත්වයට පත් කිරීමට උපකාර කර ඇත. ඔහුගේ බ්ලොගය හරහා, හියු ඔහුගේ දැනුම ලෝකය සමඟ බෙදා ගනී, නොමිලේ එක්සෙල් නිබන්ධන සහ පුද්ගලයන්ට සහ ව්‍යාපාරවලට ඔවුන්ගේ පූර්ණ හැකියාවන් කරා ළඟා වීමට උපකාර කිරීමට මාර්ගගත පුහුණුව ලබා දෙයි.