Snasui Excel Forum

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

1. ตัวเลขที่มีค่าตั้งแต่ 1 ขึ้นไปหรือน้อยกว่าเท่ากับ -1 จะไม่แสดงทศนิยม
เช่น 1.2 ให้แสดงเป็น 1 , -42.6 ให้แสดงเป็น -43
2. ตัวเลขที่มีค่าในช่วง -1< x < 1 (ขึ้นต้นด้วย 0) ให้แสดงทศนิยมที่ไม่ใช่ 0 ตัวแรก แต่ไม่เกิน 5 ตัวแหน่ง
เช่น 0.0234 ให้แสดงเป็น 0.02 , -0.00056 ให้แสดงเป็น 0.0006 , -0.0000000004 ให้แสดงเป็น – (ขีด)
3. ถ้ามีค่าติดลบให้เป็นสีแดง
4. ถ้าเป็นหลักพันขึ้นไปให้มีลูกน้ำด้วย เช่น 1500 ให้แสดงเป็น1,500
5. ถ้ามีค่าเท่ากับ 0 จริงๆ (ไม่ใช่แบบ 0.01) ให้แสดงเป็น – (ขีด)

ขอแก้ไขตัวอย่างข้อ 2 ครับ
2. -0.00056 ให้แสดงเป็น -0.0006

ไม่รู้ใช้แบบนี้ได้รึเปล่า

เลขอยู่ A1
1,2 B1
=IF(ABS(A1)>1,ROUND(A1,0),ROUND(A1,MIN(MATCH(2,INDEX(1/(--MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1)=0),)),4)))

3. Conditional formatting Alt H L H L less than 0 Font>สีแดง Fill>no color

4,5,6
Format cell > Custom > #,##0.0000;[Red]-#,##0.0000;-
แต่จะต้อง fix จำนวนทศนิยม 1,2 ก็จะแสดงตามที่กำหนดใน 5
3. ก็ไม่ต้องใช้

หรึอ VBA
คิดได้เท่านี้

อีกอย่างคือ B1
=IF(ABS(A1)>1,ROUND(A1,0),IF(ROUND(A1,MIN(MATCH(2,INDEX(1/(--MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1)=0),))-1,4))=0,"-",ROUND(A1,MIN(MATCH(2,INDEX(1/(--MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1)=0),))-1,4))))
แต่ 0 จะกลายเป็น text คำนวนต่อต้องใช้สูตร

ขอบคุณมากๆครับคุณ Bo_ry

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

ไม่ถนัดเรื่อง codeเลย
ถ้า VBA ดูกฎข้อ 5 ด้านบนด้วยค่ะ

เป็นเพียงโค้ดกำหนด Format เฉยๆนะครับ ไม่ใช่ VBA ครับผม

ท่านอื่นพอจะทราบไหมครับผม

markpossawee wrote: Sat Sep 08, 2018 9:43 pm เป็นเพียงโค้ดกำหนด Format เฉยๆนะครับ ไม่ใช่ VBA ครับผม

ท่านอื่นพอจะทราบไหมครับผม

Code กำหนด Format มีให้ใช้จำกัด คือทำได้แค่ 2 เงื่อนไขเท่านั้นครับ

การใช้ Number format ตรง ๆ อย่างเดียวไม่น่าจะทำได้ครับ
แต่ถ้าใช้ผ่าน Condition Format พอจะปรับใช้ได้อยู่ครับ