Excel Add-ins ที่พัฒนาโดยคุณสันติพงศ์ ณสุย (MVP Excel 2010-2020) ด้วยภาษา C# เพื่อแก้ไขปัญหาไฟล์ใหญ่ คำนวณนาน ทำงานช้า จัดการข้อมูลต่าง ๆ ที่ทำงานประจำวันได้อย่างสะดวกรวดเร็ว สนใจคลิกไปดูได้ที่นี่ครับ => Excel Tools
snasui.com ยินดีต้อนรับ 
สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ 
ระบุ Version ของ Excel 
โปรดทราบ สมัครสมาชิก
Login ผ่าน Facebook Reset รหัสผ่าน ติดต่อผู้ดูแลระบบ ตั้งค่าส่วนตัว วิธีการตั้งและตอบกระทู้ จัดรูปแบบตัวอักษร กำหนดขนาดตัวอักษรใน Browser
ไฟล์นี้มีการใช้ Calendar Control 11 จะต้องติดตั้งก่อนจะใช้ได้ ลองดูที่นี่ครับ viewtopic.php?f=9&t=2994
ตาม post #101 เลยครับcharif wrote:ขอบคุณครับ ว่าแต่ลงปฏิทินยังไงครับ
snasui wrote:
ช่วยอธิบายการดาวน์โหลดไม่ได้มาอย่างละเอียดว่าดาวน์โหลดจากไหน อย่างไร 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
ลองทำตาม Link ด้านล่างครับ ลองติดต่อไปยังคุณ bank9597 ที่อีเมลในโพสต์นี้ครับ viewtopic.php?f=9&t=3078#p20336