วิธีแปลงตัวเลขไปเป็นตัวหนังสือภาษาอังกฤษโดยใช้ Excel

ในบทความนี้จะมาสอนวิธีแปลงจากตัวเลขไปเป็นตัวหนังสือภาษาอังกฤษ โดยใช้ Excel

เนื่องจาก Excel ไม่มีสูตรในการแปลงตัวเลขไปเป็นตัวหนังสือภาษาอังกฤษ (แต่ว่ามีสูตรการตัวเลขไปเป็นตัวหนังสือภาษาไทย นั้นก็คือ BAHTTEXT ) เราจึงจำเป็นต้องใช้การเขียน VBA เข้ามาช่วย

โดยขั้นตอนแรกให้ทำการ เปิด VBA ใน Excel โดยคลิกขวาที่ Sheet แล้วเลือก View Code

แล้วทำการเพิ่ม Module

เอา Code VBA ด้านล่างนี้ใส่เข้าไป แล้วก็ทำการ Save

Option Explicit
'Main Function
Function SpellNumber(ByVal MyNumber)
    Dim Dollars, Cents, Temp
    Dim DecimalPlace, Count
    ReDim Place(9) As String
    Place(2) = " Thousand "
    Place(3) = " Million "
    Place(4) = " Billion "
    Place(5) = " Trillion "
    ' String representation of amount.
    MyNumber = Trim(Str(MyNumber))
    ' Position of decimal place 0 if none.
    DecimalPlace = InStr(MyNumber, ".")
    ' Convert cents and set MyNumber to dollar amount.
    If DecimalPlace > 0 Then
        Cents = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _
                  "00", 2))
        MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
    End If
    Count = 1
    Do While MyNumber <> ""
        Temp = GetHundreds(Right(MyNumber, 3))
        If Temp <> "" Then Dollars = Temp & Place(Count) & Dollars
        If Len(MyNumber) > 3 Then
            MyNumber = Left(MyNumber, Len(MyNumber) - 3)
        Else
            MyNumber = ""
        End If
        Count = Count + 1
    Loop
    Select Case Dollars
        Case ""
            Dollars = "No Dollars"
        Case "One"
            Dollars = "One Dollar"
         Case Else
            Dollars = Dollars & " Dollars"
    End Select
    Select Case Cents
        Case ""
            Cents = " and No Cents"
        Case "One"
            Cents = " and One Cent"
              Case Else
            Cents = " and " & Cents & " Cents"
    End Select
    SpellNumber = Dollars & Cents
End Function

' Converts a number from 100-999 into text
Function GetHundreds(ByVal MyNumber)
    Dim Result As String
    If Val(MyNumber) = 0 Then Exit Function
    MyNumber = Right("000" & MyNumber, 3)
    ' Convert the hundreds place.
    If Mid(MyNumber, 1, 1) <> "0" Then
        Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred "
    End If
    ' Convert the tens and ones place.
    If Mid(MyNumber, 2, 1) <> "0" Then
        Result = Result & GetTens(Mid(MyNumber, 2))
    Else
        Result = Result & GetDigit(Mid(MyNumber, 3))
    End If
    GetHundreds = Result
End Function

' Converts a number from 10 to 99 into text.
Function GetTens(TensText)
    Dim Result As String
    Result = ""           ' Null out the temporary function value.
    If Val(Left(TensText, 1)) = 1 Then   ' If value between 10-19...
        Select Case Val(TensText)
            Case 10: Result = "Ten"
            Case 11: Result = "Eleven"
            Case 12: Result = "Twelve"
            Case 13: Result = "Thirteen"
            Case 14: Result = "Fourteen"
            Case 15: Result = "Fifteen"
            Case 16: Result = "Sixteen"
            Case 17: Result = "Seventeen"
            Case 18: Result = "Eighteen"
            Case 19: Result = "Nineteen"
            Case Else
        End Select
    Else                                 ' If value between 20-99...
        Select Case Val(Left(TensText, 1))
            Case 2: Result = "Twenty "
            Case 3: Result = "Thirty "
            Case 4: Result = "Forty "
            Case 5: Result = "Fifty "
            Case 6: Result = "Sixty "
            Case 7: Result = "Seventy "
            Case 8: Result = "Eighty "
            Case 9: Result = "Ninety "
            Case Else
        End Select
        Result = Result & GetDigit _
            (Right(TensText, 1))  ' Retrieve ones place.
    End If
    GetTens = Result
End Function

' Converts a number from 1 to 9 into text.
Function GetDigit(Digit)
    Select Case Val(Digit)
        Case 1: GetDigit = "One"
        Case 2: GetDigit = "Two"
        Case 3: GetDigit = "Three"
        Case 4: GetDigit = "Four"
        Case 5: GetDigit = "Five"
        Case 6: GetDigit = "Six"
        Case 7: GetDigit = "Seven"
        Case 8: GetDigit = "Eight"
        Case 9: GetDigit = "Nine"
        Case Else: GetDigit = ""
    End Select
End Function


ทีนี้เราก็มาลองใช้สูตรโดย พิมพ์ว่า SpellNumber(ตัวเลข) ตัวExcel ก็จะทำการแปลงตัวเลขให้เป็นภาษาอังกฤษแบบอัตโนมัติให้เรา

ส่วนการ Save ไฟล์ Excel ก็จะต้องทำการ Save เป็นไฟล์ .xlsm ด้วยนะเนืองจากเป็นไฟล์ที่มี Code VBA (Excel Macro-Enable Workbook)

วิธีใส่รหัสป้องกันการเปิดดูข้อมูลให้ไฟล์ Excel

เพื่อนทราบกันไหมว่าเราสามารถใส่รหัสป้องกันการเปิดดูข้อมูลให้ไฟล์ Excel ได้ เพื่อป้องกัไม่ให้คนที่ไม่มีรหัสผ่านมาเปิดไฟล์ของเราได้ โดยจะมีวิธีทำอยู่ 2 วิธี ก็คือ วิธีที่ 1 การป้องกันการเปิดอ่านข้อมูลในระดับ ไฟล์ Workbook และ วิธีที่ 2 ป้องกันระดับการแก้ไขในระดับ Sheet (แต่สามารถอ่านดูข้อมูลได้ตามปกติ) มาดูวิธีทำกันเลย

วิธีที่ 1 การป้องกันการเปิดอ่านข้อมูลในระดับ ไฟล์ Workbook
อันดับแรกให้เราเปิดไฟล์ Excel ที่เราต้องการใส่รหัสผ่าน Password แล้วไปที่ เมนู File แล้วเลือก Info แล้วก็กดไปที่ Protect Workbook แล้วก็เลือก Encrypt with Password ดังรูป

แล้วก็จะมีหน้าต่าง popup ขึ้นมาให้เราใส่ รหัส Password ที่เราต้องการตั้ง เมื่อตั้งเสร็จแล้วก็กด OK

เราก็จะเห็นว่าที่ Protect Workbook จะกลายเป็นสีเหลือง

หากเราทดลองเปิดไฟล์ Excel ไฟล์นี้ดูก็จะขึ้นหน้าต่าง Popup ถามให้เราใส่ Password ถ้าเราใส่password ถูกก็จะสามารถเปิดอ่านหรือแก้ไขข้อมูลในไฟล์ Excel ตัวนี้ได้

วิธีที่ 2 ป้องกันระดับการแก้ไขในระดับ Sheet (แต่สามารถอ่านดูข้อมูลได้ตามปกติ)
วิธีทำก็คือให้เราเลือกไปที่ Sheet ที่เราต้องการไม่ให้คนมาทำการแก้ไข แต่ให้เขาอ่านได้ตามปกติ แล้วคลิกขวา เลือก Protect Sheet

ทำการใส่ password รหัสผ่าน แล้วกด OK

หลังจากนั้นเราก็จะสามารถอ่านดูข้อมูลใน Sheet นั้นได้ตามปกติแต่ไม่สามารถแก้ไขได้ หากต้องการแก้ไข เราสามารถทำได้โดยเลือกไปที่ Sheet นั้นแล้วคลิกขวาเลือก Unprotect Sheet แล้วทำการใส่รหัสผ่าน Password เพื่อทำการปลดเพื่อแก้ไขต่อไป

การแปลงตัวเลขเป็นคำอ่านภาษาไทยง่ายๆใน Excel

สำหรับใครที่กำลังหาวิธีแปลงตัวเลขให้หลายเป็นตัวหนังสือ(คำอ่านภาษาไทย) มาดูวิธีทำในบทความนี้ได้เลย วิธีทำนั้นง่ายมากๆ มาดูกันเลย

ก่อนอื่นเปิด Excel ขึ้นมา แล้วพิมพ์ตัวเลขที่เราอยากแปลงเป็นคำอ่านภาษาไทย
ตัวอย่างเราจะแปลงจากตัวเลข 2019 เป็นคำอ่าน โดยใช้สูตร BAHTTEXT(ตัวเลข)

แล้วกด Enter ก็จะได้คำอ่านตามรูปแล้วละ (จะเห็นว่ามีคำต่อท้ายว่า ถ้วน เข้ามาด้วยเนืองจากส่วนใหญ่คิดว่าน่าจะนำไปใช้กับการคิดเงิน)

หรือเพื่อนๆสามารถนำไปใช้โดยระบุเป็นหมายเลขของ Cell นั้นๆก็ได้

วิธีลากสูตรใน Excel แบบง่ายๆเร็วๆ

เพื่อนๆหลายคนที่ใช้ Excel อยู่อาจจะเจอปัญหาว่าเวลาที่เราต้องการลากสูตรที่อยู่ใน Cell ให้สามารถใช้ได้กับ Column ทั้งหมดของเรา ซึ่งบางที่เราก็มีข้อมูลจำนวนมากๆ เป็นพันเป็นหมื่น Row จะให้มานั่งลากตั้งแต่แถวแรกจนแถวสุดท้ายก็คงจะใช้เวลานานกันพอดี

จริงๆแล้วใน Excel เราสามารถใช้เทคนิคง่ายๆที่หลายคนอาจจะไม่รู้ นั้นก็คือการเลือก Cell ที่เราใส่สูตรต้นแบบไว้แล้ว แล้วทำการดับเบิ้ลคลิก สูตรที่อยู่ใน Cell นั้นๆ ก็จะถูกนำไปใช้กับข้อมูลทุกแถว เพื่อนๆลองทดลองทำตามดูได้นะ

วิธีเปิด Dark mode ใน Microsoft Office

ในบทความนี้จะมาสอนวิธีการปรับ Theme ของ Microsoft Office ให้เปลี่ยนสีกลายเป็น Dark theme โดยวิธีการทำสามารถใช้ได้กับ Microsoft Office 365, Office 2019 และ Office 2016

โดยอันดับแรกให้เราเข้าไปเปิด Microsoft Word ของเราขึ้นมาแล้วคลิกไปที่ File

แล้วเลือก เมนู Account ที่อยู่ทางด้านซ้ายมือ แล้วเราก็จะเห็นเมนู Office Theme ให้เราเลือก โดยจะมี Dark Gray, Black, White และ Colorful (Theme ปกติที่เราใช้อยู่ปัจจุบัน) เพื่อนลองทดลองคลิกเลือกดูได้แล้วแต่ความชอบของเรา

ตัวอย่าง Dark Gray Theme

ตัวอย่าง Black Theme

โดยหลังจากเราเลือก Theme แล้ว Theme นี้จะถูกนำไปใช้กับโปรแกรม Office ตัวอื่นๆด้วยทั้ง Excel, Power point ต่างๆ

วิธี Zip ไฟล์แล้วล็อคด้วยรหัสผ่าน Password

บทความนี้จะมาสอนวิธีการใส่รหัสผ่านเพื่อล็อคไฟล์ Zip ของเรา โดยจะทำมีความปลอดภัยมากขึ้น ทำให้คนที่มีรหัส password จะทำการแตก Zip ไฟล์ได้เท่านั้น มาดูวิธีการทำการเลย

โดยอันดับแรกเราจะต้องมีโปรแกรม 7zip กันก่อน ใครที่ยังไม่มีก็สามารถไปดาวโหลดได้ที่ https://www.7-zip.org/
หลังจากนั้นให้ไปที่ไฟล์หรือโฟร์เดอร์ที่เราจะทำการ Zip และคลิกขวาเลือก 7-zip เลือก Add to archive

ก็จะมีหน้าต่าง Add to Archive ขึ้นมา ให้เราทำการใส่รหัสผ่านที่เราอยากจะตั้งได้ที่ด้านขวามือล่าง Encryption Enter password หลังจากนั้นก็เลือกที่ที่เราจะเก็บไฟล์ที่ Zip แล้วไว้ที่ไหน แล้วกด OK เพียงเท่านี้เราก็จะได้ไฟล์ Zip ที่มีการล็อคใส่รหัสผ่านแล้วละ

เรามาลองทดสอบว่า ไฟล์นั้นล็อคจริงไหม ก็ไปที่ไปที่ไฟล์ Zip ของเราแล้วคลิกขวาเลือก 7-Zip เลือก Extract Here

จะเห็นว่าต้องใส่รหัสที่ถูกต้องเพื่อปลดล็อคไฟล์ Zip

เพียงเท่านี้เพื่อนๆก็สามารถล็อคไฟล์และปลดล็อคไฟล์ Zip ได้แล้วละ

เทคนิคการค้นหาข้อความในไฟล์ Pdf

เราสามารถค้นหาข้อความใน Pdf ได้โดยใช้การกดปุ่ม Ctrl+f หรือ กดตรงสัญลักษณ์รูปแว่นขยายของโปรแกรม ซึ่งวิธีนี้จะเป็นการค้นหาทีละจุด ค่อยๆดูไปแต่ละหน้า
นอกจากนี้ยังมีอีกวิธีหนึ่งที่หลายๆคนไม่ทราบ ซึ่งเป็นการค้นหาทั้งหมดของเอกสาร Pdf นั้นๆ สามารถทำได้โดยการกด Ctrl+Shift+f จะเป็นการค้นหาตาม keyword ทั้งหมดของเอกสาร Pdf แล้วแสดงขึ้นมาทั้งหมดให้เราดู ดังรูป

ตัวอย่างจากโปรแกรม Adobe Pdf

ตัวอย่างจากโปรแกรม Foxit Pdf

ด้วยวิธีนี้จะทำให้เราสามารถค้นหาทั้งเอกสารได้อย่างรวดเร็วกว่า มองเห็นภาพรวมและตำแหน่งของคำที่เราค้นหาได้ดีกว่า ลองเอาไปทดลองใช้งานกันดูนะ

วิธีแก้ สำหรับคนที่ใช้ปุ่ม Ctrl+c ใน Word เพื่อ copy ไม่ได้

สำหรับใครที่เจอปัญหาว่า อยู่ๆก็ใช้งาน ปุ่ม ctrl+c เพื่อกด copy ข้อความแล้วใช้ไม่ได้เฉพาะใน Microsoft Word ในบทความนี้มีวิธีแก้ไขมาบอกกันนะ

ก่อนอื่นให้ไปที่ File แล้วเลือก Options

แล้วไปที่ Customize Ribbon แล้วก็เลือก Customize

แล้วก็เลือก Home Tab ใน Categories ส่วน Commands เลือก EditCopy
ตรง Current keys ให้เลือก Ctrl+C แล้วก็กดในช่อง Press new shortcut key แล้วให้เรากดปุ่ม ctrl แล้วตามด้วย ปุ่ม c
หลังจากนั้นให้กด Assign แล้วก็ OK เท่านี้ ก็จะใช้งานได้แล้วละ

วิธีปริ้นเอกสารจาก Excel ทุกชีท

ปกติเวลาเราทำงานลง Excel ในไฟล์นั้นๆมักจะมีหลาย Sheet ถ้าเราจะPrint งานทั้งหมดทุก sheet เราสามารถทำได้โดย

สำหรับ Excel 2007
ไปที่ Print

เลือก Entire workbook เพื่อ Print ทุก Sheet ของไฟล์

ถ้าเป็น Excel 2010 สามารถเลือก Print Entire Workbook ได้ดังรูป