[[20040622102050]]　『ボタンにについて』（ショウ）　ページの最後に飛ぶ

『ボタンにについて』（ショウ）

ボタンに値を持たせて、それぞれの値によって処理を変えたいのですが
そういったことは可能なんでしょうか？
現在シートに直接ボタンをつけてやっていますがどうもその辺がわからないので
どなたか教えてください。お願いします。

エクセルのバージョン
Excel97
OSのバージョン
Windows2000

いくつかあるボタンの中で、指定のボタンをクリックすると、セルの値が変化するという意味でしょうか？

××に●●というボタンがあって、△△のセルの値を・・・・と詳しく書くとわかる方が答えてくれると思いますよ！

私もいつも自分中心で文章を書いてしまうので、どこのセルが？とかどんな風に？って言われちゃいます・・・^^;過去のログを見ているとわかりますが、結構たくさんいますよね？

詳しく書くと、関数や構文をコピペしたときにかなり正確に値が表示されます。(HISA)

説明不足でした。すいません^^;
例えば1月～12月までボタンを12個配置して、処理の内容は同じで唯一違うのがそれぞれの
月ごとの数字です。現状では各ボタンごとに同じようなことをしているので、無駄に
行数があるのでそれをまとめたいのですが、どのボタンを押したか判断ができれば処理が少なくなってプログラムが見やすくなると思うのですが、何か方法はありませんか？

 フォームのボタンですよね？

 Application.Caller で押されたボタン名を取得できます。

 Sub sample()
    MsgBox Application.Caller & " です。"

    Select Case Mid(Application.Caller, 5)

    Case "1"
        MsgBox "1の処理"
    Case "2"
        MsgBox "2の処理"
    Case "3"
        MsgBox "3の処理"
    End Select
 End Sub

   (INA)

 決して、嫌がらせではありません。

 久しぶりで Application.Caller を見かけたので、少し確認しました。

 (1)フォーム・ツールバーで作ったワークシート上のボタンは
    上のSampleで 正しく動きます。

 (2)コントロールツールボックスで作ったワークシート上のコマンドボタンは
    MsgBox Application.Caller & " です。" が
    [実行時エラー 13 型が一致しません。]エラー2023[参照エラー]になります。

 (3)ユーザフォーム上に作ったコマンドボタンは
    MsgBox Application.Caller & " です。" が
   [実行時エラー 13 型が一致しません。]エラー2023[参照エラー]になります。

 Excel2002 , WindowsXP

 （kazu）

ありがとうございました。^^
これからまたがんばってみたいと思います。

コメント返信：

[ 一覧(最新更新順) ]

[[20040622102050]] 『ボタンにについて』（ショウ） ページの最後に飛ぶ

[[20040622102050]]　『ボタンにについて』（ショウ）　ページの最後に飛ぶ