Snasui Excel Forum

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

เช่น
A1 = $200
A2 = ฿100
A3 = €100

ต้องการเขียนสูตรให้
ถ้าเซลล์ไหนเป็น $ ให้คูณด้วย 30
ถ้าเซลล์ไหนเป็น € ให้คูณด้วย 40

สามารถใช้ Excel 4 Macro Function มาช่วยได้ครับ แต่ผู้ใช้ต้องยอมรับการใช้งาน Macro โดยเข้าไปกำหนดที่เมนู Tools > Macro > Security > กำหนดให้เป็น Medium หรือ Low กรณีกำหนดเป็น Medium จะต้องคลิกให้ยอมรับ Macro ทุกครั้งที่เปิดไฟล์ที่มี Macro

สมมุติมีจำนวนเงินที่กำหนดในรูปแบบต่าง ๆ อยู่ที่ชีทชื่อ Sheet1 คอลัมน์ A เริ่มที่ A1 เป็นต้นไป

ลองตามนี้ครับ

1. ไปที่ Sheet1
2. คลิกที่เซลล์ B1
3. เข้าเมนู Insert > Name > Define
4. ที่ช่อง Name in workbook: คีย์ชื่อที่ต้องการ เช่น NumberFormat
5. ที่ช่อง Refers to: คีย์ =Get.Cell(7,Sheet1!A1)
6. คลิกปุ่ม Add > Close
7. ที่เซลล์ B1 เขียนสูตรดังนี้

=A1*IF(ISNUMBER(SEARCH("€",NumberFormat)),40,IF(ISNUMBER(SEARCH("$",NumberFormat)),30,1))

Enter > Copy ลงด้านล่าง > สังเกตดูผล

snasui wrote: สามารถใช้ Excel 4 Macro Function มาช่วยได้ครับ แต่ผู้ใช้ต้องยอมรับการใช้งาน Macro โดยเข้าไปกำหนดที่เมนู Tools > Macro > Security > กำหนดให้เป็น Medium หรือ Low กรณีกำหนดเป็น Medium จะต้องคลิกให้ยอมรับ Macro ทุกครั้งที่เปิดไฟล์ที่มี Macro

สมมุติมีจำนวนเงินที่กำหนดในรูปแบบต่าง ๆ อยู่ที่ชีทชื่อ Sheet1 คอลัมน์ A เริ่มที่ A1 เป็นต้นไป

ลองตามนี้ครับ

1. ไปที่ Sheet1
2. คลิกที่เซลล์ B1
3. เข้าเมนู Insert > Name > Define
4. ที่ช่อง Name in workbook: คีย์ชื่อที่ต้องการ เช่น NumberFormat
5. ที่ช่อง Refers to: คีย์ =Get.Cell(7,Sheet1!A1)
6. คลิกปุ่ม Add > Close
7. ที่เซลล์ B1 เขียนสูตรดังนี้

=A1*IF(ISNUMBER(SEARCH("€",NumberFormat)),40,IF(ISNUMBER(SEARCH("$",NumberFormat)),30,1))

Enter > Copy ลงด้านล่าง > สังเกตดูผล

ขอบคุณมากครับ เดี๋ยวจะลองไปประยุกต์ดู เผื่อว่ามีสกุลเงินมากกว่าแค่ €, $ อาจจะทำเป็นตารางไว้แล้วใช้ lookup หรือ match, index เพื่อให้ได้เลขที่จะมาคำนวณแทนการเขียนเป็น if

ไม่ทราบว่าจะหาคำอธิบาย function Get.Cell นี้ได้จากไหนครับ พอดีใช้ 2007 หาใน help แล้วไม่มีครับ

Help ของ Excel 4 Macro Function มีอยู่ใน Excel 2000 ครับ Version ที่สูงกว่านั้นจะไม่มีมาให้ครับ ดูเพิ่มเติมที่ http://office.microsoft.com/en-us/excel ... 47533.aspx

kmb wrote:ในฟอร์แมตของเซลล์สามารถเลือกให้แสดงเป็นสกุลเงินต่าง ๆ ได้
ไม่ทราบว่าพอมีวิธีที่จะให้อ่านค่าสกุลเงินตามที่ตั้งนั้น ๆ มาใช้เป็นเงื่อนไขไปใช้ต่อได้ไหมครับ

เช่น
A1 = $200
A2 = ฿100
A3 = €100

ต้องการเขียนสูตรให้
ถ้าเซลล์ไหนเป็น $ ให้คูณด้วย 30
ถ้าเซลล์ไหนเป็น € ให้คูณด้วย 40

เนื่องจากข้อมูลลักษณะแบบนี้มีหลายชีต ต้องการ copy มารวมกันเป็นชีตเดียว แต่ต้องการให้ link ไปที่ต้นฉบับเวลาแก้ต้นฉบับแล้วชีตที่รวมเปลี่ยนไปตาม ติดปัญหาตรงที่ว่า ใช้ copy --> paste link หน่วยสกุลเงินไม่มาด้วยน่ะครับ

ขอคำแนะนำหน่อยครับ

ก็ต้อง Paste 2 ครั้งครับ คือ Paste Link ตามด้วย Paste Format

ตอนนี้มีการเปลี่ยนเงื่อนไขนิดหน่อยครับ
คือถ้าใช้วิธี paste link ในกรณีที่ Sheet ต้นฉบับมีการเพิ่มลดบรรทัด จะไม่ค่อยคล่องตัวเท่าไหร่เพราะต้องไปเพิ่มลดบรรทัดที่ Sheet รวมข้อมูลด้วย
ก็เลยประยุกต์ตามวิธีการนำข้อมูลจากหลาย Sheet มาต่อกันใน Sheet เดียวตามลิ้งค์นี้ http://snasui.blogspot.com/2009/12/sheet-sheet.html
ได้ข้อมูลมาครบถ้วนถูกต้องแล้วครับ ยกเว้นเรื่องเดียว ก็คือได้มาแต่ตัวเลข สกุลเงินที่ใส่ไว้กับตัวเลขในแต่ละ Sheet พอมีวิธีจะให้ติดมาด้วยไหมครับ

วิธีที่ใช้ function Get.Cell นี่ใช้ได้ครับลองดูแล้ว แต่ว่าถ้าต้อง define name สำหรับทุกกรณีจะเยอะมาก ๆ เพราะว่า Workbook นี้มี Sheet เยอะมาก (ประมาณมากกว่า 50) และแต่ละ Sheet มี Column ที่ต้องอ่านตัวเลขประมาณ 5 Column

ไม่มีวิธี Link Format ครับ จะ Link ได้เฉพาะค่าเท่านั้น ปกติการทำข้อมูลแบบนี้จะไม่ใช้ Format มาเป็นเงื่อนไขเพื่อใช้ในการหาค่าต่าง ๆ ยกเว้นมีข้อมูลที่พร้อมจะทำในลักษณะนั้น เช่นเบ็ดเสร็จอยู่ในไฟล์เดียว ชีทเดียว

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

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

ตอนนี้ผมใช้วิธีประยุกต์ โดยการเพิ่มคอลัมน์ระบุสกุลเงินเรียบร้อยแล้ว แล้วใช้ conditional format เพื่อแสดงค่าเงินในเซลล์นั้น ๆ อีกที เช่น A1 = 100, A2 = THB ก็ให้แสดงในเซลล์ A1 เป็น ฿100 แทนที่จะเห็นเป็น 100 เฉย ๆ
ขอสอบถามตอน copy ไปหน่อยครับ ตอนนี้พอ copy --> paste, format มันไปด้วย แต่ไปแบบ conditional format น่ะครับ
เพราะผมตั้งใน conditional format ไว้ให้เปลี่ยนตามสูตร =$A2="THB", format = [$฿-41E]#,##0.00;[Red][$฿-41E]#,##0.00, applied to $A:$A
เช่น ถ้า copy A1 ไปที่อื่น เช่น worksheet อื่นและไว้ที่ A1 จะเป็น 100 จะเห็นเป็น ฿100 ก็ต่อเมื่อ A2 ที่ worksheet นั้น ๆ มีค่าเป็น THB

พอจะมีวิธีที่ copy ไปแล้วเห็นค่าเป็น ฿100 เลยไหมครับ

เนื่องจากมันเป็น Conditional Formatting มันจะจัด Format ตามเงื่อนไขครับ การ Copy ไปแล้วจะให้แสดงเหมือนต้นฉบับ สภาพแวดล้อมของพื้นที่เป้าหมายก็ต้องเหมือนต้นฉบับด้วยครับ ไม่เช่นนั้นมันก็ไม่เข้าเงื่อนไข