ผมขอคำแนะนำด้วยครับ คือผมอยาก fix ผลหารของแต่ละ cell

[hs3ogi]

สวัสดีครับ พี่ๆ ผมขอคำแนะนำด้วยครับ คือผมอยาก fix ผลหารของแต่ละ cell ใน Excel อ่ะครับ

คือ จะให้ทุก cell หารด้วย 0.8 ทั้งหมด และมีวิธีใดบ้างที่จะไม่ต้องพิมพ์ หรือใช้สูตร =A1/0.8

คำถาม?
-พอจะมีวิธีไหมที่เมื่อพิมพ์ ตัวเลขเข้าไปในช่อง A1 แล้วเมื่อ Enter ช่อง A1 จะ div ข้อมูลให้ทันที

เช่นคีย์ 2 เข้าไปในช่อง A1 เมื่อ Enter หรือเปลี่ยนไป Cell อื่น จะหาผล Div ให้ คือ 2/0.8 และนำค่าผลลัพท์ 2.5 ใส่ไว้ในช่อง A1 แทน

ขอคำแนะนำด้วยครับ

ขอบคุณครับ

[snasui]

การทำเช่นนั้นต้องใช้ VBA ลองตามนี้ครับ

๑. กดแป้น Alt+F11 เพื่อเปิดโปรแกรม VBE
๒. ดับเบิ้ลคลิก Sheet1 ด้านซ้ายมือ
๓. Copy Code ด้านล่างไปวาง

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
On Error Resume Next
    Target = Target / 0.8
Application.EnableEvents = True
End Sub

๔. กดแป้น Alt+Q > ทดสอบคีย์ตัวเลขในเซลล์ใด ๆ

[hs3ogi]

หากต้องการให้บางมีการคำนวณบางเฐลล่ะครับ อย่างเช่น

ให้ /0.8 เฉพาะในเซล A1-A10 และ B1-B10 จะทำได้ยังไงครับ

ขอบคุณครับ

[snasui]

ลองตามนี้ครับ

เปลี่ยนตรง

Code: Select all

Target = Target / 0.8

เป็น

Code: Select all

Range("A1:B10")/0.8

[hs3ogi]

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
On Error Resume Next
    Range ("A1:A10") / 0.8
Application.EnableEvents = True
End Sub

แบบนี้ใชป่าวครับ มันไม่ผ่านอ่ะครับ

[snasui]

ลองปรับ Code เป็นตามด้านล่างครับ

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
For Each Target In Range("A1:A10")
    Target = Target / 0.8
Next
Application.EnableEvents = True
End Sub