Excel Forum

Posted: **Wed Jul 08, 2020 12:49 am**

เรียนอาจารย์ และสมาชิกทุกท่าน

มีปัญหาต้องการอัพเดทไฟล์ Excel เหมือนโปรแกรมทั่วไปมักจะมีต้วอัพเดทขึ้นมาเพิ่มเติมหรือแก้ไขข้อผิดพลาด ด้วยวิธีการรันโปรแกรมใหม่ เพื่อไปอัดเดทโปรแกรมเก่า จะเขียนโค้ดอย่างไรบ้างครับ โดยไม่ให้ข้อมูลในไฟล์เดิมสูญหาย

ต้องการอัพเดทไฟล์ต้นฉบับ คือ
1. เปลี่ยนข้อความ "ผลลัพธ์" เป็น "ผลคูณ" ในช่อง C1
2. เปลี่ยนสูตรในปุ่มคำสั่ง
จากคำสั่งเดิม

Code: Select all

Sub Button1_¤ÅÔ¡()
Range("C2").Value = Range("A2").Value + Range("B2").Value
End Sub

เปลี่ยนคำสั่งใหม่

Code: Select all

Sub Button1_¤ÅÔ¡()
Range("C2").Value = Range("A2").Value * Range("B2").Value
End Sub

Posted: **Wed Jul 08, 2020 10:05 am**

ขอโทษครับ ลืมแนบไฟล์

Posted: **Wed Jul 08, 2020 10:45 am**

แบบนี้หรือเปล่า สลับค่าไปมาครับ

Code: Select all

Sub Button1_คลิก()
If Range("C1").Value = "ผลลัพธ์" Then
Range("C1").Value = "ผลคูณ"
Range("C2").Value = Range("A2").Value * Range("B2").Value
ElseIf Range("C1").Value = "ผลคูณ" Then
Range("C1").Value = "ผลลัพธ์"
Range("C2").Value = Range("A2").Value + Range("B2").Value
End If
End Sub

Posted: **Wed Jul 08, 2020 6:58 pm**

puriwutpokin wrote: Wed Jul 08, 2020 10:45 am แบบนี้หรือเปล่า สลับค่าไปมาครับ
Code: Select all
Sub Button1_คลิก()
If Range("C1").Value = "ผลลัพธ์" Then
Range("C1").Value = "ผลคูณ"
Range("C2").Value = Range("A2").Value * Range("B2").Value
ElseIf Range("C1").Value = "ผลคูณ" Then
Range("C1").Value = "ผลลัพธ์"
Range("C2").Value = Range("A2").Value + Range("B2").Value
End If
End Sub

ถ้าเราไปแก้ไขในไฟล์ "ต้นฉบับ.xlsb" น่าจะได้ผลลัพธ์ถูกต้องครับ
แต่ถ้าไฟล์ "ต้นฉบับ.xlsb" ถูกแจกจ่ายไปให้คนอื่นๆใช้ เราคงตามไปแก้ไขลำบาก
ถ้าเราสามารถสร้างไฟล์ ขึ้นมาใหม่ แล้วรันสั่งให้ไปอัพเดตไฟล์ "ต้นฉบับ.xlsb" เดิมให้ถูกต้อง คงจะง่ายขึ้นนะ

Excel Forum

อัพเดตไฟล์ Excel ด้วย VBA

อัพเดตไฟล์ Excel ด้วย VBA

Re: อัพเดตไฟล์ Excel ด้วย VBA

Re: อัพเดตไฟล์ Excel ด้วย VBA

Re: อัพเดตไฟล์ Excel ด้วย VBA