Ｐａｇｅ 795 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼入力するところだけ目立たせたい。 mini 03/2/21(金) 12:05 ┣Re:入力するところだけ目立たせたい。 Jaka 03/2/21(金) 12:36 ┃ ┗Re:入力するところだけ目立たせたい。 mini 03/2/22(土) 11:39 ┃ ┗Re:入力するところだけ目立たせたい。 ポンタ 03/2/23(日) 12:05 ┃ ┣Re:入力するところだけ目立たせたい。 Jaka 03/2/24(月) 14:33 ┃ ┃ ┗Re:入力するところだけ目立たせたい。 mini 03/2/25(火) 13:25 ┃ ┗Re:入力するところだけ目立たせたい。 mini 03/2/25(火) 13:21 ┃ ┗すごく目立ちマス こう 03/2/25(火) 13:42 ┣Re:入力するところだけ目立たせたい。 ポンタ 03/2/21(金) 12:51 ┃ ┗Re:入力するところだけ目立たせたい。 mini 03/2/22(土) 11:42 ┗Re:入力するところだけ目立たせたい。 ぴかる 03/2/25(火) 15:37 ─────────────────────────────────────── ■題名 ： 入力するところだけ目立たせたい。 ■名前 ： mini ■日付 ： 03/2/21(金) 12:05 -------------------------------------------------------------------------
| みなさん、こんにちは。 早速ですが、質問させて下さい。 あるシートに商品の仕様を表にした、仕様表を 作成しています。たくさん項目がありまして、 たくさん入力する所もあるんですが、例えばＡ列が 項目で、Ｂ列に入力するという見た目にはっきり とは入力するセルが捉えられません。とびとびに 項目があって、入力するセルもばらばらです。 で、コメントを使って入力するセルは全てにコメント をつけてみたんですが、たくさんありすぎてかなり うっとうしいです。 セルを塗りつぶそうかとも思ったんですが、印刷する ときにその色が印刷されるのはマズイんです。 で、印刷する時はうつらなくて見た目だけに入力する セルを目立たせる方法ってありますか？コメントの コメントマークみたいな感じが理想なんですけど・・・。 何かいい方法がありましたら、教えて下さい。 miniより |
| こんにちは。 入力するセルは、予め決まっていて変わったりする事はないんですか？ こう言う事で良かったら、入力セル以外は選択できない様にすると言った方法のあります。 |
| Jaka さんへ こんにちは。お返事ありがとうございます。 ポンタさんの内容も私の希望に沿った方法なんですが、 もしよければ、Jakaさんの方法も教えてもらえませんか？ >入力するセルは、予め決まっていて変わったりする事はないんですか？ ありません。 >こう言う事で良かったら、入力セル以外は選択できない様にすると言った方法のあります。 どうやるんですか？ 宜しくお願いします。 miniより |
| 横から失礼します。 >こう言う事で良かったら、入力セル以外は選択できない様にすると言った方法のあります。 どうやるんですか？ シートの EnableSelction プロパティを xlUnlockedCells にすればできます。 って、これじゃ何のことわかりませんよね。 ヘルプからの抜粋です。 解説 ワークシートを保護しているときにだけ、このプロパティを使用できます。 xlNoSelection はシートのすべてのセルの選択が禁止され、 xlUnlockedCells は、Locked プロパティが False のセルに限り選択が許可され、 xlNoRestrictions はどのセルの選択も許可されます。 要するに、入力セルの"書式設定"の"保護"の"ロック"をはずし、 シートを保護してから、VBEのプロパティウィンドウで EnableSelction を xlUnlockedCells にすればよいです。 |
| こんにちは。 こんな感じでしょうか？ 注）ブックを閉じるとセルロックは解除されちゃう（シート保護は残るけど）ので、Auto_Openなどで、開く毎にロックする必要があります。 Dim 範囲 As Range Sub 特性セル以外のセルロック() Set 範囲 = Range("B12,B17:B18,C3:D20,F3,F15:F18,H1:H20") ↑ '入力するセルアドレスをCtrlを押しながらセルをクリックするをマクロ記録でとれます。 セルのロック解除 書式設定のロック 書式設定のロック '二回やる。 特定セル書式設定のロック解除 シートロック End Sub '他のセルを編集したい時は、これを実行してシートの保護を解除するか、 'ツール→保護 よりシートの保護解除をして下さい。。 Sub セルのロック解除() With ActiveSheet .EnableSelection = xlUnlockedCells .Unprotect End With End Sub Sub 書式設定のロック() With ActiveSheet.Cells .Locked = True .FormulaHidden = False End With End Sub Sub 書式設定のロック解除() On Error Resume Next With ActiveSheet.Range(範囲) .Locked = False .FormulaHidden = False End With End Sub Sub 特定セル書式設定のロック解除() For Each Cel In 範囲 Cel.Locked = False Cel.FormulaHidden = False Next End Sub Sub シートロック() With ActiveSheet .EnableSelection = xlUnlockedCells .Protect End With End Sub |
| Jaka さんへ 回答ありがとうございます。 お二人から親切に教えていただいて、とても 感謝しています。 Jakaさんの方法も色んな面で使える方法ですね。 ちゃんとプリントアウトしていざと言う時に活用 したいと思います。 お礼が遅くなりましたが、本当に有難うございました。 miniより |
| ポンタ さんへ 回答ありがとうございました。色々方法があるんだなー ととても感動してしまいます。 お礼を言うのが遅くなりすいませんでした。 この方法よりも先に教えてもらった方法「黄色にしておいて 印刷する時は白に塗りつぶす」でうまくいきました。 親切に教えていただいて感謝しています。 miniより |
| こう＠昼休み中です。 すでに解決済みのようですが...^^; すごく目立ちマス。他sheetからsheet1に切り替えてみてください。 '■sheet1のclassに記入 Private Sub Worksheet_Activate() For i = 1 To 10 Range("B3").Interior.ColorIndex = 3 Sleep 100 Range("B3").Interior.ColorIndex = xlNone Sleep 100 Next i End Sub '■標準モジュールに記入 Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) |
| よそのサイトで chottoさんという方に教えていただいたですが、 普段は黄色（No.6）で塗りつぶしておいて、 印刷のときだけすべての黄色を白にしちゃう、ということができます。 印刷が終われば、塗りつぶしたセルは元の黄色に戻ります。 ただ、一つだけ欠点がありまして、黄色の文字があると、 白になっちゃうんです。 This Workbookモジュール に以下のコードを Private Sub Workbook_BeforePrint(Cancel As Boolean) ThisWorkbook.Colors(6) = RGB(255, 255, 255) 'No6黄→白 Application.OnTime Now, "C_Rset" End Sub 標準モジュール に以下のコードを Private Sub C_Rset() ThisWorkbook.ResetColors 'パレット・リセット End Sub それぞれ貼り付けて、お試しください。 |
| ▼ポンタ さん1へ こんにちは。お返事ありがとうございます。 内容を読ませてもらって、そんな事もできるんだー と感動しました。 私の希望する内容にぴったりでしたので、一度やってみます。 本当にありがとうございました。 miniより |
| miniさん、みなさん、こんにちは。 入力範囲を固定にするんでしたら、是非一度ピカつーるの入力範囲ロックを試してみて下さい。 おためしコーナーにて体験する事が出来ます。他の機能もよろしくネ！ http://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=36;id=FAQ |