เทคนิคการเลือกเซลล์,ช่วงเซลล์,คอลัมท์,แถว,ข้อมูลใน Excel Worksheet

เทคนิคการเลือกเซลล์,เซลล์เรนจ์,คอลัมท์,แถว หรือข้อมูลใน Excel

การ copy คอลัมท์หรือแถว เป็นวิธีที่คุ้นเคยกัน เพียงแค่ใช้คำสั่งคัดลอก (copy) แล้ววาง (paste) บนช่วงเซลล์ใหม่

ซึ่งจะได้ผลลัพท์ เป็นตารางที่เหมือนเดิม ซึ่งสูตรที่อ้างอิงอาจ เปลี่ยนตำแหน่งไป

แต่ถ้าต้องการ copy หรือ insert บางคอลัมท์ หรือ บางแถวเหมือนภาพด้านล่าง คือ ต้องการคัดลอกคอลัมท์ ที่ 1, 3 และ 6 โดยที่ยังต้องการให้ผลของการ paste บนช่วงเซลล์ใหม่นั้น คอลัมท์ทั้ง 3 (คอลัมท์ 1,3,6) อยู่ติดกัน และยังคงรูปแบบเดิมไว้ ด้วยเทคนิคการเลือกพื้นที่เซลล์

ก่อนอื่นเรามาดูความแตกต่างของการเลือกพื้นที่เซลล์ใน Excel ระหว่าง Shift กับ Ctrl

• การกด Shift ในขณะที่เลือกพื้นที่เซลล์จะเป็นการเลือกส่วนของพื้นที่ติดกันต่อเนื่องกันไป
• แต่ถ้ากดแป้นคีย์ Ctrl จะเป็นการเลือกเฉพาะเซลล์ที่เราคลิกเลือกเท่านั้น

ซึ่งการ copy หรือ insert ก็สามารถใช้พื้นฐานเดียวกันนี้

วีดีโอแสดงการเลือกเซลล์,ช่วงเซลล์,คอลัมท์,แถวด้วย Ctrl

Read More

Gold Hill Village Phuthong @ Nakornsawan ภูทอง นครสวรรค์

Phuthong Golden Hill Village Coffee and Restaurant

Phuthong Golden Hill @ Nakornsawan

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

ตั้งอยู่ริมถนนใหญ่ ทำให้มองเห็นได้แต่ไกล โดยเฉพาะอยู่ใกล้กับจุดสัญญานไฟเขียวไฟแดง เลยปั๊ม ปตท. มาไม่ไกล

ตึกสวยๆ แบบนี้ ตั้งเรียงกันอยู่ด้านหน้า  เป็น shopping point ขนาดเล็กๆ ที่โชว์ของแนววินเทจ น่ารักๆ

และสำหรับคนชอบกาแฟ มี Coffe shop ที่ภายในตกแต่งแนว Country หวานๆ  ไว้ให้นั่งพักหลบแดดเย็นๆ

 

ร้านกาแฟแรกอยู่ในส่วนของตึกด้านหน้า ตกแต่งภายในเป็นธีมสีสดใสสดใส

จากส่วนที่นั่งทานกาแฟ มองผ่านหน้าต่างม่านลูกไม้ จะเห็นหอคอยนาฬิกา ซึ่งเป็นจุดสังเกตุของร้าน

จะนั่งทานกาแฟตากแอร์ในห้อง หรือเดินไปเดินมา เข้าร้านนี้ออกร้านโน้น ก็เพลินดี

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

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


จะว่าไป ที่ภูทอง โกลเด้นฮิลล์ นี่ก็เป็นจุดแวะพักได้ดีทีเดียว สำหรับใครที่ต้องขับรถมาไกลเพื่อเข้ากรุงเทพฯ เพราะภูทองตั้งอยู่เลยนอกตัวเมืองนครสวรรค์ บนถนนสายเอเซีย หรือ ถนนหมายเลข 32 และราคาของเครื่องดื่มก็ไม่ถือว่าแพง นั่งชิวดื่มกาแฟในห้องแอร์ บวกกับความสวยของสถานที่ก็่ช่วยผ่อนคลายสายตาได้ดีเลยเชียวแหละ

Read More

ตัดเศษด้วยฟังก์ชัน TRUNC กับ INT

การทำงานของฟังก์ชัน TRUNC นั้น คล้ายกับการทำงานของฟังก์ชัน INT  คือ ส่งกลับค่าที่เป็นจำนวนเต็ม

ต่างกันแค่วิธีตัดเศษ ซึ่งการเลือกใช้ ก็ขึ้นอยู่ที่ว่าต้องการ รูปแบบของผลลัพท์ อย่างไร

ข้อแตกต่างของ TRUNCกับ INT

1. ฟังก์ชัน TRUNC จะลบจำนวน ที่เป็นเศษส่วนออกและถ้าใช้ค่าที่เป็นลบ เช่น TRUNC (-2.5) ฟังก์ชัน จะส่งกลับค่า -2
2. ฟังก์ชัน INT จะปัดเศษขึ้น เป็นจำนวนเต็มที่ใกล้ที่สุด โดยยึดค่าของเศษส่วน เป็นหลัก เมื่อมีการใช้ตัวเลขลบ เช่น INT( -2.5) จะส่งกลับค่า -3 เพราะเป็นตัวเลข ที่น้อยกว่า
3. ฟังก์ชัน TRUNC กำหนดจำนวนทศนิยมได้ ในขณะที่ ฟังก์ชัน INT ทำไม่ได้

ไวยากรณ์ฟังก์ชัน TRUNC

=TRUNC (number,num_digits)

• number   คือตัวเลขที่คุณต้องการตัดเศษทิ้ง
• num_digits   คือจำนวนที่ใช้ระบุความแม่นยำของการตัดเศษ ซึ่งมีค่าเริ่มต้นคือ 0 (ศูนย์)

ไวยากรณ์ฟังก์ชัน INT

=INT (number)

• number คือจำนวนจริงที่คุณต้องการปัดเศษเพื่อให้เหลือเป็นจำนวนเต็ม

---

ตารางตัวอย่าง

Row	Column
	A	B	C	D	E
1	ข้อมูล	1.2	4.8	-5.3	-8.8
2	แทนค่า INT	=INT(B1)	=INT(B1+C1)	=INT(D1/B1)	=INT(E1)
3	ผลลัพท์ INT	1	6	-5	-9
4	แทนค่า TRUNC	=TRUNC(B1-C1)	=TRUNC(C1,2)	=TRUNC(D1-C1)	=TRUNC(E1*B1)
5	ผลลัพท์ TRUNC	-3	4.80	-10	-7

อธิบายการใช้ฟังก์ชัน INT กับ ฟังก์ชัน TRUNC จากตารางข้างบน

1. เมื่อตัวเลขเป็นด้านบวก ทั้งสองฟังก์ชันจะตัดเศษออก และให้ผลลัพท์เหมือนกัน
2. ถ้าตัวเลขเป็นด้านลบ ทั้งสองฟังก์ชันจะแสดงผลที่ต่างกัน INT ปัดเศษ แต่ TRUNC ตัดเศษ
3. B1+C1 = 6 เมื่อผลลัพท์เป็นจำนวนเต็มก็ไม่มีการตัดเศษ ซึ่งทั้งสองฟังก์ชันจะให้ผลลัพท์เท่ากัน
4. INT(E1) = -9 เพราะ E1 = 8.8, ฟังก์ชัน INT ปัดเศษเป็น -8 แต่ถ้าเป็น TRUNC(E1) จะได้ผลลัพท์เป็น -9
5. D1/B1 = -4.41666666666667 ฟังก์ชัน INT ปัดเศษเป็นเลขจำนวนเต็มที่ใกล้ที่สุด คือ -5
6. B1-C1 = -3.6 ฟังก์ชัน TRUNC ตัดเศษ ให้เหลือเลขจำนวนเต็ม คือ -3
7. D1-C1 = -10.1 ฟังก์ชัน TRUNC ตัดเศษ ให้เหลือเลขจำนวนเต็ม คือ -10
8. TRUNC(C1,2) = 4.80 กำหนดทศนิยม 2 ตำแหน่งให้กับฟังก์ชัน TRUNC ถ้าไม่กำหนดผลลัพท์จะได้ 4

Read More

การแปลงแถวเป็นคอลัมน์ Excel ด้วยฟังก์ชัน TRANSPOSE

ฟังก์ชัน TRANSPOSE

คือคำสั่งให้ส่งกลับช่วงของเซลล์จากแนวตั้งเป็นแนวนอน หรือ จาก แนวนอนเป็นแนวตั้ง และการใช้ฟังก์ชัน TRANSPOSE นั้นต้องป้อนเป็นสูตรอาเรย์(Array)

หมายถึงต้องปิดสูตรด้วย
CTRL+SHIFT+ENTER
เช่น ช่วง A1 ถึง B10 ใน formula bar จะแสดงเป็น {=TRANSPOSE(A1:B10)}
และสิ่งสำคัญคือ จำนวนแถวกับคอลัมน์ ของตารางใหม่ ต้องเท่ากับตารางแรกเสมอ

ไวยากรณ์

=TRANSPOSE (array)

array หรือช่วงของเซลล์ บนแผ่นงาน(worksheet) ที่ต้องการสลับเปลี่ยนแถว (row)กับคอลัมน์ (column)

---

วิธีใช้ฟังก์ชัน TRANSPOSE

1. เปิด Ms Excel ในตัวอย่างนี้ต้องการทำ TRANSPOSE จาก Data sheet ไปยัง Output sheet
   
   
   


2. คลุมพื้นที่ทั้งหมดของตารางในชีท Data (คือช่วง A2 ถึง H10)


3. คัดลอก หรือกด CTRL+C แล้วไปที่ชีท Output ในตัวอย่างนี้วาง cursor ที่ A2


ใช้ shortcut ALT+E+S

เพื่อเรียกกล่องโต้ตอบ Paste Special

เลือกวางเฉพาะ Format กับ Transpose

กดคีย์ลัดT+E และ okจะเห็นเพียง

สีของกรอบตารางเดิมถูกคัดลอกมา



4. พิมพ์ =TRANSPOSE(Data!A2:H10) แล้วปิดสูตรด้วย CTRL+SHIFT+ENTER หรือทำให้ง่ายขึ้นก็คือ เมื่อพิมพ์ถึงเครื่องหมายวงเล็บเปิด "(" แล้วคลิกที่ไปที่แทปชีท Data แล้วคลิกเลือกพื้นที่ช่วง A2 ถึง H10 จากนั้นกดคีย์ CTRL+SHIFT+ENTER ปิดสูตรได้เหมือนกัน
   
   
   

ข้อสังเกตุการใช้ฟังก์ชัน TRANSPOSE

1. ตารางใหม่ที่แทนค่าด้วยฟังก์ชัน TRANSPOSE จะคืนค่าตามการเปลี่ยนแปลง ของตารางแรกเสมอ มีลิงก์กับตารางแรก


2. เมื่อ TRANSPOSE ทำหน้าที่สลับเปลี่ยนแถวกับคอลัมท์ สิ่งทึ่ต้องคำนึงถึงก่อนสิ่งอื่น นั่นคือ ขนาดของพื้นที่เซลล์ที่ใช้ฟังก์ชัน ต้องผกผันตามตารางแรกด้วย เช่น ตารางแรกมี 4 แถว 5 คอลัมท์ พื้นที่ที่ต้องใช้สำหรับวางฟังก์ชัน TRANSPOSE ก็ควรมี 5 แถว กับ 4 คอลัมท์


3. และการที่คัดลอกแล้ววางเฉพาะรูปแบบและเลือกสลับแถวกับคอลัมท์ ลงบนพื้นที่เซลล์ใหม่ ก็เพื่อหาระยะเซลล์ที่ต้องใช้ ซึ่งทำให้ง่ายและเร็วกว่า โดยเฉพาะถ้าขนาดของตารางต้นฉบับ มีขนาดใหญ่ หลายสิบแถวและหลายสิบคอลัมท์


4. ใช้คีย์ลัด ALT+E+S เพื่อเรียกกล่องโต้ตอบ Paste Special จากนั้นเลือกกดคีย์ T+E และok (คีย์ลัดการวางเฉพาะรูปแบบ+สลับแถวกับคอลัมท์ ของ Microsoft Excel 2003 ซึ่งยังคงใช้ได้ใน 2007 )


5. คีย์ลัดเรียกคำสั่ง Paste Special ของ 2007 ก็มีแต่จะยาวกว่า 2003 คือ ALT+H+V+S จากนั้นก็กด T+E+ok


6. การจะใช้คีย์ลัด ALT+E+S หรือ ALT+H+V+S เพื่อเรียกคำสั่งวางแบบพิเศษ (Paste Special) นั้นต้องมีการเลือก การคัดลอก หรือ CTRL+C ก่อนเสมอ

วีดีโอแสดงการใช้ฟังก์ชัน TRANSPOSE เพื่อความเข้าใจมากขึ้น

Read More

คำนวณจำนวนตัวเลขที่มีตัวอักษร(Text) ใน Excel

การคำนวณจำนวนตัวเลขที่มี Text ใน Excel

จากบทความเดิมที่แสดงการใช้ Custom Format Cells ส่วนในบทความนี้เป็นภาคต่อที่จะบอกว่า Custom Format Cell ทำอะไรได้บ้างและมีประโยชน์อย่างไร

เมื่อไรที่ควรใช้ Custom Format Cells

• เมื่อต้องการใส่ Text ในเซลล์ที่มี number โดยที่ยังคงคำนวณ บวก ลบ หาร หรือคูณจำนวนในเซลล์นี้กับเซลล์อื่นๆ ได้เหมือนเดิม
• กรณีที่มีคำหรือตัวเลขที่ต้องคีย์อยู่ทุกรายการ การใช้ Custom format cells นี้ช่วยให้งานง่ายขึ้น
• ข้อมูลที่ทำอยู่มีขนาดใหญ่ และต้องการใช้ช่วงเซลล์ในเวิร์คชีทให้น้อยที่สุดเท่าที่เป็นไหได้ เพื่อให้ Excel ประมวลผลได้เร็วขึ้น
• ต้องการบันทึกวันที่ให้เป็นรูปแบบเฉพาะ เช่น เมื่อคีย์วันที่ 22/3/2013 แล้วใช้ custom format cell กำหนดให้เป็นตามรูป

วีดีโอตัวอย่างแสดงการคำนวณจากเซลล์ที่มีทั้ง number และ text

Read More

การแปลงตัวเลขเป็นค่าเงินภาษาอังกฤษ English Text

วิธีการแปลงยอดรวมตัวเลขเป็นค่าเงินภาษาอังกฤษ (English Text)ใน Excel

ด้วยการสร้างฟังก์ชัน Called SpellNumber และนำมาใช้เป็น Add-In ใน Microsoft Excel ซึ่ง Add-In - Called SpellNumber ไม่ใช่ฟังก์ชันดั้งเดิมของ MS Excel จึงทำให้สามารถใช้ได้ต่อเมื่อได้เพิ่มฟังก์ขัน Spellnumber แล้วเท่านั้น

วิธีสร้างฟังก์ชัน SpellNumber

1. เปิด Microsoft Excel สำหรับ user ที่ไม่เคยใช้ Developer ต้องเปิด Developer ก่อนเพื่อ Enable Macro เพราะไม่เช่นนั้นจะเกิดปัญหาบันทึกโมดูลไม่ได้ ลิงก์เพื่อดูการเปิด Developer Tab


2. เข้าที่แทป Developer เลือก Macro Security ซึ่งเป็นรูปสามเหลี่ยมสีเหลืองตามภาพ
   


3. เข้า Trust Center(ด้านซ้าย) เลือกหัวข้อ Enable all macro (not recommended; potentially dangerous code can run) แล้ว ok
   


4. เมื่อกลับมาที่หน้า worksheet ให้กด ALT+F11 เพื่อเปิดใช้งาน Visual Basic Editor หรือ เลือก Developer Tab แล้วเลือก Visual Basic
   
   
   

   1. เข้าเมนู แทรก(Insert)
   2. คลิกโมดูล (Module)
   3. แล้วพิมพ์รหัสวางในโมดูล (ใช้คัดลอกได้)
   

รหัสที่ใช้คัดลอกไปวางที่โมดูลที่เพิ่มใหม่

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 
  

5. บันทึก
   


6. File name พิมพ์ชื่อไฟล์เป็น Spellnumber และ ลือกรูปแบบ (Save as types) เป็น Excel Add-IN ซึ่ง Excel จะเลือกไปบันทึกยังโฟลเดอร์ Add-In อัตโนมัติ จากนั้น กด Save
   


7. เมื่อกลับมาที่ worksheet ให้ไปที่ office button อีกครั้งแล้วเข้า Excel options


8. เข้าหัวข้อ Add-In ทางด้านล่างของหน้า จะมีตัวเลือก Manage: Excel Add-ins ให้คลิก 
   Go....
   
   
   
   

   

---

วิธีใช้ฟังก์ชัน Spellnumber เหมือนการใช้ฟังก์ชันอื่นๆ ใน Excel

รูปแบบฟังก์ชัน = Spellnumber(number or cell)

ฟังก์ชัน Spellnumber สามารถใช้ได้ 2 รูปแบบคือ 1. ป้อนตัวเลขในฟังก์ชันเลย กับ 2. อ้างอิงไปยังเซลล์ที่ต้องการ

Row	Column
	A	B	C
1	ตัวเลข	แสดงการใช้ฟังก์ชัน	ผลลัพท์จาก Spellnumber
2	12.75	= Spellnumber(12.75)	Twelve Dollars and Seventy Five Cents
3	402.50	= Spellnumber(A3)	Four Hundred Two Dollars and Fifty Cents

credit:

http://support.microsoft.com

Read More