ช่วยตอบแบบฝึกหัด vba หน่อยครับ
Posted: Thu Dec 15, 2011 1:48 pm
ผมซื้อหนังสือสอน VBA มาอ่าน แล้วเจอตัวอย่างที่มันติดตามนนี้ครับ
สร้าง procedure คำนวณเปอร์เซนต์กำไรหรือขาดทุนของการขายสินค้า
- ราคาขายอยู่ในเซลเดียวกับเซลแอคทีฟ และคอลัมน์ก่อนหน้า 2 คอลัมน์
- ต้นทุนอยู่ในเซลเดียวกับเซลแอคทีฟ และคอลัมน์ก่อนหน้า 1 คอลัมน์
- แสดงผลเปอร์เซนต์กำไรหรือขาดทุนที่แอคทีฟ
ไม่รู้ว่า code ผิดหรือเปล่า
ถ้าต้องการให้สามารถ run ได้ตามโจทย์ ต้องแก้ยังไงครับ
สร้าง procedure คำนวณเปอร์เซนต์กำไรหรือขาดทุนของการขายสินค้า
- ราคาขายอยู่ในเซลเดียวกับเซลแอคทีฟ และคอลัมน์ก่อนหน้า 2 คอลัมน์
- ต้นทุนอยู่ในเซลเดียวกับเซลแอคทีฟ และคอลัมน์ก่อนหน้า 1 คอลัมน์
- แสดงผลเปอร์เซนต์กำไรหรือขาดทุนที่แอคทีฟ
Code: Select all
Public Sub ex04_4()
Dim price As Single
Dim cost As Single
Dim margin As Single
price = ActiveCell.Offset(0, -2).Value
cost = ActiveCell.Offset(0, -1).Value
margin = (price - cost) * 100 / cost
ActiveCell.Value = margin
End Subถ้าต้องการให้สามารถ run ได้ตามโจทย์ ต้องแก้ยังไงครับ
อ่านแล้วไม่เข้าใจครับ น่าจะเป็น
