บทความ

วิตามินป้องกันมะเร็ง

ระยะนี้ วิตามินดี ดูเหมือนจะเป็นพระเอก เพราะมีการศึกษาวิจัย และพบว่า ผู้ที่ขาดวิตามินดี มีส่วนเกี่ยวข้องกับโรคหลายอย่าง เช่น โรคมะเร็ง โรคหัวใจ เบาหวาน แม้กระทั่งโรคอ้วน(obesity) TerryLemerond บอกว่า วิตามินดี (Vitamin D) ป้องกันมะเร็งได้ถึง 70% นอกจากนี้ยังให้ผลดีต่อสมองและกระดูกอีกด้วย วิตามินดี กับ มะเร็ง มีการวิจัยพบว่า ผู้ที่ขาดวิตามินดีมีโอกาสเป็นมะเร็งต่าง ๆ ได้ง่าย เช่น พบว่า วิตามินดี สามารถลดความเสียงของมะเร็งลำไส้ใหญ่ได้ 40%  ผู้หญิงร้อยละ 75% ที่เป็นมะเร็งเต้านมเป็นผู้ที่ขาดวิตามินดี มีการวิจัยในห้องทดลอง พบว่าวิตามินดี สามารถเจาะเข้าไปในเซลล์มะเร็งเต้านมและฆ่าเซลล์มะเร็งให้ตาย วิตามินดี ช่วยป้องกันมะเร็งชนิดอื่น ๆ ได้อีกหลายอย่าง เช่น มะเร็งอัณฑะ(prostate) มะเร็งรังไข่(ovarian) มะเร็งช่องท้อง(stomach) มะเร็งกระเพาะปัสสาวะ(bladder) มะเร็งไต(kidney) และมะเร็งปอด(lung cancer) วิตามินดีกับสมอง มีการวิจัยพบว่า การขาดวิตามินดี ทำให้ความเสี่ยงต่อการเป็นโรคความจำเสื่อม(Alzheimer’s disease)เพิ่มขึ้นอย่างมีนัยสำคัญ การขาดวิตามินดี ทำให้ความเสี่ยงที่จะเกิดสมองทำงานบกพร่อง(i

การสร้างปุ่มเสียง ใน Adobe Captivate 5.5

รูปภาพ
Adobe Captivate ไม่มีปุ่มเสียงให้คลิก การนำเสียงเข้า สามารถนำเข้าให้เป็นเสียง Background หรือ เป็นเสียงประจำ slide หรือเป็นเสียงประจำวัตถุ เช่น ปุ่ม หรือ Text Caption เป็นต้น ถ้าจะสร้างปุ่ม แล้วคลิกให้เกิดเสียง เช่น คลิกคำภาษาอังกฤษ แล้วให้มีเสียงคำนั้น ๆ ต้องทำดังนี้ สร้าง Text Caption และพิมพ์ข้อความที่ต้องการคลิกให้เกิดเสียง สร้าง Text Caption ว่าง ๆ  โดยลบข้อความให้หมด และกำหนดให้เป็น Transparent พร้อมทั้ง Add Audio หรือเสียงที่ต้องการเข้ากับ Text Caption ว่าง และมองไม่เห็นนี้ สร้าง  Click Box และลบข้อความที่จะให้ click box แสดงออกให้หมด แล้วนำ click box ไปวางทับข้อความในข้อ 1 ที่ต้องการคลิกให้เกิดเสียง สร้าง Advance Action ให้ Show เจ้าตัว Text Caption ว่าง ๆ ที่มีเสียงที่เราสร้างในขั้นตอนที่ 2  พร้อมทั้งกำหนด ให้ Jump ไปที่ Slide เดียวกันนี้ เพื่อให้เล่นเสียง กำหนด Action ของ Click Box ให้ใช้ Advance Action ที่สร้างขึ้น เท่านี้ก็จะได้ปุ่มคลิกแล้วมีเสียง ใน Captivate

การป้องกัน VBA Code ของ MS Access

รูปภาพ
ปัญหา MS Access 2007/2010 เมื่อ compile โดยจัดทำเป็น accde แล้วมีปัญหาเมื่อนำไปใช้กับ Windows ที่ต่างรุ่นกัน เช่นทำจาก Vista / Office 2010 เมื่อนำไปใช้กับ Windows 7 / Office 2010 หรือ Windows XP / Office 2010 มีปัญหา เปิดไม่ได้ บอกว่าไม่รู้จัก ทั้ง ๆ ที่เป็น Office 2010 ด้วยกันเอง การแก้ไข ไม่ต้อง compile เป็น accde แต่ ยังคงใช้เป็น accdb เหมือนเดิม แต่ใส่รหัสที่โค้ด เพื่อไม่ให้เปิดดูได้ เพราะถ้าเปิดได้ และแก้ไขโค้ด ก็จะทำให้โปรแกรมที่เขียน ทำงานไม่ได้ตามที่ต้องการ หรืออาจจะไม่ทำงานเลย วิธีการใส่รหัสเพื่อไม่ให้เปิดดูโค้ด ทำดังนี้ เปิดหน้าจอ VBA (กด Atl + F11) ไปที่ Tools > Database Properties ...จะเปิดหน้าจอข้างล่าง คลิกที่แถบ Protection พิมพ์รหัสตามต้องการ เมื่อปิดและจะเข้าไปแก้ไขโค้ด ต้องใส่รหัส

stroke โรคหลอดเลือดสมอง อัมพาต อัมพฤกษ์

รูปภาพ
Stroke มีชื่อเรียกต่าง ๆ กัน เช่น โรคหลอดเลือดสมอง อัมพาต อัมพฤกษ์ เส้นเลือดอุดตัน เป็นต้น Stroke เป็นโรคพบได้บ่อยโรคหนึ่ง ในประเทศที่เจริญแล้ว โรคนี้เป็นสาเหตุการเสียชีวิตเป็นอันดับสองรองจากโรคหัวใจ เป็นโรคพบได้บ่อยในอายุตั้งแต่ 45 ปีขึ้นไป (95%ของผู้ป่วยทั้งหมด) โดยประมาณสองในสามของผู้ป่วยมีอายุมากกว่า 65 ปี ทั้งนี้ พบในผู้ชายบ่อยกว่าในผู้หญิงประมาณ 1.5 เท่า Stroke เกิดจากอะไร? Stroke มีสาเหตุเกิดจาก สมองขาดเลือดทันทีภายในระยะ เวลาเป็นนาทีหรือ ชั่วโมง ซึ่งเกิดได้จาก 2 สาเหตุสำคัญ คือ หลอดเลือดแดงสมองอุดตัน (ischemic stroke) หลอดเลือดแดงสมองแตก (hemorrhagic stroke) โรคอัมพาต โรคอัมพฤกษ์มีอาการอย่างไร? อาการจากโรคอัมพาต โรคอัมพฤกษ์เป็นอาการที่เกิดทันที เป็น นาที หรือ ชั่วโมง โดยอาการขึ้นกับตำแหน่งสมองส่วนที่ขาดเลือด ซึ่งที่พบบ่อย ได้แก่ แขน ขา ด้านเดียวกันอ่อนแรงทันที แขน ขาด้านเดียวกัน ใบหน้า ชา สับสน พูดไม่ชัด หรือ พูดไม่ได้ อาจมีตาพร่า มองเห็นภาพไม่ชัด หรือ เห็นภาพเพียงบางส่วน หรือ เห็นภาพได้แคบลง อาจหายใจเหนื่อยหอบ ติดขัด มึนงง วิงเวียน ทรงตัวไม่ได้ ปวดศีรษ

การย้ายแถว ใน Excel

รูปภาพ
การย้ายแถวใน Excel ของง่าย ๆ แต่บางทีนึกไม่ถึงเหมือนกัน จากภาพข้างล่าง ต้องการย้ายแถวที่ 3 ไปตำแหน่งอื่น ขั้นแรกลองเลือกทั้งแถว และไปที่เส้นขอบ จากนั้นลากไปไว้ที่อื่น พอปล่อยเมาส์ Excel ตั้งคำถามว่า จะให้ลบของเดิมหรือไม่ ถ้าต้องการลบของเดิม แล้วใช้ของใหม่แทนที่คงไม่ยาก แต่ถ้าต้องการแทรก โดยเลื่อนข้อมูลเดิมลงไปอีก 1 แถว จะทำอย่างไร วิธีการ เลือกทั้งแถว คลิกขวาที่เส้น ลากไปวางในตำแหน่งแถวที่ต้องการ ปล่อยเมาส์ จะมีคำถาม ให้เลือก Shift Down and Move จะได้ข้อมูลใหม่ ดังภาพ ซึ่งจะเห็นว่า แถวที่ 3 มาแทรกอยู่ระหว่างแถวที่ 9 และ แถวที่ 10 โดยที่ข้อมูลเดิมยังอยู่ครบ

ไฟโตนิวเทรียนท์ (phytonutrients) สารอาหารที่สำคัญจากพืช

ต้นไม้มีสารชนิดหนึ่งที่เรียกว่า ไฟโตนิวเทรียนท์ (phytonutrients) ช่วยปกป้องพืชให้พ้นจากภัยรอบด้าน เช่น จากเชื้อโรคต่าง ๆ จากการบาดเจ็บ จากแมลง จากความร้อนของดวงอาทิตย์ จากรังสีอุลตร้าไวโอเล็ต จากสารพิษ ตลอดจนมลพิษต่าง ๆ ทั้ง ในน้ำ ในดิน และในอากาศ ว่าง่าย ๆ คือ ไฟโตนิวเทรียนท์ เป็นภูมิคุ้มกันของพืช ก็ว่าได้ เมื่อเรากินพืชผักจึงได้รับ ไฟโตนิวเทรียนท์ ด้วย ไฟโตนิวเทรียนท์ ในร่างกายของเรา เป็นสิ่งจำเป็นนอกเหนือไปจากสารอาหารทั้ง 5 หมู่ ที่รู้จักกันดีอยู่แล้ว ไฟโตนิวเทรียนท์ ช่วยซ่อมแซมเซลล์ ช่วยลดคอเลสเตอรอล ช่วยเสริมสร้างความต้านทาน และเป็นตัวต้านอนุมูลอิสระ นอกจากนี้ยังช่วยป้องกัน รักษาโรคสำคัญ เช่น มะเร็ง เบาหวาน และโรคเกี่ยวกับหัวใจและหลอดเลือด (cardiovascular disease) ไฟโตนิวเทรียนท์ เป็นสารที่ทำให้พืชผัก ผลไม้มีสีต่าง ๆ พืชผัก ผลไม้ต่างสีกัน มีไฟโตนิวเทรียนท์ ชนิดต่างกัน ซึ่งแต่ละชนิดก็จะทำหน้าที่แตกต่างกันไปด้วย เพราะฉะนั้น การกินผักผลไม้เพียงอย่างใดอย่างหนึ่งจึงยังไม่พอ ต้องกินให้ครบทุกสี ผักและผลไม้สีต่างกัน ให้ประโยชน์ต่างกัน อาหารที่มีไฟโตนิวเทรียนท์ และตัวต้านอนุมูลอิสระ

การใช้ if ตรวจสอบหลายเงื่อนไข ใน Excel

รูปภาพ
การใช้ฟังก์ชัน If ของ Excel ตรวจสอบหลายเงื่อนไข  มีรูปแบบ ดังนี้            If( condition, value_if_true, value_if_false ) เราสามารถตรวจสอบหลายเงื่อนไข โดยการเพิ่ม if เข้าในส่วนที่ไม่เป็นไปตามเงื่อนไข เช่น             If( condition, value_if_true, If( condition, value_if_true, value_if_false ) ) ตัวอย่าง             =IF(MID(A1,1,3)="นาย","นาย",IF(MID(A1,1,3)="นาง","นาง","")) ถ้ามีการตรวจสอบหลายครั้ง การใช้ฟังก์ชัน if จะไม่ค่อยสะดวก เพราะตรวจสอบยากมาก เนื่องจากข้อความที่เขียนจะยาวมาก ต้องตรวจสอบหลายครั้งกว่าที่จะทำได้ถูกต้อง ทางออกอย่างหนึ่งที่ง่ายกว่า คือการใช้ VBA ช่วย โดยสร้างฟังก์ชันขึ้นใช้เอง และใช้ if หรือ Select caseตรวจสอบเงื่อนไข จะทำให้สะดวกกว่า เช่น     if (เงื่อนไขที่ 1) then         ..............................     elseif (เงื่อนไขที่ 2) then         ..............................     elseif (เงื่อนไขที่ 3) then         ...............................     elseif (เงื่อนไขที่ 4) then         ............