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
ตอนนี้เลยสามารถเขียน ...

กรุณาศึกษาจากกระทู้นี้เป็นแนวทางสำหรับการทำงานกับไฟล์ที่ 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")
.ListBox1.ColumnCount ...

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

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


With form1
.ListBox1.RowSource = Workbooks("data ...

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

ผมเขียน 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ที่ใช้ตอนนี้นะครับ

Dim ...

ขอแนบ 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 จะขึ้นเป็น ...