Excel Forum

จะแสดง error ตรง Format ครับ Sub AddDelDay() Dim Pos, mDate, tDate As String Dim NumCol, DDate As Integer ActiveSheet.Unprotect Pos = Selection.Address NumCol = Selection.Column mDate = Cells(5, NumCol).Value Range(Cells(7, NumCol), Cells(7, NumCol)).Select If Val(Format(mDate, "YYYY")) > ...

เรียนถามผู้รู้ทุกท่าน

ผมได้เขียนโค้ดใน VBA โดยใช้ ฟังก์ชั่น format ซึ่งสามารถทำงานได้ตามปกติ
ภายหลังเปลี่ยนเครื่องลงโปรแกรมใหม่

พอกลับมาใช้งานอีกทีมีข้อความแจ้ง

" Compile error:
Can't find project or library "

ไม่ทราบว่าเกิดจากสาเหตุอะไร และมีวิธีการแก้ไขอย่างไรบ้างครับ

ขอบคุณครับ

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

เครื่องคงไม่รู้จักชื่อ sheet ที่เป็นภาษาไทย เพราะค่า Region ของเครื่องเป็น English หรือเปล่าครับ
แต่เปลี่ยนชื่อ sheet เป็นภาษาอังกฤษซะเลยง่ายกว่า
ขอบคุณครับ

เรียนถามผู้รู้ ผมพัฒนางาน vba บน Excel 2010 แจกให้เพื่อนนำไปใช้งาน เพื่อนนำไปใช้กับ เวอร์ชั่นที่สูงกว่าโปรแกรมแจ้ง Error "Run-time error 9 Subscript out of range" ผมก๊อปจากเพื่อนมาเปิดในเครื่องผมกลับทำงานได้ตามปกติ ตัวอย่างคำสั่ง เช่น i = Sheets("5.ใบจัดซื้อจัดจ้าง").Range("...

แบบนี้หรือเปล่า สลับค่าไปมาครับ Sub Button1_คลิก() If Range("C1").Value = "ผลลัพธ์" Then Range("C1").Value = "ผลคูณ" Range("C2").Value = Range("A2").Value * Range("B2").Value ElseIf Range("C1").Value = "ผลคูณ"...

ขอโทษครับ ลืมแนบไฟล์

เรียนอาจารย์ และสมาชิกทุกท่าน มีปัญหาต้องการอัพเดทไฟล์ Excel เหมือนโปรแกรมทั่วไปมักจะมีต้วอัพเดทขึ้นมาเพิ่มเติมหรือแก้ไขข้อผิดพลาด ด้วยวิธีการรันโปรแกรมใหม่ เพื่อไปอัดเดทโปรแกรมเก่า จะเขียนโค้ดอย่างไรบ้างครับ โดยไม่ให้ข้อมูลในไฟล์เดิมสูญหาย ต้องการอัพเดทไฟล์ต้นฉบับ คือ 1. เปลี่ยนข้อความ "ผลลัพธ...

ได้โค้ดตามที่ต้องการแล้ว ขอบคุณครับ

ขอบคุณครับ จะลองไปศึกษาดูครับ ได้ผลอย่างไร จะมารายงานอีกครั้งครับ

ขออนุญาตเปลี่ยนสถานการณ์ตัวอย่างตามไฟล์ที่แนบนะครับ ผมมีฟอร์มอยู่ 3 หน้า บางทีก็ใช้เพียงแค่ 1 หน้า หรือ 2 หน้า หรือ 3 หน้า ถ้ากดปุ่มเครื่องพิมพ์ ก็จะสั่งพิมพ์ทั้ง 3 หน้า รวมหน้าที่ไม่ต้องการด้วย (ถ้าใช้เพียงแค่ 1 หรือ 2 หน้า) จะต้องเพิ่มเติมคำสั่งอย่างไรถึงจะรู้ว่าตัวชี้วัดที่ 14 อยู่หน้าที่ 2 พอกดป...

ผมมีงานอยู่ 10 หน้า
เวลาแก้ไขงานอยู่หน้าที่ 5
- ต้องการสั่งพิมพ์โดยใช้ VBA
- เงื่อนไขคือให้โปรแกรมหาว่า ณ ตำแหน่งที่ ActiveCell กำลังทำงานอยู่ อยู่หน้าที่เท่าไหร่

ต้องเขียนโค้ดอย่างไรครับ

dim X as integer
X = ?????
Worksheets. ("sheet1").PrintOut From:=1, To:=X, Copies:=1

ขอบคุณครับ

เรียนท่านผู้มีการประสบการณ์ทุกท่าน
พอจะมีแนวการ ปิด Msgbox ตามเวลาที่กำหนดไหมครับ
ความต้องการ คือ ถ้าเรามีข้อความแสดงให้ผู้ใช้ดูประมาณ 3 - 5 วินาทีแล้วให้โปรแกรมสั่งปิด กรอบข้อความนั้นเองอัตโนมัติ โดยไม่ต้องให้ผู้ใช้คลิกปุ่ม OK
ขอบคุณครับ

ขอบคุณครับ
ช่วยผมได้เยอะเลยครับ

ต้องการเชื่อมข้อความจากหลายๆ เซล แล้วแสดงในเซลเดียวแบบหลายบรรทัด ต้องทำอย่างไรครับ

ขอบคุณครับ สำหรับคำแนะนำ

ต้องการเชื่อมข้อความจากหลายๆ เซล แล้วจัดรูปแบบ(ทำให้เป็นตัวหนา หรือขีดเส้นใต้) เฉพาะบางข้อความที่ต้องการ
พอจะมีแนวทางทำได้ไหมครับ

คงเป็นเพราะลงไม่สมบูรณ์เป็นแน่แท้
ขอบคุณครับ ที่ให้ความอนุเคราะห์ ช่วยชี้แนะ