EXCEL TOOLS
Excel Add-ins ที่พัฒนาโดยคุณสันติพงศ์ ณสุย (MVP Excel 2010-2020) ด้วยภาษา C# เพื่อแก้ไขปัญหาไฟล์ใหญ่ คำนวณนาน ทำงานช้า จัดการข้อมูลต่าง ๆ ที่ทำงานประจำวันได้อย่างสะดวกรวดเร็ว สนใจคลิกไปดูได้ที่นี่ครับ => Excel Tools
Excel Add-ins ที่พัฒนาโดยคุณสันติพงศ์ ณสุย (MVP Excel 2010-2020) ด้วยภาษา C# เพื่อแก้ไขปัญหาไฟล์ใหญ่ คำนวณนาน ทำงานช้า จัดการข้อมูลต่าง ๆ ที่ทำงานประจำวันได้อย่างสะดวกรวดเร็ว สนใจคลิกไปดูได้ที่นี่ครับ => Excel Tools
ตาม post #101 เลยครับcharif wrote:ขอบคุณครับ ว่าแต่ลงปฏิทินยังไงครับ
snasui wrote:ไฟล์นี้มีการใช้ Calendar Control 11 จะต้องติดตั้งก่อนจะใช้ได้ ลองดูที่นี่ครับ viewtopic.php?f=9&t=2994
Code: Select all
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("B4,D3,D4")) Is Nothing Then
Call Fil_DateIn
Call Fil_DateOut
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Application.EnableEvents = True
With Calendar1
If Not Intersect(Target, Range("D3,D4")) Is Nothing Then
.Visible = True
.Top = ActiveCell.Offset(0, 0).Top
.Left = ActiveCell.Offset(0, 1).Left
Else
.Visible = False
End If
End With
'Application.EnableEvents = False
End Sub
Private Sub Calendar1_Click()
ActiveCell.Value = Calendar1.Value
End Sub
#####snasui wrote: ↑Mon Aug 20, 2018 7:48 pmผมเข้าใจว่าติดเรื่อง Calendar ให้ทำตามกระทู้นี้ครับ viewtopic.php?f=9&t=2994