Page 1 of 1
ปัญหาเกี่ยวกับการใส่ปฏิทิน
Posted: Wed Mar 28, 2012 2:07 pm
by nopksn
สอบถามเกี่ยวกับการเขียน Code ปฏิทินครับ
Re: ปัญหาเกี่ยวกับการใส่ปฏิทิน
Posted: Wed Mar 28, 2012 2:56 pm
by bank9597

ผมลองค้นมาครับ ได้วิธีการดังนี้
ปรับโค๊ดใหม่เป็น
Code: Select all
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Calendar1
If Not Intersect(Target, Range("C5,C7,C9,D5,D7,D9")) Is Nothing Then
.Visible = True
.Top = ActiveCell.Offset(0, 0).Top
.Left = ActiveCell.Offset(0, 1).Left
Else
.Visible = False
End If
End With
End Sub
ตามลิงค์นี้ครับ
https://www.google.co.th/search?ix=sea& ... snasui.com
Re: ปัญหาเกี่ยวกับการใส่ปฏิทิน
Posted: Thu Mar 29, 2012 1:04 pm
by Khamtun
bank9597 wrote:
ผมลองค้นมาครับ ได้วิธีการดังนี้
ปรับโค๊ดใหม่เป็น
Code: Select all
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Calendar1
If Not Intersect(Target, Range("C5,C7,C9,D5,D7,D9")) Is Nothing Then
.Visible = True
.Top = ActiveCell.Offset(0, 0).Top
.Left = ActiveCell.Offset(0, 1).Left
Else
.Visible = False
End If
End With
End Sub
ตามลิงค์นี้ครับ
https://www.google.co.th/search?ix=sea& ... snasui.com
ขออนุญาต เจ้าของกะทู้ ถามต่อเลยนะครับ
คือผมลอง copy code ไปทำที่งานของผมทำไมไม่ได้ ผิดตรงใหนแนะนำด้วยครับ
ด้วยความนับถือ
Re: ปัญหาเกี่ยวกับการใส่ปฏิทิน
Posted: Thu Mar 29, 2012 4:11 pm
by snasui

ไฟล์ที่แนบมาไม่มี Code เกี่ยวกับปฏิทินครับ
Re: ปัญหาเกี่ยวกับการใส่ปฏิทิน
Posted: Thu Mar 29, 2012 5:16 pm
by nopksn
ขอบคุณมากครับ ใช้การได้ดีมากเลยครับ
Re: ปัญหาเกี่ยวกับการใส่ปฏิทิน
Posted: Thu Mar 29, 2012 6:33 pm
by Khamtun
snasui wrote:
ไฟล์ที่แนบมาไม่มี Code เกี่ยวกับปฏิทินครับ

ต้องขอโทษอาจารย์และทุกท่านด้วยครับ ผมไม่ได้ save
คราวนี้น่าจะใช่ครับ
ด้วยความนับถือ
Re: ปัญหาเกี่ยวกับการใส่ปฏิทิน
Posted: Thu Mar 29, 2012 7:31 pm
by snasui

ยังไม่ได้ Add Calendar เข้ามาครับ ดูตัวอย่างที่นี่ครับ
http://www.snasui.com/viewtopic.php?p=3480#p3480
Re: ปัญหาเกี่ยวกับการใส่ปฏิทิน
Posted: Fri Mar 30, 2012 9:05 am
by Khamtun
ใช้ได้แล้วครับอาจารย์
แต่อยากให้มีปฏิทิน ที่คอลัมน์ K6:K30 และ L6:L30 ด้วยนั้น
จะต้องปรับ code อย่างไรครับ
ด้วยความนับถือ
Re: ปัญหาเกี่ยวกับการใส่ปฏิทิน
Posted: Fri Mar 30, 2012 9:10 am
by bank9597

ขอไฟล์แนบอีกครั้งได้ไหมครับ ไฟล์แนบที่มีปฏิทินแล้ว
Re: ปัญหาเกี่ยวกับการใส่ปฏิทิน
Posted: Fri Mar 30, 2012 9:17 am
by Khamtun
bank9597 wrote:
ขอไฟล์แนบอีกครั้งได้ไหมครับ ไฟล์แนบที่มีปฏิทินแล้ว
ผมแนบไฟล์มาแล้วครับ
ด้วยความนับถือ
Re: ปัญหาเกี่ยวกับการใส่ปฏิทิน
Posted: Fri Mar 30, 2012 9:33 am
by bank9597
Code: Select all
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Calendar1
If Not Intersect(Target, Range("J6:J30,K6:K30,L6:L30")) Is Nothing Then
.Visible = True
.Top = ActiveCell.Offset(0, 0).Top
.Left = ActiveCell.Offset(0, 1).Left
Else
.Visible = False
End If
End With
End Sub
Re: ปัญหาเกี่ยวกับการใส่ปฏิทิน
Posted: Fri Mar 30, 2012 11:17 am
by Khamtun
ขอบคุณ คุณ bank9597 มากครับที่แนะนำ
ทำให้งานสะดวกมากขึ้น

Re: ปัญหาเกี่ยวกับการใส่ปฏิทิน
Posted: Fri Mar 30, 2012 11:23 am
by bank9597

เครดิต : คนควน ครับ

Re: ปัญหาเกี่ยวกับการใส่ปฏิทิน
Posted: Sun Apr 01, 2012 4:45 pm
by Khamtun
เรียน อาจารย์และผู้รู้ทุกท่าน
ผมมีปัญหาคือที่ Sheet purchase ไม่สามารถ Copy แล้ว Paste ใน Sheet เดียวกันได้
แต่สามารถ Copy ไป Paste ใน Sheet อื่นได้ หรือ Copy จาก Sheet อื่นมา Paste ได้
รบกวนช่วยดูให้หน่อยครับ
ด้วยความนับถือ
Re: ปัญหาเกี่ยวกับการใส่ปฏิทิน
Posted: Sun Apr 01, 2012 5:06 pm
by snasui

เกิดจาก Change Event ที่ใช้แสดงปฏิทินไปรบกวนการนำค่าจาก Clipboard มาใช้ สามารถเปลี่ยนการ Copy เป็นวิธีอื่น ๆ ครับ ยกตัวอย่างเช่น
- ใช้ Control ช่วย
- กดแป้น Ctrl ค้างไว้
- คลิกลากเซลล์หรือช่วงเซลล์ต้นทางไปวางยังเซลล์ปลายทาง
- ใช้การคลิกเมาส์ขวา
- คลุมเซลล์หรือช่วงเซลล์ต้นทางที่ต้องการจะ Copy
- เลื่อนเมาส์ไปชี้ที่ขอบเซลล์หรือขอบของช่วงเซลล์จนเห็นเป็นลูกศรสี่ทิศ
- คลิกขวาค้างที่ขอบเซลล์หรือช่วงเซลล์แล้วลากไปวางที่เซลล์ปลายทาง
- ปล่อยเมาส์แล้วเลือกรูปแบบการวางที่ต้องการ
Re: ปัญหาเกี่ยวกับการใส่ปฏิทิน
Posted: Sun Apr 01, 2012 5:18 pm
by Khamtun
ขอบคุณอาจารย์มากครับที่แนะนำ
