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

สมมุติว่า ใน 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")     Set OutMail = OutApp.CreateItem(0)

วันนี้ ได้รับอีเมลจาก อาจารย์วิไลพรรณ สมตระกูล 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 คลิกเมาส์นอกวงกลมสีเขียว และลากเข้าไปบริเวณวงกลมสีเขียว

เมื่อมีการใช้ File Dialogue ให้ผู้ใช้เลือกไฟล์ในเครื่อง โดยให้แสดง File Dialog ดังภาพ เมื่อผู้ใช้เลือกไฟล์ที่ต้องการและเราต้องการแยกชื่อไฟล์ออกจาก Path มีฟังก์ชั่น ที่ dzone.com สามารถนำไปใช้ได้ทันที ตามโค้ดตามโค้ดข้างล่างนี้ Function GetFilenameFromPath ( ByVal strPath As String ) As String   If Right $( strPath , 1 ) <> "\" And Len ( strPath ) > 0 Then GetFilenameFromPath = GetFilenameFromPath ( Left $( strPath , Len ( strPath ) - 1 )) + Right $( strPath , 1 )     End If End Function ตัวอย่างการใช้งาน (บรรทัดที่มีตัวหนังสือสีแดง) Private Sub Command0_Click() On Error GoTo ErrHandler      Dim f As Object     Dim fileAddress As String     Dim selectedFileName As String      Set f = Application.FileDialog(3)          f.AllowMultiSelect = False          f.Title = "โปรดเลือกไฟล์ภาพโลโก้ของท่าน"          f.Filters.Clear          f.Filters.Add "JPG Files", "*.jpg"          f.Filters

การสร้างหญ้า ตามภาพข้างล่าง ใช้ Symbol และใช้เครื่องมือของ Symbol นอกจากนี้ มีการใช้ Clipping Mask เพื่อตัดภาพ วิธีการ ใช้ Pen Tool สร้างเส้นโค้ง เลือก Selection Tool (ลูกศรสีดำ) คลิกเลือกที่เส้น  กำหนดสี Fill เป็นไม่มีสี สีStroke สีเขียวอ่อน กำหนดขนาด Stroke เท่ากับ 10 และ Variable Width Profile เป็นรูปสามเหลี่ยม ดังภาพ    เปิดหน้าต่าง Symbols (ไปที่ Window > Symbols) และใช้ Black Arrow Tool ลากภาพที่สร้างขึ้นเข้าไปในหน้าต่าง Symbols เพื่อให้เป็นสัญลักษณ์ จะมีหน้าหน้าจอให้ตั้งชื่อ Symbols ให้กด OK ในขณะที่ภาพกำลังถูกเลือก ให้กดปุ่ม Delete เพื่อลบภาพออกไป ในขณะที่ Symbol ที่สร้างขึ้นใหม่กำลังถูกเลือก ให้คลิกที่เครื่องมือ Symbol Sprayer Tool และระบายภาพต้นหญ้า ระบายหนา ๆ จนได้ต้นหญ้าหนาพอควร ดังภาพ ใช้ Symbol Scruncher Tool คลิกเพื่อทำให้ต้นหญ้าชิดกัน กดปุ่ม [ หรือ ] เพื่อปรับขนาดของ Tool ให้เล็ก หรือใหญ่ เพื่อให้ได้ภาพแบบสุ่ม ใช้ Symbol Shifter Tool ลากขึ้นเพื่อทำให้หญ้าแคบขึ้น หนาขึ้น ควรปรับขนาดของแปรงไปเรื่อย ๆ ใช้ Symbol Spinner Tool ทำให้หญ้าเปล

Envelope Distort เป็นการปรับแต่งรูปทรงให้เป็นรูปต่าง ๆ เราจะใช้ในการสร้างภาพตะกร้าหกเหลี่ยม ต่อไปนี้ วิธีการ สร้าง Pattern รูปต่อไปนี้ ดูวิธีการสร้าง ที่นี่   สร้างรูปหกเหลี่ยม ด้วย Polygon Tool ใช้ White Arrow Tool เลือกจุดด้านบน และด้านล่างทั้งสี่จุด (Shift click) และคลิกที่เครื่องมือ Scale Tool ลากย่อ เพื่อใช้เป็นด้านบนของตะกร้า ดังภาพ ใช้ Rectangle Tool สร้างสี่เหลี่ยมที่มีขนาดความยาวเท่ากับความกว้างของรูปหกเหลี่ยม แสดงบรรทัด (กด Ctrl+R) และลากเส้น Guide จากเส้นบรรทัดมาวางตรงเหลี่ยมของรูปหกเหลี่ยม ใช้ Pen Tool เพิ่มจุด Anchor Point ของด้านบนและด้านล่างรูปสี่เหลี่ยม ให้ตรงกับเหลี่ยมของรูปหกเหลี่ยม คัดลอกรูปสี่เหลียม เพื่อทำเป็นด้านหน้าของตะกร้า และด้านในของตะกร้า  นำเส้น Guide มาวางตามแนวนอนรูปหกเหลี่ยม ใช้ White Arrow Tool คลิกที่ด้านข้างของสี่เหลี่ยม รูปแรก และปรับให้เป็นรูป ดังภาพ ทำอีกด้านที่เหลือ และที่สี่เหลี่ยมรูปที่สอง ก็ทำเช่นเดียวกันแต่ลากมุมกลับลง จะได้ภาพใหม่ สองรูป ดังภาพ คัดลอกภาพด้านหน้าและด้านหลังของตะกร้าไว้ เพื่อจะนำไปทำเป็นเงา วาดรูปสี่เหลี