Excel Forum

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

code vba อาจจะรบกวนทำตามกฏข้อ5นะครับ
5. สำหรับคำถามเกี่ยวกับ VBA ให้ลองเขียนมาเองก่อนเสมอ ถามเฉพาะที่ติดปัญหา ระบุ Module, Procedure ที่ติดปัญหาให้ชัดเจน ควรโพสต์ Code ให้แสดงเป็น Code เพื่อสะดวกในการอ่านและทดสอบ

ขอบคุณครับอาจารย์ ตรงตามที่ต้องการเลยครับ code รอบนี้ยาวมาก มึนได้อีก

หลังจากแสดง MsgBox เสร็จ
MsgBox "คุณลืมเปลี่ยนชื่อชีท " & r.Value
ผมจะให้มันรัน procedure ที่อยู่ใน module เดียวกัน ชื่อ procedure "Sub RenameSheet()" ต่อได้ไหมครับ
และเขียนลงอย่างไรครับ ขอบคุณครับ

:D ตัวอย่าง Code ครับ Sub Button1_Click() Dim rall As Range, r As Range With Worksheets("หน้าหลัก") Set rall = .Range("A2", .Range("A100").End(xlUp)) End With For Each r In rall Worksheets(r.Value).Range("a2:d2").Value = r.Offset(0, 1).Resize(1, 4).Value Next...

อาจารย์พอจะมีตัวอย่าง code vba ที่ใช้ค้นหาคำที่ใกล้เคียงกับที่ค้นหาไหมครับ
สินค้าที่ผมบันทึกไว้ สมมุติมีดังนี้
1 ไม้เชิงชาย
2 ไม้พื้น
3 ไม้บันได
เช่น ค้นหาคำว่า "ไม้" ให้นำสินค้าที่มีคำว่าไม้ 1-3 มาแสดงใน toolbox ที่สามารถคลิกเลือก แล้วบันทึกลงใน sheet ได้

เรียนท่านอาจารย์ snasui ครับ
ถ้าผมจะเข้าไปดูกระทู้เก่าๆที่เคยโพส สามารถเข้าไปดูตรงไหนได้บ้างครับ
ขอบคุณครับ

เรียนอาจารย์ snasui ครับ
ผมลองรันแล้วใช้ได้ตามที่ต้องการครับ แต่ผมเอาไปปรับเปลี่ยนนิดหน่อย
ขอบคุณมากๆเลยครับ
กรณีแบบนี้ ถ้าเราไม่ต้องอ้างอิงชื่อชีทได้ไหมครับ โดยใช้ activesheet แล for =
ส่วน for และ for each การทำงานต่างกันอย่างไรครับ และข้อจำกัดของมัน พอจะมีรายละเอียดไหมครับ

เรียนสมาชิกครับ พอดีผมปรับcode ให้นำค่าจากชีท"หน้าหลัก"ตั้งแต่เซลล์a2ลงไป ส่งไปยังทุกชีทที่เซลล์ b1 ยกเว้นชีท"หน้าหลัก" แต่ยังไม่ได้ รบกวนสมาชิกช่วยดูให้หน่อยครับ Sub Button1_Click() Dim i As Long Dim r As Range Set r = Worksheets("หน้าหลัก").Range("A2", Works...

ต้องเอาชีท master เรียงอยู่ซ้ายสุดนะครับ จากที่ลองใช้ code ดู

วิธีการคงต้องใช้ VBA ครับ ต้องเขียนมาเองตามกฏข้อ5 ครับ เบื้องต้นลองดูจากกระทู้เก่าก่อนได้ครับ ปรับแก้กันไป ติดอะไร ค่อยมาถามต่อครับ http://snasui.com/viewtopic.php?f=3&t=12288 ตามสมาชิกคุณ puriwutpokin [/quote] เลยครับ VBA เป็นอะไรที่ซับซ้อนกว่าสูตรที่เราสร้างที่เซลล์ทั่วไป ฉนั้นต้องอาศัยความเข...

สุดยอดมากครับ ตรงตามที่ต้องการเลยครับ ขอบคุณสมาชิก คุณpuriwutpokinมากๆครับ

อ๋อ หมายถึงถ้ามาเพิ่มชื่อชีท 4,5,.. ไปเรื่อยๆ ภายหลัง โดยไม่ได้ลบชื่อชีท 1,2,3,เดิม
เวลากดปุ่ม อยากให้สร้างชื่อชีท 4,5,... ตามลำดับไปเลยครับ

ขอบคุณ คุณpuriwutpokinครับ ใช้ได้ตรงตามที่ต้องการเลยครับ
พอดีผมมาเพิ่มชื่อชีท 4,5ภายหลัง แล้วกดปุ่มเพื่อสร้างชีทต่อจากชีท3 เป็นชีท4,5ตามลำดับ
แต่ยังติดตรงนี้ครับ ขอบกวนช่วยดูให้อีกทีครับ

ขอบคุณ puriwutpokin ครับ ได้ตรงตามที่ต้องการแล้วครับ แต่พอดีผมปรับ code เพิ่ม แต่ยังติดขัดอยู่ ผมต้องการส่งค่าจากชีท หน้าหลัก ที่เซลล์ b:e ไปยังชื่อชีทที่สร้างตามลำดับ รบกวนช่วยดูให้หน่อยครับ ขอบคุณมากๆครับ Sub Button1_Click() Dim i As Long Dim r As Range Dim sh As Worksheet With Worksheets("หน...

copy Sheet อัตโนมัติจากชีทที่กำหนด แล้วเปลี่ยนรายชื่อชีทที่ให้ไว้ล่วงหน้าด้วย VBA สวัสดีครับสมาชิกทุกท่าน ผมได้นำ code ของอาจารย์ snasui มาปรับใช้ แต่ยังติดขัด ผมต้องการก๊อปปี้ชีท จาก sheetcopy แล้วเปลี่ยนรายชื่อชีทที่ให้ไว้ล่วงหน้า โดยรายชื่อชีทจะอยู่ที่ชีท หน้าหลัก รบกวนสมาชิกทุกท่านช่วยหน่อยครับ ...

ได้แล้วครับ ของคุณท่านอาจารย์ snasui คุณpuriwutpokin และ คุณ menem ที่คอยช่วยเหลือครับ
code ของคุณ menem ผมจะลองเอาไปปรับใช้นะครับ

ปรับเป็น Sub Button2_Click() Dim sh As Worksheet Worksheets("รวมสรุปยอด").Range("b4:g31").ClearContents For Each sh In Worksheets If sh.Name <> "รวมสรุปยอด" Then With Worksheets("รวมสรุปยอด") .Range("b4:g4").Offset(Application.CountA(.Range("b4...

ผมลองใช้ code ของคุณ puriwutpokin แล้วครับ เซลล์บางคอลัมน์ ค่ามันไม่เริ่มแถวเดียวกัน ทั้งๆที่เขียนcodeให้เริ่มแถวเดียวกัน คือแถวที่4 รบกวนกวนเช็คให้อีกทีครับ Sub Button2_Click() Dim sh As Worksheet Worksheets("รวมสรุปยอด").Range("b4:g31").ClearContents For Each sh In Worksheets I...

ขอบคุณมากครับ code ตรงตามที่ต้องการเลยครับอาจารย์ แต่ผมปรับให้มันเริ่มวางตั้งแต่เซลล์ A2ลงมา ปรากฎว่ามันดึงค่าเฉพาะชีทสุดท้ายมา รบกวนอาจารย์ช่วยหน่อยครับ Sub Button2_Click() Dim sh As Worksheet Worksheets("รวมสรุปยอด").Range("a2:a1000").ClearContents For Each sh In Worksheets If ...

นำยอดtotalจากทุกชีทมารวมไว้ในชีทเดียวแบบเรียงลำดับลงมาเรื่อยๆ ผมต้องการนำยอดtotalจากทุกชีทมารวมไว้ที่ชีท"รวมสรุปยอด"โดยเรียงลำดับลงมาเรื่อยๆ ยอดtotalจะอยู่ที่เซลล์D5ทุกชีทครับ (ต้องขออภัยด้วยครับ ไฟล์นี้ผมยกตัวอย่างมา เนื่องจากไฟล์ของจริง ไม่สามารถเปิดเผยได้) code ที่ได้เขียนไว้ มีดังนี้คร...