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ランキング
-
IFとIFS関数
-
Excelを無料で使うには? パソ...
-
セルの数を求めたい
-
Excelの表示についての質問
-
再質問です。マクロの修正箇所...
-
データチェックを行うエクセル...
-
エクセルで「ページレイアウト...
-
エクセルの数式バーのフォント...
-
エクセルの関数について教えて...
-
エクセルでセルに標準で入力さ...
-
Microsoft1Officeの互換ソフト...
-
シフト表をエクセルで作るとき...
-
ユーザー定義関数をアドイン登...
-
Excel VBAで全ての矢印を赤色に...
-
VBA Private Sub Worksheet_Cha...
-
2列に入っているデータを1列...
-
Excelに詳しい方! B列が「日...
-
excel2013 MonthDays 関数が使...
-
エクセルのクイックアクセスツ...
-
Excelの数式について教えてくだ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
半角カタカナをヘボン式ローマ...
-
(マクロ)vlookupの元データを同...
-
エクセルで上位バイトのセルと...
-
exselの質問です
-
Excel 大小比較演算子による「...
-
Excel VBについての質問です。
-
エクセルの問題です。絶対値の...
-
非表示列の再表示に失敗
-
職場の人から聞かれており、こ...
-
Excel関数-文字列で自動作成さ...
-
Excelデータをコピペして、ペー...
-
ユーザー定義関数をアドイン登...
-
【マクロ】for next構文について
-
エクセルの日付を編集する
-
【マクロ】VLOOKUPにて参照元に...
-
exselで最小数で並び替える関数
-
libre 表計算ソフトの計算がう...
-
エクセルで表
-
エクセルの表で1年間の曜日を...
-
西暦和暦
おすすめ情報
すみません、出来ました!!!
出来ましたーー!!!!!
ありがとうございます!!!!
とってもとっても助かりました!!