エクセル2003で勤務シフト表を作成します。
表内のセルには、色(複数色)のついたセルや数字、記号などが入ります。
この表を何度も使いまわすのですが、
範囲を選択し、データをクリア(表はのこして白の空白)する時に一定のセル、たとえばピンクの色のついた数値または記号のセルだけを残して一括クリアしたいのです。
セルのロック書式設定とシートの保護は何度も試してみましたが上手くいきません。削除するとみな消えます。保護中はロック以外のセルもエラー表示で何も出来なくなります。
マクロ機能だと出来るのですが、これはピンクのセルが固定されている場合のみです。
ピンク(数値・記号)がどのセルに変わろうと、残る方法が知りたいのです。何か良い方法があれば教えて下さい。
よろしくお願いします。
No.1ベストアンサー
- 回答日時:
> マクロ機能だと出来るのですが、これはピンクのセルが固定されている場合のみです。
以下を試してみてください。
選択範囲内でのColorIndex が 7(ピンク)以外のセルのみクリアするサンプルです。
Sub test01()
Dim c As Range
If TypeName(Selection) <> "Range" Then
MsgBox "セルが選択されていません。"
Exit Sub
End If
For Each c In Selection
If c.Interior.ColorIndex <> 7 Then
c.ClearContents
End If
Next
End Sub
No.2
- 回答日時:
もう少し質問の記述を整理して
(1)残すセルの場合、消すセルの場合に分けて、それぞれの「セルの値」や{式」の状況
(2)書式についての状況
を箇条書き的に整理して記述できないですか。
ー
自分でやった方法で達成できなかった方法は参考までにに後部に付け加えるだけでよい。
ーー
>マクロ機能だと出来るのですが、これはピンクのセルが固定されている場合のみです
これはコードを増やすとか、少し変えることで対応可能と思う。質問者が断定するほどVBAに自信あるのですか。
ColorIndexで設定している場合のセル探索
Sub test01()
For Each cl In Range("a1:D8")
If cl.Interior.ColorIndex <> -4142 Then
MsgBox cl.Address & " " & cl.Interior.ColorIndex
End If
Next
End Sub
==
根本的に
(エクセルの)テンプレート
スタイル
http://office.microsoft.com/ja-jp/excel/HA011101 …
で説明されていること
などを使うことを考えるべきと思います。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/25 16:07
- Excel(エクセル) エクセルの数式で教えてください。 1 2023/02/02 10:20
- Visual Basic(VBA) VBA ドロップダウンリストを残して値のみクリア 2 2022/10/27 05:42
- Excel(エクセル) ユーザー定義について質問です。 2 2023/06/28 13:21
- Excel(エクセル) 条件に合った数値の合計を表示させたい関数と条件指定の方法 3 2023/05/13 16:07
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/03/27 13:25
- Excel(エクセル) Excel 特定セルの数値を参照したセルの0表示が空白にならないのはどうしてか? 3 2022/04/28 22:23
- Excel(エクセル) エクセルの条件付き書式で*を使いたい 4 2022/05/13 16:49
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/03/02 08:40
- Excel(エクセル) ワードのマクロについて教えてください。 1 2023/03/11 13:50
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【エクセル】IF関数 Aまたは...
-
貼り付けで複数セルに貼り付けたい
-
セルをクリック⇒そのセルに入力...
-
エクセル 足して割る
-
エクセルで指定したセルのどれ...
-
Excelで数式内の文字色を一部だ...
-
対象セル内(複数)が埋まった...
-
エクセルの一つのセルに複数の...
-
EXCEL VBA セルに既に入...
-
セルの高さ(行高)を求めるには?
-
excelの特定のセルの隣のセル指...
-
エクセル、条件を満たしたら音...
-
Excel 例A(1+9) のように番地の...
-
【Excel】特定の文字から文字ま...
-
エクセルのセルの枠を超えて文...
-
エクセルで住所と建物名を分け...
-
セルの内容の条件に応じて図形...
-
エクセル オートフィルタで絞...
-
エクセルの書式設定の表示形式...
-
(Excel)数字記入セルの数値の後...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで指定したセルのどれ...
-
【エクセル】IF関数 Aまたは...
-
セルをクリック⇒そのセルに入力...
-
Excelで数式内の文字色を一部だ...
-
エクセル 足して割る
-
対象セル内(複数)が埋まった...
-
貼り付けで複数セルに貼り付けたい
-
Excelでのコメント表示位置
-
エクセルのセルの枠を超えて文...
-
エクセル オートフィルタで絞...
-
エクセルの一つのセルに複数の...
-
EXCEL VBA セルに既に入...
-
【Excel】 セルの色での判断は...
-
(Excel)数字記入セルの数値の後...
-
エクセル “13ヶ月”を“1年1ヶ月...
-
excelのCOUNTIF関数で、『範囲=...
-
Excel2003 の『コメント』の編...
-
枠に収まらない文字を非表示に...
-
Excelで住所を2つ(町名迄と番...
-
複数のセルのいずれかに数字が...
おすすめ情報