Excel Forum

:D ผูกได้ทุกจังหวะของการทำงานถ้าต้องเกี่ยวข้องกับการรับค่านั้น ๆ มาทำงานต่อ ไม่จำเป็นต้องแยกปุ่มไว้ต่างหาก ไม่จำเป็นต้องทราบว่าต้นทางมีการ Update จังหวะไหนครับ เช่นคลิกปุ่มใด ๆ ก็ให้ทำการ Refresh ทันทีแล้วค่อยทำงานที่ต้องการต่อเนื่องกันไปเช่นนี้เป็นต้น ขอบคุณครับอาจารย์ ได้ไอเดียครับ จะลองปรับใช้ครับ

:D โปรแกรมในเครื่องนั้น ๆ มีหน้าที่ที่จะต้องทำการ Refresh ค่าเองเพื่อรองรับการทำงานที่เป็นปัจจุบันตลอดเวลาครับ ค่าใดที่เป็นค่าที่ต้องใช้ร่วมกันในทุกโปรแกรมเช่นค่าใน ComboBox ให้ User เลือก จะต้องสั่งให้ Update เมื่อมีการคลิกคำสั่งใด ๆ เช่นนี้เป็นต้นครับ ขอบคุณครับอาจารย์ เดิมทีคิดไว้แบบนี้เหมือนกัน...

เพิ่มเติมครับ ตอนนี้ใช้วิธีการ หลังจากที่ COM2 แก้ไข และ save แล้ว ให้ COM1 กด save และเรียกข้อมูลมาโชว์ใหม่ ซึ่งจะเป็นข้อมูลใน Data.xlsx ที่มีการอัพเดทใหม่ครับ ปัญหาคือไม่รู้ว่าจะต้องกด save และเรียกข้อมูลมาโชว์ใหม่ตอนไหน และจะรู้ได้ไงว่า อีกเครื่องมีการแก้ไขแล้ว แต่ที่อยากได้คือให้เป็นอัตโนมัติทัน...

logic wrote: ↑Tue Dec 01, 2020 8:45 am คอม 2 สั่งให้เปิดไฟล์เหมือนในลิงก์นั้นเลย

ลิงก์ตามปล.คือเปิดไฟล์ขึ้นมาใช้ไม่ใช่แค่อ่าน พอเปิดมาแล้วก็ทำงานต่อ ทำงานเสร็จค่อยปิดครับ

ใช้ได้ตามที่ต้องการครับ
ขอบคุณ คุณlogic และอาจารย์มากครับ

สวัสดีครับ จะรบกวนสอบถามไอเดียในการแชร์ workbook ผมแนบภาพมาเพื่อประกอบคำถามครับ ผมมีคอม 2 เครื่อง เชื่อมต่อผ่าน wifi เดียวกัน และ แชร์ workbook ชื่อ Data.xlsx เพื่อใช้เป็นฐานข้อมูล ให้ทั้ง 2 เครื่องสามารถอ่าน/แก้ไขข้อมูลได้ ผมเขียนโปรแกรม VBA เพื่อใช้ในการดึงข้อมูลจาก File Data.xlsx เพื่อนำมาใช้เป็น...

logic wrote: ↑Tue Dec 01, 2020 8:45 am คอม 2 สั่งให้เปิดไฟล์เหมือนในลิงก์นั้นเลย

ลิงก์ตามปล.คือเปิดไฟล์ขึ้นมาใช้ไม่ใช่แค่อ่าน พอเปิดมาแล้วก็ทำงานต่อ ทำงานเสร็จค่อยปิดครับ

ขอบคุณมากครับ ผมลองแล้วได้ผลอย่างไรจะมาแจ้งอีกทีครับ

มันน่าจะซ่อนเมนูไป อันนี้คือลิงก์เพื่อโชว์เมนูครับ https://support.microsoft.com/en-us/office/what-happened-to-shared-workbooks-150fc205-990a-4763-82f1-6c259303fe05 ขอบคุณมากครับ คุณ logic ตอนนี้ผมหาข้อมูลเพิ่มเติมจากกระทู้นี้ https://snasui.com/viewtopic.php?f=3&t=15310 ตอนนี้เลยสามารถเขียน VB...

กรุณาศึกษาจากกระทู้นี้เป็นแนวทางสำหรับการทำงานกับไฟล์ที่ Share ให้ใช้งานร่วมกันครับ :arrow: การทำงานร่วมกันด้วยวิธี Shared File ขอบคุณครับอาจารย์ ผมได้ลองศึกษาจาก Link ที่อาจารย์แนบมาให้ ได้ไอเดียสำหรับการทำงานร่วมกันของไฟล์ที่ shared แล้ว แต่ในกระทู้นั้นไม่ได้บอกถึงวิธีการ shared ไฟล์ให้สามารถใช้ร...

ขอบคุณครับอาจารย์ ขอเวลาศึกษาก่อนนะครับ

ขอบคุณครับอาจารย์ ผมใช้วิธีตามที่อาจารย์บอกครับ คือแยกส่วนของ database กับส่วนของโปรแกรมออกจากกัน แต่ถ้าผมไม่ได้ทำเต็มระบบแบบที่อาจารย์บอก จึงขอสอบถามเพิ่มเติมว่า ถ้าผมทำการ share database file ไปที่คอมอีกเครื่องหนึ่ง เพื่อให้สามารถใช้ database ร่วมกันทั้งเครื่องหลักและเครื่องรองได้ คำถามคือ 1. คอมท...

ใช้ได้ตามที่ต้องการครับอาจารย์ ขอบคุณครับ

ขอบคุณครับ ผมแนบให้ 2 ไฟล์ครับ 1.Book1.xlsx ใช้เป็นไฟล์ที่ใช้อ้างอิงข้อมูล 2.Book2.xlsm เป็นไฟล์ที่ต้องการดึงข้อมุลจาก Book1 มาแสดงใน listbox ครับ Private Sub UserForm_Initialize() With UserForm1 .ListBox1.RowSource = Workbooks("Book1.xlsx").Sheets("Sheet1").Range("A1:B17&qu...

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

สวัสดีครับรบกวนสอบถามการอ้างอิงข้อมูลเพื่อเอามาใช้ใน listbox จากต่าง workbook กันครับ ดึงข้อมูลจาก workbook ชื่อ Data Sheet ชื่อ Database range ตั้งแต่ A2 ถึง I2 มาโชว์ใน Listbox1 ผมใช้ Code ตามนี้ครับแต่ Run แล้วไม่ผ่านครับ ขอคำแนะนำด้วยครับ With form1 .ListBox1.RowSource = Workbooks("data.xls...

รบกวนสอบถามหน่อยครับ

ผมเขียน EXCEL VBA เสร็จแล้ว ถ้าอยากให้ file ที่เขียนสามารถเปิดใช้กับคอม 2 เครื่องพร้อมกัน และหากมีการเพิ่ม/ ลบ/เปลี่ยนแปลง/ แก้ไข file เครื่องใดเครื่องหนึ่ง อีกเครื่องหนึ่งสามารถเห็นด้วยครับ( user form VBA ต้องใช้ได้ด้วยนะครับ)

ขอบคุณครับ

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

ได้ตามที่ต้องการแล้วครับ ขอบคุณครับ

curdate = Format(curdate, "dd/mm/yyyy") ลองเปลี่ยนเป็น curdate = application.text(curdate, "dd/mm/yyyy") ดูว่าได้ไหมครับ 🤨 ขอบคุณมากครับ ลองดูแล้วยังเป็นเหมือนเดิมครับ โดยวันที่ที่แสดงใน textbox8 เป็น 10/2/2020 แต่วันที่ที่โชว์มุมขวาล่างของ window ขึ้น 2/10/2020 codeที่ใช้ตอนนี้...

ขอแนบ Code ใหม่อีกครั้งนะครับ

ผมใช้คำสั่ง now เพื่อใส่ข้อมูลวันที่ใน textbox โดยกำหนดให้ format เป็น dd/mm/yyyy แต่ ข้อมูลที่โชว์ใน textbox เป็น mm/dd/yyyy ครับ ไม่ทราบว่าผิดตรงไหน Dim curdate As Date curdate = Now curdate = Format(curdate, "dd/mm/yyyy") textbox8.value=curdate ทำตามนี้แต่ข้อมูลที่ show ใน textbox8 จะขึ...