[[20050310145427]]　『クリックしたボタンの位置の値を使いたい』（TY）　ページの最後に飛ぶ

『クリックしたボタンの位置の値を使いたい』（TY）

 いつも、勉強させて頂いてます。また教えて頂きたいのですが、
 シート上にボタンが2個あります。ボタン①、ボタン②（このボタンはフォームのボタンでも
 オートシェイプでもマクロの実行用なら何でもいいんですが・・。）ボタン①をクリックする
 と、ボタン②を含む行がこぴぺで1行増えます。ボタン②をクリックするとボタン②の上に
 オートシェイプが貼り付けられて、ボタン②が隠れます。ボタン①で作った行のボタン②も
 同様の動作をして欲しいのですが、コピーでマクロの登録先はコピーされて、同じになるので
 ボタン②をクリックしたときに貼り付けられるオートシェイプが同じ所にしか出てきません。
 そこで、クリックしたボタンの位置を取得するコードがあれば出来るかも、と考えているの
 ですが、如何なものでしょうか。考え方自体がおかしい等も含めてご指導お願いいたします。
 EXCEL2003 Windows2000

 どうぞ。

 Sub ボタン1_Click()
    MsgBox ActiveSheet.Shapes(Application.Caller).Top
    MsgBox ActiveSheet.Shapes(Application.Caller).Left
 End Sub

  (INA)

 出来ました。
 いつもありがとう御座います。私の質問はいつも一撃で解決してしまって、やりとりがほとん
 無いままに終わってしまう・・。今回は自分では何時間も悩んでいて、結構難しいのでは！
 と思ったんですが、先生方にかかれば一発なんですね。改めて、自分の未熟さを思い知りまし
 た。また、よろしくお願いいたします。
 （TY）

 このような記述は、知らないとできないので、
 マクロの記録やヘルプから身につけることは困難だと思います。
 私も掲示板を利用しているうちに、自然と身につけたようなものですから。
  (INA)

 >自然と身につけたようなものですから。
 自然と・・って、さらりとおっしゃるところがまたすごいですね。
 見せて頂いてるとものすごい知識量だと思うのですが、何年ぐらいの賜物なのでしょうか？
 差し支えなければ・・・
 （TY）

 Excel VBAは、始めてから２年くらいです。 
 収集したWEBページは200くらい。作ったサンプルマクロブックも200くらい。
 これを辞書代わりに調べて、回答してます。

 去年からはWIN32APIを利用することが多いので、
 VBで作ってExcel VBAでも試してみたりと遊んでいます。
 これ以上実用的なレベルで追求することもなさそうだし、そろそろ卒業かな･･･。
   (INA)

 2年!!!!
 2年でこんなに!!!
 きっとすごい理解力や計算力を備えてらっしゃるのですね。
 私もがんばってみます。
 >そろそろ卒業かな･･･。
 エクセルの学校では先生なので、『卒業』は出来ませんよ!
 （TY）

コメント返信：

[ 一覧(最新更新順) ]

[[20050310145427]] 『クリックしたボタンの位置の値を使いたい』（TY） ページの最後に飛ぶ

[[20050310145427]]　『クリックしたボタンの位置の値を使いたい』（TY）　ページの最後に飛ぶ