Snasui Excel Forum

[quote=puriwutpokin post_id=102551 time=1594179935 user_id=6021]
แบบนี้หรือเปล่า สลับค่าไปมาครับ
[code]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[/code]
[/quote]

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

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

แบบนี้หรือเปล่า สลับค่าไปมาครับ
[code]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[/code]

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

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

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

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

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

ต้องการอัพเดทไฟล์ต้นฉบับ คือ
1. เปลี่ยนข้อความ "ผลลัพธ์" เป็น "ผลคูณ" ในช่อง C1
2. เปลี่ยนสูตรในปุ่มคำสั่ง
จากคำสั่งเดิม
[code]Sub Button1_¤ÅÔ¡()
Range("C2").Value = Range("A2").Value + Range("B2").Value
End Sub[/code]
เปลี่ยนคำสั่งใหม่
[code]Sub Button1_¤ÅÔ¡()
Range("C2").Value = Range("A2").Value * Range("B2").Value
End Sub[/code]