เวลาที่คลิกแล้วให้แสดงปฎิธินที่เซลล์นั้นในคอลัม A ค่ะ

[sasipapha]

สวัสดีค่ะอาจารย์
รบกวนอาจารย์ดูในไฟล์แนบค่ะ

ในไฟล์ข้อมูลลูกค้า ไม่ทราบว่ามสูตรผิดพลาดตรงไหนเวลาคลิก ชำระ แล้วเลขที่บิลไม่รัน ค่ะ


รบกวนอาจารย์ช่วยชี้แนะด้วยค่ะ

ขอบคุณค่ะ

[snasui]

ไม่ทราบว่ากระทู้นี้ได้คำตอบแล้วยังครับ http://www.snasui.com/viewtopic.php?p=3821#p3821

[sasipapha]

อ่อลืมเลยค่ะ ขอบคุณมากค่ะ

สอบถามถึงเรื่อง ปฎิทิน ต่อค่ะ ที่ถามไปครั้งแรกค่ะ

[snasui]

การทำปฏิทินสามารถดูตัวอย่างจากที่นี่ครับ http://www.snasui.com/viewtopic.php?f=3&t=592

[sasipapha]

แล้วถ้าจะให้แสดงทุกเซลล์ในคอลัม A ต้องใส่สูตรยังไงค่ะ

[snasui]

ช่วยทำตามที่แนะนำไปแล้วมาก่อนครับ เอา Code ไปวางให้ได้ก่อน แล้วส่งไฟล์ตัวอย่างมาใหม่ จะได้ทำต่อจากที่ทำไว้แล้วครับ

[sasipapha]

ช่วยทำตามที่แนะนำไปแล้วมาก่อนครับ เอา Code ไปวางให้ได้ก่อน แล้วส่งไฟล์ตัวอย่างมาใหม่ จะได้ทำต่อจากที่ทำไว้แล้วครับ

[snasui]

ช่วยทำตามที่แนะนำไปแล้วมาก่อนครับ เอา Code ไปวางให้ได้ก่อน แล้วส่งไฟล์ตัวอย่างมาใหม่ จะได้ทำต่อจากที่ทำไว้แล้วครับ

ไม่พบ Code ครับ

[snasui]

สำหรับ 2007 ขึ้นไปต้อง Save เป็น .xlsm ถึงจะแนบ Code ได้ แม้จะอ้างอิงคำพูดมาก็ควรจะเขียนบอกกล่าวกันสักหน่อยนะครับว่าได้แนบไฟล์มาให้แล้ว โพสต์แนบไฟล์มาเฉย ๆ แบบนี้ไม่พอใจอะไรผมหรือเปล่าครับ

[sasipapha]

ต้องขอโทษด้วยค่ะ
พอดีเน็ตที่ห้องช้า พอแนบไฟล์เสร็จเลยรีบกดโพส เลยไม่ทันได้พิมพ์อะไรเลยค่ะ

ต้องขอโทษจริงๆค่ะ

[snasui]

อ้อ...ครับ ไม่เป็นไรครับ

สำหรับที่ถามว่ากรณีให้คลิกคอลัมน์ A แล้วขึ้นปฏิทิน ให้เปลี่ยน Code เป็นตามด้านล่าง สังเกตว่าเปลี่ยนเฉพาะบรรทัดที่ 3 เท่านั้น ดูไฟล์แนบประกอบครับ

Code: Select all

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 1 Then '<==เปลี่ยนที่นี่
    With ActiveSheet.Calendar1
            .Visible = True
            .Top = ActiveCell.Offset(0, 0).Top
            .Left = ActiveCell.Offset(0, 1).Left
    End With
Else
    ActiveSheet.Calendar1.Visible = False
End If
Application.EnableEvents = True
End Sub
Private Sub Calendar1_Click()
ActiveCell.Value = Calendar1.Value
End Sub

[sasipapha]

ขอบคุณมากค่ะอาจารย์

[sasipapha]

สวัสดีค่ะอาจารย์
อยากจะให้อาจารย์ช่วยดูสูตรให้หน่อยค่ะ ว่าเป็นสูตรที่ใช้ดูค่างวดลูกค้าหรือป่าว

อีกไฟล์คือไฟล์ระบุค่ะงวดของลูกค้าค่ะ ช่องสีฟ้าคือจ่ายแล้ว อยากทราบว่าลูกค้าคนไหนจ่ายค่างวดไม่ตรงค่ะ
รบกวนอาจารย์ช่วยอธิบายให้หน่อยค่ะ

[snasui]

ไม่เข้าใจครับ

ต้องการให้แสดงผลลัพธ์ที่เซลล์ไหน ด้วยเงื่อนไขใด หรืออธิบายไว้แล้วในชีทไหน แจ้งให้ทราบด้วยครับ

อ้อ...ทบทวนนิดนึงครับ ปกติผมไม่ได้แนะนำให้เก็บข้อมูลไปทางขวานะครับ

[Panuwat]

1.ต่อยอดจากหัวข้อนี้ครับ เนื่องจากผมได้ Copy Code ในการ Active ระบบงานปฏิทิน ใน Cell คอลัมน์ Aที่อาจารย์ทำ ไปไว้ใน ไฟล์ที่ผมทำขึ้น ปรากฏว่า ERROR เนื่องจากโปรแกรมไม่รู้จัก Calendar1 จึงอยากจะเรียนถามถึงวิธีการแก้ปัญหาครับ (เป็นขั้นตอน)
2.ตามไฟล์ตัวอย่างที่แนบ จะเป็นการคำนวณการเข้าร่วมกิจกรรมของพนักงานใน 1 ปี เพื่อนำไปคำนวณเพื่อให้คะแนนการประเมินผลพนักงาน โดยวิธีกรอกข้อมูลกิจกรรม แล้วคลิ๊กที่ชื่อพนักงานแต่ละคนว่าเข้าร่วมหรือไม่ แต่ปัญหาอยู่ที่ว่า การประเมินผลในปีนี้เป็นการประเมินผลปีละ 2 ครั้ง คือ ครั้งที่ 1 มค.-มิย. และครั้งที่ 2 คือ กค.-ธค. ฉะนั้นจึงต้องมีเงื่อนไขของเวลา (เดือน) เข้ามาเกี่ยวข้องด้วย ปัญหาที่อยากให้ท่านอาจารย์ช่วยไขปัญหาคือ
- ให้ปฏิทิน active ขึ้นใน Column B ระบุเป็น วันเดือนปี พ.ศ.(ลองทำแล้วเกิด ERROR ครับ)
- เมื่อมีการคีย์กิจกรรม และการเข้าร่วมกิจกรรมให้โปรแกรมคำนวณว่ากิจกรรมนี้จะอยู่ในช่วงของการประเมินผล ครั้งที่ 1( มค.-มิย.) หรือครั้งที่ 2 คือ กค.-ธค โดยใช้เงื่อนไขของวันเดือนปี ครับ

ขอแสดงความนับถือ

[snasui]

ต้องเพิ่ม Object ที่เป็น Calendar เข้ามาก่อน ดูตัวอย่างที่นี่ครับ http://www.snasui.com/viewtopic.php?p=3480#p3480

การกำหนดให้แสดงเป็น พ.ศ. สามารถใช้การจัดรูปแบบวันเดือนปีแบบพ.ศ.ได้ครับ โดย คลุม B4:B33 > คลิกขวา > Format Cells... > แถบ Number เลือก Custom > ช่อง Type คีย์ ddmmmmbbbb

ส่วนกรณีให้โปรแกรมคิดว่าอยู่ในช่วงไหนนั้นสามารถใช้สูตร IF ได้ครับ ยกตัวอย่างเช่นตรวจสอบค่า B4 ว่าอยู่ช่วงไหนสามารถใช้สูตรที่เซลล์ใด ๆ ได้ดังนี้ครับ

=If(and(Month(B4)>=1,Month(B4)<=6),"ช่วงที่ 1","ช่วงที่ 2")

Enter

[Panuwat]

ขอบพระคุณมากครับ

ขอแสดงความนับถือ