ทองจุล ขันขาว

ปัญหา ปกติเมื่อมีการเรียกใช้งาน Application.CellDragAndDrop = False จะทำให้ ไฟล์ของ Excel ทุกไฟล์ หรือ ทุก Workbook ที่เปิดใช้งาน ไม่สามารถ ลากเซลลไปวางไว้ที่ไหนได้ ถ้าต้องการห้ามเฉพาะไฟล์ หรือ Workbook ที่กำลังใช้งาน หรือ Active Workbook เท่านั้น จะทำอย่างไร หลักการ คำสั่งดังกล่าว เป็นระดับ Application จึงมีผลต่อทุกไฟล์ที่เปิด ถ้าต้องการบังคับเฉพาะไฟล์ หรือเฉพาะ Workbook จึงต้องมีวิธีการ กำหนดให้บังคับเฉพาะชื่อไฟล์ที่ระบุเท่านั้น วิธีการ เปิดไฟล์ใหม่ บันทึกเป็นไฟล์ xlsm โดยใช้ชื่อ noDrag เปิดหน้าจอเขียนโค้ด (Alt + F11) สร้างโมดูลใหม่ โดยไปที่ Insert > Module Excel จะตั้งชื่อให้เป็น Module1 ให้คัดลอกโค้ดนี้ไปวาง Dim X As New Class1 Sub InitializeApp() '   Called by Workbook_Open     Set X.App = Application End Sub สร้าง Class Module ใหม่ โดยไปที่ Insert > Class Module Excel จะตั้งชื่อว่า Class1 ให้ใช้ชื่อนี้ จะได้ไม่ต้องไปเปลี่ยนในโค้ด คัดลอกโค้ดต่อไปนี้ ลงใน Class1 Public WithEvents App As Application Private Sub App_WorkbookActivate(ByVal...

ต้องการสร้างตัวหนังสือที่มีเส้นขอบ และสีพื้น ดังภาพ จะเห็นว่าลักษณะที่ต้องการ คือ ภายในมีการไล่สี เป็น Gradient จากสีเหลืองเป็นสีฟ้า มีเส้นขอบสีขาว และสีน้ำตาลอยู่รอบนอก หลักการ พิมพ์ข้อความ แล้ว เปลี่ยนเป็น Outline จากนั้นใช้ Appearance Panel โดยเปลี่ยนสีพื้น หรือ Fill ให้เป็น Gradient เพิ่ม Fill เป็นสีขาวแล้ว Offset Path จากนั้น จึงเพิ่ม Fill เป็นสีน้ำตาล และ Offset Path อีกครั้งหนึ่ง วิธีการ พิมพ์ตัวหนังสือ โดยคลิกที่ Type Tool และพิมพ์ข้อความที่ต้องการ ผมเลือกตัวหนังสือที่มีลักษณะหนา ตัวหนังสือที่ใช้ คือ TP Kubua พัฒนาโดย konkuneng จาก www.f0nt.com  โดยกำหนดขนาด 105 px ใช้ ลูกศรสีดำ เลือก ข้อความที่พิมพ์ แล้วเปิดหน้าจอ Appearance โดยไปที่ Window > Appearance ต่อไปนี้ จะเปลี่ยนสีของสีพื้นตัวอักษร ที่ด้านล่างของหน้าจอ Appearance ให้คลิกเพิ่ม Fill โดยคลิกปุ่ม Add New Fill จะเกิดชั้นใหม่ เป็นชั้น Fill เพิ่มขึ้น 1 ชั้น เปิดหน้าจอ Gradient โดยไปที่ Window > Gradient และเลือก Gradient ปรับองศาของ Gradient เป็น -90 เพื่อปรับทิศทางของ Gradient จา...

สมมุติว่า ใน Sheet ชื่อ users มีอีเมล์ ตั้งแต่เซลล์ B6:B20 และต้องการส่งเมล ไปยังอีเมลเหล่านั้น โดยใช้ Outlook จะทำอย่างไร หลักการ ก่อนอื่น ต้องทำการ Config โปรแกรม Outlook ให้สามารถใช้งานได้ก่อน โดยกำหนดว่าจะใช้ Serve ใดเป็นตัวส่งเมล์ จากนั้นจึง เปิด Excel ทำการอ้างอิงไปที่ Microsoft Outlook Object Library แล้วเขียนโค้ดส่งเมล์ และแนบกับปุ่ม เมื่อคลิกปุ่ม จะทำการส่งเมลทั้งหมดที่อยู่ในเซลล์ B6:B20 วิธีการ เปิด Excel 2010 และเรียกเมนู ผู้พัฒนา โดยไปที่ แฟ้ม > ตัวเลือก > กำหนด Ribbon เอง และเลือก ผู้พัฒนา อ้างอิง Outlook Object Library ให้เปิดหน้าจอเขียนโค้ด (กด Alt+F11) (หรือ นักพัฒนา > แสดงโค้ด ) แล้วไปที่ Tools > References และเลือก Library ที่ต้องการ สร้างโมดุลใหม่ โดยไปที่ เมนู Insert > Module ดับเบิ้ลคลิกที่ Module1 และสร้าง Procedure การเรียกใช้งาน Outlook ดังนี้ Sub sendMyMail(addrss As String)     Dim OutApp As Object     Dim OutMail As Object     Set OutApp = CreateObject("Outlook.Application") ...

วันนี้ ได้รับอีเมลจาก อาจารย์วิไลพรรณ สมตระกูล Forward มาให้เรื่อง กระชาย น่าสนใจดีนะครับ ของไทย ๆ พื้นบ้าน ปลูกง่าย มีประโยชน์ กระชายมี 3 ชนิด คือ กระชายดำ กระชายแดง กระชายเหลือง กระชาย ในที่นี้จะขอกล่าวถึงกระชายเหลืองอย่างเดียวเปรียบเทียบกระชายคือโสมของไทย คือ "ราชาแห่งสมุนไพร" กระชายปั่นคั้นน้ำ กระชายมีวิตามินซี, บี1, บี 3 ,บี 6 และแคลเซียม สรรพคุณกระชาย 1.ช่วยบำรุงตับ ไต แข็งแรง 2.ช่วยฟื้นฟูต่อมไทรอยด์ ต่อมใต้สมอง 3.ช่วยบำรุงเส้นเอ็นให้แข็งแรง กระดูกไม่เปราะบาง 4.ช่วยให้เส้นผมไม่หงอกก่อนวัยเล็บมือ เล็บเท้า แข็งแรง 5.ช่วยปรับสมดุลความดันโลหิตให้พอดี ไม่ให้สูงมากหรือต่ำมากเกินไป 6..ช่วยบำรุงหัวใจ ระบบกล้ามเนื้อหัวใจแข็งแรง เต้นสม่ำเสมอ ช่วยให้เลือดไหลเวียนไปเลี้ยงหัวใจได้ดีขึ้น คุณค่าในน้ำกระชาย เมื่อกินน้ำกระชายเข้าไปแล้ว ในกระเพาะเรามีน้ำ มีไขมันและจุลินทรีย์สองกลุ่มจะแยกกันทำหน้าที่ของมันเอง ตัวจุลินทรีย์ในกระเพาะจะทำให้เกิดแอลกอฮอล์ขึ้นมา เพื่อทำหน้าที่สกัดตัวยากลุ่มที่ละลายน้ำออกมาจากกระชายได้เอง ส่วนกลุ่มที่ละลายในไขมันก็ทำงานของเขาเอง คนปกติดื่มกระ...

การหาค่า Mean และ S.D. ด้วย VBA คำสั่ง ให้หาค่า Mean และ S.D. ของข้อมูลในบริเวณที่เลือก ในแผ่นงานข้างล่างนี้ หลักการ ใช้ Range เพื่อเลือกบริเวณที่ต้องการ ใช้คำสั่ง average และ stdev เพื่อคำนวณค่าที่้ต้องการ

การเลือกเซลล์ ด้วย VBA ถ้ารู้ว่าจะเลือกเซลล์อะไร หรือ เซลล์อะไรถึงอะไร ก็ไม่ยาก ใช้ Range มาช่วย ดังนี้ ต้องการเลือกเซลล์ B3 Sub example1()     Sheets("Sheet1").Range("B3").Select  End Sub หรือ Sub example2()     Sheets("Sheet1").Cells(3, 2).Select End Sub หมายเหตุ Sheets("Sheet1").Cells(3, 2) คือ เซลล์แถวที่ 3 คอลัมน์ที่ 2 ของ Worksheet1 ต้องการเลือกเซลล์ A2:B8 Sub example3()     Sheets("Sheet1").Range("A2", "B8").Select '    หรือ '    Sheets("Sheet1").Range(Cells(2, 1), Cells(8, 2)).Select End Sub แต่ถ้าต้องการเลือกจำนวนเซลล์โดยขึ้นอยู่กับตัวแปร ว่าจะเลือกกี่เซลล์ลงมา อย่างนี้ ต้องใช้อีกแบบหนึ่ง เช่น

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

เมื่อมีการใช้ Drop-down list ใน Excel เพื่อให้เลือกตัวเลือก เมื่อผู้ใช้เลือกแล้ว ให้จัดการบางอย่าง เช่น แสดงหรือซ่อนเซลล์ ดังตัวอย่างข้างล่างนี้ ในตัวอย่างข้างบน มีการสร้าง Drop-down list ที่เซลล์ G32 เพื่อให้ผู้ใช้เลือกว่า มีการแบ่งข้อคำถามของแบบสอบถามออกเป็นด้าน ๆ หรือไม่ เมื่อผู้ใช้เลือกว่า มีการแบ่งด้านออกเป็นด้าน ๆ ให้แสดงช่วงบรรทัดที่ 33-40 เพื่อให้กรอกข้อมูล แต่ถ้าผู้ใช้ระบุว่า ไม่มีการแบ่งช่วง ให้ซ่อนเซลล์ บรรทัดที่ 33-40 หลักการ สร้าง Drop-down list โดยใช้ Data Validation จากนั้นเขียน VBA ของ Sheet ที่ใช้งาน ให้ตรวจสอบการเปลี่ยนแปลงในเซลล์ที่มี Drop-down list จากนั้นจึงกำหนดเงื่อนไขที่ต้องการ

สมัยเด็ก เมื่อประมาณสัก 50 กว่าปีมาแล้ว เวลาไปเก็บมะเฟือง มะม่วงดิบมากิน จะเอากินกับเกลือเม็ดในไห เหตุผลง่าย ๆ ที่เข้าใจได้คือ ผลไม้มีรสเปรี้ยว ส่วนเกลือมีรสเค็ม พอเอามากินด้วยกัน ก็จะได้รสชาดที่พอดี มาตอนนี้ ลองค้นข้อมูลในอินเทอร์เน็ตดูพบว่า เกลือกับผลไม้ เป็นเนื้อคู่ที่ต้องอยู่ด้วยกัน เนื่องจาก ผลไม้ส่วนใหญ่จะมี Potassium สูง เกลือ หรือ Sodium กับ Potassium เป็นแร่ธาตุที่ทำงานประสานกัน ร่างกายต้องมีปริมาณสัดส่วนของทั้งสองอย่าง อย่างสมดุลกัน ถ้ามีอย่างใดอย่างหนึ่ง มากกว่ากันมาก จะทำให้เกิดการกำจัด (excretion) อีกอย่างหนึ่งออกจากร่างกาย เช่น ถ้ามี Potassium มาก จะทำให้ร่างกายกำจัด เกลือ หรือ Sodium ออกจากร่างกาย และถ้ามี เกลือมาก ร่างกายจะกำจัด Potassium ออกจากร่างกาย จึงต้องมีทั้งสองอย่าง ในอัตราส่วนที่สมดุลกัน

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

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

ต้องการสร้างภาพนี้   หลักการ มีวิธีการสร้างวงกลมเล็กรอบวงกลมใหญ่หลายวิธี วิธีหนึ่งที่ง่ายคือการใช้ Blend Tool แล้วสร้างวงกลม จากนั้นจึงกำหนดให้ Blend มา Replace Spline ที่เป็นวงกลม และใช้ กรรไกรตัดวงกลมออกเป็น 2 ส่วน เพื่อให้ Blend ทำหน้าที่ล้อมรอบวงกลมทั้งวง การเปลี่ยนสี ทำโดยใช้ White Arrow Tool เปลี่ยนสีวงกลมเล็กทีละวง วิธีการ

ใช้ Pattern Brush สร้างลายกรอบจากภาพที่ใช้ Pen Tool สร้าง เสร็จแล้วปรากฏว่า ลายต่อกันไม่สนิท ดังภาพ สาเหตุ สาเหตุหลักเกิดจาก ภาพก่อนที่จะนำไปทำเป็น Pattern Brush เช่น ลักษณะ cap ของ Stroke ที่ยื่นออกไป หรือ อาจจะมีจุดเล็ก ๆ อยู่ด้านนอก และเลือกเข้าไปเป็นส่วนหนึ่งของ Brush ก็เป็นไปได้ ซึ่งต้นเหตุมาจาก ไม่ได้ทำการ Expand ก่อนที่จะกำหนดส่วนไปใช้เป็น Brush เมื่อใช้ Pen Tool วาด จะเป็นเส้น Path การตัดเส้น Path จะมีส่วนของปลายเส้น หรือ Cap ที่จะทำให้เกิดปัญหาเมื่อนำไปทำเป็น Pattern Brush ได้ แนวทางการแก้ไข

ยอ หรือ Noni หรือ Morinda หรือ Morinda citrifolia หรือ Beach mulberry หรือ อีกหลายชื่อ เป็นพืชที่เป็นทั้งอาหาร และเป็นทั้งยาแก้สารพัดโรค รู้จักกันมานานกว่า 2,000 ปี ในสมัยโบราณ ชาวเกาะตาฮีติออกเรือเพื่อไปสร้างถิ่นที่อยู่ใหม่ และได้นำต้นไม้ศักดิ์สิทธิ์ไปด้วย สำหรับกินนเป็นอาหาร สำหรับสร้างที่อยู่อาศัย และใช้เป็นยา หนึ่งในจำนวนนั้นก็คือ ต้นยอ ชาวโพลีนีเซีย ถือว่า ต้นยอ เป็นของขวัญที่ประทานมาจากพระเจ้า เป็นพืชแห่งชีวิต และสร้างความสมดุลให้ร่างกาย

ต่อไปนี้ เป็นตัวอย่างการใช้งานเครื่องมือ Shape Builder Tool, Knife Tool และ Scissors Tool  เพื่อสร้างภาพ ข้างล่างนี้ ความจริงภาพนี้ สามารถสร้างได้หลากลักษณะ แต่ตัวอย่างนี้ จะใช้เครื่องข้างต้นสร้าง เพื่อแสดงการใช้เครื่องมือดังกล่าว จากภาพ เราจะสร้างภาพวงกลมซ้อนกัน 2 วง ใช้ Shape Builder Tool ลบส่วนเกิน ใช้ Knife Tool ตัดแบ่งภาพออก และใช้ Scissors Tool เพื่อตัดเอาเฉพาะส่วนของเส้นรอบภาพมาใช้งาน Shape Builder Tool ใช้เพื่อรวม หรือตัดส่วนของภาพตั้งแต่สองภาพขึ้นไป ใช้เหมือนกับ เครื่องมือ Path Finder แต่คิดว่าใช้ง่ายกว่า Knife Tool ใช้สำหรับการตัดภาพออกเป็นส่วน ๆ การตัดควรลากจากข้างนอกภาพจากด้านหนึ่ง ไปยังอีกด้านหนึ่ง เพื่อไม่ให้เกิด Compound Path Scissors Tool ใช้ตัดเส้นรอบรูป โดยคลิกที่เส้นเพื่อแบ่งออกเป็นส่วน ๆ สิ่งสำคัญ: การใช้เครื่องมือทั้งหมด ต้องเลือกภาพที่ต้องการกระทำเสียก่อน วิธีการ ใช้ Rectangle Tool สร้างวงกลม 2 วง ซ้อนกัน (วงกลมไม่มี Stroke) ใช้  Black Arrow Tool เลือกภาพทั้งสอง คลิก Shape Builder Tool คลิกเมาส์นอกวงกลมสีเขียว และลากเข้าไปบริเวณวงก...