Snasui Excel Forum

ขอบคุณครับ อาจารย์

Sub Button14_Click()

Application.ScreenUpdating = False
Sheets("program").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("program").Range("J1:W32").Select
Application.ScreenUpdating = True

End Sub


ผมใช้โค๊ดนี้แล้วมันปริ้นหมดทุกแผ่นเลยครับ ต้องเขียนอะไรเพิ่มเต ...

ได้แล้วครับ ขอบคุณครับอาจารย์

อาจารย์ครับผมลองเขียนสูตรไปจนครบแล้ว
ผมลองกดดู ถ้าเกิด1เฟสไม่ได้ป้อนข้อมูล หรือ 3เฟสไม่ได้ป้อนข้อมูล โปรแกรมจะรันไม่ผ่านครับ
ต้องดักเงื่อนไขอะไรเพิ่มหรอครับ

Sub Button7_Click()
Range("K4:K27").ClearContents
Range("L4:L27").ClearContents
Range("N4:N27").ClearContents
Range("O4:O27 ...

ขอบคุณครับ ได้แล้วครับ ขอบคุณมากๆครับอาจารย์ ผมงงกับการเขียนสูตรนี้มาหลายวัน ขอบคุณครับ ^^

ผมลองเขียนดูแล้วครับ ถ้าใส่
Sub Button7_Click()
Dim lng1 As Long, lng2 As Long
With Application
lng1 = .CountIf(Sheets("สูตรการคำนวน 1 เฟส").Range("G2:G25"), "*?")
lng2 = .CountIf(Sheets("สูตรการคำนวน 3 เฟส").Range("L2:L25"), "*?")
End With
Sheets("สูตรการคำนวน 1 เฟส").Range("G2").Resize(lng1 ...

ผมลองเขียนใส่ปุ่มแบบนี้ครับ
Sub Button5_Click()
For i = 2 To 25
If Cells(i + 1, 1).Value > 0 Then
Sheets("สูตรการคำนวน 1 เฟส").Range("'สูตรการคำนวน 1 เฟส'!$G$2:'สูตรการคำนวน 1 เฟส'!$G$25").Copy
Sheets("โปรแกรมและตารางแสดงผล").Range("โปรแกรมและตารางแสดงผล!$K$4").End(xlUp).Offset(1, 0 ...

คือประมาณว่า เอาค่าที่โปรแกรมคำนวนได้ในหน้า1เฟส และ 3เฟส มาเรียงใส่หน้าแรกตามหัวข้ออะครับ

คือ ต้องการ เคลียร์ข้อมูลในหน้าแรกก่อน range(x,y).clearcontents
จากนั้นก็ไปวนลูปอ่านมาจากหน้า 1 เฟส ด้วยลูป Do while....Loop
ในคอลัมน์ G1 ลงไปเรื่อยๆจนกว่าจะพบช่องว่าง
ถ้าพบแล้วก็เลิกอ่าน ให้ไปอ่านที่ชีท 3 เพสต่อ โดยเริ่มจาก L1 ลงไปเรื่อยๆ
การอ่านค่ามาใส่จะใช้โค้ดแบบนี้ range(a,b).value = range(x ...

คือจะนำข้อมูลจากชีท2 และ3 มาเรียงในชีท1 คือแต่ละชีทข้อมูลอาจจะเพิ่มลดได้แล้วแต่ว่าโปรแกรมจะป้อนไปเท่าไหร่ครับ จะเขียนยังไงดีครับ