このような質問は、ルール(エチケット、マナー)違反になるでしょうか?
もしそうならお許し下さい。
名前ボックスに表示される名前を、マクロで非表示にし、元に戻す、という操作を次の二つのボタンで実行するように作りました。エクセル2003です。
Private Sub CommandButton1_Click()
Dim tname As Name
For Each tname In ThisWorkbook.Names
tname.Visible = False
Next
End Sub
Private Sub CommandButton2_Click()
Dim tname As Name
For Each tname In ThisWorkbook.Names
tname.Visible = True
Next
End Sub
これを一つのボタンで、If Then Elseを使い実行できるようにしたいのですが If ・・・ Then の間の書き方が分からずうまくいきません。
If Names.Visible = False Then
If ThisWorkbook.Names.Visible = False Then
If ThisWorkbook.tname.Visible = False Then
Private Sub CommandButton3_Click()
Dim tname As Name
If Names.Visible = False Then 'これでは駄目
For Each tname In ThisWorkbook.Names
tname.Visible = False
Next
Else
For Each tname In ThisWorkbook.Names
tname.Visible = True
Next
End If
End Sub
苦し紛れにこんなことをやってごまかそうとしているのですがこれって邪道ですしかっこうわるいですよね。
Private Sub CommandButton3_Click()
Dim tname As Name
If Range("g1").Value = " " Then
For Each tname In ThisWorkbook.Names
tname.Visible = False
Next
Range("g1").Value = "1"
Else
For Each tname In ThisWorkbook.Names
tname.Visible = True
Next
Range("g1").Value = " "
End If
End Sub
ど素人ですがよろしくご教導ください。
No.2ベストアンサー
- 回答日時:
こんばんは。
Names は、コレクション名ですから、Visible プロパティは存在しないはずです。
こうすれば、トグルになります。
Private Sub CommandButton1_Click()
Dim tName As Name
For Each tName In ThisWorkbook.Names
tName.Visible = Not tName.Visible
Next
End Sub
Private Sub CommandButton3_Click()
>Dim tname As Name
>If Range("g1").Value = " " Then
↓
Private Sub CommandButton3_Click()
Dim tName As Name
Dim flg As Boolean
For Each tName In ThisWorkbook.Names
tName.Visible = Not tName.Visible
flg = Not tName.Visible '最後のフラグで決定
Next
CommandButton3.Caption = IIf(flg, "非表示", "表示")
End Sub
No.1
- 回答日時:
思われていることと違っていましたらすみませんが、名前ボックスの表示・非表示は、
数式バーの表示・非表示のことではないのでしょうか。
数式バーを非表示にしたら名前ボックスも無くなり、表示にしたら現われます。
Private Sub CommandButton3_Click()
If Application.DisplayFormulaBar = False Then
Application.DisplayFormulaBar = True
Else
Application.DisplayFormulaBar = False
End If
End Sub
やりたいことはバーそのものを非表示にするものではありませんでしたがこ
れはこれで大変勉強になりました。今後ともよろしくお願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 2つのVBAを一緒にしたら機能しなくなりました(エクセル) 7 2022/06/02 12:41
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
- Visual Basic(VBA) VBA Bookの表示、非表示 1 2022/09/16 20:44
- Excel(エクセル) B列に文字がはいったらA列に数字が入るマクロードを完成させたい 4 2023/04/21 01:58
- Visual Basic(VBA) VBAが止まります。 1 2022/09/02 14:51
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Visual Basic(VBA) EXCEL VBAにて動的にCheckBOXを複数作成し、同BOXにイベントを追加したい 1 2023/03/16 07:05
- Visual Basic(VBA) Excel VBAの解読について質問があります。 概要は、マクロでチェックボックスにチェックすると日 1 2023/02/10 07:50
- Visual Basic(VBA) シート削除のマクロで「deleteメソッドは失敗しました」となります。助けてください! Sub 不要 6 2022/09/08 16:41
- Excel(エクセル) なぜExit Subがあるのかわかりません 4 2023/02/19 12:34
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
パワポで曲がった両矢印の簡単...
-
パワーポイントの表
-
音声マークを一括非表示にしたい。
-
パワーポイント2019 図の透...
-
パワーポイント「スライドショ...
-
PowerPointで、作成されたファ...
-
エクセル・パワーポイントなど...
-
PowerPointで保存のところに変...
-
you tubeにパワポで作った動画...
-
PowerPointVBAでスライドマスタ...
-
USBとは?至急です! 大学でプ...
-
パワーポイント2016でデザイン...
-
PowerPointのアニメーションで...
-
卒論発表があります。5分ほどの...
-
PowerPointについて質問です。 ...
-
officeのプロダクトキーを紛失
-
パワーポイントでの印刷時の枠...
-
パソコン初心者です。 Windows...
-
PowerPointでスライドマスタの...
-
パワーポイントで、全てのスラ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
パワポで曲がった両矢印の簡単...
-
音声マークを一括非表示にしたい。
-
パワーポイント「スライドショ...
-
パワーポイントの表
-
PowerPointでスライドマスタの...
-
エクセル・パワーポイントなど...
-
PowerPointVBAでスライドマスタ...
-
PowerPointのアニメーションで...
-
PowerPointで、作成されたファ...
-
エクセルでA3の大きさに資料...
-
ExcelのグラフをPowerPointに貼...
-
パワーポイントで資料を作る時 ...
-
パワーポイントのアニメーショ...
-
【パワーポイントのフォントが...
-
プレゼン時のポインター
-
PowerPoint2010、2021のスライ...
-
パワーポイントで、全てのスラ...
-
パワーポイントで説明しながら...
-
PowerPointのオプションの設定...
-
PowerPointの背景について
おすすめ情報