人気ブログランキング | 話題のタグを見る

クリックしたコマンドボタン等の名前を取得する

シート上のフォームツールバーのボタンを押したときは

Set Myobj = ActiveSheet.Shapes(Application.Caller)

シート上のコントロールツールバーのボタンを押したときは

Dim Myobj As OLEObject
Set Myobj=ActiveWindow.RangeFromPoint(Poi.x,Poi.y)
マウスがポイントしている位置のセルを取得を参照


ユーザーフォーム上のコントロールボタンを押したときは

If TypeName(ActiveControl) = "MultiPage" Then
Set Myobj = MultiPage2.SelectedItem.ActiveControl
Else
Set Myobj = ActiveControl
End If
by yuna-tip | 2003-12-06 23:49 | その他