▼ กำลังโหลดข้อมูล... ▼
แสดงความคิดเห็น
คุณสามารถแสดงความคิดเห็นกับกระทู้นี้ได้ด้วยการเข้าสู่ระบบ
กระทู้ที่คุณอาจสนใจ
อ่านกระทู้อื่นที่พูดคุยเกี่ยวกับ
การพัฒนาซอฟต์แวร์
ช่วยอธิบาย Code นี้หน่อยครับไม่ค่อยเข้าใจ
Dim Poe As Currency
Dim discount As Single
ActiveCell.Offset(0, -2).Range("A1").Select
Poe = ActiveCell.Value
ActiveCell.Offset(0, 1).Range("A1").Select
discount = ActiveCell.Value
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.Value = Poe * (1 - discount / 100)
Selection.Style = "Currency"
End Sub