Excel Forum

ข้อ 2. ยังไม่ตรงกับความต้องการครับ เพราะความต้องการคือ sheet1 cell D1 เป็น input เพื่อเป็นตัวเปรียบเทียบ และให้ cell อื่นๆใน sheet 1, sheet2, sheet3 แสดงผลลัพท์ ตามเงื่อนไขที่กำหนดของ conditional formatting

P1649 wrote:ขออนุญาต เพิ่มเติมอีก 2 เรื่องครับ
1. ขอให้ตัดวรรค ก่อน-หลัง ของทุก cell
2. ขอให้คำสั่ง Conditional formatting ทำงานมากกว่า 1 worksheet

ขอบคุณครับ

1. การตัดวรรค ทำได้แล้วครับ
2. ยังไม่ตรงกับความต้องการครับ เพราะต้องการคำสั่งบน worksheet หลักเพียงที่เดียว และมีผล-แสดงผลถึง worksheet อื่นด้วยครับ

ขออนุญาต เพิ่มเติมอีก 2 เรื่องครับ
1. ขอให้ตัดวรรค ก่อน-หลัง ของทุก cell
2. ขอให้คำสั่ง Conditional formatting ทำงานมากกว่า 1 worksheet

ขอบคุณครับ

ใช้งานได้แล้ว ขอบคุณมากครับ

ไฟล์ย่อย Link Data.xlsx ปิดตามเวลา
แต่ไฟล์หลัก Close file.xlsm ยังคงเปิดอยู่ ต้องการให้ปิดตามไปด้วยครับ

CELL Data
AB34 FNS
AB43 MLINK
AB50 SVOA

กำหนดให้ ปิดไฟล์หลังจากเวลา 16.00.00 ยังไม่ทำงานครับ

ต้องการผลลัพธ์ คือ เมื่อป้อนข้อมูลเข้าไป จะแสดงสีที่มีใน Col อื่นด้วยตามตัวอย่าง

แต่พบว่า เมื่อป้อนข้อมูลที่ไม่มีอยู่ใน Col D แต่มีค่าที่เหมือนกันใน Col อื่น จะไม่แสดงสี ตามที่ต้องการ ขอแก้ไขในส่วนนี้ด้วยครับ

เงื่อนไขการปิดไฟล์ เวลาหลังจาก 16.00 ยังไม่ทำงาน ขอรบกวนอีกครั้งครับ Public nTime As Date Sub SaveFile() nTime = Now + TimeValue("00:15:00") ' currently its 15 min change it Application.OnTime nTime, "SaveFile" Call Copy_Data End Sub Sub Copy_Data() Dim wk As Workbook, wb As Work...

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

ได้รับคำตอบแล้ว ขอบคุณครับ

ผมมีปัญหาคือ cell ที่ระบุข้อมูล ต้องอยู่ใน col เดียวกัน จึงจะแสดงผล
แต่หากเลือกข้อมูลที่ไม่มีใน col เดียวกัน จะไม่แสดงผลครับ

nTime แยกออกไปก็ใช้งานได้ครับ มีเพิ่มเติมคือ ต้องการปิดไฟล์ เวลา 16.00 โดยการเพิ่มเงื่อนไข พบว่า wk.close ทำงานด้วยการปิดไฟล์ แต่ไฟล์หลักยังคงเปิดทำงาน ขอรบกวนช่วยแนะนำด้วยครับ

ตามนี้ ผมยังแก้ error เมื่อปิดไฟล์ยังไม่ได้เลย ทั้งที่ประกาศ nTime เป็น Public แล้ว ขอรบกวนด้วยครับ ThisWorkbook Public nTime As Double Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.OnTime nTime, "SaveFile", , False End Sub Private Sub Workbook_Open() Call SaveFile End Su...

Public nTime As Double Sub SaveFile() Dim nTime As Date nTime = Now + TimeValue("00:01:00") ' currently its 1 min change it Application.OnTime nTime, "SaveFile" Call Copy_Data End Sub Sub Copy_Data() Dim wk As Workbook, wb As Workbook Dim CurrBook As Workbook, CheckFile As Boole...

CurrBook.Sheets(1).Range("A1:B25").Copy Destination:=wk.Sheets(1).Range("xfd2").End(xlToLeft).Offset(0, 1)

ต้องการ copy มาเป็น Data เช่น ตัวอักษร หรือ ตัวเลข ไม่ต้องการ link ไปที่ ข้อมูลครับ

ขอมูลที่ดึงจากเวป Cell แรกวางที่ไหนและตรวจสอบได้อย่างไรครับ

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

Module ThisWorkBook Private Sub Workbook_BeforeClose(Cancel As Boolean) 'Application.OnTime nTime, "SaveFile", , False Application.OnTime on_time, "run_macro", , False End Sub Private Sub Workbook_Open() 'Call SaveFile Call run_macro End Sub run-time error 1004 Close file มี erro...

Sub run_macro() Dim on_time As Date on_time = Now + TimeValue("00:01:00") ' currently its 1 min chnage it Application.OnTime on_time, "run_macro" Call add_Data End Sub Sub add_Data() Dim wk As Workbook 'Set wk = Workbooks.Open("C:\Users\admin\Downloads\Link Data.xlsx")...