เซลล์ที่มีสูตรจะจัดการรูปแบบตามเงื่อนไขได้อย่างไรคะ

[suka]

ขอบคุณค่ะอาจารย์ จะค่อยๆ ลองศึกษา VBA ค่ะ ดูแล้วก็ยากจะเข้าใจนะคะ

ขอรบกวนอาจารย์อีกรอบค่ะ ขอช่วยตรวจว่าวาง Code ผิดที่หรือมีจุดใดผิด ยังใช้ไม่ได้น่ะค่ะ

ขอบคุณค่ะ

[snasui]

ไม่ทราบว่า Copy ไปวางโดยวิธีใดครับ Code ถึงกลายเป็นสีแดงไปได้

การ Copy Code ให้ทำตามภาพ ลองทดสอบดูอีกครั้งครับ เมื่อทำไปวางใน VBE แล้ว Code ต้องไม่กลายเป็นสีแดง

[suka]

อาจารย์คะ
ตอน Copy Code ไปวางครั้งแรกไม่เป็นสีแดงค่ะ แต่พอเปลี่ยน ActiveShee เป็น Sheets("AY") เท่าแหละเป็นสีแดงเลยค่ะ

[snasui]

ถ้าเช่นนั้นลองใช้วิธีนี้ในการ Replace ครับ

ในโปรแกรม VBE

1. คลุม Code ที่นำไปวาง
2. กดแป้น Ctrl+H > ช่องบนคีย์ ActiveSheet ช่องล่างคีย์ Sheets("AY")
3. คลิกปุ่ม Replace All

สังเกตว่าเป็นสีแดงหรือไม่ครับ

[suka]

อาจารย์คะ ลองทำแล้วไม่ได้ค่ะ

ได้แนบรูปมากับไฟล์ตัวอย่างไม่ทราบทำผิดจุดไหน รู้สึกเกรงใจอาจารย์จังค่ะ

ขอบคุณค่ะ

[snasui]

ลองพยายามใหม่ครับ ดู Code เดิมว่าเขียนอย่างไร ที่เขียนมานั้นบางค่าไม่ถูกต้อง ผิดกันไปเป็นคนละตัว บางค่ามี s เกินมา และสำหรับที่ล้อมกรอบสี่เหลี่ยมให้ลบค่าว่างทิ้งไปก่อนครับ ค่าจะขยับไปด้านหน้า หากต้องการจะให้เยื้องเหมือนเดิมก็ให้กดแป้น Tab หรือกด Space bar

[suka]

อาจารย์คะ มาขอรบกวนอีกรอบค่ะ
ได้ลองทำแล้วไม่เป็นสีแดงแต่เส้นคู่ก็ยังไม่เปลี่ยนแปลงค่ะ ยังไม่ได้เหมือนเดิมได้แนบตัวอย่างไฟล์มาให้อาจารย์ช่วยจับผิดให้ค่ะ
ขอบคุณมากๆค่ะ

[snasui]

เส้นคู่จะยังไม่เปลี่ยนแปลงจนกว่าจะมีการ Run Code ครับ วิธีการ Run Code ให้กดแป้น Alt+F8 > เลือก HideLine หรือไม่ก็สร้างปุ่มขึ้นมาเพื่อ Assign Macro แล้วคลิกปุ่มนี้เพื่อให้ Code ทำงาน

[suka]

อาจารย์คะ สามารถทำปุ่ม HideLine ให้ทำงานได้แล้วค่ะ

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

[suka]

ที่คุณ Logic โพสต์นั้นถูกต้องแล้วครับ เมื่อมีการพิมพ์แล้วก็ต้องเก็บข้อมูลไว้เพื่อจะตรวจสอบได้ว่าพิมพ์แล้วหรือยังไมพิมพ์ การเก็บข้อมูลอัตโนมัติคงต้องพึ่ง VBA และเช่นเคยครับ ถ้าจะใช้ VBA ก็เขียนมาก่อน ติดตรงไหนก็มาถามกันต่อครับ

อาจารย์คะ มาขอรบกวนอีกแล้วค่ะ

ที่ชีท AY ได้ทำปุ่ม Print Area พร้อมลองใส่ Code เพื่อให้พิมพ์ได้แล้วค่ะ
หากจะขอให้อาจารย์ช่วยเพิ่ม Code เมื่อกดปุ่ม Print Area ให้ระบบพิมพ์พร้อมเก็บข้อมูลที่พิมพ์ไว้ในฐานข้อมูลด้วยจะได้ไหมคะ

ขอบตุณค่ะ

[snasui]

ต้องการพิมพ์พื้นที่ไหนถึงไหนครับ ได้ออกแบบฐานข้อมูลไว้ให้แล้วยัง ถ้าออกแบบไว้แล้วอยู่ที่ชีทใดช่วยแจ้งด้วยครับ

[suka]

อาจารย์คะ สำหรับให้โปรแกรมรู้ว่าพิมพ์แล้วใช้ เซลล์ K2 ที่ชีท Database ค่ะ
และชีท Form สำหรับกรอกข้อมูลไปไว้ที่ชีท Database ค่ะ

ขอบคุณค่ะ

[snasui]

ลองดู Code ด้านล่างครับ

Code: Select all

Sub SetPrintAreaBeforePrint()
Dim lng As Long
Dim r As Range
Dim i As Integer
On Error Resume Next
lng = Rows.Count
Set r = Sheets("Sheet2").Range("B3")
With Sheets("Database")
    i = Application.Match(r, .Range("B:B"), 0)
    If .Range("K" & i) = "Y" Then
        MsgBox "Your cheque alreay printed."
        Exit Sub
    End If
End With
Sheets("AY").Range("A1:M10").PrintOut
Sheets("Database").Range("K" & i) = "Y"
MsgBox "Finish."
End Sub

[suka]

อาจารย์คะ Code สั่งพิมพ์และป้องกันการพิมพ์ซ้ำใช้งานได้แล้วค่ะ

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

ขอบคุณค่ะ

[snasui]

ดูตัวอย่างจาก Link เหล่านี้แล้วลองปรับปรุง Code มาดูครับ Clear contents

[suka]

อาจารย์คะ สามารถทำเคลียร์ให้เป็นฟอร์มว่างได้แล้วค่ะ

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

[suka]

อาจารย์คะ
ที่ชีท Form ได้ Add Calendar มาไว้ที่เซลล์ C2 ใช้งานได้ แต่ Add Calendar มาที่เซลล์ M2 ของชีท Form อันหลังนี้
ไม่สามารถปรับ Code ให้ใช้งานได้ มาขอรบกวนอาจารย์ช่วยปรับ Code ให้น่ะค่ะ

ขอบคุณค่ะ

[joo]

ลองปรับโค๊ดเป็นแบบนี้ดูครับ

Code: Select all

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
If (Target.Address = "$C$2" Or _
Target.Address = "$M$2") 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

[suka]

สามารถใช้งานได้แล้วค่ะ ขอบคุณค่ะคุณ joo
ดีใจค่ะได้รับความช่วยเหลือเอื้อเฟื้อ แบ่งปันความรู้ขอบคุณมากๆค่ะ

[suka]

ขอรบกวนอีกรอบค่ะ หากต้องการ Add Calendar ไปใช้เพิ่มอีกชีท
สมมุติว่าใช้ที่ เซลล์ A2 และ เซลล์ B2 ของชีท Test ต้องปรับโค๊ดอย่างไรคะ
ขอบคุณค่ะ