Word Document ရှိ စာရင်းတစ်ခုတွင် ပထမနှင့် နောက်ဆုံးအမည်ကို အစီအစဥ်ပြောင်းနည်း

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

အင်္ဂလိပ်အမည်တွင် ပထမအမည်၊ အလယ်အမည်နှင့် နောက်ဆုံးအမည် ပါဝင်သည်။ တူညီသောအစီအစဥ်ဖြင့် ရေးသားထားသည်။ ဂလိုဘယ်လိုက်ဇေးရှင်း၏ ရလဒ်အနေဖြင့် ယဉ်ကျေးမှုနယ်ပယ်အသီးသီးမှ လူများသည် မည်သည့်အချိန်ထက်မဆို အချင်းချင်း မကြာခဏ ဖလှယ်ကြသည်။ ထို့ကြောင့် ယခုခေတ်တွင် နိုင်ငံတကာ ညီလာခံများ အများအပြား ရှိနေပြီဖြစ်သည်။ အခြားဘာသာစကားဖြင့် အမည်များသည် ကွဲပြားသော အစီအစဥ်များ ရှိကြပါသည်။ ထို့ကြောင့်၊ စာရင်းတစ်ခုတွင် ပထမနှင့် နောက်ဆုံးအမည်၏ အစီအစဥ်ကို ပြောင်းလဲရန် လိုအပ်သည့်အချိန်များရှိသည်။ အဓိကအချက်က အစုလိုက်လုပ်နည်း။

တကယ်တော့၊ Macro ရဲ့အကူအညီနဲ့ Word မှာ ဒါကို သင်ပြီးမြောက်နိုင်ပါတယ်။ ကျွန်ုပ်တို့၏အောက်ပါညွှန်ကြားချက်များကိုလိုက်နာပါ။

စာရင်းတစ်ခုတွင် ပထမအမည်နှင့် နောက်ဆုံးအမည်ကို အစီစဥ်ပြောင်းပါ။

1. ပထမဦးစွာ Word မှာ row အများကြီးပါတဲ့ column ၂ ခုပါတဲ့ table တစ်ခုကို ဖန်တီးပါ။
2. ပထမကော်လံတွင်၊ အစီအစဥ်ပြောင်းလဲရန်လိုအပ်သောအမည်များကိုထည့်ပါ။ နာမည်နောက်မှာ နေရာလွတ်မထည့်မိအောင် သတိထားပါ။
3. ဒုတိယကော်လံကို ကွက်လပ်ထားပါ။
4. ၎င်းပြီးနောက်၊ "Developer" tab ကိုနှိပ်ပြီး VBA တည်းဖြတ်မှုကိုစတင်ရန် "Visual Basic" ကိုနှိပ်ပါ။ “Developer” တက်ဘ်ကို မရရှိနိုင်ပါက၊ ယင်းအစား “Alt+ F11” ကိုနှိပ်ပါ။
5. ယခု ဘယ်ဘက်ကော်လံရှိ "Normal" ကိုနှိပ်ခြင်းဖြင့် module အသစ်တစ်ခုကိုဖန်တီးပါ။
6. ထို့နောက် "Insert" tab ကိုနှိပ်ပြီး ၎င်း၏ drop-down menu တွင် "Module" ကိုရွေးချယ်ပါ။
7. ထို့နောက် ၎င်းကိုဖွင့်ရန် မော်ဂျူးအသစ်ကို နှစ်ချက်နှိပ်ပါ။
8. ပြီးလျှင် အောက်ပါ ကုဒ်များကို ထိုနေရာတွင် ကူးထည့်ပါ။

Sub ExchangeNameOrder()
  Dim strOriginalName As String, strNewName As String
  Dim aryOriginalName() As String
  Dim nIndex As Integer
  Dim objTable As Table
  Dim objOriginalName As Cell
  Dim objOriginalNameRange As Range
  Dim objExchangedNameRange As Range
  Dim nRowNumber As Integer
  
  Set objTable = ActiveDocument.Tables(1)
  nRowNumber = 1
  '  Traversing the names in column 1
  For Each objOriginalName In objTable.Columns(1).Cells
    Set objOriginalNameRange = objOriginalName.Range
    objOriginalNameRange.MoveEnd Unit:=wdCharacter, Count:=-1
    Set objExchangedNameRange = objTable.Cell(i, 2).Range
    objExchangedNameRange.MoveEnd Unit:=wdCharacter, Count:=-1
 
    strOriginalName = objOriginalNameRange.Text
    aryOriginalName() = Split(strOriginalName, " ")
 
    '  Exchange the order of first name and last name, and put the new name in column 2.
    If UBound(aryOriginalName) > 0 Then
      strNewName = aryOriginalName(UBound(aryOriginalName))
 
      For nIndex = 1 To UBound(aryOriginalName) - 1
        strNewName = strNewName & " " & aryOriginalName(nIndex)
      Next nIndex
 
      strNewName = strNewName & " " & aryOriginalName(0)
      objExchangedNameRange.InsertAfter (strNewName)
    Else
      objExchangedNameRange.InsertAfter (strOriginalName)
    End If

    nRowNumber = nRowNumber + 1
 
  Next objOriginalName
  MsgBox ("The first name and last name have been exchanged the order in column2.")
End Sub

9. နောက်ဆုံးအနေနဲ့ "Run" ကိုနှိပ်ပါ။

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

ဒေတာပြန်ယူရန် သင်၏နောက်ဆုံးမျှော်လင့်ချက်

မလွဲမသွေ၊ ကျွန်ုပ်တို့သည် ယခုနှင့်ထိုအခါတွင် Word ပြဿနာများကို ရင်ဆိုင်ရပေမည်။ ဝမ်းနည်းသလိုပဲ၊ အဲဒါကလည်း အရမ်းမှန်တယ်။ သို့သော် Word တွင်ပြိုကျမှုတစ်ခုဖြစ်ပွားသည့်အခါတိုင်းကျွန်ုပ်တို့လုပ်နိုင်သောအရာများအမြဲရှိသည်ကိုသတိရရန်လိုအပ်သည်။ အရင်ဆုံး Built-in tool ကိုစမ်းကြည့်ပါ။ အကျင့်ပျက်သောစကားလုံး. မကူညီနိုင်ဘူးဆိုရင်၊ တစ်ချိန်လုံးဖြစ်နေကျဖြစ်တဲ့၊ သင့်မျှော်လင့်ချက်ကို ခေတ်မီပြုပြင်ရေးထုတ်ကုန်တစ်ခုအဖြစ် သင်ထည့်သွင်းနိုင်ပါတယ်။

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

Vera Chen သည် ဒေတာပြန်လည်ရယူရေးဆိုင်ရာ ကျွမ်းကျင်သူဖြစ်သည်။ DataNumen, Inc. အပါအဝင် ဒေတာပြန်လည်ရယူရေးနည်းပညာများတွင် ကမ္ဘာ့ခေါင်းဆောင်ဖြစ်သည်။ xlsx ကို ပြန်လည်ရယူပါ။ နှင့် pdf ဆော့ဖ်ဝဲ ထုတ်ကုန်များကို ပြုပြင်ခြင်း။ ပိုမိုသိရှိလိုပါကသွားရောက်ကြည့်ရှု www ။datanumen.com