ขอคำแนะนำเพิ่มเติม VBA เฉพาะส่วน
Posted: Tue Apr 10, 2018 11:59 am
รบกวนสอบถามการเขียน VBA เว้นวรรคเฉพาะคอลัมภ์ H, S ซึ่งเบื้องต้นหนูเขียนสูตรมาคราวๆ แต่ติดปัญหา ช่อง H ที่ตั้งสูตรไว้ ถูกลบสูตรไปทำให้ต้องมาคลิกรวมสูตรมาใหม่ ซึ่งหนูขอคำแนะนำเพิ่มเติมในการตั้ง สูตร VBA เฉพาะส่วน ไม่ให้ข้อมูลในช่องดังกล่าวถูกลบไป เบื้องต้นได้เขียนโค๊ดมาแล้วแต่ปรับเปลี่ยนแล้วไม่สามารถ เว้นช่อง H ได้ค่ะ ส่วนช่อง S เว้นได้ปกติ
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