Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


9645 / 13644 ツリー ←次へ | 前へ→

【26114】ワークシート上にボタンを配置 B-BOSS 05/6/23(木) 19:27 質問[未読]
【26127】Re:ワークシート上にボタンを配置 IROC 05/6/24(金) 8:29 回答[未読]
【26230】Re:ワークシート上にボタンを配置 B-BOSS 05/6/28(火) 17:33 質問[未読]
【26150】Re:ワークシート上にボタンを配置 Kein 05/6/24(金) 15:51 回答[未読]

【26114】ワークシート上にボタンを配置
質問  B-BOSS  - 05/6/23(木) 19:27 -

引用なし
パスワード
    ワークシート上にコマンドボタンを配置して、
そのボタンにコードを書き入れるコードを書くには
どうしたらよいのでしょうか?
 また、配置したボタンのCaptionプロパティも
変更したいのですが?

 どなたか解れば教えてください。

【26127】Re:ワークシート上にボタンを配置
回答  IROC  - 05/6/24(金) 8:29 -

引用なし
パスワード
   >「そのボタンにコードを書き入れるコードを書く」
VBAでVBAのコードを書いたり、変更したりするような、プログラムでプログラムを制御するのはウィルスと同じ手法なので、一般的な処理ではありません。
実際どのようなことを目的としたVBAを作りたいのかお教えいただければ、他の方法があるかもしれません。


> また、配置したボタンのCaptionプロパティも
>変更したいのですが?
CommandButton1.Caption = "TEST"
プロパティは、問題なく変更可能です。

【26150】Re:ワークシート上にボタンを配置
回答  Kein  - 05/6/24(金) 15:51 -

引用なし
パスワード
   フォームツールバーのボタンを配置するなら

Dim Lp As Single, Tp As Single
Dim Wp As Single, Hp As Single

With ActiveCell
  Lp = .Left: Tp = .Top
  Wp = .Width * 2: Hp = .Height
End With
With ActiveSheet.Buttons.Add(Lp, Tp, Wp, Hp)
  .Caption = "Test1"
  .OnAction = "Macro1"
End With

のようになります。

【26230】Re:ワークシート上にボタンを配置
質問  B-BOSS  - 05/6/28(火) 17:33 -

引用なし
パスワード
   アドバイスありがとうございます。
エクセルで作成した生産計画をさらに詳細の計画にし
さらに進捗の確認も出来るように変更する為の
コードを作成中です。
 一応、アドインにて作成しツールバーにボタンを作成して
行う予定ですが、ある程度できたのですが、シート上に
集計等のコマンドボタンを配置したかったのです。
 TXTファイル等にコードを書いて置いて
コマンドボタンに割り当てる事が出来ないかと
思ったのですが・・・。
 ほかに良い方法等がございましたら、又アドバイス願います。


▼IROC さん:
>>「そのボタンにコードを書き入れるコードを書く」
>VBAでVBAのコードを書いたり、変更したりするような、プログラムでプログラムを制御するのはウィルスと同じ手法なので、一般的な処理ではありません。
>実際どのようなことを目的としたVBAを作りたいのかお教えいただければ、他の方法があるかもしれません。
>
>
>> また、配置したボタンのCaptionプロパティも
>>変更したいのですが?
>CommandButton1.Caption = "TEST"
>プロパティは、問題なく変更可能です。

9645 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free