No.1
- 回答日時:
こんばんは!
>1クリックで・・・
A1セルをダブルクリックすると・・・の操作にしてみました。
尚、該当データはA列に入っているという前提です。
↓のコードをシートモジュールにし、A1セルをダブルクリックしてみてください。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim i As Long, myRng As Range, myFlg As Boolean
If Target.Address = "$A$1" Then
Cancel = True
For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
If Rows(i).Hidden = True Then
myFlg = True
Exit For
End If
Next i
If myFlg = False Then
For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
If Cells(i, "A") = "2016年度" Then
If myRng Is Nothing Then
Set myRng = Cells(i, "A")
Else
Set myRng = Union(myRng, Cells(i, "A"))
End If
End If
Next i
If Not myRng Is Nothing Then
myRng.EntireRow.Hidden = True
End If
Else
ActiveSheet.Rows.Hidden = False
End If
End If
End Sub
こんな感じではどうでしょうか?m(_ _)m
早速ご回答頂きましてありがとうございます!!
ただ、、マクロ、ド初心者でして、このままコピペしてみたのですが何も起こりません・・。
元のエクセルの状態からAlt+F11 でコード入力画面を起動し、F7でコードコード画面を出し、
このままコピペしてみました。
緑の三角のコード起動を押しますと、「マクロ名」を入れなければなりません。
ここには何を記載すれば良いのでしょうか?
お手数をお掛けしますが、再度教えて頂けますでしょうか。
よろしくお願いいたします。
No.2ベストアンサー
- 回答日時:
No.1です。
今回の場合はダブルクリックイベントなので、シートモジュールにしなければなりません。
画面左下の操作したいシート見出し上で右クリック → コードの表示 → VBE画面のカーソルが点滅しているところに
前回のコード(Private Sub・・・~End Sub)をコピー&ペースト → Excel画面に戻り(VBE画面を閉じて)
A1セルをダブルクリックしてみてください。
※ 前回書き忘れましたが、A1セル(1行目)は非表示にならない!というコトが大前提です。
(すなわちA1セルには「2016年度」は入らない!)m(_ _)m
ありがとうございます!
その通りにしてみたのですが、砂時計は出ますが何も起こりません・・・泣
ちなみに、このA社~Z社がずっと下まであり、4月~9月まで右側に続いています。
これは関係ないですよね・・?
(5月以降消してやってみましたが、同じでした><)
うーーーん、、せっかくご丁寧に教えて下さっているのに出来ず不甲斐ないです。。
何かヒントがあれば。。再度教えて頂けると嬉しいです。
スイマセン・・
よろしくお願いいたします!!
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 【マクロ】マクロが保存されているエクセルとは、別のエクセルブックの全シートの非表示列を再表示したい 1 2022/12/24 20:48
- Excel(エクセル) 【マクロ】リボン、行列、数式・ステータスバを非表示に 4 2022/12/12 07:32
- Excel(エクセル) エクセルで、特定のセルの内容を更新すると、別の特定セルに 更新日付が自動的に表示させる方法はあります 1 2022/11/14 21:03
- Excel(エクセル) エクセルの数式で教えてください。 5 2023/02/10 15:11
- Excel(エクセル) エクセルマクロ セルをクリックするたびに記号を入力 1 2022/10/13 19:47
- Excel(エクセル) エクセル2016で、セル全てが消えました。 3 2023/01/03 08:27
- その他(Microsoft Office) エクセルのマクロについて教えてください。 5 2023/01/21 09:39
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/06/19 10:08
- Excel(エクセル) エクセルの条件付き書式 4 2023/04/17 11:05
- Visual Basic(VBA) 【Excel VBA】条件に合った行の表示・非表示を行う方法 3 2023/03/18 12:31
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセル 文字を増やしたい。
-
エクセルの計算
-
セルの内容表示が邪魔になる
-
Excel
-
Microsoft365に変えたのですが...
-
エクセル:一覧表に存在する文...
-
エクセルで日付を数字+アルフ...
-
エクセルでの作業計算方法について
-
エクセルで年休を管理する方法...
-
はがきについて。
-
【マクロ】その時、その時で変...
-
excelの不要な行の削除ができな...
-
Microsoft1Officeの互換ソフト...
-
エクセル関数を教えてください
-
Excel ピボットテーブルで日付...
-
【マクロ】読取専用のファイル...
-
【関数】適切な文字数の数字を...
-
時間によってファイル名が変わ...
-
ある列、或いは、ある行のセル...
-
UNIQUE関数が使えないバージョ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel 2019 のピボットテーブル...
-
[関数得意な方]教えて下さい・...
-
Excelにてある膨大なデータを管...
-
[関数について]わかる方教えて...
-
Excel初心者です。 詳しい方、...
-
excelの不要な行の削除ができな...
-
エクセル関数に詳しい方教えて...
-
INDIRECTを使わず excelで複数...
-
[オートフィルタ]で抽出された...
-
エクセルの神よ、ご回答を! エ...
-
エクセル関数に詳しい方、教え...
-
各ページの1番上の表示について
-
Excelで写真のような表を作った...
-
エクセルで不等号記号(≠)が上に...
-
数学 Tan(θ)-1/Cos(θ)について...
-
Excel 2019 は、SPILL機能があ...
-
Excelで全角を半角にしたいので...
-
条件付き書式を教えてください
-
Excel フィルターを掛けた状態...
-
[オートフィルタ]の適用範囲の...
おすすめ情報
すみません、出来ました!!!
出来ましたーー!!!!!
ありがとうございます!!!!
とってもとっても助かりました!!