:D snasui.com ยินดีต้อนรับ :D
ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย :thup: สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ :arrow: ระบุ Version ของ Excel
:!: โปรดทราบ :!:
  1. กรุณาอ่านกฎการใช้บอร์ด (Forum rules) ในตำแหน่งด้านบนของแต่ละบอร์ด
  2. การสมัครสมาชิก การ Login การกู้คืนรหัสผ่าน
    1. สมัครสมาชิกดูขั้นตอนได้ที่ :arrow: สมัครสมาชิก
    2. Login เข้าระบบโดยคลิกปุ่ม Login ตรงมุมขวาบนของหน้านี้ :roll:
    3. การ Login ผ่าน Facebook ดูวิธีที่ :arrow: Login ผ่าน Facebook
    4. ลืมรหัสผ่านสามารถรับรหัสใหม่ได้ที่ :arrow: Reset รหัสผ่าน
  3. มีปัญหาการใช้งาน แจ้งผู้ดูแลระบบได้ที่ :arrow: ติดต่อผู้ดูแลระบบ
  4. กำหนดการตั้งค่าส่วนตัว เช่นตั้งค่าภาษาเป็นไทยหรืออังกฤษดูได้ที่ :arrow: ตั้งค่าส่วนตัว
  5. การตั้งและตอบกระทู้ดูได้ที่ :arrow: วิธีการตั้งและตอบกระทู้
  6. การจัดรูปแบบตัวอักษรด้วย bbcode ในช่องแสดงความคิดเห็นดูได้ที่ :arrow: จัดรูปแบบตัวอักษร
  7. กำหนดขนาดตัวอักษรใน Browser ดูได้ที่ :arrow: กำหนดขนาดตัวอักษรใน Browser

สั่งพิมพ์เอกสารไม่ได้

ฟอรัมถาม-ตอบปัญหาการใช้งาน MS Excel and VBA
Forum rules
  1. ไม่อนุญาตให้ใช้ภาษาแชทในการถามและตอบปัญหา ไม่ใช้คำว่า "คับ" หรือ "อ่ะครับ" แทนคำว่า "ครับ" ไม่ใช้คำว่า "เด๋ว" แทนคำว่า "เดี๋ยว" เป็นต้น เนื่องจากเมื่อแปลเป็นภาษาต่างประเทศแล้วจะให้ความหมายผิดไปจากที่ควรจะเป็น
  2. ห้ามถามโดยระบุชื่อผู้ตอบและต้องตั้งชื่อกระทู้ให้สื่อถึงปัญหาที่จะถาม ไม่ตั้งชื่อว่า ช่วยด้วยครับ, มีปัญหามาปรึกษาครับ เป็นต้น
  3. กรุณาอธิบายปัญหาและระบุคำตอบที่ต้องการมาในกระทู้ด้วยเสมอถึงแม้จะอธิบายไว้ในไฟล์แนบแล้วก็ตาม ทั้งนี้เพื่ออำนวยความสะดวกแก่เพื่อนสมาชิกในการค้นหาข้อมูล
  4. กรุณาแนบไฟล์ตัวอย่างพร้อมแสดงคำตอบที่ถูกต้องมาในไฟล์ด้วยเพื่อให้ง่ายต่อการทำความเข้าใจและสะดวกต่อการตอบคำถาม (ขนาดไฟล์ไม่เกิน 500Kb ขนาดภาพไม่เกิน 800*600 Pixel) ไม่แนบเป็น Link มาจากแหล่งอื่นที่อาจจะถูกลบทิ้งไปโดยต้นทางในภายหลัง นอกจากนี้ไม่ควรแนบไฟล์ที่มีข้อมูลสำคัญอันก่อให้เกิดความเสียหายกับตนเองและผู้อื่น
  5. กรณีเป็นคำถามเกี่ยวกับ Programming เช่น VBA, VB.Net, C#, SQL ฯลฯ ต้องลองเขียนมาเองก่อนเสมอ ถามเฉพาะที่ติดปัญหา ระบุ Module, Procedure ที่ติดปัญหาให้ชัดเจน กรุณาโพสต์ Code ให้แสดงเป็น Code คือเปิดด้วย [code] และปิดด้วย [/code] ตัวอย่างเช่น [code]dim r as range[/code] เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)
  6. กรุณาแจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่
nongmay_za
Member
Member
Posts: 12
Joined: Sat Nov 22, 2014 4:19 pm

สั่งพิมพ์เอกสารไม่ได้

#1

Post by nongmay_za »

รบกวนช่วยดูโค๊ดให้หน่อยค่ะ
สั่งพิมเอกสารแล้วมันขึ้นerror
พยายามแก้แต่ไม่รู้ว่าเพราะอะไรค่ะ

Code: Select all

Private Sub ComboBox2_Change()
    Sheets("บ้านปูม้า").Range("B2").Value = ComboBox2.Value
    บันทึกรายการซื้อขาย.TextBox66 = Sheets("บ้านปูม้า").Range("D2")
End Sub

Code: Select all

Private Sub CommandButton15_Click()
    With Sheets("Bill")
   
         .Range("H7") = ComboBox20.Value
        .Range("F6") = TextBox1.Value
        .Range("E7") = ComboBox2.Value
        .Range("C11") = ComboBox3.Value
        .Range("D11") = TextBox2.Value
        .Range("E11") = TextBox3.Value
        .Range("F11") = TextBox4.Value
        .Range("C12") = ComboBox4.Value
        .Range("D12") = TextBox5.Value
        .Range("E12") = TextBox6.Value
        .Range("F12") = TextBox7.Value
        .Range("C13") = ComboBox5.Value
        .Range("D13") = TextBox8.Value
        .Range("E13") = TextBox9.Value
        .Range("F13") = TextBox10.Value
        .Range("C14") = ComboBox6.Value
        .Range("D14") = TextBox11.Value
        .Range("E14") = TextBox12.Value
        .Range("F14") = TextBox13.Value
        .Range("C15") = ComboBox7.Value
        .Range("D15") = TextBox14.Value
        .Range("E15") = TextBox15.Value
        .Range("F15") = TextBox16.Value
        .Range("C16") = ComboBox8.Value
        .Range("D16") = TextBox17.Value
        .Range("E16") = TextBox18.Value
        .Range("F16") = TextBox19.Value
        .Range("C17") = ComboBox9.Value
        .Range("D17") = TextBox20.Value
        .Range("E17") = TextBox21.Value
        .Range("F17") = TextBox22.Value
        .Range("C18") = ComboBox10.Value
        .Range("D18") = TextBox23.Value
        .Range("E18") = TextBox24.Value
        .Range("F18") = TextBox25.Value
        .Range("C19") = ComboBox11.Value
        .Range("D19") = TextBox26.Value
        .Range("E19") = TextBox27.Value
        .Range("F19") = TextBox28.Value
        .Range("C20") = ComboBox12.Value
        .Range("D20") = TextBox29.Value
        .Range("E20") = TextBox30.Value
        .Range("F20") = TextBox31.Value
        .Range("C21") = ComboBox13.Value
        .Range("D21") = TextBox32.Value
        .Range("E21") = TextBox33.Value
        .Range("F21") = TextBox34.Value
        .Range("C22") = ComboBox14.Value
        .Range("D22") = TextBox35.Value
        .Range("E22") = TextBox36.Value
        .Range("F22") = TextBox37.Value
        .Range("C23") = ComboBox15.Value
        .Range("D23") = TextBox38.Value
        .Range("E23") = TextBox39.Value
        .Range("F23") = TextBox40.Value
        .Range("C24") = ComboBox16.Value
        .Range("D24") = TextBox41.Value
        .Range("E24") = TextBox42.Value
        .Range("F24") = TextBox43.Value
        .Range("C25") = ComboBox17.Value
        .Range("D25") = TextBox44.Value
        .Range("E25") = TextBox46.Value
        .Range("F25") = TextBox47.Value
        .Range("C26") = ComboBox18.Value
        .Range("D26") = TextBox48.Value
        .Range("E26") = TextBox50.Value
        .Range("F26") = TextBox51.Value
        .Range("C27") = ComboBox19.Value
        .Range("D27") = TextBox52.Value
        .Range("E27") = TextBox54.Value
        .Range("F27") = TextBox55.Value
        .Range("D35") = TextBox62.Value
        .Range("D29") = TextBox64.Value
        .Range("E29") = TextBox65.Value
        .Range("D31") = TextBox67.Value
        .Range("E31") = TextBox68.Value
        .Range("G31") = TextBox69.Value
        

    End With
       
ComboBox20.Text = " "
TextBox1.Text = " "
ComboBox2.Text = " "
TextBox60.Text = " "
TextBox61.Text = " "
TextBox58.Text = " "
ComboBox3.Text = " "
TextBox2.Text = " "
TextBox3.Text = " "
TextBox4.Text = " "
ComboBox4.Text = " "
TextBox5.Text = " "
TextBox6.Text = " "
TextBox7.Text = " "
ComboBox5.Text = " "
TextBox8.Text = " "
TextBox9.Text = " "
TextBox10.Text = " "
ComboBox6.Text = " "
TextBox11.Text = " "
TextBox12.Text = " "
TextBox13.Text = " "
ComboBox7.Text = " "
TextBox14.Text = " "
TextBox15.Text = " "
TextBox16.Text = " "
ComboBox8.Text = " "
TextBox17.Text = " "
TextBox18.Text = " "
TextBox19.Text = " "
ComboBox9.Text = " "
TextBox20.Text = " "
TextBox21.Text = " "
TextBox22.Text = " "
ComboBox10.Text = " "
TextBox23.Text = " "
TextBox24.Text = " "
TextBox25.Text = " "
ComboBox11.Text = " "
TextBox26.Text = " "
TextBox27.Text = " "
TextBox28.Text = " "
ComboBox12.Text = " "
TextBox29.Text = " "
TextBox30.Text = " "
TextBox31.Text = " "
ComboBox13.Text = " "
TextBox32.Text = " "
TextBox33.Text = " "
TextBox34.Text = " "
ComboBox14.Text = " "
TextBox35.Text = " "
TextBox36.Text = " "
TextBox37.Text = " "
ComboBox15.Text = " "
TextBox38.Text = " "
TextBox39.Text = " "
TextBox40.Text = " "
ComboBox16.Text = " "
TextBox41.Text = " "
TextBox42.Text = " "
TextBox43.Text = " "
ComboBox17.Text = " "
TextBox44.Text = " "
TextBox46.Text = " "
TextBox47.Text = " "
ComboBox18.Text = " "
TextBox48.Text = " "
TextBox50.Text = " "
TextBox51.Text = " "
ComboBox19.Text = " "
TextBox52.Text = " "
TextBox54.Text = " "
TextBox55.Text = " "
TextBox62.Text = " "
TextBox64.Text = " "
TextBox65.Text = " "
TextBox66.Text = " "
TextBox67.Text = " "
TextBox68.Text = " "
TextBox69.Text = " "
MsgBox "พิมใบสั่งงานเรียนร้อย"
Unload Me
Worksheets("Bill").PrintPreview
ActiveWorkbook.Save
wNext:
End Sub
ขอบคุณค่ะ
You do not have the required permissions to view the files attached to this post.
User avatar
logic
Gold
Gold
Posts: 1510
Joined: Thu Mar 18, 2010 1:57 pm
Excel Ver: 365

Re: สั่งพิมพ์เอกสารไม่ได้

#2

Post by logic »

ช่วยแนบไฟล์เอ็กเซลให้เพื่อน ๆ ช่วยกันเช็คด้วยครับ 😉
nongmay_za
Member
Member
Posts: 12
Joined: Sat Nov 22, 2014 4:19 pm

Re: สั่งพิมพ์เอกสารไม่ได้

#3

Post by nongmay_za »

ขอโทษน่ะค่ะลืมแนบไฟล์งานให้
ขอบคุณค่ะ

เนื่องจากแนบไฟล์ไม่ได้ แนบลิ้งให้ดาวโหลดแทนน่ะค่ะ
http://www.mediafire.com/file/61bhwhbhw ... .xlsm/file
User avatar
EX2010
Member
Member
Posts: 68
Joined: Thu Jan 28, 2010 11:24 am

Re: สั่งพิมพ์เอกสารไม่ได้

#4

Post by EX2010 »

แก้สูตร ชีตบ้านปูม้า เซล D2 ใส่ IFERROR เพิ่มเข้าไป
=IFERROR(IF(B2="","",INDEX(ปริ้นสิ้นเดือน!$T$10:$T$30,MATCH(บ้านปูม้า!B2,ปริ้นสิ้นเดือน!$S$10:$S$30,0))),"")
ชีต Bill เซล w3 แก้เป็น IFERROR(IF(U3="","",INDEX(ปริ้นสิ้นเดือน!$T$10:$T$30,MATCH(Bill!U3,ปริ้นสิ้นเดือน!$S$10:$S$30,0))),"")
nongmay_za
Member
Member
Posts: 12
Joined: Sat Nov 22, 2014 4:19 pm

Re: สั่งพิมพ์เอกสารไม่ได้

#5

Post by nongmay_za »

ได้แล้วค่ะ ขอบคุณน่ะค่ะ
Post Reply