CodeVB เมื่อค่าในเซลเปลี่ยนไป ให้ค่าในอีกเซลหนุึ่งแสดงตามที่กำหนดไว้ในอีกเซลหนึ่ง

[tigerwit]

จากไฟล์ที่แนบมา

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$3" Then
   ActiveSheet.Range("D2").Value = Sheet2.Range("B1").Value
End If
End Sub

ที่ชีท Sheet1 เมื่อค่าในเซล D3 เปลี่ยนไป
ต้องการให้ที่เซล D2 มีค่าเปลี่ยนไปตามข้อมูลที่มีในชีท Sheet2 ที่อยู่ใน B1 ถึง B20
โดยทุกครั้งที่ค่าใน D3 เปลี่ยน ค่าใน D2 ก็เปลี่ยนไปเรื่อย ๆ จนเมื่อเปลี่ยน 20 ครั้ง ก็ให้วนกลับมาดึงค่าใน B1 ไปแสดงผล
ต้องปรับ โค๊ดอย่างไรครับ

[snasui]

ตัวอย่างการปรับ Code ครับ

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim ofs As Integer
    Application.EnableEvents = False
    With ActiveSheet
        ofs = .Range("d1").Value
        If Target.Address = "$D$3" Then
           .Range("D2").Value = _
            Sheet2.Range("B1").Offset(ofs, 0).Value
            .Range("d1").Value = .Range("d1").Value + 1
            If .Range("d1").Value = 20 Then .Range("d1").Value = 0
        End If
    End With
    Application.EnableEvents = True
End Sub

ด้านบนนี้เป็นการฝากค่าจำนวนนับไว้ที่ D1 สามารถเปลี่ยนตำแหน่งไปที่เซลล์อื่นตามต้องการครับ

[tigerwit]

ขอบคุณครับผม

[tigerwit]

กรณีที่ใช้ UserForm เป็นตัวกรอกข้อมูลแทนการกรอกลงใน Sheet ตรงๆ
โดยใช้ ปุ่มเรียก Userform ขึ้นมากรอก ในขณะที่ไม่ได้ Active ที่ Sheet1 (Active อยู่ที่ Sheet Main)
จะต้องปรับโค๊ดใน CommandButton1_Click อย่างไรครับ จึงจะทำให้ ค่าใน sheet1 เซล D3 เปลี่ยน

Code: Select all

Private Sub CommandButton1_Click()
        Sheet1.Range("D3") = UserForm1.Txt01.Value
        Unload Me
End Sub

[snasui]

Code: Select all

Application.EnableEvents = False
    With ActiveSheet
        ofs = .Range("d1").Value

ปรับ Code ที่ยกมาด้านบนเป็นด้านล่างครับ

Code: Select all

Application.EnableEvents = False
    With Target.Parent
        ofs = .Range("d1").Value

Target คือเซลล์ที่เปลี่ยนค่า ส่วน Target.Parent เป็นการอ้างอิงไปยัง Object ที่มีลำดับชั้นสูงกว่า Target นั้น ในกรณีนี้เมื่อ Target คือเซลล์ Parent คือชีตที่เซลล์นั้นบรรจุอยู่ครับ