Excel Forum

ไม่เป็นไรครับอาจารย์ ผมใช้วิธีการเปลี่ยน Code ด้านหลังในส่วนของชื่อไฟล์ แทนครับ ใช้ได้เหมือนกัน
ขอบคุณครับ

Code Sub RoundedRectangle2_Click() 'Sub DeleteSheet() Dim i As Integer, strThisbook As Variant Dim sh As Worksheet, thisBook As Workbook Dim ob As Workbook strThisbook = Application.GetOpenFilename(Filefilter:= _ "All File (*.*), *.*", Title:="Please select source file(s).", Mult...

รบกวนอาจารย์เพิ่มเติมครับ พอดีไฟล์งานที่ผมต้องทำการลบ Sheet ชื่อไฟล์งานที่โหลดมาจะมีวันที่กำกับอยู่ด้านหลัง เช่น Sales01012027.xlsx ซึ่งวันที่จะรันตามลำดับวัน ครับ จะทำให้ไฟล์ที่โหลดมาชื่อไฟล์จะไม่เหมือนเดิมทุกวัน หากใช้ Code Delete Sheet ที่อาจารย์แก้ไขให้นั้น ผมต้องเปลี่ยนชื่อไฟล์ให้ตรงกับที่เขียน...

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

ไฟล์ Test

ไฟล์แนบครับ
ในไฟล์แนบ ผมมี Code ที่ 2 นะครับอาจารย์

Code ที่ 2 Sub RoundedRectangle2_Click() 'Sub DeleteSheet() Dim i As Integer, strThisbook As Variant strThisbook = Application.GetOpenFilename(Filefilter:= _ "All File (*.*), *.*", Title:="Please select source file(s).", MultiSelect:=True) If TypeName(strThisbook) = "Boolean...

Code ที่ 1 Sub RoundedRectangle2_Click() 'Sub DeleteSheet() Dim i As Integer, strThisbook As Variant strThisbook = Application.GetOpenFilename(Filefilter:= _ "All File (*.*), *.*", Title:="Please select source file(s).", MultiSelect:=True) If TypeName(strThisbook) = "Boolean...

อาจารย์ครับ รบกวนอีกครั้งครับ ผมได้นำ Code Delete sheet ที่อาจารย์ แก้ไข ให้ทดสอบใช้แล้วครับ ถ้าไฟล์ Test 1 , Test 2 และ Test 3 มีชื่อ Sheet Name = Sheet 1 ก็จะไม่ถูกลบ ซึ่ง Code ของอาจารย์ใช้งานได้ดีเลยครับ แต่ผมมีความอยากรู้เพิ่มเติมครับ คือ ถ้าไฟล์ Test 1, Test 2 และ Test 3 มีชื่อ sheet Name ที่ไ...

ใช้ได้แล้วครับอาจารย์
ขอบคุณมาก ๆ เลยครับอาจารย์

สำหรับ Code ที่ใช้ลบ Sheet ความต้องการ คือ เมื่อทำการกดปุ่มลบ Sheet เลือกไฟล์ Test 1 และ Test 2 แล้ว
ให้ Code ทำการลบ Sheet1 และ Sheet2 ในไฟล์ Test 1 และ Test 2 ออกจากไฟล์ โดยที่ไฟล์ Test 1 และ Test 2 จะเหลือแค่ Sheet 1 เท่านั้น

ผมแนบไฟล์ code ใหม่มาให้อาจารย์ครับ

ไฟล์ Code ครับ

สอบถามต่อครับอาจารย์ ความต้องการคือ นำข้อมูลในไฟล์ Test 1 , Test 2 และ Test 3 มารวมกันในไฟล์เดียวโดยข้อมูลที่รวมกันจะแยก Sheet กันครับ จากการทดสอบ Code รวมไฟล์ 1. ถ้า ไฟล์ Test 1, Test 2 และ Test 3 ชื่อ Sheet เหมือนกัน ก็จะรวมข้อมูลให้แยกตาม sheet ครับ 2. ถ้า ไฟล์ Test 1, Test 2 และ Test 3 ชื่อ Shee...

ขอบคุณมาครับอาจารย์ ใช้งานได้แล้วครับ

ผมนำ Code ไปวางใน Module ตามที่อาจารย์บอกแล้วครับ ก็ยังใช้งานไม่ได้ครับ Error เหมือนเดิมครับ

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

แบบนี้พอได้หรือเปล่าครับ คลิ๊กขวา column ว่างที่จะใส่ วันที่ เลือก Format Cell>> Date >> เลือกรูปแบบ Calendar Type = Thai Buddhist >> แล้วเลือก Type ด้านบนเป็น รูปแบบ " 14 มีนาคม 2544 " ครับ (ตามรูปที่แนบไปให้ครับ) หลังจากนั้นคีย์ข้อมูลวันที่ ตามรูปแบบ เช่น 04/04/2015 ก็จะได้ 4 เมษายน 2558...

แนบไฟล์เพิ่มเติมครับ

อาจารย์ครับ ผมแก้ไขตามที่อาจารย์ได้ให้แก้แล้วนะครับ แต่พอรัน Macro ก็ขึ้น Error Run time 9 ครับ
ผมแนบไฟล์มาให้ใหม่แล้วครับ อันนี้เกิดจากการที่ผมเปลี่ยนชื่อ sheet ด้วยหรือเปล่าครับ