请大家不吝赐教
VB中如何写COM加载项的代码
此代码如何修改（以便调用VB中代码）
Private Sub XL_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range) '激活单元格事件
    xlApp.OnKey "~", "HCJ" '大键盘回车
    xlApp.OnKey "{enter}", "HCJ" '小键盘回车
End Sub

替你支持一下，我也懵懂

没太懂啊LZ
有图么