วิธีรวม Merge Cell โดยข้อมูลไม่หายใน Excel

ในบทความนี้จะมาสอนวิธีการรวม Cell หรือ Merge Cell ใน Excel โดยที่ข้อมูลที่อยู่ใน Cell ไม่หาย

โดยปกติแล้วเราจะทำการรวมข้อมูลที่อยู่ใน Cell โดยใช้การกดที่ Icon Merge & Center

ซึ่งพอเรากดแล้วก็จะมี Popup ขึ้นมาว่า Merging cell only keeps the upper-left value and discards other values นั้นหมายความว่าจะทำให้ข้อมูลที่อยู่ใน Cell อื่นๆหายไปด้วยเหลือแค่ข้อมูลที่อยู่ใน Cell แรกทางซ้ายมือเท่านั้น

ซึ่งวิธีการแก้ไขนั้นสามารถทำได้โดยการใช้สูตร CONCATENATE ในการรวมข้อมูลที่อยู่ใน Cell ตามตัวอย่างในรูปด้านล่าง

หากใครต้องการเพิ่มช่องว่างในระหว่าง Cell โดยใช้สูตรว่า =CONCATENATE(A1,” “,B1,” “,C1) จะได้ผลลัพท์ตามตัวอย่างในรูป

วิธี setting Header และ Footer ของ Excel

สำหรับเพื่อนๆคนไหนที่กำลังหาวิธี Setting Header และ Footer ของ Excel อยู่ บทความนี้มีคำตอบและวิธีทำ สามารถทำตามได้ง่ายๆเลย

โดยก่อนอื่นให้เราไปที่ File ด้านซ้ายมือบน

เสร็จแล้วก็ให้เรากดคำว่า Print แล้วก็เลือก Page Setup

ให้เราเลือกที่ Header/Footer tab เสร็จก็เลือก ข้อมูลที่จะให้แสดงใน Header หรือ Footer ได้เลย ในตัวอย่างนี้เราเลือก Header เป็นชื่อไฟล์ และ Footer เป็นเลขหน้า หรือใครอยากจากปรับอะไรก็สามารถกดได้ที่ Custom Header และ Custom Footer ได้เช่นกัน

การพิมพ์บรรทัดใหม่ใน Cell ใน Excel

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

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

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

Add Reminder Email ที่อยู่ในกล่อง Archives ของ Outlook

มีใครเคยเจอข้อความ Error แบบนี้ใน Outlook บ้างหลังจากที่เรากด Add Reminder Email ที่อยู่ในกล่อง Archives “The reminder for “xxx” will not appear because the item is in a folder that doesn’t support reminders. Is this OK?”

โดยที่ xxx คือชื่อหัวข้อ Email ของเรา

สาเหตุนั้นก็เป็นเพราะว่าเราไปกด Add Reminder Email ที่อยู่ในกล่อง Archives ที่อยู่ในเครื่องเรานั้นเองซึ่งโดยปกติแล้วเจ้า Outlook นั้นไม่อนุญาตในเรากดหาก Email นั้นอยู่ในกล่อง Archives

ส่วนวิธีแก้ไขก็สามารถทำได้ตามวิธีด้านล่างนี้ได้เลย
นั้นก็คือก่อนอื่น ให้เราไปคลิกขวาที่กล่อง Archives ของเราด้านซ้ายมือ แล้วเลือก Data File Properties

เสร็จแล้วให้เรากดเลือก Display reminders and tasks from this folder in the To-Do bar แล้วก็กด OK

ก็จะมี Popup ขึ้นมาถาม The Operation you selected will not be completed until you restart Microsoft Outlook ก็ให้เรากด OK แล้วหลังจากนั้นทำการเปิดปิดโปรแกรม Outlook ใหม่

เพียงเท่านี้เราก็จะสามารถกดใช้งาน Reminder Email ต่างๆที่อยู่ในกล่อง Archives ได้แล้วละ

วิธีแปลงตัวเลขไปเป็นตัวหนังสือภาษาอังกฤษโดยใช้ 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 ต่างๆ