EXCEL TOOLS
Excel Add-ins ที่พัฒนาโดยคุณสันติพงศ์ ณสุย (MVP Excel 2010-2020) ด้วยภาษา C# เพื่อแก้ไขปัญหาไฟล์ใหญ่ คำนวณนาน ทำงานช้า จัดการข้อมูลต่าง ๆ ที่ทำงานประจำวันได้อย่างสะดวกรวดเร็ว สนใจคลิกไปดูได้ที่นี่ครับ => Excel Tools
Excel Add-ins ที่พัฒนาโดยคุณสันติพงศ์ ณสุย (MVP Excel 2010-2020) ด้วยภาษา C# เพื่อแก้ไขปัญหาไฟล์ใหญ่ คำนวณนาน ทำงานช้า จัดการข้อมูลต่าง ๆ ที่ทำงานประจำวันได้อย่างสะดวกรวดเร็ว สนใจคลิกไปดูได้ที่นี่ครับ => Excel Tools
[code]
และปิดด้วย [/code]
ตัวอย่างเช่น [code]dim r as range[/code]
เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)Code: Select all
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Address = "$D$11" Then
Call ChangeCellValue
End If
If Target.Address = "$D$7" Then
Target = Left(Target, 5)
End If
Application.EnableEvents = True
End Sub
Code: Select all
If Year(Range("D12,D13")) < Year(Date) - 10 Or Year(Range("D12,D13")) > Year(Date) + 1 Then
joo wrote:อาจารย์ครับ...มีปัญหามารบกวนขอคำชี้แนะอีกแล้วครับคือว่า ที่ซีท “Main” ตรง D12,D13 ถ้าหากเราลาแบบเต็มวัน เช่นที่เซลล์ D12 คีย์วันที่ 20/01/2011 และที่ D13 คีย์วันที่ 20/01/2011 ที่เซลล์ D14 ก็จะแสดงเป็นเลข 1 แล้วถ้าหากว่าลาเพียงครึ่งวัน เช่นลาในวันที่ 21/01/2011 ตั้งแต่เวลา 12.30 ถึง 16.30 อยากให้ที่เซลล์D14 แสดงเป็น 0.5 แบบนี้ครับต้องทำยังไงครับ
ถ้าหากมีการกรอกวันที่ตามด้วยเวลา ลองตามนี้ครับเซลล์ D14 คีย์joo wrote:เงื่อนไขแบบนี้ครับ...
ระยะเวลา 8 ชั่วโมง เป็นเต็มวัน
ระยะเวลา 4 ชั่วโมง คือครึ่งวัน