エクセルを開いた時に下方にある「シート見出し」(Sheeet1とか表示されているところです。)のシートごとに色をつけたいのですが、できますか?
方法があれば、ぜひ教えてください。

A 回答 (1件)

haasan99さん、こんにちは。



エクセル2000や97ではシートに色はつけられません。
エクセル2002からの機能になります。
    • good
    • 0
この回答へのお礼

早速の回答ありがとうございます。
残念ながら私の使用しているエクセルは2000ですので、色はつけられないです。
どうも、ありがとうございました。

お礼日時:2002/01/11 21:37

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

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

Qワークシートの見出しに色をつける

エクセルのワークシートの下にあるSheet1って言う見出しの文字を黒から他の赤や青に変える方法を教えて下さい。
使っているのはエクセル2000です。

Aベストアンサー

すでに回答されているとおり、ご質問の機能は2002以降搭載されています。
ですので、残念ながら2000ではできません。
参考URLはいろいろありますが、このへんがわかりやすいかな。

MS社のサポートでも、2002以降にしか記述がないようです。

参考URL:http://homepage1.nifty.com/kenzo30/ex_kisotoku/ex_ks_tokubetu9_2.htm

Qシート見出しの色を自動で変えるには

エクセル2003を使用してます。
B2のセルに下記のような特定の文字が入力された場合、自動的にシート見出しの色を変えるようにしたいです。

(例)
"(1)" が入力された場合、赤
"(2)" が入力された場合、青
"(3)" が入力された場合、黄
最大で(10)までです。

といった具合です。
VBAを使うことになるのでしょうか?
VBAだとしたら、色のコードみたいなものは、下記ページの1、53、52、といった数字がそれに当たるのでしょうか?
http://www.relief.jp/itnote/xls_colorindex.php

恐れ入りますが、宜しくお願い致します。

Aベストアンサー

シート名のところで右クリック → コードの表示を選択 → VBE画面が出てきますので下記のコードを貼り付けて下さい。

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$2" Then Exit Sub
If Target = "" Then ActiveSheet.Tab.ColorIndex = xlNone
If Target = "(1)" Then ActiveSheet.Tab.ColorIndex = 35
If Target = "(2)" Then ActiveSheet.Tab.ColorIndex = 36
If Target = "(3)" Then ActiveSheet.Tab.ColorIndex = 37
If Target = "(4)" Then ActiveSheet.Tab.ColorIndex = 38
If Target = "(5)" Then ActiveSheet.Tab.ColorIndex = 39
If Target = "(6)" Then ActiveSheet.Tab.ColorIndex = 40
If Target = "(7)" Then ActiveSheet.Tab.ColorIndex = 41
If Target = "(8)" Then ActiveSheet.Tab.ColorIndex = 42
If Target = "(9)" Then ActiveSheet.Tab.ColorIndex = 43
If Target = "(10)" Then ActiveSheet.Tab.ColorIndex = 44
End Sub

B2が空白の時は色をつけないようにしています。
色の番号は好みの色に修正してください。
B2に入力すると見出しの色が変わります。
(1)~(10)は丸の中に数字に修正してください。

>色のコードみたいなものは、下記ページの1、53、52、といった数字がそれに当たるのでしょうか?
その通りです。

シート名のところで右クリック → コードの表示を選択 → VBE画面が出てきますので下記のコードを貼り付けて下さい。

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$2" Then Exit Sub
If Target = "" Then ActiveSheet.Tab.ColorIndex = xlNone
If Target = "(1)" Then ActiveSheet.Tab.ColorIndex = 35
If Target = "(2)" Then ActiveSheet.Tab.ColorIndex = 36
If Target = "(3)" Then ActiveSheet.Tab.ColorIndex = 37
If Target = "(4)" Then Active...続きを読む

Q10行目が見出しです。 E列11行目から下方にデータが無ければ データがありません。のメッセージが出

10行目が見出しです。
E列11行目から下方にデータが無ければ
データがありません。のメッセージが出てマクロ終了。
一つでも入っていたらマクロ続行。
と、いうマクロを教えてください。
よろしくお願いします。
エクセル2013

Aベストアンサー

こんにちは!

今行っている処理の前に↓の4行のコードを追加してみてはどうでしょうか?

If Cells(Rows.Count, "E").End(xlUp).Row = 10 Then
MsgBox "データなし"
Exit Sub
End If

QVBAエクセルにて開いてないエクセルシートを開いてるシートに所得

お世話になります。

「同じフォルダー内にBOOKが2つ有ります。1つ(AK.xls)を立上げて
もう1つの(EX.xls)を立上げずに、EX.xls内のSheet1をコピーして
AK.xlsのシート(STEP1)に貼り付けようとしています。」

どうしてもエラーが出てしまいます。
何方か、分かる方教えて下さい。
また記述して戴ければもっと助かります。

エラーは”1004”EX.xlsが見つかりません。と出てしまいます。

Sub ST()
Dim wsSrc As Worksheet, WS As Worksheet
Dim PasteR As Range
Dim x As Long

Sheets("STEP1").Select
Cells.Select
Selection.Delete Shift:=xlUp
Range("A1").Select

  Set wsSrc = ActiveSheet
Workbooks.Open "EX.xls"
For Each WS In Worksheets
x = WS.Range("A1").CurrentRegion.Rows.Count
If WS.Index = 1 Then
Set PasteR = wsSrc.Range("A1")
Else
Set PasteR = wsSrc.Range("A65536").End(xlUp).Offset(1)
End If
WS.Range(WS.Cells(1, 1), WS.Cells(x, 44)).Copy PasteR
Set PasteR = Nothing
Next
ActiveWorkbook.Close False
Set wsSrc = Nothing
End Sub

デバックでは
Workbooks.Open "EX.xls"この部分が黄色になります。

是非、回答を宜しくお願い致します。

お世話になります。

「同じフォルダー内にBOOKが2つ有ります。1つ(AK.xls)を立上げて
もう1つの(EX.xls)を立上げずに、EX.xls内のSheet1をコピーして
AK.xlsのシート(STEP1)に貼り付けようとしています。」

どうしてもエラーが出てしまいます。
何方か、分かる方教えて下さい。
また記述して戴ければもっと助かります。

エラーは”1004”EX.xlsが見つかりません。と出てしまいます。

Sub ST()
Dim wsSrc As Worksheet, WS As Worksheet
Dim PasteR As Range
Dim x As Long
...続きを読む

Aベストアンサー

Workbooks.Open "c:\EX.xls"

というふうに EX.xls がどこにあるのか フルパスで指定してあげたら
いかがでしょうか。

Qエクセルで3つのブック(中は3つのシート)を同時に開いた時に常に2番目のシートが開いているようにするには?

こんにちは、みなさん!!

【質問】エクセルの3つのブックがあります。中身は3つのシート
があり、全て同じフォームのシートです。

そこで、同時に3つのブックがを開いた時に、ブックの中の1つめのシートではなく、2つ目のシートが常に表示されるようにする事はで
きますか?

ご存知の方いらっしゃいましたらよろしくお願いします。

Aベストアンサー

3つのブックのそれぞれに対して以下のことをしてください

(1)ブックを開き、ALT+F11でVBE画面を開く
(2)画面左上のVBAProjectエクスプローラのThisWorkBookを右クリック→コードの表示
(3)以下のマクロを右側に開いた画面に貼り付ける
Private Sub Workbook_Open()
Worksheets("Sheet2").Activate
End Sub
(4)2行目のシート名を表示したい実際のシート名に書き換える
(5)シート画面に戻り、Bookを保存する

これで次にBookを開くと二番目のシートが最初に表示されます


人気Q&Aランキング

おすすめ情報