Page 1 of 1
ผมขอคำแนะนำด้วยครับ คือผมอยาก fix ผลหารของแต่ละ cell
Posted: Tue May 10, 2011 9:04 am
by 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 แทน
ขอคำแนะนำด้วยครับ
ขอบคุณครับ
Re: ผมขอคำแนะนำด้วยครับ คือผมอยาก fix ผลหารของแต่ละ cell
Posted: Tue May 10, 2011 11:43 am
by 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 > ทดสอบคีย์ตัวเลขในเซลล์ใด ๆ
Re: ผมขอคำแนะนำด้วยครับ คือผมอยาก fix ผลหารของแต่ละ cell
Posted: Thu May 12, 2011 3:30 pm
by hs3ogi
หากต้องการให้บางมีการคำนวณบางเฐลล่ะครับ อย่างเช่น
ให้ /0.8 เฉพาะในเซล A1-A10 และ B1-B10 จะทำได้ยังไงครับ
ขอบคุณครับ
Re: ผมขอคำแนะนำด้วยครับ คือผมอยาก fix ผลหารของแต่ละ cell
Posted: Thu May 12, 2011 3:37 pm
by snasui
ลองตามนี้ครับ
เปลี่ยนตรง
เป็น
Re: ผมขอคำแนะนำด้วยครับ คือผมอยาก fix ผลหารของแต่ละ cell
Posted: Thu May 12, 2011 3:46 pm
by 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
แบบนี้ใชป่าวครับ มันไม่ผ่านอ่ะครับ
Re: ผมขอคำแนะนำด้วยครับ คือผมอยาก fix ผลหารของแต่ละ cell
Posted: Thu May 12, 2011 4:20 pm
by 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