การ Assign Value ให้เท่ากับเอกสารที่เรากำลังเปิดอยู่

[torofish]

สวัสดีครับ
โครงการนั้นพักไว้ก่อน ขออันนี้ก่อนนะครับ จะเสร็จแล้ว

เคสนี้คือ มีไฟล์ สองไฟล์ครับ เช่น Source 151010 , Destination
แล้วจะต้องมีการ Copy and Paste ข้อมูลระหว่างสองไฟล์นั้น
คนใช้ค่อนข้างจะขี้ลืมว่าต้องไปทำอะไรที่ไหนบ้าง
ผมเลยจะเขียน Macro ให้มันทำงานแทนให้เสร็จหมด ขอแค่คนใช้เปิดไฟล์ได้ถูกไฟล์ก็เพียงพอ

ปัญหาก็คือว่า พอเปิดไฟล์ Destination แล้วเวลาต้องกลับมา copy ข้อมูล
Code ใน Macro จะเป็นชื่อไฟล์
เช่น Windows("Source 151010.xls").Activate
ซึ่งชื่อไฟล์มันจะเปลี่ยนไปเรื่อย ๆ
พอจะมีทางให้มีตัวแปรมีค่าเป็นไฟล์ปัจจุบันซึ่งก็คือ Source 151010.xls มั้ยครับ

กับอีกคำถามคือ
นอกจากคัดลอกแล้ว ยังต้องมีข้อมูล 2 ที่้ต้องแกด้วยมือ
ที่ผมทำตอนนี้คือ

Dim Date1 As Variant
Date1 = Range("D1").Value
Do while D1= Range("D1").Value
MsgBox ("แก้ด้วย")
Loop

แล้วจะให้มันเช็กว่าค่าได้เปลี่ยนไปหรือยัง
ถ้าเปลี่ยนก็จะได้ไปที่ จุดที่ 2 ที่ต้องแก้
ปรากฎว่า มันเล่นขึ้นหน้าต่างไม่มีวันหยุดเลยครับ
หรือควรจะเขียนคำสั่ง ให้มันรอซัก 30 วิแล้วค่อยทำต่อดีครับ

[snasui]

หลักการคร่าว ๆ หากเปิดขึ้นมา 2 ไฟล์ ก็กำหนดให้ตรวจสอบก่อนว่า Workbook ที่กำลังทำงานอยู่นี้เป็นชื่ออื่นที่ไม่ใช่ Destination.xls หรือไม่ ถ้าใช่ก็ให้ Activate Workbook ขึ้นมา แล้วกำหนดตัวแปรให้กับช่วงข้อมูลใน Workbook ที่ Activate ขึ้นมานี้

ยกตัวอย่างเช่น

Code: Select all

Option Explicit

Sub SwitchTwoFile()
Dim wb As Workbook
Dim rSource As Range
' Other code
For Each wb In Workbooks
    If wb.Name <> "Destination.xls" Then
        wb.Activate
    End If
Next
With ActiveWorkbook.Sheets(1)
    Set rSource = .Range("A:A")
End With
' Other code
End Sub

สำหรับการแก้ไข Date ลองส่งไฟล์ตัวอย่างที่เป็นตัวแทนข้อมูลจริงมาดูครับ

[torofish]

จะมีสองช่องอยู่ที่ 2 Sheets ครับ ที่ต้องการการแก้ไข
ผมลองหาดูหลาย ๆ วิธี ตั้งแต่ Delay
Keystroke แต่ก็ดูจะไม่ค่อยโอเคเท่าไหร่

รบกวนช่วยหน่อยนะครับ

[snasui]

ลองดูตัวอย่าง Code ตามด้านล่างครับ

เก็บค่าเดิมไว้เป็นตัวแปรก่อน จากนั้นกำหนดให้ผู้ใช้กรอก ถ้าเท่ากับตัวแปรที่เก็บไว้หรือไม่กรอกจะ Loop เพื่อให้กรอกใหม่ทั้งสองค่า

Code: Select all

Option Explicit

Sub EnterRequireField()
Dim rTarget1 As String, rSource1 As String
Dim rTarget2 As String, rSource2 As String
    
    rTarget1 = Worksheets(1).Range("C2")
    rTarget2 = Worksheets(2).Range("B2")

Do
    rSource1 = InputBox("Enter date")
Loop Until rSource1 <> rTarget1 And rSource1 <> ""

Worksheets(1).Range("C2") = rSource1

Do
    rSource2 = InputBox("Enter file name")
Loop Until rSource2 <> rTarget2 And rSource2 <> ""

Worksheets(2).Range("B2") = rSource2
End Sub

[torofish]

ทำได้แล้ว ขอบคุณมาก ๆ ๆ ครับ