Excel Forum

ก่อนลงโปรแกรมใหม่ สามารถกดปุ่ม Ctrl + ; ได้และเป็นวันที่ปัจจุบันให้

หลังลงโปรแกรมใหม่ ไม่สามารถกดปุ่ม Ctrl + ; ได้และเป็นวันที่ปัจจุบันให้
และเมื่อเปลี่ยนรูปแบบวันที่ รูปแบบก็ไม่ยอมเปลี่ยนให้ ต้องแก้ไขอย่างไรค่ะ

กดปุ่ม Ctrl+; ใน excel ไม่ได้ (เคยทำแล้วเป็นวันที่อันโนมัติ)
เครื่องพึ่ง ล้างเครื่องใหม่ค่ะ พอลงโปรแกรมเสร็จแล้ว มาใช้การ กดปุ่ม Ctrl+; ใน excel เพื่อเติมเป็นวันที่อันโนมัต

ปัจจุบัน ทำยังไงก็ไม่ได้สักที มีวิธีแก้ไหมค่ะ เพราะเคยใช้งานแล้วมันสะดวก ตอนนี้ใช้ 2007 ค่ะ

snasui wrote: ผม Run ได้เป็นปกติ ตามภาพผลลัพธ์ด้านล่างครับ หากมีการสร้าง Folder ไว้แล้วลองลบทิ้งไปก่อนแล้ว Run Code ใหม่ครับ

ได้แล้วค่ะ ขอบพระคุณมากเลย ทำงานสบายขึ้นมากเลยค่ะ ส่งภาพผลงานมาให้ดูค่ะ

ภาพค่ะ

อาจารย์ค่ะ มันติด Error MkDir sDir & rng ค่ะต้องแก้ตรงไหนค่ะ

:D ดูตัวอย่างการสร้าง Folder ที่นี่ครับ :arrow: http://snasui.blogspot.com/2011/01/folder-vba.html

อาจารย์ค่ะ ลองทำแล้วยัง งงๆ อยู่ค่ะ รันดูแล้วมันไม่ขยับทำอะไรเลย ช่วยเช็คดูให้หน่อยค่ะ
แล้วคำสั่งไหนค่ะที่มันอ่านข้อมูลใน excel แล้วไปสร้างเป็น Folder ค่ะ มีไฟล์มาให้ดูค่ะ
หนูลองเอาโค้ดมาดัดแปลงใช ...

ข้อมูลภาพเพิ่มเติมค่ะ

ต้องการคำสั่งที่สร้าง Folder ในไดร์ตามข้อมูลใน excel อัตโนมัติ เช่น
ที่ A1:A15 มีข้อมูลแบบนี้อยู่แล้วอยากได้คำสั่งที่สั่งแล้วสามารถสร้าง Folder ใหม่โดยตั้งตามชื่อ ใน A1:A15 โดยจะได้ 15 Folder ลักษณะแบบนี้สามารถทำได้ไหมค่ะ ช่วยแนะนำหน่อยค่ะว่าต้องทำอย่างไร
A1:A5
RJN-T1144-01-01
QAN-F1144-02-01
RJN ...

ได้แล้วค่ะ
'On Error Resume Next

ใส่ ' ตัวนี้เข้าไปคำสั่งทำงานเลย แต่ยังไม่เข้าใจว่าเมื่อคำสั่งก็ถูก แล้วทำไมระบบมองเป็น error เมื่อมีคำสั่ง
On Error Resume Next ระบบถึงไม่ทำงานค่ะ

อาจารย์ค่ะ ทดลองแล้วมันยังไม่ได้อยู่ดีค่ะ หนูไปเอา code vba
จาก
http://www.snasui.com/viewtopic.php?f=3&t=324/

มาปรับดูใหม่ เปลี่ยนแต่ที่อยู่ R:\ ค่ะ

For Each r In ra
Set imgIcon = ActiveSheet.Shapes.AddPicture( _
Filename:="R:\SQA SupplierImprovementPjt\History Parts Quality Project\Pic\" & r ...

ลืมแนบไฟล์มาให้ค่ะ

With Worksheets("Sheet1")
Set ra = .Range("G4", .Range("D65536").End(xlUp).Offset(0, 1))
End With

น่าจะให้คำสั่งทำงานใน "D" ทุกบรรทัด เช่นใส่ข้อมูล D4 ภาพก็ออกที่ G4 แล้วก็เลื่อนลงมาเรื่อยๆหรือเปล่าค่ะ หนูต้องการให้เป็นอย่างนี้นะค่ะ


อาจารย์ค่ะ หนูลองนำ code เก่าที่อาจารย์เขียนไว้มาปรับ ได้ ไฟล ...

With Worksheets("Sheet1")
Set ra = .Range("G4", .Range("D65536").End(xlUp).Offset(0, 1))
End With

น่าจะให้คำสั่งทำงานใน "D" ทุกบรรทัด เช่นใส่ข้อมูล D4 ภาพก็ออกที่ G4 แล้วก็เลื่อนลงมาเรื่อยๆหรือเปล่าค่ะ หนูต้องการให้เป็นอย่างนี้นะค่ะ

สวัสดีค่ะอาจาร์ย หนูมีไฟล์หนึ่ง 133428540.xls ได้เขียนโค้ด VBA แล้วแต่คำสั่งไม่ทำงาน รบกวนอาจารย์ช่วยดูให้หน่อยค่ะ

ขอบคุณมากค่ะอาจารย์ตอนนี้เห็นราคาแล้วค่ะ
http://www.se-ed.com/TextBook/Quotation/Products/Search.aspx?search=author&keyword=WALKENBACH,%20JOHN

เล่มแรก 900 เล่มที่ 2250 บาท เป็นหนังสือที่หลายคนแนะนำ แถวบ้านอ้อยไม่มีคงต้องสั่งซื้อค่ะ ถ้าเป็นหนังสือ อ้อยชอบอ่านหนังสือเล่มเก่า ค่ะ คือ เช่นเป็นหนังส ...

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

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

ภาพที่อยู่ของภาพค่ะ

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

Sub RenameInFolder(ByVal FD As String)
Dim FN As String, FileList() As String
Dim I As Integer, J As Integer, Temp As ...

มีไฟล์ตัวอย่างให้โหลดดูไหมค่ะ คืองานอ้อยไม่ได้เขียนให้มีปุ่มนะค่ะ