Excel Forum

เรียนอาจารย์ snasui
ทดลองรันโค้ดแล้ว ที่เซลล์G3 ปัดทศนิยมตัวที่3ทิ้งให้ครับ (หากทศนิยมตัวที่3น้อยกว่า5)
แต่ติดตรงที่ กรณีทศนิยมตัวที่3 เป็นเลข5 เช่น 25.655 จะปัดทศนิยมตัวที่2ขึ้นเป็น 25.66
ตามที่ต้องการให้ปัดทิ้งไปเลย เป็น 25.65 ครับ
ได้ลองเปลี่ยนจาก round เป็น rounddawn แต่ใช้งานไม่ได้ครับ

ส่วนท ...

เรียนสมาชิกทุกท่าน
ผมต้องการปัดจุดทศนิยมให้เหลือแค่2ตำแหน่ง ไม่ว่าจุดทศนิยมจะมีกี่ตำแหน่งก็ตาม
สมมุติพิมพ์ตัวเลขที่เซลล์ G3 = 25.617 แล้วให้ปัดเหลือ 25.61 โดยจุดทศนิยมตัวที่3จะเป็นเลขอะไรก็ตาม ก็จะให้ปัดทิ้งทั้งหมด
เซลล์ที่กำหนดไว้ G3 และ D13:D44
ผมลองเอา Application.WorksheetFunction มาใช้แล้วแต่ไม ...

code ใช้ได้ตามต้องการเลยครับอาจารย์ ขอบคุณมากๆครับ
ได้ความรู้ใหม่ด้วย

ผมรบกวนอาจารย์อธิบายเรื่องการใช้ Resize ให้หน่อยครับ
ถ้าตามที่ผมเข้าใจ จะนำมาใช้ในกรณีที่เซลล์ต้นทาง หรือปลายทางมีการผสานเซลล์ใช่ไหมครับ
:D เป็นการขยายขอบเขตข้อมูล ใน Resize จะต้องระบุจำนวนบรรทัดหรือคอลัมน์ เช่น .Resize(5,2) แปลว่าขยายไป 5 บรรทัด 2 คอลัมน์, .Resize(,8) หมายถึงขยายไป 8 คอลัมน์ส ...

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

หากเข ...

เรียนอาจารย์ snasui
ผมได้นำโค้ดไปทดสอบแล้ว โค้ดอาจารย์สุดยอดเลยครับ ใช้ได้ผลดีเลยครับ
ขอบคุณมากๆครับ

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


และก็ผมขอนุญาตใช้กระทู้นี้สอบถามเรื่องโค้ดอื่นเพิ่มเติมได ...

เรียน อาจารย์ snasui
ผมได้นำโค้ดไปทดลองแล้ว ใช้ได้ตามต้องการครับ

พอดีผมอยากให้เติมเส้นขอบเป็นสี่เหลี่ยมในแต่ละเซลล์เรียงลงมาจนถึงข้อความสุดท้ายของคอลัมน์นั้น
ลองเขียนโค้ดแล้ว เจอปัญหา
1 โปรแกรมเติมเส้นขอบแค่แถวล่างสุดแค่แถวเดียว
2 โปรแกรมสร้างหน้าให้อัตโนมัติถึง 14,769 หน้า ทำให้ไฟล์มีขนาดใหญ่ถึง ...

เรียน สมาชิกทุกท่าน
ผมต้องการcopyข้อมูลจากชีทหลักไปยังอีกชีทที่กำหนดแบบเรียงลำดับลงมา
ชีทหลักของผมก็คือชีท"หน้าหลัก"
เมื่อรันโค้ด sub BOQ() อันดับแรกจะให้ตรวจสอบเซลล์ C44 ที่ชีทหน้าหลักก่อน หากไม่เท่ากับค่าว่าง จะให้ exit sub ทันที
หากเป็นค่าว่างก็ให้รันโค้ดตามปกติ
โดยเริ่มcopyข้อมูลจากคอลัมน์ B,C,D ...

เราสามารถเขียน Check Box (From Controls) ที่ objects sheet
:D ทำได้โดยการสร้างตามขั้นตอนปกติแล้ว Cut ไปวางใน Sheet ใด ๆ ที่ต้องการ


หรือเขียน Check Box (ActiveX Controls) ที่ Module ได้ไหมครับ
ไม่สามารถทำได้เนื่องจาก ActiveX Object เป็น Object ภายใต้ Worksheet นั้น ๆ ครับ


ขอบคุณมากครับ ...

ขออนุญาตใช้โพสนี้สอบถามเรื่อง CheckBox ครับ
Check Box (From Controls) กับ Check Box (ActiveX Controls)
ที่ Insert จาก tab menu developer

ผมลองสร้าง Check Box (From Controls) แล้วคลิกขวาเลือก assign macro มันจะถูกเลือกไปอยู่ที่ Module
ส่วน Check Box (ActiveX Controls) จะไปอยู่ที่ objects sheet ...

puriwutpokin wrote: Fri Apr 08, 2022 1:30 pm C9=C$2*((C$2<=200)*10.95+AND(C$2>200,C$2<=500)*10.85+(C$2>500)*10.75)

สูตรนี้ลองแล้วก็ใช้ได้ครับ ไม่เคยเอาฟังก์ชั่น AND มาใช้เลยครับ
ได้ความรู้เรื่องการใช้ AND เข้ามาช่วย

ขอบคุณครับ

logic wrote: Fri Apr 08, 2022 1:36 pm อันนี้แบบ ใช้ IF ครับ

=C$2*IF(C$2<=200,10.95,IF(C$2<=500,10.85,10.75))

ลองสูตรนี้แล้ว ใช้ได้ครับ

เรียนสมาชิกทุกท่าน
ผมจะทำสูตรคำนวณ โดยมีเงื่อนไขดังนี้ครับ

พื้นที่ น้อยกว่า200หรือเท่ากับ200 ให้นำไปคูณ 10.95
พื้นที่ มากกว่า200ถึง500 ให้นำไปคูณ 10.85
พื้นที่ มากว่า500ขึ้นไป ให้นำไปคูณ 10.75

ใส่พื้นที่ใน เซลล์ C2
ผลลัพธ์มาแสดงที่ เซลล์ C9

ผมลองใช้ IF แล้วไม่ได้ครับ

ขอบคุณครับ

เรียน อาจารย์ snasui
ผมได้นำ code ไปใช้กับแบบฟอร์มจริงของผมแล้วครับ
กดปุ่มบันทึกสินค้าแล้ว มันไปบันทึกเริ่มต้นที่แถว36 ตามที่ผมต้องการให้เริ่มที่แถว13 ครับ
รบกวนอาจารย์อีกครั้งครับ ผมได้แนบแบบฟอร์มใช้จริงมาให้แล้วครับ


เปลี่ยนจาก d เป็น b ดูครับ :D
lstRow = .Range("b" & .Rows.Count).End ...

เรียน อาจารย์ snasui
ผมได้นำ code ไปใช้กับแบบฟอร์มจริงของผมแล้วครับ
กดปุ่มบันทึกสินค้าแล้ว มันไปบันทึกเริ่มต้นที่แถว36 ตามที่ผมต้องการให้เริ่มที่แถว13 ครับ
รบกวนอาจารย์อีกครั้งครับ ผมได้แนบแบบฟอร์มใช้จริงมาให้แล้วครับ

เรียน สมาชิกทุกท่าน
ผมต้องการกดปุ่มบันทึกชื่อสินค้า ให้ไปวางที่ชีท "ใบเสนอราคา" โดยเริ่มวางค่าที่เซลล์ D13 เป็นเซลล์แรก
และกดปุ่มบันทึกอีกครั้ง ให้เริ่มวางค่าที่เซลล์ D14 ลงมาเรื่อยๆ จนเจอเส้นประที่แถว29 ให้แสดง msgbox แจ้งเตือน

ปัญหาที่ติดขัด กดปุ่มบันทึกชื่อสินค้า แล้วไม่เรียงลงมาเรื่อยๆ

Sub ...

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

M12 ใส่สูตร ลากลงถึง M24
=IFERROR(INDEX($L$12:$L$24,AGGREGATE(15,6,(ROW($L$12:$L$24)-ROW($L$11))/NOT(COUNTIF($C$3:$C$15,$L$12:$L$24)),ROWS(M$12:M12))),"")

เลือก C3:C15 กด Alt A V V เลือก List ใส่สูตร
=OFFSET($M$12,,,ROWS($M$12:$M$24)-COUNTBLANK($M$12:$M$24))


:thup: ใช้แบบนี้ได้เลยครับ ผมค ...

:D หากไม่ได้เลือกตามลำดับ เช่นเลือก C6 ก่อนเลือกค่าเป็น ส้ม ไปแล้ว C3 จะเลือก ส้ม อีกไม่ได้ ใช่หรือไม่ครับ

ใช่ครับ แต่ขอสูตรแบบเลือกตามลำดับก็ได้ครับ เช่นเลือกC3ก่อน แล้วค่อยเลือกC4 C5 C6 ตามลำดับ


หากใช่จะเป็นการตรวจสอบร่วมกันทั้งหมดทุกเซลล์ งานลักษณะนี้ต้องอาศัย VBA ครับ

หากเลือกตามลำดับ ...

เรียนสมาชิกทุกท่าน
สอบถามการสร้าง Drop-Down List หลายเงื่อนไข
ผมสร้าง drop-down list มา4ตัวครับ ระหว่าง C3:C6
ถ้าเซลล์ C3 เลือกคำว่าองุ่น แล้วเซลล์ C4:C6 จะไม่มีคำว่าองุ่นให้เลือก
หรือเซลล์ C6 เลือกคำว่าส้ม แล้วเซลล์ C5:C3 จะไม่มีคำว่าส้มให้เลือก
ประมาณว่าหากเลือกชื่อผลไม้ใดไปแล้ว เซลล์ที่เหลือจะไม ...