Page 1 of 1
รบกวนสอบถามด้วยครับ Print Cell
Posted: Sat Nov 29, 2014 11:57 am
by boykungee23
รบกวนอาจารย์ด้วยครับ
1.ผมจะปริ้นCell F5 ด้วยการกดปุ่ม ปริ้น (ตามที่อาจารย์แนะนำ อันนี้ได้แล้วครับ)
2.ผมจะเอาข้อมูลใน E1 ถึง E10 มาลงใน F5 เพื่อจะปริ้นได้ยังไงครับโดยที่ข้อมูล ผมจะมาที่ละแถว คือE1 มากดปริ้น -E2 มากดปริ้น -E3 มากดปริ้น ....ข้อมูลในF5
3.หรือไม่ผมสามารถเขียนvba ให้กดปริ้นครั้งแรกที่ F5 ครั้งต่อไป F6 ครั้งต่อไป +1 ไปเรื่อยๆ จะได้ไหมครับ
มือใหม่กำลังหัดครับ ผมแนบไฟล์มาให้พิจารณาด้วยนะครับ
ขอบคุณครับบบบบบ
Re: รบกวนสอบถามด้วยครับ Print Cell
Posted: Sat Nov 29, 2014 12:14 pm
by snasui
ตัวอย่างการปรับ Code ตามด้านล่างครับ
Code: Select all
Sub PrintOutput()
Dim Apt As String
If Application.Dialogs(xlDialogPrinterSetup).Show Then
Apt = Application.ActivePrinter
End If
Application.ActivePrinter = Apt
For Each cell In Range("e1:e10")
Range("f5").Value = cell.Value
Range("F5").PrintOut
Next cell
End Sub
สิ่งที่ผมแนะนำคงเป็นเรื่องอื่น หากเข้ากับงานคุณ boykungee23 ก็สามารถใช้ได้ การ Print ลักษณะนี้เป็นการเลือกเครื่อง Print ขึ้นมาก่อน ซึ่งแล้วแต่ความจำเป็น หากได้กำหนดค่าตั้งต้นให้ Print โดยเครื่องใด หรือมีเครื่อง Print เพียงเครื่องเดียวก็ไม่จำเป็นต้องเขียน Code เพื่อเลือก Printer
การทำงานลักษณะที่ถามมานั้นเป็นการ Loop ค่าแต่ละเซลล์เข้ามาวางใน F5 ในการทำงานกับ Code จะเกี่ยวข้องกับสิ่งนี้โดยหลีกเลี่ยงไม่ได้ ควรศึกษาให้เข้าใจ ทางทีดีควรหาตำรามาอ่าน ติดตรงไหนแล้วค่อยมาถามกันได้ครับ
boykungee23 wrote:ขอบคุณครับบบบบบ
ทบทวนกฎการใช้บอร์ดทุกข้อด้านบนใหม่อีกครั้ง
ฟอรัมถามตอบต้องระมัดระวังเรื่องการใช้ภาษาครับ
Re: รบกวนสอบถามด้วยครับ Print Cell
Posted: Sat Nov 29, 2014 1:04 pm
by boykungee23
ขอบคุณครับอาจารย์
ขอรบกวนอีกนิดครับ ถ้าผมใช้Loop ประมาณนี้จะพอได้ไหมครับบบ
loop i = 1 to 10
b3 = a
print b3
next i
Re: รบกวนสอบถามด้วยครับ Print Cell
Posted: Sat Nov 29, 2014 1:13 pm
by snasui
b3 คืออะไร a
คืออะไร ช่วยเขียนให้เห็นถึงว่าตัวแปรนั้นคืออะไร อย่างน้อยควรเป็น Object ที่สามารถอ้างถึงด้วย Code ใน Excel ครับ
ถ้าจะเขียนถึงเซลล์ b3 เราสามารถเขียนเป็น [b3]
ควรลองเขียนมาเองก่อน ติดตรงไหนค่อยมาถามกันครับ
การโพสต์ Code ควรโพสต์ให้แสดงเป็น Code ดูตัวอย่างได้จากที่นี่ครับ viewtopic.php?f=3&t=1187
Re: รบกวนสอบถามด้วยครับ Print Cell
Posted: Sat Nov 29, 2014 5:58 pm
by snasui
boykungee23 wrote:ขอรบกวนอีกนิดครับ ถ้าผมใช้Loop ประมาณนี้จะพอได้ไหมครับบบ
กรุณาให้ความใส่ใจสิ่งที่ผมเตือน หากผมเตือนบ่อย ๆ จะกระทบกับความเป็นสมาชิกครับ
Re: รบกวนสอบถามด้วยครับ Print Cell
Posted: Tue Dec 02, 2014 10:33 am
by boykungee23
snasui wrote:boykungee23 wrote:ขอรบกวนอีกนิดครับ ถ้าผมใช้Loop ประมาณนี้จะพอได้ไหมครับบบ
กรุณาให้ความใส่ใจสิ่งที่ผมเตือน หากผมเตือนบ่อย ๆ จะกระทบกับความเป็นสมาชิกครับ
ขออภัยครับอาจารย์
รบกวนอาจารย์ด้วยครับ ผมลองหาข้อมูลเพิ่มเติม และลองเขียนแล้วแต่ยังไม่ตรงตามความต้องการครับ รบกวนแนะนำด้วยครับ
คือผมต้องการจะพิมพ์ข้อมูลที่อยู่ในCell E1-E2-E3.....โดยกดPrint F5 แล้วถามหาเครื่องพิมพ์กด Ok หน้าต่าง InputBox จะให้ใส่ค่า ผมใส่ E1 เพื่อจะพิมพ์ข้อมูลในcell E1
แต่ผลที่ได้คือ พิมพ์E1 ออกมาแทน ผมต้องแก้ไขยังไงครับ ตามแนบไฟล์ครับ
Code: Select all
Sub PrintOutput()
Dim Apt, a As String
If Application.Dialogs(xlDialogPrinterSetup).Show Then
Apt = Application.ActivePrinter
End If
Application.ActivePrinter = Apt
a = InputBox("Please input Range")
Cells(1, 1) = a
Range("A1").PrintOut
End Sub
ขอบคุณครับ
Re: รบกวนสอบถามด้วยครับ Print Cell
Posted: Tue Dec 02, 2014 11:06 am
by snasui
สามารถปรับ Code เป็นด้านล่างครับ
Code: Select all
'Other code
a = InputBox("Please input Range")
Cells(1, 1) = Range(a).Value
Range("A1").PrintOut
'Other code
Re: รบกวนสอบถามด้วยครับ Print Cell
Posted: Tue Dec 02, 2014 11:40 am
by boykungee23
Re: รบกวนสอบถามด้วยครับ Print Cell
Posted: Tue Dec 02, 2014 11:52 am
by boykungee23
รบกวนอีกครั้งครับอาจารย์ ผมแก้Code ตามอาจารย์แนะนำแล้วครับแต่ทำไหมผมพิมพ์แล้วข้อมูลออกมาเป็นแบบนี้อ่ะครับ
ข้อมูลในCell E1 = 1335150109 ปริ้นออกมาเป็น 1.335E+09 ต้องแก้ตรงไหนครับ
ขอบคุณครับ
Re: รบกวนสอบถามด้วยครับ Print Cell
Posted: Tue Dec 02, 2014 1:28 pm
by boykungee23
