行う処理ごとのコマンドボタンが複数シート状にあります。
例 「caption(オブジェクト名)
納品書シート
「処理1(CommandButton1)」
「処理2(CommandButton2)」
領収書シート
「処理3(CommandButton3)」
「発行(CommandButton4)」
処理1をクリックすると一連の処理後、不要なコマンドボタンを削除し、一つのコマンドボタンのCaptionを変更したい。下記ソース・・全角スペースで字下げしてあります。
DIM CB As Object
For Each CB In Worksheets("納品書").Shapes
If CB.Name = "CommandButton1" Or _
CB.Name = "CommandButton2" Then
Worksheets("納品書").Shapes(CB.Name).Delete
End If
Next
WorkSheets("領収書").Shapes.Range(Array("CommandButton3")).Delete
WorkSheets("領収書").Shapes.Range(Array("CommandButton4")).Caption = "再発行" '
としたのですが、
「オブジェクトは、このプロパティまたはメソッドをサポートしていません」
となります。
WorkSheets("領収書").Shapes("CommandButton4").Caption = "再発行"
も同様・・・さて
A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
CommandButton・・・
ActiveX コントロールですよね
WorkSheets("領収書").Shapes("CommandButton4").Caption = "再発行"
Worksheets("領収書").OLEObjects("CommandButton4").Object.Caption = "再発行"
シートで ActiveX コントロールを使用する
https://learn.microsoft.com/ja-jp/office/vba/exc …
余談
ボタンを 削除する というロジックでない方が良いように思う
プルダウンやCaptionの値を使うとかで分岐処理するとか・・・
>ルダウンやCaptionの値を使うとかで分岐処理するとか・・
私以外が作業する場合も考えると、入力後ボタンをクリックすることにしたいので、この方法は・・
結局、ActivXコントロールのボタンを重ねて、最初の処理で上のボタンを削除するという簡便な方法に落ち着きました。
No.1
- 回答日時:
コマンドボタンのCaptionは、ユーザーフォームやシート上で表示されるボタンのテキストです。
プロパティウィンドウから変更する方法:
コマンドボタンをアクティブにします。
「開発」タブ > 「プロパティ」をクリックします。
「Caption」欄の値を表示したい文字に変更します。
VBAのプログラムの中でCaptionプロパティを設定する方法:
VBAのコードを記述してCaptionプロパティの値を変更できます。
次の書式を使用します:
オブジェクト.Caption = "表示する文字列"
例
ユーザーフォーム上でラベルを一度クリックしてからプロパティウィンドウのCaptionの個所を見る。
値として「Label1」が設定されています。ラベルに表示される文字列を変更するにはCaptionの値を直接編集してください。
具体的なサンプルコード:
ユーザーフォームが表示される前に発生するInitializeイベントに対するイベントプロシージャを作成し、その中でCaptionプロパティの値を設定します。以下はサンプルコードです:
Private Sub UserForm_Initialize()
Label1.Caption = "名前を入力してください"
CommandButton1.Caption = "OK"
End Sub
このようにVBAのプログラムの中でCaptionプロパティの値を変更することができます。
注意: VBAを使ってCaptionプロパティに文字列を設定する場合、文字列の途中で改行する場合はvbNewLineを使用してください。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
ロボットの住む世界で流行ってる罰ゲームとは?
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
VBA シートのボタン名を変更したい
Visual Basic(VBA)
-
CommandButtonのCaptionを変化させたい
Visual Basic(VBA)
-
Excel VBA ワークシートに貼られたボタン名(Caption)をセルの値から取得するには
その他(プログラミング・Web制作)
-
-
4
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
5
VBAのコマンドボタンの文字列の改行方法は?
Visual Basic(VBA)
-
6
エクセルVBAで、ボタンの文字を変えたい
Excel(エクセル)
-
7
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
8
VBA(えくせる)ってなんでメンテできない人が多いんですか?
Excel(エクセル)
-
9
セルの結合の連続技
Excel(エクセル)
-
10
“丸(〇/○/◯)”に似た文字…
Excel(エクセル)
-
11
Excel 大なり小なりを表すとき、 例えば「10以上」なら、>=10 と表せますが、 この10の部
Excel(エクセル)
-
12
他人が作ったマクロの理解
Excel(エクセル)
-
13
エクセルの気味悪い不思議
Excel(エクセル)
-
14
Excelのマクロで、セルを結合してその結合したセルに斜線「右上から左下」が出来るようになるコードっ
Excel(エクセル)
-
15
エクセルで比較 かつ 部分一致について
Excel(エクセル)
-
16
Win10でExcel VBA GetPhoneticを使い ふりがな候補を全て連続で取得する方法?
Excel(エクセル)
-
17
VBA CommandButtonの文字ずれ
Visual Basic(VBA)
-
18
同一セルに入力規則のリストと参照する設定併用できるような設定はありますでしょうか!!
Excel(エクセル)
-
19
Excelのシート背景に不明な文字が表示されています。何故?
Excel(エクセル)
-
20
空白のないドロップダウンリストの作り方
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エラー内容が分かりません
-
Excel VBAで、実行時にsheet上...
-
エクセルVBAでmeに相当するもの...
-
複数のデータ系列の線の太さを...
-
エクセルでツールバーに「縮小...
-
ExcelVBAで今開いているユーザ...
-
フォルダ内の全ブックのシート...
-
VBAを一度起動するとずっと出て...
-
コピーしたファイルのマクロを...
-
エクセルの指数を無効にしたい
-
【マクロ】エラーが発生⇒実行時...
-
VBA マクロ実行時エラー’1004Ra...
-
excelファイルに使われているVB...
-
エクセルマクロ実行中に別ファ...
-
ファイル名を今日の日付、時刻...
-
複数のCSVファイルを横に並べて...
-
「ほかのアプリケーションを無...
-
excelインポート時の「実行時エ...
-
別のパソコンでエクセルのマク...
-
VBA[Private Sub]のコードをシ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エラー内容が分かりません
-
Excel VBAで、実行時にsheet上...
-
エクセルVBAでmeに相当するもの...
-
コモンダイアログエラー
-
オプションボタン
-
EXCEL VBA テキストボックスの...
-
キーボードでコマンドボタンを...
-
エクセルのコマンドボタンの使...
-
ワードVBAで画像を挿入
-
VBAのコントロールなんかをコレ...
-
複数のデータ系列の線の太さを...
-
フォルダ内の全ブックのシート...
-
エクセルでツールバーに「縮小...
-
ExcelVBAで今開いているユーザ...
-
VBAを一度起動するとずっと出て...
-
エクセルの指数を無効にしたい
-
Powerpointでランダムな数字の...
-
コピーしたファイルのマクロを...
-
cellsで特定の離れた範囲を選択...
-
エクセル終了時の保存確認メッ...
おすすめ情報