กดปุ่ม ให้กระโดดข้ามไปอีกตาราง

[Nat072]

ต้องการสร้างปุ่มกด ให้กระโดดข้ามไปอีกตาราง โดยให้ไปอยู่ที่ เซลล่าสุด
เขียนคำสั่งยังไง ช่วยแนะนำด้วยครับ. แนบ File ตัวอย่าง

[snasui]

แนบ VBA มาในไฟล์ด้วยจะได้ช่วยดูให้ได้ครับ

[Nat072]

ตอนนี้ ปุ่ม 1, 2, 3, Undo, Del ของแต่ละตารางเขียนไว้แล้วครับ
แต่ปุ่ม ลูกศร 1, 2, 3 ที่จะให้กระโดดไปอีกตาราง เขียนไม่เป็นครับ

ตัวอย่าง :-

Code: Select all

Sub Oval1_Click()
    ActiveCell.Value = "1"
    If ActiveCell.Row = 5 Then
            ActiveCell.Offset(1, 0).Select
    ElseIf ActiveCell.Row = 6 Then
            ActiveCell.Offset(1, 0).Select
    ElseIf ActiveCell.Row = 7 Then
            ActiveCell.Offset(1, 0).Select
    ElseIf ActiveCell.Row = 8 Then
            ActiveCell.Offset(1, 0).Select
    ElseIf ActiveCell.Row = 9 Then
            ActiveCell.Offset(-4, 1).Select
    End If

End Sub
Sub Oval2_Click()
ActiveCell.Value = "2"
    If ActiveCell.Row = 5 Then
            ActiveCell.Offset(1, 0).Select
    ElseIf ActiveCell.Row = 6 Then
            ActiveCell.Offset(1, 0).Select
    ElseIf ActiveCell.Row = 7 Then
            ActiveCell.Offset(1, 0).Select
    ElseIf ActiveCell.Row = 8 Then
            ActiveCell.Offset(1, 0).Select
    ElseIf ActiveCell.Row = 9 Then
            ActiveCell.Offset(-4, 1).Select
    End If
End Sub
Sub Oval3_Click()
ActiveCell.Value = "3"
    If ActiveCell.Row = 5 Then
            ActiveCell.Offset(1, 0).Select
    ElseIf ActiveCell.Row = 6 Then
            ActiveCell.Offset(1, 0).Select
    ElseIf ActiveCell.Row = 7 Then
            ActiveCell.Offset(1, 0).Select
    ElseIf ActiveCell.Row = 8 Then
            ActiveCell.Offset(1, 0).Select
    ElseIf ActiveCell.Row = 9 Then
            ActiveCell.Offset(-4, 1).Select
    End If
End Sub
Sub SnipDiagonalCornerRectangle4_Click()
    If ActiveCell.Row < 5 Then Exit Sub
    If ActiveCell.Row = 5 Then
         ActiveCell.ClearContents
         ActiveCell.Offset(4, -1).Select
    ElseIf ActiveCell.Row = 6 Then
         ActiveCell.ClearContents
         ActiveCell.Offset(-1, 0).Select
    ElseIf ActiveCell.Row = 7 Then
         ActiveCell.ClearContents
         ActiveCell.Offset(-1, 0).Select
    ElseIf ActiveCell.Row = 8 Then
         ActiveCell.ClearContents
         ActiveCell.Offset(-1, 0).Select
    ElseIf ActiveCell.Row = 9 Then
         ActiveCell.ClearContents
         ActiveCell.Offset(-1, 0).Select
   
    End If

End Sub
Sub Can5_Click()
        Range("c5:e9").ClearContents
    If ActiveCell.Row <> 5 Then
        Cells(5, 3).Select
    Else
        ActiveCell.Offset(0, 1).Select
    End If

End Sub

[snasui]

การโพสต์ Code ให้ทำตามกฎการใช้บอร์ดข้อ 5 ด้านบน ผมแนะนำไว้แล้วว่าให้โพสต์ในลักษณะใดครับ

[Nat072]

แก้ใหม่แล้วครับ อาจารย์.

[snasui]

ตัวอย่าง Code หากคลิกปุ่มลูกศรหมายเลข 2 ตามด้านล่าง ลองปรับใช้กับลูกศรอื่นๆ ครับ

Code: Select all

On Error Resume Next
Range("h5:j9").SpecialCells(xlCellTypeBlanks).Range("a1").Select

[Nat072]

ขอบคุณมากครับ อาจารย์.

[Nat072]

อาจารย์ ติดปัญหาอยู่ 2 จุด.

1. จากตาราง 1 กดลูกศร 2 เพื่อจะไปตารางที่ 2 จะวิ่งไปอยู่บรรทัดแรก .range("a1")
ซึ่งที่ต้องการคือให้วิ่งไปต่อท้าย เลข 3 (H7) แต่กดแล้วจะวิ่งไปที่ (I5)
(ตาม File ที่แนบ)

2. จะ Protect Sheet
Review > Protect Sheet > Select unlocked cells
ปุ่มอืน ๆ กดได้หมด ยกเว้น ปุ่ม ลูกศร 1, 2, 3 กดไม่ได้ครับ

[snasui]

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

Code: Select all

Sub RightArrow6_Click()
    Dim i As Integer, j As Integer
    For j = 1 To 3
        For i = 1 To 5
            If Range("h5:j9").Cells(i, j) = "" Then
                Range("h5:j9").Cells(i, j).Select
                Exit Sub
            End If
        Next i
    Next j
End Sub

ส่วนเรื่องการ Unlocked ยังไม่เคลียร์ ผมทดสอบแล้วกดได้ปกติครับ

[Nat072]

อาจารย์. ลองทำดูแล้ว แต่ติด Syntax error (File ที่แนบ)

[snasui]

ไม่ทราบว่าคุณ Nat072 นำข้อมูลไปวางด้วยวิธิใด หากวางถูกต้อง Code จะต้องไม่กลายเป็นสีแดง การ Copy Code ทั้งหมดสามารถคลิกที่ Select All ตามภาพด้านล่างครับ

ลองลบ Code ทิ้งใหม่ทั้งหมดแล้ว Copy ไปวางใหม่ หรือ คีย์ลงไปเองทุกอักขระ หากยังติดปัญหาให้แนบไฟล์นั้นมาด้วย จะได้ช่วยตรวจสอบได้ครับ

[Nat072]

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