エクセルのシートで、特定の行か列をボタン1つで表示/非表示にするやつ、「レベルバー」っていうんでしたっけ?あれの作り方がどうしてもわかりません、教えて下さい。

このQ&Aに関連する最新のQ&A

A 回答 (2件)

こんにちは。



失礼しました。
グループ化の事ですね?
メニューから
データ→グループとアウトライン設定にて列や行のグループ化が出来ます。

こんな感じ

http://ww8.tiki.ne.jp/~nikoniko/P314.htm

参考URL:http://ww8.tiki.ne.jp/~nikoniko/P314.htm
    • good
    • 0
この回答へのお礼

 たびたびすみません。
そうそう、今度こそこのイメージです。「データ」→「グループとアウトラインの設定」ですね、ありがとうございました!

お礼日時:2002/04/15 10:24

こんにちは。



アウトラインの事ですよね?
下記サイト参考にしてください。
http://www.1147mono.com/Excel/katsuyou_05.htm

参考URL:http://www.1147mono.com/Excel/katsuyou_05.htm

この回答への補足

。。。と思ったんですが、
1)集計は、しない
2)列についても非表示設定ができる

というボタンの設定があるようです。
すみませんが、これがわかる方、お願いします。

補足日時:2002/04/12 10:49
    • good
    • 0
この回答へのお礼

 そうそうこれです、アウトラインていうんですね!
なんか込み入ってそうなんで、今は???ですが、明日会社でプリントアウトして勉強します、ありがとうございます!

お礼日時:2002/04/11 22:33

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Q【マクロ】列を一括非表示/表示(特定シートのみ非表示にしたくない場合)

以前、すべてのシートのA列を一括で非表示/表示にするというマクロを
ご教授頂いたのですが、今度は、一括非表示/表示をしたいことに変わりはないのですが
特定シート(仮に前年、実績)のみA列を表示のままにさせたい場合はどのようにすればよいでしょうか?
何卒、ご教授願います。

Dim k As Long 'この行から//
Sub 非表示()
For k = 1 To Worksheets.Count
Worksheets(k).Columns("A").Hidden = True
Next k
End Sub

Sub 再表示()
For k = 1 To Worksheets.Count
Worksheets(k).Columns.Hidden = False
Next k
End Sub 'この行まで//

Aベストアンサー

こんにちは!

Sub 非表示()
Dim k As Long
For k = 1 To Worksheets.Count
If InStr("前年、実績", Worksheets(k).Name) = 0 Then
Worksheets(k).Columns("A").Hidden = True
End If
Next
End Sub

こんな感じではどうでしょうか?m(_ _)m

QEXCELマクロで、ある列の値が0の場合、非表示/表示ボタンで該当列を非表示切り替えしたいんです。

質問です。
タイトル通りなのですが、Excel2013を使用中です。
支払い台帳ファイルなのですが、弊社は取引業者数が多く、当月では取引しない業者も多く、非表示/表示ボタンをクリック一つで業者別計(N行目)の値が0だった場合、その該当業者(列)すべてを非表示にしたいのです。
何卒諸先輩方のご教示を宜しくお願いいたします。

Aベストアンサー

こんばんは!

>(N行目)の値が0だった場合、その該当業者(列)すべてを非表示にしたいのです。

>N列の値が「0」の場合、その「行」すべてを非表示・・・
というコトだとします。

↓の画像「ActiveX コントロール」のコマンドボタンを挿入し、
コマンドボタンのコードを↓のようにしています。

Private Sub CommandButton1_Click()
With ActiveSheet
If .AutoFilterMode = True Then
.AutoFilterMode = False
Else
Rows(1).AutoFilter field:=14, Criteria1:="<>0"
End If
End With
End Sub

これでコマンドボタンをクリックするたびにN列が「0」の行が
表示・非表示になると思います。

※ 的外れならごめんなさいね。m(_ _)m

こんばんは!

>(N行目)の値が0だった場合、その該当業者(列)すべてを非表示にしたいのです。

>N列の値が「0」の場合、その「行」すべてを非表示・・・
というコトだとします。

↓の画像「ActiveX コントロール」のコマンドボタンを挿入し、
コマンドボタンのコードを↓のようにしています。

Private Sub CommandButton1_Click()
With ActiveSheet
If .AutoFilterMode = True Then
.AutoFilterMode = False
Else
Rows(1).AutoFilter field:=1...続きを読む

QEXCELマクロで、ある列の値が0の場合、非表示/表示ボタンで該当列&行を同時に非表示に切替したい。

先日EXCELの質問をさせて頂きました。
https://oshiete.goo.ne.jp/qa/8944333.html
EXCELマクロで、ある列の値が0の場合、非表示/表示ボタンで該当列を非表示切り替えしたいんです。
行ではできましたが、列ではできませんでした。またボタンのワンクリックで同時に表示切り替えできれば最高です。

ちなみに行は物件名、列は業者名で入出金のあった物件以外は非表示、使用しなかった業者以外は非表示にしたいのです。
つまり業者別計で0あるいは、物件別計で0であった行あるいは列は非表示にしたいのです。
逆に考えれば計が0以外である行または列は表示でもよいのかもしれません。

何卒諸先輩方のお知恵を拝借したく存じます。宜しくお願いいたします。

Aベストアンサー

たびたびごめんなさい。

前回のコードではセルの表示形式は「数値」ではなく「通貨」になってしまいますね。
見た目は同じのようですが、どうしても「数値」で桁区切りにしたい場合は
あらかじめ設定してある表示形式を使った方が良いみたいなので↓のコードに変更してみてください。

Private Sub CommandButton1_Click()
Dim c As Range, myFlg As Boolean
Dim myFirst As Range, myFound As Range, myRng As Range
Dim myArea1 As Range, myArea2 As Range
Dim str1 As String, str2 As String '//☆新たに追加
Set myArea1 = Range("BM3:BM749")
Set myArea2 = Range("E750:ML750")
Application.ScreenUpdating = False
str1 = myArea1(1).NumberFormatLocal '//☆
str2 = myArea2(1).NumberFormatLocal '//☆
myArea1.NumberFormatLocal = "G/標準" '//★追加
myArea2.NumberFormatLocal = "G/標準" '//★追加
For Each c In myArea1
If c.EntireRow.Hidden = True Then
myFlg = True
Exit For
End If
Next c
If myFlg = True Then
ActiveSheet.Rows.Hidden = False
Else
Set myFound = myArea1.Find(what:=0, LookIn:=xlValues, lookat:=xlWhole)
If Not myFound Is Nothing Then
Set myFirst = myFound
Set myRng = myFound
Do
Set myFound = myArea1.FindNext(after:=myFound)
If myFound.Address = myFirst.Address Then Exit Do
Set myRng = Union(myRng, myFound)
Loop
myRng.EntireRow.Hidden = True
End If
End If

myFlg = False
For Each c In myArea2
If c.EntireColumn.Hidden = True Then
myFlg = True
Exit For
End If
Next c
If myFlg = True Then
ActiveSheet.Columns.Hidden = False
Else
Set myFound = myArea2.Find(what:=0, LookIn:=xlValues, lookat:=xlWhole)
If Not myFound Is Nothing Then
Set myFirst = myFound
Set myRng = myFound
Do
Set myFound = myArea2.FindNext(after:=myFound)
If myFound.Address = myFirst.Address Then Exit Do
Set myRng = Union(myRng, myFound)
Loop
myRng.EntireColumn.Hidden = True
End If
End If
myArea1.NumberFormatLocal = str1 '//☆
myArea2.NumberFormatLocal = str2 '//☆
Application.ScreenUpdating = True
End Sub

何度も失礼しました。m(_ _)m

たびたびごめんなさい。

前回のコードではセルの表示形式は「数値」ではなく「通貨」になってしまいますね。
見た目は同じのようですが、どうしても「数値」で桁区切りにしたい場合は
あらかじめ設定してある表示形式を使った方が良いみたいなので↓のコードに変更してみてください。

Private Sub CommandButton1_Click()
Dim c As Range, myFlg As Boolean
Dim myFirst As Range, myFound As Range, myRng As Range
Dim myArea1 As Range, myArea2 As Range
Dim str1 As String, str2 As String '/...続きを読む

Q行のデータ(a列b列c列)をd列に表示したい

a1、b1、c1のセルに入力したデータをd1セルに表示したい。可能でしょうか。一例「a1セルに1と入力、b1セルに2と入力、c1セルに3と入力しd1セルに123と表示する」

Aベストアンサー

d1セルに =a1&b1&c1

エクセルですよね?

Qエクセルの関数を教えて下さい。 例 シート3 11月の売上集計 A 列 B列 C列 D列 1行 い

エクセルの関数を教えて下さい。

例 シート3 11月の売上集計
A 列 B列 C列 D列
1行 い ろ は
2行 りんご 3 2 4‥
3行 累計 15 12 13‥
4行 みかん 2 5 6‥
5行 累計 12 14 16‥
と売上の集計が続いています。
この時、2行目と4行目は手入力してます。
B3は=B2+10月シートB3となります。
C3はC2+10月シートC3となります。
5行目も同様です。
このシートをコピーして12月分を作った時、
B3は=B2+10月シートB3の10月を11月に
変更してます。
自動的に変更できる方法はないですか❓

Aベストアンサー

11月の
>シートをコピーして12月分を作った時、
>B3は=B2+10月シートB3の10月を11月に
>変更してます。
>自動的に変更できる方法はないですか❓
…と言う事ですか?
ならば月の数字をいじれば良いだけですので、CELL関数でシート名を取得して、それを加工しましょう。

 =CELL("filename",A1)
これで、このCELL関数が使われたシート名を含んだ文字列を取得できます。
 C:\Users\あさご\Documents\Excel_file\[売り上げとか.xlsx]12月の売上集計
のような値が返ってきますので、ファイル名の後ろにある「 ] 」の位置をFIND関数で見つけて、その次の文字から最後の文字までをシート名としてMID関数などで切り出し、
”月の売上集計”をSUBSTITUTE関数で削除する(空欄に置き換える)か、得られたシート名の先頭から「月」の文字の前の文字までを別途切り出す。
これで月の数字の部分を得ることができます。
あとはこの数字を足したり引いたりしてINDIRECT関数に入れて参照したいシート名にすればよいです。
1月には12月のシートを参照したいという事になるでしょうから、そのあたりも考慮して作りましょう。
(MOD関数を使うと良いかもしれない)

11月の
>シートをコピーして12月分を作った時、
>B3は=B2+10月シートB3の10月を11月に
>変更してます。
>自動的に変更できる方法はないですか❓
…と言う事ですか?
ならば月の数字をいじれば良いだけですので、CELL関数でシート名を取得して、それを加工しましょう。

 =CELL("filename",A1)
これで、このCELL関数が使われたシート名を含んだ文字列を取得できます。
 C:\Users\あさご\Documents\Excel_file\[売り上げとか.xlsx]12月の売上集計
のような値が返ってきますので、ファイル名の後ろ...続きを読む


人気Q&Aランキング

おすすめ情報