ขอวิธีทำให้ปฎิทินเลื่อนมาเป็นบรรทัดสุดท้าย

[borsalino]

สวัสดีครับทุกท่าน

ผมทำ Module เพิ่ม Row โดยมี Code ดังนี้ครับ

Code: Select all

Sub Click()
    Range("B65536").End(xlUp).Offset(0, 0).EntireRow.Select
    Selection.Insert
    Range("B65536").End(xlUp).Offset(-1, 0).Select
End Sub

และผมมี Code ใน Sheet ดังนี้ครับ

Code: Select all

Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
If Target.Address = "$B$18" Then
    With ActiveSheet.Calendar1
            .Visible = True
            .Top = ActiveCell.Offset(0, 0).Top
            .Left = ActiveCell.Offset(0, 1).Left
    End With
Else
    ActiveSheet.Calendar1.Visible = False
End If
Application.EnableEvents = True
End Sub

ผมอยากรู้ว่าจะเปลี่ยน "$B$18" มาเป็นบรรทัดสุดท้าย หลังจากที่ Insert ตาม Code แรกเพื่อจะได้ขึ้น Calendar ครับ

[snasui]

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

If Target.Address = Range("B65536").End(xlup).Offset(1,0).Address Then

[borsalino]

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

[borsalino]

ติดเพิ่มครับ หลังจากผมปรับแก้ตาม

Code: Select all

Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
If Target.Address = Range("B65536").End(xlup).Offset(1,0).Address Then
    With ActiveSheet.Calendar1
            .Visible = True
            .Top = ActiveCell.Offset(0, 0).Top
            .Left = ActiveCell.Offset(0, 1).Left
    End With
Else
    ActiveSheet.Calendar1.Visible = False
End If
Application.EnableEvents = True
End Sub

หลังจากใช้งาน ผมไม่สามารถใช้งาน Undo ได้เลยครับ แก้ปัญหายังไงครับ

[snasui]

ก่อนจะปรับแก้สมารถใช้งาน Undo ได้หรือไม่ครับ

ปกติแล้วการใช้งาน VBA จะ Undo ไม่ได้อันนี้เป็นข้อจำกัดหนึ่ง หากจะให้ Undo ได้จะต้องเขียน Code เข้าไปช่วยซึ่งไม่ง่ายนักครับ

[borsalino]

ก่อนใส่สูตรใน Sheet ยังปรับแก้ได้ครับ หลังใส่สูตร เซฟ->ปิด->เปิดใหม่ เลือกเซลล์ว่างพิมพ์อะไรลงไปไม่สามารถ Undo ได้ครับ
แต่ผมลองปรับสูตรเป็น

Code: Select all

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
If Target.Address = Range("B65536").End(xlUp).Offset(-1, 0).Address Then
    With ActiveSheet.Calendar1
            .Visible = True
            .Top = ActiveCell.Offset(0, 0).Top
            .Left = ActiveCell.Offset(0, 1).Left
            .Value = Date
    End With
Else
    'ActiveSheet.Calendar1.Visible = False
End If
Application.EnableEvents = True
End Sub

เซฟ->ปิด->เปิดใหม่ เลือกเซลล์ว่างพิมพ์ลงไปสามารถ Undo ได้ครับ
แต่หลังจากที่เลือก Target.Address ไป Calendar1 มันไม่หายไปนี่แหละครับ

[snasui]

แก้ไข 'ActiveSheet.Calendar1.Visible = False ให้กลับมาใช้งานได้ ตอนนี้มีการ Mark เป็น Comment อยู่ครับ

บรรทัดใดที่นำหน้าด้วยเครื่องหมาย ' คือ Comment โปรแกรมจะไม่ Run บรรทัดนี้ครับ

[borsalino]

อ๋อ ผมหมายถึงว่า ถ้ายกเลิก Mark ออก โปรแกรมจะไม่สามารถ Undo ได้น่ะครับ
ถึงใส่ให้มันไม่ Run แต่ Undo ได้ครับ

[snasui]

VBA เราจะเรียกว่า Code ไม่เรียกว่าสูตร ยกเว้นบางส่วนของ Code ที่เป็นสูตรจึงสามารถเรียกสูตรได้

Code ทั้งหมดนั้นใช้ในการแสดง Calendar เพื่อเลือกเซลล์ที่อยู่บรรทัดสุดท้าย หากยกเลิกการเลือกบรรทัดสุดท้ายจะทำการซ่อน Calendar แต่เมื่อไปยกเลิกการซ่อนด้วยการ Mark ให้เป็น Comment เช่นนั้น เมื่อ Calendar แสดงแล้วก็จะไม่ถูกซ่อนอีกต่อไปครับ

ในกรณีนี้ผมไม่สามารถทดสอบการ Undo ให้ได้เนื่องจากไม่ได้ติดตั้ง Calendar คงต้องรอเพื่อนสมาชิกท่านอื่นครับ

[borsalino]

ขอบคุณมากๆครับ ผมจะเรียกให้ถูกขึ้นครับ แฮะๆ