သင်၏ Excel Worksheet ကို VBA ဖြင့် လှည့်နည်း

တစ်ခါတရံတွင် အလုပ်စာရွက်ကို လိုင်းတစ်ခုပြီးတစ်ခုဖတ်ကာ ၎င်းမှဒေတာများကို ရွေးချယ်ယူရန် တစ်ခါတစ်ရံတွင် အသုံးဝင်သည်။ ဒါကို ဘယ်လိုလုပ်ရမလဲဆိုတာကို အောက်မှာ နမူနာပြထားပါတယ်။

ဆောင်းပါးသည် စာဖတ်သူတွင် Developer ribbon ကိုပြသထားပြီး VBA Editor နှင့် ရင်းနှီးသည်ဟု ယူဆသည်။ မဟုတ်ပါက၊ Google "Excel Developer Tab" သို့မဟုတ် "Excel Code Window" ကို ကျေးဇူးပြု၍

အောက်ဖော်ပြပါ ဥပမာသည် အီးမေးလ်လိပ်စာများ၏ အတန်းတစ်ခုစီကို ဆန်းစစ်ကာ ၎င်းတို့ကို လိပ်စာလိုင်းတစ်ခုစီသို့ ပေါင်းစပ်ခြင်းဖြင့် ဒေတာကို စီမံခန့်ခွဲသည်။ Excel တွင် ပါ၀င်သော Transpose လုပ်ဆောင်ချက်များ ပါရှိနေသော်လည်း၊ အချို့သော လိပ်စာများကို ဖယ်ထုတ်ပြီး အပိုင်းအခြားများ ပေါင်းထည့်ရန် ကျွန်ုပ်တို့၏ကုဒ်ဖြင့် ရည်ရွယ်ပါသည်။

ကျွန်ုပ်တို့၏လျှောက်လွှာသည် စာရွက်တစ်ရွက်သာ လိုအပ်ပါသည်။ အောက်ပါအချက်အလက်များကို ဆဲလ် A1 သို့ ကူးယူပါ-

ကုဒ်စတင်ရန် ဖောင်ပေါ်တွင် ခလုတ်တစ်ခု ထားရှိပါ။

အီးမေးလ်ငါးစောင်တည်းမဟုတ်ဘဲ ရာပေါင်းများစွာရှိတယ်လို့ ယူဆကြည့်ရအောင်။ အီးမေးလ်တစ်စောင်ချင်းစီကို တူညီတဲ့မက်ဆေ့ချ်နဲ့ ကျွန်တော်တို့ရဲ့ ဇာတ်ညွှန်းမိတ္တူတစ်ခုတည်းကိုပဲ ပို့ချင်ပါတယ်။ ဒီလိုလုပ်ဖို့ နည်းလမ်းများစွာရှိပါတယ်၊ အထူးသဖြင့် VBA ကုဒ်ကနေ Outlook လိုမျိုး အီးမေးလ်ပို့သူကို ခေါ်ခြင်းအားဖြင့်ပါ။ ဒါပေမယ့် ဒီလေ့ကျင့်ခန်းက ရည်ရွယ်ချက်နှစ်ခုကို အထောက်အကူပြုပါတယ်-

• စာရွက်ပေါ်တွင် လွယ်ကူစွာ လည်ပတ်နည်းကို ပြပါ။
• အတန်းတစ်ခုစီကို စစ်ဆေးရန် Excel ၏စွမ်းရည်ကို မီးမောင်းထိုးပြပြီး ၎င်းကိုလုပ်ဆောင်ပါ။

VBA ကုဒ်

VBA ကုဒ်သည် တစ်ခုစီ၏နောက်တွင် semi-colon တစ်ခုထည့်သွင်းခြင်းဖြင့် လိပ်စာအားလုံးကို ပေါင်းစပ်ပေးမည်၊ သို့မှသာ ၎င်းတို့ကို အီးမေးလ်လိပ်စာ၏ လိပ်စာအကွက်ထဲသို့ ကူးထည့်နိုင်မည်ဖြစ်သည်။ အတန်းများကို စစ်ဆေးပြီးနောက်၊ ပြင်သစ်စာများကို ဖယ်ထုတ်မည်ဟု ကုဒ်မှ မှတ်သားထားမည်ဖြစ်သည်။

မော်ဂျူးတစ်ခုကို ထည့်သွင်းပြီး အောက်ပါတို့ကို ထည့်သွင်းပါ။

Option Explicit
Dim strEmail As String
Dim strAll As String

Sub Main()
    strAll = ""
    Range("C2") = strAll     'clear previous program results
    Sheets("Sheet1").Select
    Range("A2").Select
    Do While ActiveCell > ""      'loop until row 7
        strEmail = ActiveCell
        If Right(strEmail, 2) <> "fr" Then      'exclude France
            strAll = strAll & strEmail & ";"
        End If
        Range("A" & ActiveCell.Row + 1).Select     'move on a row in the SAME column
    Loop
    Range("C2") = strAll
End Sub

ကုဒ်သည် ကော်လံ A တွင် တက်ကြွသောဆဲလ်ကို သိမ်းထားပြီး အတန်းများသာ ဆက်သွားပါ။ အတန်းထဲတွင် အခြားနေရာမှ အချက်အလက်များကို ကိုးကားရန်အတွက်၊ ကျွန်ုပ်တို့ အသုံးပြုသည်-

Variable = Activecell.offset(offset rows, offset columns)

လက်ရှိ အတန်းရှိ ကော်လံ B မှ တန်ဖိုးတစ်ခု ရယူရန် ဥပမာ၊ ကုဒ်သည် ဖတ်မည်ဖြစ်သည်။ Activecell.offset(0၊ 1). A2 ရဲ့တန်ဖိုးကို A3 မှာရောက်နေချိန်မှာ ရအောင်ဖတ်ပါ။ Activecell.offset(-1၊ 0)။

သင့်ကုဒ်ကို စမ်းသပ်ရန်အတွက် မက်ခရို “ပင်မ” တွင် ခလုတ်ကို သတ်မှတ်ပေးပါ။

စပမ်းဆန့်ကျင်ရေးကြိုတင်ကာကွယ်မှုအနေဖြင့် အချို့သောအင်တာနက်ဝန်ဆောင်မှုပေးသူများသည် သင်တစ်ပြိုင်နက်ပေးပို့နိုင်သည့်အီးမေးလ်အရေအတွက်ကို ကန့်သတ်နိုင်သည်။ ဤနည်းလမ်းကို သင်အသုံးပြုပါက ရာနှင့်ချီသော အီးမေးလ်များကို တစ်ကြိမ်တည်း မပေးပို့မီ ၎င်းတို့နှင့် စစ်ဆေးရန် အကောင်းဆုံးဖြစ်နိုင်သည်။

Excel File Corruption ကို ကိုင်တွယ်ခြင်း။

တစ်ခါတစ်ရံမှာ Excel ကိုယ်တိုင်က ပြန်မရနိုင်တဲ့အထိ workbook တွေ ပျက်စီးနေတာကို ကျွန်တော်တို့ ကြုံတွေ့ရပါတယ်။ ဒါဟာ ကျွမ်းကျင်သူတွေအပါအဝင် Excel အသုံးပြုသူအများစုအတွက် ကပ်ဘေးတစ်ခုပါ။ ဒါပေမယ့် ထိရောက်တဲ့ recovery tool တစ်ခုရှိရင် restore လုပ်နိုင်ပါတယ်။ ပျက်စီးနေသော xlsx ဖိုင်များ အလွယ်တကူနဲ့မြန်မြန်ဆန်ဆန်။

စာရေးသူနိဒါန်း:

Felix Hooker သည် ဒေတာပြန်လည်ရယူရေးဆိုင်ရာ ကျွမ်းကျင်သူဖြစ်သည်။ DataNumen, Inc. အပါအဝင် ဒေတာပြန်လည်ရယူရေးနည်းပညာများတွင် ကမ္ဘာ့ခေါင်းဆောင်ဖြစ်သည်။ ပြုပြင် rar အကျင့်ပျက်ခြစားမှု နှင့် sql recovery software ထုတ်ကုန်များ။ ပိုမိုသိရှိလိုပါကသွားရောက်ကြည့်ရှု www ။datanumen.com