クリックしたコマンドボタン等の名前を取得する
シート上のフォームツールバーのボタンを押したときは
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
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
| その他