Page 1 of 1
ขอวิธีทำให้ปฎิทินเลื่อนมาเป็นบรรทัดสุดท้าย
Posted: Thu Sep 29, 2016 1:11 am
by 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 ครับ
Re: ขอวิธีทำให้ปฎิทินเลื่อนมาเป็นบรรทัดสุดท้าย
Posted: Thu Sep 29, 2016 6:22 am
by snasui
ตัวอย่างการปรับ Code ครับ
If Target.Address = Range("B65536").End(xlup).Offset(1,0).Address Then
Re: ขอวิธีทำให้ปฎิทินเลื่อนมาเป็นบรรทัดสุดท้าย
Posted: Thu Sep 29, 2016 9:13 am
by borsalino
ได้แล้วครับ ขอบคุณครับ
Re: ขอวิธีทำให้ปฎิทินเลื่อนมาเป็นบรรทัดสุดท้าย
Posted: Thu Sep 29, 2016 10:04 am
by 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 ได้เลยครับ แก้ปัญหายังไงครับ
Re: ขอวิธีทำให้ปฎิทินเลื่อนมาเป็นบรรทัดสุดท้าย
Posted: Thu Sep 29, 2016 9:29 pm
by snasui
ก่อนจะปรับแก้สมารถใช้งาน Undo ได้หรือไม่ครับ
ปกติแล้วการใช้งาน VBA จะ Undo ไม่ได้อันนี้เป็นข้อจำกัดหนึ่ง หากจะให้ Undo ได้จะต้องเขียน Code เข้าไปช่วยซึ่งไม่ง่ายนักครับ
Re: ขอวิธีทำให้ปฎิทินเลื่อนมาเป็นบรรทัดสุดท้าย
Posted: Thu Sep 29, 2016 9:58 pm
by 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 มันไม่หายไปนี่แหละครับ
Re: ขอวิธีทำให้ปฎิทินเลื่อนมาเป็นบรรทัดสุดท้าย
Posted: Thu Sep 29, 2016 11:14 pm
by snasui
แก้ไข
'ActiveSheet.Calendar1.Visible = False ให้กลับมาใช้งานได้ ตอนนี้มีการ Mark เป็น Comment อยู่ครับ
บรรทัดใดที่นำหน้าด้วยเครื่องหมาย
' คือ Comment โปรแกรมจะไม่ Run บรรทัดนี้ครับ
Re: ขอวิธีทำให้ปฎิทินเลื่อนมาเป็นบรรทัดสุดท้าย
Posted: Thu Sep 29, 2016 11:23 pm
by borsalino
อ๋อ ผมหมายถึงว่า ถ้ายกเลิก Mark ออก โปรแกรมจะไม่สามารถ Undo ได้น่ะครับ
ถึงใส่ให้มันไม่ Run แต่ Undo ได้ครับ
Re: ขอวิธีทำให้ปฎิทินเลื่อนมาเป็นบรรทัดสุดท้าย
Posted: Fri Sep 30, 2016 6:15 am
by snasui
VBA เราจะเรียกว่า Code ไม่เรียกว่าสูตร ยกเว้นบางส่วนของ Code ที่เป็นสูตรจึงสามารถเรียกสูตรได้
Code ทั้งหมดนั้นใช้ในการแสดง Calendar เพื่อเลือกเซลล์ที่อยู่บรรทัดสุดท้าย หากยกเลิกการเลือกบรรทัดสุดท้ายจะทำการซ่อน Calendar แต่เมื่อไปยกเลิกการซ่อนด้วยการ Mark ให้เป็น Comment เช่นนั้น เมื่อ Calendar แสดงแล้วก็จะไม่ถูกซ่อนอีกต่อไปครับ
ในกรณีนี้ผมไม่สามารถทดสอบการ Undo ให้ได้เนื่องจากไม่ได้ติดตั้ง Calendar คงต้องรอเพื่อนสมาชิกท่านอื่นครับ
Re: ขอวิธีทำให้ปฎิทินเลื่อนมาเป็นบรรทัดสุดท้าย
Posted: Fri Sep 30, 2016 10:02 am
by borsalino
ขอบคุณมากๆครับ ผมจะเรียกให้ถูกขึ้นครับ แฮะๆ