EXCEL TOOLS
Excel Add-ins ที่พัฒนาโดยคุณสันติพงศ์ ณสุย (MVP Excel 2010-2020) ด้วยภาษา C# เพื่อแก้ไขปัญหาไฟล์ใหญ่ คำนวณนาน ทำงานช้า จัดการข้อมูลต่าง ๆ ที่ทำงานประจำวันได้อย่างสะดวกรวดเร็ว สนใจคลิกไปดูได้ที่นี่ครับ => Excel Tools
Excel Add-ins ที่พัฒนาโดยคุณสันติพงศ์ ณสุย (MVP Excel 2010-2020) ด้วยภาษา C# เพื่อแก้ไขปัญหาไฟล์ใหญ่ คำนวณนาน ทำงานช้า จัดการข้อมูลต่าง ๆ ที่ทำงานประจำวันได้อย่างสะดวกรวดเร็ว สนใจคลิกไปดูได้ที่นี่ครับ => Excel Tools
[code]
และปิดด้วย [/code]
ตัวอย่างเช่น [code]dim r as range[/code]
เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)Code: Select all
Private Sub CommandButton1_Click()
ActiveWorkbook.Save
Range("C5:C13").Select
Selection.Copy
Sheets("Sheet2").Select
ActiveSheet.Range("A1048576").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial xlPasteValues, Transpose:=True
Sheets("Sheet1").Select
Range("C13").Copy
Sheets("Sheet2").Select
ActiveSheet.Range("A1048576").End(xlUp).Offset(0, 18).Select
Selection.PasteSpecial xlPasteValues
Sheets("Sheet1").Select
[B2:M15].ClearContents
End Sub
ลองปรับเป็นkeay44 wrote: ↑Tue Apr 10, 2018 11:59 am รบกวนสอบถามการเขียน VBA เว้นวรรคเฉพาะคอลัมภ์ H, S ซึ่งเบื้องต้นหนูเขียนสูตรมาคราวๆ แต่ติดปัญหา ช่อง H ที่ตั้งสูตรไว้ ถูกลบสูตรไปทำให้ต้องมาคลิกรวมสูตรมาใหม่ ซึ่งหนูขอคำแนะนำเพิ่มเติมในการตั้ง สูตร VBA เฉพาะส่วน ไม่ให้ข้อมูลในช่องดังกล่าวถูกลบไป เบื้องต้นได้เขียนโค๊ดมาแล้วแต่ปรับเปลี่ยนแล้วไม่สามารถ เว้นช่อง H ได้ค่ะ ส่วนช่อง S เว้นได้ปกติ
Code: Select all
Private Sub CommandButton1_Click() Application.ScreenUpdating = False ActiveWorkbook.Save Range("C5:C13").Select Selection.Copy Sheets("Sheet2").Select ActiveSheet.Range("A1048576").End(xlUp).Offset(1, 0).Select Selection.PasteSpecial xlPasteValues, Transpose:=True Sheets("Sheet1").Select Range("C13").Copy Sheets("Sheet2").Select ActiveSheet.Range("A1048576").End(xlUp).Offset(0, 18).Select Selection.PasteSpecial xlPasteValues Sheets("Sheet1").Select [B2:M15].ClearContents Application.ScreenUpdating = True End Sub
Code: Select all
Private Sub CommandButton1_Click()
ActiveWorkbook.Save
Range("C5:C11").Select
Selection.Copy
Sheets("Sheet2").Select
ActiveSheet.Range("A1048576").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial xlPasteValues, Transpose:=True
Sheets("Sheet1").Select
Range("C12:C13").Select
Selection.Copy
Sheets("Sheet2").Select
ActiveSheet.Range("A1048576").End(xlUp).Offset(0, 8).Select
Selection.PasteSpecial xlPasteValues, Transpose:=True
Sheets("Sheet1").Select
Range("C13").Copy
Sheets("Sheet2").Select
ActiveSheet.Range("A1048576").End(xlUp).Offset(0, 19).Select
Selection.PasteSpecial xlPasteValues
Sheets("Sheet1").Select
[B2:M15].ClearContents
End Sub