No.2ベストアンサー
- 回答日時:
No.1です。
今回の場合はダブルクリックイベントなので、シートモジュールにしなければなりません。
画面左下の操作したいシート見出し上で右クリック → コードの表示 → VBE画面のカーソルが点滅しているところに
前回のコード(Private Sub・・・~End Sub)をコピー&ペースト → Excel画面に戻り(VBE画面を閉じて)
A1セルをダブルクリックしてみてください。
※ 前回書き忘れましたが、A1セル(1行目)は非表示にならない!というコトが大前提です。
(すなわちA1セルには「2016年度」は入らない!)m(_ _)m
ありがとうございます!
その通りにしてみたのですが、砂時計は出ますが何も起こりません・・・泣
ちなみに、このA社~Z社がずっと下まであり、4月~9月まで右側に続いています。
これは関係ないですよね・・?
(5月以降消してやってみましたが、同じでした><)
うーーーん、、せっかくご丁寧に教えて下さっているのに出来ず不甲斐ないです。。
何かヒントがあれば。。再度教えて頂けると嬉しいです。
スイマセン・・
よろしくお願いいたします!!
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でコードコード画面を出し、
このままコピペしてみました。
緑の三角のコード起動を押しますと、「マクロ名」を入れなければなりません。
ここには何を記載すれば良いのでしょうか?
お手数をお掛けしますが、再度教えて頂けますでしょうか。
よろしくお願いいたします。
お探しの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関数-文字列で自動作成さ...
-
エクセルの関数について教えて...
-
Excelデータをコピペして、ペー...
-
職場の人から聞かれており、こ...
-
ユーザー定義関数をアドイン登...
-
Excelで50個のセルに同じ文字を...
-
スプレッドシート、Excelでの数...
-
Microsoft Officeの中古は信用...
-
エクセルで不等号記号(≠)が上に...
-
スプレッドシートで使う数式を...
-
エクセルでの特別な文字を上に...
-
エクセル日付 文字列の関数がエ...
-
A列とB列を参照してC列に連番を...
-
エクセルVBA、別ブックへ転記す...
-
各ページの1番上の表示について
-
エクセルでセルに標準で入力さ...
-
EXCELの質問です 119から足した...
-
pdfの表をexcelにはりつけて計...
-
Excelのif関数で文字が見えなく...
-
【マクロ】アクティブセルにブ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルVBA、別ブックへ転記す...
-
エクセルでの作業計算方法について
-
時間によってファイル名が変わ...
-
【関数】適切な文字数の数字を...
-
Excelについて教えてください
-
エクセル初心者です 関数の入れ...
-
【マクロ】ファイル名の変更に...
-
UNIQUE関数が使えないバージョ...
-
エクセルの計算
-
【関数】先頭だけにある、半角...
-
Excelで、決まった行を繰り返し...
-
Excelでセルの値が同じか...
-
LOOKUP関数を使えばいいのでし...
-
Excel
-
はがきについて。
-
エクセルの条件付き書式につい...
-
エクセルのデーターが2か月前の...
-
エクセル②
-
エクセルで「-0.0」と表示さ...
-
Microsoft1Officeの互換ソフト...
おすすめ情報
すみません、出来ました!!!
出来ましたーー!!!!!
ありがとうございます!!!!
とってもとっても助かりました!!