Snasui Excel Forum

Posted: **Sun Jan 13, 2013 10:13 pm**

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

Posted: **Sun Jan 13, 2013 10:20 pm**

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

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

Posted: **Sun Jan 13, 2013 10:27 pm**

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

Posted: **Sun Jan 13, 2013 10:41 pm**

ลองดูตัวอย่าง 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

Posted: **Sun Jan 13, 2013 11:06 pm**

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

Posted: **Tue Jan 15, 2013 8:26 am**

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

Posted: **Tue Jan 15, 2013 12:14 pm**

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

Posted: **Wed Jan 16, 2013 4:26 pm**

ผมลองนำ 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 ได้ครับ

Posted: **Wed Jan 16, 2013 4:42 pm**

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

Posted: **Wed Jan 16, 2013 5:15 pm**

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

Posted: **Wed Jan 16, 2013 5:29 pm**

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

อ่านกฎการใช้งานทุกข้อด้านบนด้วยครับ

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

Posted: **Thu Jan 17, 2013 6:47 am**

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

Posted: **Thu Jan 17, 2013 7:20 am**

ตัวอย่างการปรับ 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

Posted: **Thu Jan 17, 2013 1:30 pm**

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

Posted: **Thu Jan 17, 2013 1:41 pm**

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

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

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

Posted: **Thu Jan 17, 2013 2:08 pm**

ต้องขอโทษสำหรับภาษาแชท ด้วยครับ

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

Posted: **Thu Jan 17, 2013 5:56 pm**

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

Posted: **Thu Jan 17, 2013 10:58 pm**

ขอโทษครับผม

Posted: **Fri Jan 18, 2013 7:29 am**

ลองนำ 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

Posted: **Fri Jan 18, 2013 9:21 am**

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

Snasui Excel Forum

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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