Excel Forum

ขอบคุณมากเลยครับ

โค้ดที่ให้มาลองเอาไปใช้แล้ว
ใช้ค้นหาได้ตามต้องการเลยครับ


ขอบคุณอีกครั้งครับ

อันนี้ไฟล์แนบครับ ลืมแนบมาในโพสครับ

ผมต้องการค้นหาค่าในชีทอื่นๆ ที่ตรงกับค่าที่เซลล์ A1ซึ่งเป็นค่าที่เป็นคีย์หลักในการค้นหาที่ชีทชื่อ Master ถ้าพบแล้วให้เลือกชีทที่พบและเลือกบรรทัดที่พบค่านั้นด้วย โดยค่าที่ชีทอื่นที่ทำการค้นหาจะมีค่าที่เท่ากับเซลล์ A1 ทุกคำ หรือ เท่ากับเซลล์ A1และมีคำอื่นๆต่อด้วย เช่น

ที่ชีท Master เซลล์ A1 มีค่าเท ...

ขอบคุณครับ

ขอบคุณมากครับ

ตอนแรกเข้าใจว่าจะสามารถเขียน ให้แสดงค่าของ Activecell.value ของไฟล์ Report = Activecell.value ของไฟล์ DATA ได้เลย

การใช้ Event น่าจะเป็นเรื่องที่ยากสำหรับผม ตอนนี้ผมฝึกทำเป็นแค่การบันทึก macro

ผมคงต้องศึกษาเรื่องการใช้ Event ไปดักจับการเปลี่ยนแปลงในค่าต้นทางแล้วเก็บไว้ในตัวแปร ตามท ...

ต้องขอโทษด้วยครับ
ผมขออธิบายเพิ่มครับ

ค่าต้นทาง คือ ไฟล์ DATA Sheet1 เซลล์ที่ 3 ถัดจากเซลล์ที่ Active ไปทางขวา

ค่าปลายทางให้แสดงที่ ไฟล์ Report Sheet1 ในเซลล์ที่ Active อยู่

ตามโค้ดที่ให้มา ตำแหน่งต้นทางถูกต้อง ตำแหน่งปลายทางถูกต้องครับ
'Other...
Workbooks("DATA.xlsx").Sheets("Sheet1").Activate ...

ค่าที่ได้แบบนี้เลยครับ
แต่วิธีการอยากให้แสดงค่าที่ไฟล์ Report เลย
โดยไม่ต้องไป Active ที่ไฟล์ DATA แล้ว Copy มาวาง

ไม่ทราบว่ามีธีแสดงค่าเลยไหมครับ


ยังไงขอรบกวนชี้แนะแนวทางเพิ่มเติมด้วยครับ
ขอบคุณมากครับ

ขอบคุณมากครับ

ลองนำไปใช้แล้วครับ

ค่าที่แสดงเป็นข้อมูลไฟล์ DATA เซลล์ A1:D3 ซึ่งเป็นค่าที่ไม่สามารถเปลี่ยนตามเซลล์ที่ Active

แต่ที่ต้องการคือให้นำข้อมูลที่ไฟล์ DATA เซลล์ที่ 3 ถัดจากเซลล์ที่ Active ไปทางขวา มาแสดงครับ
อยากให้สามารถเคลื่อนที่ไปตามเซลล์ที่ Active อยู่ได้ครับ

รบกวนชี้แนะเพิ่มเติมด ...

แนบไฟล์มาแล้วครับ
มี 2 ไฟล์

1.ไฟล์ที่เป็นข้อมูล ชื่อไฟล์ DATA.xlsx
2.ไฟล์ที่บันทึก macro ชื่อ Report.xlxm ต้องการให้ค่าจากไฟล์ DATA มาแสดงที่ไฟล์นี้


ขอบคุณครับ

ต้องการให้แสดงค่าจากไฟล์อื่น โดยให้แสดงค่าถัดจากเซลล์ที่ Active อยู่
เช่น ต้องการให้แสดงค่าจากไฟล์ DATA ที่ชีท Sheet1 ค่าที่ต้องการให้แสดงอยู่ถัดจากเซลล์ที่ Active อยู่ คือ A1 ไปทางขวา 3 เซลล์
ไปแสดงที่ ไฟล์ Report ที่ชีท Sheet1 โดยแสดงในเซลล์ที่ Active อยู่

ลองเขียนโค้ดนี้แล้ว
Workbooks("Report ...

ขอบคุณครับ
เบื้องต้นแก้ปัญหาโดยใช้วิธีกำหนดรูปแบบเป็น TEXT(เซลล์, "#,##0.00") แล้วคัดลอกไปวางที่ชีทอื่นแล้วค่อย Export ด้วยโค้ด VBA ไปก่อนครับ
ยังไงจะศึกษาเพิ่มเติมการใช้ format cells และกำหนดตัวแปรตามที่แนะนำนะครับ
ขอบคุณสำหรับคำแนะนำนะครับ

ผมต้องการ Export excel ไฟล์ชื่อ DATA.xlsm ให้เป็น text ไฟล์ชื่อ datatext.txt โดยบันทึกด้วยโค้ด VBA ไว้ที่ไดร์ฟ D
แต่ปัญหาคือหลังจาก Export ออกมาแล้ว number format ไม่เหมือนกับ excel ไฟล์ เช่น ที่
เซลล์ A2 แสดงเป็น 01 แต่ในtext ไฟล์ เป็น 1
เซลล์ B1 แสดงเป็น 09 แต่ในtext ไฟล์ เป็น 9
เซลล์ B2 ...

ขอบคุณครับ

ผมหาผลรวมและจำนวนโดยใช้สูตร SUMIFS กับ COUNTIFS
โดยที่ Range คือ ช่วงเซลล์

สมมติว่า Range ที่ต้องการเลือก คือคอลัมน์ A
โดยที่ A1 คือหัวตารางหรือชื่อประเภทข้อมูลและ A2-A20 คือข้อมูล

ผมกำหนด Range ช่วงเซลล์ ดังนี้
เลือกคอลัมน์ A เฉพาะที่มีข้อมูลโดยไม่เอาเซลล์ว่าง โดยใช้ Define Name กำหนดชื่อของช ...

ลองใส่โค้ดแล้วไม่มีป๊อบอัพแจ้งว่า Access denied. Contact your admin แล้วครับ

ขอบคุณครับ

ผมใช้โค้ดนี้ไปเปิดที่เครื่องลูกใช้ได้ครับ
Workbooks.Open ("\\xx.x.xx.xx\Data\Find-Row.xlsx")

แต่พอไปเปิดที่เครื่องแม่โปรแกรมฟ้องว่า Runtime error คือหาไฟล์ไม่เจอครับ
ผมเลยเพิ่มโค้ดเข้าไปสำหรับเวลาไปเปิดที่เครื่องแม่ ดังนี้ครับ
Workbooks.Open ("D:\Data\Find-Row.xlsx")

แล้วใส่
On Error Resume ...

วันนี้ผมได้ลองพิมพ์โค้ดใหม่แล้วครับ ตอนนี้ทำได้แล้วครับ ตอนแรกสงสัยพิมพ์ผิดครับ

โดยใช้

Workbooks.Open ("\\xx.x.xx.xx\Data\Find-Row.xlsx")

xx.x.xx.xx คือไอพีเครื่องแม่ที่แชร์
Data คือ Folder ที่แชร์
Find-Row.xlsx คือ ไฟล์ที่ต้องการเปิด

แต่ปัญหาตอนนี้คือ พอไปเปิดเข้าใช้ที่เครื่องแม่ที่แชร์ ซ ...

สวัสดีครับ

คือว่าผมต้องการเปิดไฟล์ที่เครื่องอื่นแชร์โฟล์เดอร์ไว้ ด้วยคำสั่ง VBA ครับ
สามารถใช้ Workbooks.Open ได้ไหมครับ พอดีลองแล้วมีป๊อบอัพแจ้งว่า ไม่พบครับ
หรือมีคำสั่งอื่นที่ทำได้รึเปล่าครับ

รบกวนแนะนำด้วยครับ
ขอบคุณครับ

ขอบคุณมากครับ
แก้ไขโค้ดตามแล้วทำได้เลยครับ

สวัสดีครับ

คือว่าผมต้องการจะทราบว่ามีไฟล์ BBB.XLSX (ชื่อสมมติ) เปิดอยู่หรือไม่ โดยเขียดโค้ดในการค้นหาที่ ไฟล์ AAA.XLSM (ชื่อสมมติ) ครับ

ถ้าเปิดอยู่ให้แสดงกล่องข้อความว่า TRUE
ถ้าไม่ใช่ให้แสดงกล่องข้อความว่า False

ผมลองใช้โค้ด
If ActiveWorkbook.Name = "BBB.xlsx" Then
MsgBox "True"
Else: MsgBox ...