ต้องการระบุวันที่เริ่มต้นและวันที่สิ้นสุด เพื่อค้นหาข้อมูล

[bafo]

Code: Select all

สวัสดีครับ

ผมทำตารางเพื่อเก็บข้อมูล Serial ยางครับ แต่ติดปัญหาที่
Sheet Report ไม่สามารถค้นหาข้อมูลตามช่วงวันที่ที่ต้องการได้ครับ โดยมี
รายละเอียดดังนี้ครับ

ที่ Sheet Report ต้องการให้ช่อง I3 และ J3 ระบุวันที่เริ่มต้นและวันที่สิ้นสุด
และให้ Excel คำนวนหาข้อมูลในช่วงเวลาที่ต้องการครับ

ตอนนี้ทุกช่องทำงานได้หมด ( C3:H3 ) ยกเว้นช่องวันที่ไม่สามารถทำงานได้ครับ
ตามตัวอย่าง ระบุวันที่ 18-25 เดือนมกราคม แต่ข้อมูลออกมาทั้งหมดครับ

หมายเหตุ : เมื่อเลื่อกข้อมูลที่ต้องการและกดปุ่ม Enter
Excel จะค้นหาข้อมูลให้หลังจาก Enter ครับ

ใน Sheet Report ผมได้กำหนดรหัส VBA ไว้ดังนี้ครับ

Code: Select all

Option Explicit
Dim Rangselect As String
Private Sub ComboBox1_Change()
Call ViewReport
End Sub
'ทำงานทันทีเมื่อคลิกปุ่ม ENTER ( Sheet Report )
Private Sub Worksheet_Change(ByVal Target As Range)
'ActiveSheet.Unprotect "xxx"
If Target.Address = "$C$3" Or Target.Address = "$D$3" Or Target.Address = "$E$3" Or Target.Address = "$F$3" Or Target.Address = "$G$3" Or Target.Address = "$H$3" Or Target.Address = "$I$3" Or Target.Address = "$J$3" Then
Call ViewReport
'ActiveSheet.Protect "xxx"
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Shapes("AutoShape 1").Top = ActiveCell.Top
End Sub

ขอบคุณครับ

[snasui]

ช่วยปรับ Code ให้แสดงเป็น Code โดยดูตัวอย่างจากที่นี่ครับ viewtopic.php?f=3&t=1187

[bafo]

ผมปรับ Code ให้แล้วครับ

[snasui]

ลองตามนี้ครับ

1. ที่ I2:J2 ให้เปลี่ยนเป็นคำว่า วันที่
2. ที่ I5:J5 คีย์วันที่เริ่มต้น, วันที่สิ้นสุดตามลำดับ
3. ที่ I3 คีย์สูตร
   =">="&I5
   Enter
4. ที่ J3 คีย์สูตร
   ="<="&J5
   Enter
5. สังเกตดูผลลัพธ์

[bafo]

สวัสดีครับ

ผมได้ลองทำตามที่ได้รับคำแนะนำแล้วครับ ยังไม่สามารถค้นหาตามช่วงวันที่ได้ครับ

รบกวนช่วยกรุณาแนะนำเพิ่มเติมด้วยครับ

ขอบคุณครับ

[snasui]

ที่เป็นเช่นนี้เพราะ Event ที่เขียนไว้ตามด้านล่างไม่ทำงานครับ

Code: Select all

'ทำงานทันทีเมื่อคลิกปุ่ม ENTER ( Sheet Report )
Private Sub Worksheet_Change(ByVal Target As Range)
'ActiveSheet.Unprotect "xxx"
If Target.Address = "$C$3" Or Target.Address = "$D$3" Or Target.Address = "$E$3" Or Target.Address = "$F$3" Or Target.Address = "$G$3" Or Target.Address = "$H$3" Or Target.Address = "$I$3" Or Target.Address = "$J$3" Then
Call ViewReport
'ActiveSheet.Protect "xxx"
End If
End Sub

ผมทดสอบการนำ Code ไปไว้ใน ThisWorkbook แล้วก็ยังไม่ทำงานเช่นกัน ลองสร้างปุ่มมาช่วยสำหรับการเรียกดูข้อมูลแทนการใช้ Event ครับ

[bafo]

ผมจะลองทำ ตามที่แนะนำครับ

ขอบคุณครับ