บ้านภูนารารีสอร์ท ที่พักในลำนารายณ์ ชัยบาดาล

ภูนารารีสอร์ท ที่พักในชัยบาดาล

ด้วยความที่ตัวรีสอร์ทตั้งอยู่บนถนน สระบุรี-หล่มสัก หรือถนนสาย 21 และอยู่ไม่ไกล จากขนส่งลำนารายณ์

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

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

รูปลักษณ์และการตกแต่งของภูนารารีสอร์ท เป็นแบบเรียบง่าย ดูสะอาดสะอ้าน , ในห้องน้ำจัดพื้นที่ไว้พอเหมาะพอดี กับการใช้งาน ทั้งห้องพักและ ห้องน้ำ แลดูสะอาด

เฟอร์นิเจอร์ภายในห้องพักในห้องเป็นไม้ทั้งหมด  มีทั้งเตียงเดี่ยวใหญ่ Double Bed และเตียงคู่สองเตียงTwin Bed มีแอร์ ตู้เย็น โต๊ะ เก้าอื้ และม้านั่งยาวในห้อง

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

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

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

เรื่องอาหารการกิน แนะนำเข้าไปใน ตลาดลำนารายณ์ 

ขับเลยทางรถไฟไปจะมีอาหารขายยาวทั้งสองฝั่งถนน

ทั้งสเต็ก, คอหมูย่าง, ก๋วยเตี๋ยวลาดหน้า, ก๋วยเตี๋ยวหมู, อาหารตามสั่ง,

ขนมหวานเกล็ดหิมะ ขนมปังสังขยา นมสด ฯลฯ

บางวันมีตลาดนัดขนาดใหญ่มาก ไว้ให้ช้อปปิ้ง ใกล้ๆกับพื้นที่ ทางรถไฟ 

ฟังก์ชัน Row และ Rows ใน Excel-Rows Function

ฟังก์ชัน ROW และ ROWS

ROW และ ROWS คืนค่าแถว หรือ Row ที่ถูกอ้างอิง

โดยทั่วไปมักใช้ 2 ฟังก์ชันนี้ รวมกับฟังก์ชันอื่น เพื่อหาจำนวนแถว หรือระบุแถวที่ต้องการคำนวณ

ไวยากรณ์

ROW([reference])

ROWS(array)

• reference : ค่าอ้างอิงเพื่อให้ฟังก์ชันคืนค่า
• array: อาร์เรย์ ช่วงเซลล์ ที่ต้องการนับจำนวนแถว

การแสดงผลของ ROW และ ROWS

	A	B	C
1	สูตร	ผลลัพท์	หมายเหตุ
2	=ROW()	2	ฟังก์ชันคืนค่าแถวที่วางสูตร คือ (A2) แถว 2
3	=ROW(D9)	9	ฟังก์ชันคืนค่า 9 ถ้าเป็น ROW(AB9) ก็จะได้ 9 เหมือนกัน
4	=ROW(D2:J6)	2	ฟังก์ชันคืนค่า 2 คือแถวอ้างอิงแถวแรก (D2)
5	{=ROW(D2:F6)}	2	ฟังก์ชันคืนค่า ให้ 5 แถวพร้อมกัน ตั้งแต่ 2-6 วิธีคือ เมื่อพิมพ์=ROW(D2:F6) แล้ว ให้เลือกเซลล์เดิม แล้วกด F2 จากนั้นให้กดแป้น CTRL+SHIFT+ENTER
6		3
7		4
8		5
9		6
10
11	=ROWS(D1:F5)	5	ฟังก์ชัน ROWS คืนค่า 5 คือแถว 1 ถึงแถว 5
12	=ROWS({3,5,1;7,9,4;2,3,5})	3	ใน array มีข้อมูลอยู่ 3 ชุด คั่นด้วย ;(เซมิโคลอน)

ทุ่งใหญ่รีสอร์ทและทุ่งใหญ่กาแฟสดจังหวัดชัยภูมิ

ทุ่งใหญ่รีสอร์ท รีสอร์ทเปิดใหม่

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

ซึ่งก็เจอทุ่งใหญ่รีสอร์ท ตั้งอยู่บนถนนสาย 201 ด้านวิ่งเข้าเมืองชัยภูมิ ก่อนเข้าตัวอำเภอจัตุรัส และห่างจากอำเภอเมืองชัยภูมิราว 40 กิโลเมตร
จุดสังเกตุของทุ่งใหญ่รีสอร์ท นอกจากป้ายบอกว่า เป็นทุ่งใหญ่รีสอร์ทแล้ว

ให้สังเกตุจะมีปั๊มน้ำมันคาลเท็กซ์ ตั้งอยู่ไม่ไกลนัก บนถนน ฝากตรงข้าม และทางเข้ารีสอร์ทใกล้กับ ทางยูเทริ์นจากฝั่งตรงข้าม ซึ่งเป็น ถนนขาออกจากชัยภูมิ

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

ทุ่งใหญ่รีสอร์ท มีห้องพักหลายแบบ แบบแรก เป็นบ้านไม้เรือนไทย

ภายในแบ่งพื้นทีออกสองส่วน จัดห้องนอนเป็นสองชั้น, ชั้นล่างเป็นเตียงเดี่ยวขนาดใหญ่ และชั้นบนมีที่นอนเล็กโดย ใช้บันได ชื่อมระหว่างสองชั้น

ส่วนที่สองเป็นห้องน้ำแยก เป็นห้องที่น่าพักมาก

แต่ว่าแสงไฟในห้องค่อนข้างสลัว ซึ่งเป็นปัญหากับการเคลียร์งาน เลยขอดูห้องแบบอื่น

พี่สาวที่พาดูห้องก็พาไปชมห้องที่เรือนแถว แต่ละห้องกว้างและตกแต่งสวยงามเหมือนกัน ภายในสีสันสดใส ที่นอนเป็นดับเบิ้ลเบด มีโซฟายาว 1 ตัว ทีวี น้ำดื่ม ไม่มีตู้เย็น มี 3 ห้องติดกัน แต่ละห้องตกแต่งด้วยโทนสีต่างกันบ้าง และแสงไฟในห้องสว่างกว่าบ้านไม้เรือนไทย เลยเลือกพักที่น้องนี้

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

สำหรับราคาห้องพักวันนั้น อยู่ในช่วง 500-650 wifi ยังไม่ถึงบางพื้นที่ เพราะยังต่อเติมเก็บรายละเอียดไม่เสร็จ

เป็นห้องพักหลักร้อยแห่งใหม่ ที่น่าสนใจสำหรับใครที่จะเดินทางไปชัยภุมิ

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

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

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

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

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

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

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

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

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

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

Phuthong Golden Hill Village Coffee and Restaurant

Phuthong Golden Hill @ Nakornsawan

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

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

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

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

 

---

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

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

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

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

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


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

ตัดเศษด้วยฟังก์ชัน 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

การแปลงแถวเป็นคอลัมน์ 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 เพื่อความเข้าใจมากขึ้น

คำนวณจำนวนตัวเลขที่มีตัวอักษร(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

การแปลงตัวเลขเป็นค่าเงินภาษาอังกฤษ 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