Excel VBA質問箱 IV

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

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


7964 / 13645 ツリー ←次へ | 前へ→

【35820】マクロボタンの非表示 ひなぱぱ 06/3/14(火) 11:21 質問[未読]
【35821】Re:マクロボタンの非表示 ぱっせんじゃー 06/3/14(火) 11:22 発言[未読]
【35822】Re:マクロボタンの非表示 ひなぱぱ 06/3/14(火) 11:34 質問[未読]
【35823】Re:マクロボタンの非表示 ぱっせんじゃー 06/3/14(火) 11:38 発言[未読]
【35824】Re:マクロボタンの非表示 ひなぱぱ 06/3/14(火) 11:49 回答[未読]
【35825】Re:マクロボタンの非表示 ぱっせんじゃー 06/3/14(火) 11:50 発言[未読]
【35827】Re:マクロボタンの非表示 ひなぱぱ 06/3/14(火) 12:05 お礼[未読]
【35828】Re:マクロボタンの非表示 ぱっせんじゃー 06/3/14(火) 12:21 発言[未読]
【35829】Re:マクロボタンの非表示 ひなぱぱ 06/3/14(火) 12:33 お礼[未読]
【35830】Re:マクロボタンの非表示 ぱっせんじゃー 06/3/14(火) 12:48 発言[未読]
【35834】Re:マクロボタンの非表示 ひなぱぱ 06/3/14(火) 14:13 お礼[未読]

【35820】マクロボタンの非表示
質問  ひなぱぱ  - 06/3/14(火) 11:21 -

引用なし
パスワード
   いつも勉強させて頂いております。
いつまでたってもマクロが上手に組めません
また、質問させてください。
会社分析用のシート上、任意の場所にボタンを設定してますが
たとえばその行を非表示にした場合、
ボタンだけは残ってしまいますが、ボタンも非表示にさせる事は可能でしょうか?
もちろん、その列を再表示した場合はボタンも表示するという事ですが。
宜しくご指導の程、お願い致します。

【35821】Re:マクロボタンの非表示
発言  ぱっせんじゃー  - 06/3/14(火) 11:22 -

引用なし
パスワード
   こんな感じで出来ませんか?

非表示
○○.Visible = False

表示
○○.Visible = True

【35822】Re:マクロボタンの非表示
質問  ひなぱぱ  - 06/3/14(火) 11:34 -

引用なし
パスワード
   ▼ぱっせんじゃー さん:
早速のご指導びっくりました。
ありがとうございます。
すみませんが、教えてください。
○○には何が入りますか?
ボタンの名前を入れればいいのでしょうか?
例えば2行目から5行目を非表示にする場合、3行目にボタンがあります。
これを非表示すると
  Rows("2:3").Select
  Selection.EntireRow.Hidden = True
となります。
これだとボタンが残るんです。
もう少しアドバイスをお願い致します。
宜しくお願い致します。

○○.Visible = False

【35823】Re:マクロボタンの非表示
発言  ぱっせんじゃー  - 06/3/14(火) 11:38 -

引用なし
パスワード
   >○○には何が入りますか?

逆にこっちが聞きたいです。
明示されてないからこんな書き方をしたのです。

フォームのボタンか、
コントロールツールボックスのボタンか、
シェイプで作ったボタンか、

と色々ありますので。

【35824】Re:マクロボタンの非表示
回答  ひなぱぱ  - 06/3/14(火) 11:49 -

引用なし
パスワード
   ▼ぱっせんじゃー さん:
大変失礼しました。
そんなに種類があったんですね。
知りませんでした。勉強になりました。

コントロールツールボックスのボタンです。

宜しくお願い致します。

【35825】Re:マクロボタンの非表示
発言  ぱっせんじゃー  - 06/3/14(火) 11:50 -

引用なし
パスワード
   とりあえず、サンプルです。

Sub test1()
'コントロールツールボックス
Sheets("Sheet1").OLEObjects("CommandButton1").Visible = False
End Sub

Sub test2()
'フォーム
Sheets("Sheet1").Shapes("ボタン 1").Visible = False
End Sub

【35827】Re:マクロボタンの非表示
お礼  ひなぱぱ  - 06/3/14(火) 12:05 -

引用なし
パスワード
   ▼ぱっせんじゃー さん:
ありがとうございました。
ボタンごとに設定をしていけば消えました。
ボタンの数が10個くらいありますが、
一気に消えるもんだと思っていました。
でもとても助かりました。
色々とありがとうござました。
また、宜しくお願い致します。

【35828】Re:マクロボタンの非表示
発言  ぱっせんじゃー  - 06/3/14(火) 12:21 -

引用なし
パスワード
   文面からすると1行に複数ボタンを配置しているようですね。

複数のコマンドボタンをループで非表示にするサンプルです。

Dim i As Long
 For i = 1 To 5
  Sheets("Sheet1").OLEObjects("CommandButton" & i).Visible = False
 Next i

【35829】Re:マクロボタンの非表示
お礼  ひなぱぱ  - 06/3/14(火) 12:33 -

引用なし
パスワード
   ▼ぱっせんじゃー さん:
度々ありがとうございます。
確認できました。
Forですね。
また勉強になりました。
助かりました。

ありがとうございました。

【35830】Re:マクロボタンの非表示
発言  ぱっせんじゃー  - 06/3/14(火) 12:48 -

引用なし
パスワード
   小出しですみません。

アクティブセルの行にボタンの左上の部分がある場合にボタンを非表示にする
サンプルです。

Dim myObj As Object
 For Each myObj In ActiveSheet.OLEObjects
  If myObj.TopLeftCell.Row = ActiveCell.Row Then myObj.Visible = False
 Next

【35834】Re:マクロボタンの非表示
お礼  ひなぱぱ  - 06/3/14(火) 14:13 -

引用なし
パスワード
   ▼ぱっせんじゃー さん:
またまたありがとうございました。
大変勉強になりました。感激です。
感謝いたします。

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