Excel / VBA - เหตุการณ์ที่จะแสดงความคิดเห็น
ปัญหา
ฉันพยายามสร้างกิจกรรมภายในหลายเซลล์ที่จะขอความเห็นหากตรงตามเงื่อนไข
ตัวอย่างเช่น
- ถ้า c1 <3.2 ดังนั้น [run event]
- ฉันต้องการให้เหตุการณ์ใช้ฟอร์มเป็นป๊อปอัพความคิดเห็นที่จะบันทึกลงในความคิดเห็นในเซลล์
สารละลาย
ลองสิ่งนี้:
Private Sub Worksheet_Change (ByVal Target As Range) Dim MyMessage As String หาก Intersect (Target, Range ("C1")) ไม่มีอะไรแล้วออกจาก Sub Sub ถ้า Range ("C1") <3.2 จากนั้น MyMessage = InputBox ("กรุณาใส่ความคิดเห็นของคุณ ) ด้วย Range ("C1") .ClearComments.AddComment .Comment.Visible = False .Comment.Text Text: = MyMessage End ด้วย End หาก End Sub
ขอบคุณ TrowaD สำหรับเคล็ดลับนี้