วิธีสั่งเปิดไฟล์เพื่อดูข้อมูล
Posted: Wed Nov 12, 2014 5:22 pm
เรียนอาจารย์ทุกท่านครับ
ผมอยากจะทำรายการยืมเครื่องมือและอุปกรณ์ แล้วต้องการให้มีรายการชีทอ้างอิงโดยที่สามารถคลิกเปิดอีกไฟล์ได้ทันที่ในไฟล์งานที่กำลังเปิดอยู่ครับผมควรเขียนสูตรอย่างไรครับ
ผมลองคัดลอกสูตรตามเว็บมาแล้วไปต่อไม่ถูกเลยครับ
สูตรคร่าวๆครับ
ActiveSheet.OnDoubleClick = "OpenSource"
Sub OpenSource()
Dim TextOfSource As String, p1 As Integer, p2 As Integer
TextOfSource = Z:\\Logistic\·ÃѾÂìÊÔ¹Êè§ÍÍ¡\ÃÒ¡ÒÃÂ×Á¢Í§Í͡˹éÒ§Ò¹\ãºÂ×Á¢Í§Í͡˹éÒ§Ò¹ 12-11-14.xls
*ผมต้องการให้คลิกเปิดไฟล์งานนี้ครับอาจารย์ Z:\Logistic\ทรัพย์สินส่งออก\รายการยืมของออกหน้างาน\ใบยืมของออกหน้างาน 12-11-14.xls
ผมอยากจะทำรายการยืมเครื่องมือและอุปกรณ์ แล้วต้องการให้มีรายการชีทอ้างอิงโดยที่สามารถคลิกเปิดอีกไฟล์ได้ทันที่ในไฟล์งานที่กำลังเปิดอยู่ครับผมควรเขียนสูตรอย่างไรครับ
ผมลองคัดลอกสูตรตามเว็บมาแล้วไปต่อไม่ถูกเลยครับ
สูตรคร่าวๆครับ
ActiveSheet.OnDoubleClick = "OpenSource"
Sub OpenSource()
Dim TextOfSource As String, p1 As Integer, p2 As Integer
TextOfSource = Z:\\Logistic\·ÃѾÂìÊÔ¹Êè§ÍÍ¡\ÃÒ¡ÒÃÂ×Á¢Í§Í͡˹éÒ§Ò¹\ãºÂ×Á¢Í§Í͡˹éÒ§Ò¹ 12-11-14.xls
*ผมต้องการให้คลิกเปิดไฟล์งานนี้ครับอาจารย์ Z:\Logistic\ทรัพย์สินส่งออก\รายการยืมของออกหน้างาน\ใบยืมของออกหน้างาน 12-11-14.xls
ที่เขียนมาไม่ใช่สูตรแต่เป็น Code และหากเป็น Code ให้แนบมาไนไฟล์แนบด้วย ไฟล์ที่จะแนบ Code ได้ต้องมีนามสกุลเป็น .xlsm เป็นอย่างน้อยครับ