ต้องการให้ข้อมูลเปลี่ยนอัตโนมัติ

[armrobot]

ต้องการให้ข้อมูลแถว A เปลี่ยนอัตโนมัติเมื่อ Column E1 มีค่าที่เปลี่ยนไป
จะสามารถทำได้อย่างไรครับ แล้วทำการบันทึกเก็บข้อมูลไว้ตลอดครับ

[snasui]

ต้องการให้ข้อมูลแถว A เปลี่ยนอัตโนมัติเมื่อ Column E1 มีค่าที่เปลี่ยนไป

ช่วยยกตัวอย่างให้เห็นภาพด้วยครับว่า E1 เปลี่ยนไปอย่างไรแล้วคอลัมน์ A จะเปลี่ยนไปอย่างไร มีเงื่อนไขใดบ้าง จะได้เข้าใจตรงกันครับ

[armrobot]

ถ้าวันที่ ในช่อง E1 เปลี่ยนไป จะทำการ Copy E1 และ E2 มาต่อท้ายcolumn A และ B ไปเรื่อยๆ
โดยจะ Copy ให้อัตโนมัติเลยครับ

[snasui]

ลองดูตัวอย่าง Code ตามด้านล่างซึ่งต้องวางใน Sheet1 ที่ VBE ครับ

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$E$1" Then
        Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Resize(2, 2) = _
            Range("E1:F2").Value
    End If
End Sub

[armrobot]

ขอบพระคุณมากครับ สำหรับคำชี้แนะ
เป็นประโยชน์อย่างมากกับการนำไปต่อยอดกับงานที่ผมต้องการ

[armrobot]

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

[snasui]

กรณีเช่นนั้นให้เพิ่ม Code สำหรับบันทึกข้อมูลเข้าไปช่วยครับ

[armrobot]

ผมลองนำ code ที่อาจารย์เคยโพสไว้ ตามด้านล่าง
Private Sub CommandButton1_Click()
Sheets(Sheets("ARECL").Range("E2").Value) _
.Range(Sheets("ARECL").Range("E2").Value & "x").Copy
Range("Target").PasteSpecial xlPasteValues
Application.CutCopyMode = False
End Sub
นำมาประยุกต์ใช้ แต่ก็ยังไม่สามารถ copy ได้ครับ

[snasui]

แนบไฟล์พร้อม Code ที่ลองเขียนเองแล้วมาด้วย จะได้ช่วยทดสอบได้ครับ

[newnata]

อยากได้คำอธิบายที่ละเอียดกว่านี้ครับไม่ทราบว่ารบกวนมากไปหรือเปล่า
พอดีกำลังทำข้อมูลในแบบเดียวกันคับ ไม่มีความรู้เลย อยากศึกษาคับ
ขอบคุณคับ

[snasui]

อยากได้คำอธิบายที่ละเอียดกว่านี้ครับไม่ทราบว่ารบกวนมากไปหรือเปล่า
พอดีกำลังทำข้อมูลในแบบเดียวกันคับ ไม่มีความรู้เลย อยากศึกษาคับ
ขอบคุณคับ

อ่านกฎการใช้งานทุกข้อด้านบนด้วยครับ สงสัยตรงส่วนไหนให้เขียนถามตรงส่วนนั้นครับ การอธิบายอย่างละเอียดนั้นต้องใช้เวลามากครับ

[armrobot]

ผมเขียนดูครับ แต่ยังงง คำสั่งบางอย่างที่อยู่ใน Module ผมแนบไฟล์
มาให้อาจารย์ดูตามด้านล่างครับ

[snasui]

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

Code: Select all

Sub Button1_Click()
    Sheets("Sheet4").Range("G22,AG22,AJ22,AK22,AL22").Copy
    With Sheets("Sheet1")
        If .Range("A1") = "" Then
            .Range("A1").PasteSpecial xlPasteValues
        Else
            .Range("A" & Rows.Count).End(xlUp) _
                .Offset(1, 0).PasteSpecial xlPasteValues
        End If
    End With
    Application.CutCopyMode = False
End Sub

[armrobot]

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

[snasui]

copy โดยไม่ต้องคลิกอะครับ

พยายามงดใช้ภาษาแชทครับ

ตามที่ถามนั้นสามารถทำได้ครับ การที่จะให้โปรแกรททำอะไรนั้น เราสามารถดักจับ Event หรือเหตุการณ์ใด ๆ ได้ครับ เช่นการคลิกชีท การคลิกเซลล์ การเปิดไฟล์ การปิดไฟล์ หรือ อื่น ๆ ซึ่งจะต้องกำหนดมาว่าให้ Copy เมื่อเกิดเหตุการณ์ใด และอย่าลืมปรับมาเองก่อน ติดตรงไหนค่อยมาดูกันต่อครับ

[armrobot]

ต้องขอโทษสำหรับภาษาแชท ด้วยครับ
อันนี้ผมทำการตั้งว่า ถ้าเปิดไฟล์แล้วค่าเซลล์ A ณ ปัจจุบัน
ไม่เท่ากับ ค่าของ G22 ให้ทำการเก็บลง A ไปเรื่อยๆ ครับ

[snasui]

ไม่พบ Code ในไฟล์ที่แนบมาครับ

[armrobot]

ขอโทษครับผม

[snasui]

ลองนำ Code ด้านล่างไปใส่ใไว้ใน ThisWorkbook ครับ

Code: Select all

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Sheets("Sheet4").Range("G22") <> Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp) Then
        Sheets("Sheet4").Range("G22,AG22,AJ22,AK22,AL22").Copy
        With Sheets("Sheet1")
            If .Range("A1") = "" Then
                .Range("A1").PasteSpecial xlPasteValues
            Else
                .Range("A" & Rows.Count).End(xlUp) _
                    .Offset(1, 0).PasteSpecial xlPasteValues
            End If
        End With
        Application.CutCopyMode = False
    End If
End Sub

[armrobot]

ทำได้แล้วครับ ขอบพระคุณอาจารย์มากเลยครับ