เวลาลากเมาส์ผ่านเชลในแถบสีเหลืองให้แสดงต่าเซล ใน A1

[yodpao.b]

เวลาลากเมาส์ผ่านเชลในแถบสีเหลืองให้แสดงต่าเซล ใน A1

เนื่องจากค่าที่เราต้องการเห็นอยู่ในเซลอื่น ที่อยู่ใกลจากจุดที่เราแก้ไข
หมายถึงเราแก้ไขตัวเลขในแถว ค่าผลรวมที่อยู่หัวตารางจะเปลี่ยนไป
ถ้าเลื่อนไปมาจะงงจำไม่ได้ว่าแก้ตรงไหน

จึงอยากถามว่ามีโคดอะไรไหมที่ เวลาลากเมาส์ผ่านเชลในแถบสีเหลืองให้แสดงต่าเซล ใน A1
ลักษณะคล้ายกับการแสดงข้อคิดเห็นใน excel
หรือจะแสดงในรูปแบบไหนก็ได้
คัวอย่างตามรูปด้านล่างครับ

[snasui]

เวลาลากเมาส์ผ่านเชลในแถบสีเหลืองให้แสดงต่าเซล ใน A1

เนื่องจากค่าที่เราต้องการเห็นอยู่ในเซลอื่น ที่อยู่ใกลจากจุดที่เราแก้ไข
หมายถึงเราแก้ไขตัวเลขในแถว ค่าผลรวมที่อยู่หัวตารางจะเปลี่ยนไป
ถ้าเลื่อนไปมาจะงงจำไม่ได้ว่าแก้ตรงไหน

จึงอยากถามว่ามีโคดอะไรไหมที่ เวลาลากเมาส์ผ่านเชลในแถบสีเหลืองให้แสดงต่าเซล ใน A1
ลักษณะคล้ายกับการแสดงข้อคิดเห็นใน excel
หรือจะแสดงในรูปแบบไหนก็ได้
คัวอย่างตามรูปด้านล่างครับ

กรุณาแก้ไขข้อความที่ผมระบายสีไว้ด้วยครับ

[yodpao.b]

ขอโทษครับ
เวลาลากเมาส์ผ่านเซลในแถบสีเหลืองให้แสดงค่าเซล ใน A1

เนื่องจากค่าที่เราต้องการเห็นอยู่ในเซลอื่น ที่อยู่ไกลจากจุดที่เราแก้ไข
หมายถึงเราแก้ไขตัวเลขในแถว ค่าผลรวมที่อยู่หัวตารางจะเปลี่ยนไป
ถ้าเลื่อนไปมาจะงงจำไม่ได้ว่าแก้ตรงไหน

จึงอยากถามว่ามีโคดอะไรไหมที่ เวลาลากเมาส์ผ่านเซลในแถบสีเหลืองให้แสดงค่าเซล ใน A1
ลักษณะคล้ายกับการแสดงข้อคิดเห็นใน excel
หรือจะแสดงในรูปแบบไหนก็ได้
ตัวอย่างตามรูปด้านล่างครับ

0.JPG

[yodpao.b]

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)

     If Target.Address = "$D$4" Then
             Call MacroClearPageApprove
     End If
     
    If Range("Q35") > 1 Then
        If Target.Address = "$P$39" Then
            MsgBox "..TOTAL COST OF BUDGET CUTS.." & vbLf & vbLf & "       BATH : " & Range("Q35").Text, Title:="Contract Status"
        End If
    End If

ผมใช้ code ด้านบนดักจับการเปลี่ยนแปลงของเซล P9 จากนั้นให้ขึ้น MsgBox
แต่พอขยายการควบคุม จาก "$P$39" เป็น "$P$39":"$BG$100" กลับ ไม่ทำงาน

If Target.Address = "$P$39:$BG$100" Then

[snasui]

Code ที่เขียนมาไม่ได้เกี่ยวกับการเปลี่ยนแปลงในเซลล์ P9 แต่อย่างใด กรุณาเขียนมาใหม่ให้ตรงกับสิ่งที่ต้องการด้วยครับ

ช่วยสรุปมาใหม่ว่าต้องการจะทำอะไรเป็นลำดับ ๆ ไป อ่านแล้วยังไม่เข้าใจถึงสิ่งที่ต้องการ

การดักการเปลี่ยนแปลงกับการคลุมใช้คนละ Event ต้องการทำอันไหนก่อนหลัง ทำแล้วต้องการให้ได้คำตอบเป็นอะไร ช่วยเขียนมาอย่างละเอียดครับ

[yodpao.b]

code ที่เขียนไปคือ เมื่อ P39 มีการเปลี่ยนแปลงเช่นพิมพ์เลขใหม่ MsgBox จะขึ้นมาสรุปผลรวมให้เห็น
ซึ่งไม่ดีแน่เพราะบริเวณนั้นจะต้องมีการวางหรือคัดลอกบ่อยซึ่งก็จะทำให้ MsgBox ปรากฏขึ้นอาจทำให้มีปัญหาภายหลัง
ผมหาข้อมูล code ได้เท่านี้ครับ ทำอย่างอื่นไม่ได้แล้ว
ที่ผมเขียน code ด้านบนไม่เอาครับ ขอเปลี่ยนเป็นคลุม
อยากให้อาจารย์ช่วยเขียน code แบบคลุมครับ

ลำดับการทำงาน
1 เมื่อลากเมาส์ ค้างไว้บริเวณ cell F35:BH35 (ไม่มีการคลิก cell ใดๆ)
ผลคือจะต้องแสดง MsgBox ขึ้น
2 ภายใน MsgBox จะแสดงผลที่ได้จากการ SUM ในเซล Q35
3.คลิก ok ใน MsgBox หรือลากเมาส์ผ่านไปไม่ให้อยู่ในระยะ cell F35:BH35 MsgBox ปิดเอง
จบขั้นตอน
ในข้อ 3 แล้วแต่อาจารย์จะสะดวกนะครับ คลิก ok ก็ไม่ต้องทำอะไรมาก
ขอขอบคุณครับ

ผมลองเอาไฟล์ไปใช้ เปลี่ยนตัวเลขที่ต้องลากเมาส์กลับไปดูผลรวมที่ แล้วก็กลับไปปรับตัวเลขใหม่ งงมากครับ
จึงอยากได้ทำอย่างไรก็ได้ให้ผลรวมปรากฎขึ้นโดยไม่ต้องลากเมาส์ไปดู
ตอนชั่วโมงที่ผ่านลองใช้ Even คลิกขวาที่เมาส์ ok มากเลยครับแต่ติดที่หลังจากนั้นมันขึ้นเมนูที่เกียวข้องกับการคลิกขวาที่เมาส์ขึ้นมาด้วย
ดูไม่ดีอีกเช่นกัน แต่ผมจะใช้เป็นทางเลือกสุดท้าย

[snasui]

ตัวอย่าง Code ครับ

Code: Select all

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("$P$35:$BG$35")) Is Nothing Then
        MsgBox "..TOTAL COST OF BUDGET CUTS.." & vbLf & vbLf & "       BATH : " & Range("Q35").Text, Title:="Contract Status"
    End If
End Sub

[yodpao.b]

แบบนี้ก็ได้ ครับ ใช้ได้เหมือนกัน

ขอโทษจริงครับอาจารย์ ผมจำได้โคดที่ได้มาใหม่ คล้ายกับที่อาจารย์ทำให้เมื่อ อาทิตย์ก่อน
โคดที่เคยได้มา

If Not Application.Intersect(Target, Range("B:B")) Is Nothing Then

ผมนี้แย่มาก ดันไปนำ โคด " Worksheet_Change" มาใช้
เสียเวลาหาข้อมูลต้องนาน ที่แท้ก็เคยนำมาใช้ไม่กี่วันเอง

ต้องขอโทษที่ทำให้อาจารย์เสียเวลาตอบคำถามแบบเดิม