ฉันสามารถเพิ่มฟังก์ชันของตัวเองลงในแถบสถานะที่กำหนดเองใน Excel ได้หรือไม่

ลองทำสิ่งนี้ (ไม่ใช่วิธีที่ดีที่สุดที่จะทำแต่จะแก้ไขจุดประสงค์ของคุณได้)

คำอธิบาย: สิ่งที่โค้ดนี้ทำคือการตรวจสอบว่าผู้ใช้ได้เลือกช่วงที่ถูกต้อง (อย่างน้อย 2 เซลล์) แล้วใช้ Application.Evaluate เพื่อคำนวณสูตรของคุณ จากนั้นแสดงในแถบสถานะ โปรดทราบว่าฉันไม่ได้ทำการจัดการข้อผิดพลาดใดๆ ฉันแน่ใจว่าคุณจะดูแลมัน :)

วางสิ่งนี้ลงในพื้นที่รหัสแผ่นงานที่เกี่ยวข้อง

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If TypeName(Target) = "Range" Then
        If Target.Cells.Count > 1 Then
            Application.StatusBar = "My Function: " & _
                                    Application.Evaluate( _
                                                          "=COUNTA(" & _
                                                           Target.Address & _
                                                           ") / (COUNTA(" & _
                                                           Target.Address & _
                                                           ") + COUNTBLANK(" & _
                                                           Target.Address & _
                                                           "))" _
                                                           )
        End If
    End If
End Sub

นี่เป็นวิธีพื้นฐานในการทำมัน ในกรณีที่คุณต้องการให้ใช้ได้กับทุกชีต คุณจะต้องแก้ไขให้เหมาะสม

ปัญหาของวิธีนี้ก็คือมันจะระงับข้อความระดับแอปพลิเคชันในแถบสถานะ

ภาพหน้าจอ