excelでセルの保護をしたあとに、保護したところ以外のセルで塗りつぶしの機能を使いたいのですが、どうやら出来ないようです。何か良い方法はないでしょうか?

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

A 回答 (7件)

>マクロを有効にする方法を教えて下さい。



補足のメッセージからすると、Excel2000でしょうか。今、Excel2000がないので100%確かではないですが、

 ツール→マクロ→セキュリティ→セキュリティレベル

のセキュリティレベルが『高』になっていませんか?


『中』にすればブックを開くと確認のダイアログボックスがでるので『はい(?もしかしたらYes)』でマクロを有効にします。

『低』にすれば無条件にマクロが有効になると思いますが、マクロウイルスが流行っていますし余りおすすめできません。

うまくいけばいいですが・・・では。
    • good
    • 0
この回答へのお礼

今までどうもありがとうございました。
VBのプログラムまで作っていただいてしまって本当に助かりました&勉強になりました。

お礼日時:2002/01/23 11:15

>例えば一色しか指定出来ないようにする方法はないでしょうか



'==================================最初の回答をアレンジ===
'シートの保護、非保護にかかわらず塗りつぶし可能にする
Public Sub PatternSet()
  With ActiveSheet
    If .ProtectContents Then
      .Unprotect
      PatternSetSub 'パターン色を指定する
      .Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    Else
      PatternSetSub 'パターン色を指定する
    End If
  End With
End Sub

'パターン色を指定する(Sub)<赤=3のみ使える例>
'ColorIndexの意味はVBE画面のHELPで、ColorIndex→ColorIndexプロパティで分かるでしょう
Public Sub PatternSetSub()
  Dim curPattern As Integer '現在のパターン色

  With ActiveCell.Interior
    curPattern = .ColorIndex '現在の色を待避
    Application.Dialogs(xlDialogPatterns).Show '色を指定する
    '指定色か色なし以外は再度入力する。
    While Not (.ColorIndex = 3 Or .ColorIndex = xlNone)
      MsgBox "赤しか使えません。", vbOKOnly + vbExclamation, "禁止の色"
      .ColorIndex = curPattern '元の色に戻す
      Application.Dialogs(xlDialogPatterns).Show '再度設定する
    Wend
  End With
End Sub

'==================================================別法===
'1色しか使えないならダイアログを出す必要はないかも
'下記は、赤色を塗るマクロと色を消すマクロ。セットで使います。
Public Sub 色を塗る()
  With ActiveSheet
    If .ProtectContents Then
      .Unprotect
      Selection.Interior.ColorIndex = 3
      .Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    Else
      ActiveCell.Interior.ColorIndex = 3
    End If
  End With
End Sub

Public Sub 色を消す()
  With ActiveSheet
    If .ProtectContents Then
      .Unprotect
      Selection.Interior.ColorIndex = xlNone
      .Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    Else
      ActiveCell.Interior.ColorIndex = xlNone
    End If
  End With
End Sub


>ツールバーにあるボタンの様なものを作ることは出来ないでしょうか

まず、新しいツールバーを作成します。
(1)表示→ツールバー→ユーザー設定。
(2)→新規作成ボタンを押して自分で名前を入力します。
   これで小さなツールバーができます。
(3)ユーザー設定ダイアログでコマンドタブをクリック。
(4)分類の枠内でマクロをクリック。
(5)コマンド欄の『ユーザー設定ボタン』をクリックして、(2)のツールバーにドラッグ&ドロップ。
(6)ドロップしたアイコンを右クリックしてマクロの登録を選択。
  ボタンイメージの変更もできます。
(7)マクロを選択してok。ユーザー設定ダイアログを閉じます。
(8)作ったツールバーを既存のツールバーが並んだ箇所の空いた所にドラッグ&ドロップ。
この作ったツールバーを表示したくない時は、表示→ツールバーでチェックをはずします。

この回答への補足

たびたびすみません。
上記の別法をコピーして使うことは出来たのですが、excelを閉じて再度このマクロ機能を使おうとすると次のエラーが出てしまいます。
”このプロジェクトのマクロは無効に設定されています。”というウィンドウが表示されてしまうのですが、マクロを有効にする方法を教えて下さい。
よろしくお願いいたします。

補足日時:2002/01/22 14:07
    • good
    • 0
この回答へのお礼

先日マクロのプログラムを作成していただきましたが、ユーザ設定のボタンを作った際にこのボタンが全てのファイルで有効になってしまうため、このファイルの場合だけ表示させるようにしたいのですが、どのようにしたらよいのでしょうか。

お礼日時:2002/02/08 15:43

シートの保護・非保護に関係なく色を塗るマクロ例です。

パスワードは考慮していません。やっていることは単純ですのでコメントを見てもらえばと思います。


ツール→マクロ→Visual Basic Editor でVBE画面に移り、挿入→標準モジュール で標準モジュールを挿入します。出てきたコードウインドウに下記マクロを貼り付けます。

頻繁に使う場合は、ツール→マクロ→マクロ でこのマクロを選択し、オプシュンからショートカットキーを割り当てておくと便利かと思います。

↓ここから
Public Sub PatternSet()
  With ActiveSheet
    If .ProtectContents Then
    '/// シートが保護されている場合 ///
      '保護を解除
      .Unprotect
      'パターンを設定するダイアログボックスを表示する
      Application.Dialogs(xlDialogPatterns).Show
      '再度保護する
      .Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    Else
      '/// シートが保護されていない場合 ///
      Application.Dialogs(xlDialogPatterns).Show
    End If
  End With
End Sub

この回答への補足

どうもありがとうございました。とっても助かりました。
VBのことが全く分からないので教えていただきたいのですが、例えば一色しか指定出来ないようにする方法はないでしょうか。
また、ショートカットキーを割り当てておくと便利と言うことですが、ツールバーにあるボタンの様なものを作ることは出来ないでしょうか?

補足日時:2002/01/21 09:59
    • good
    • 0

そうですね。


私も今試してみたんですが、塗りつぶし機能は出来ませんでした。
もし加工したいなら、やはりNo.1の方の言うとおり、解除して加工してから再び保護設定するか、VBA設定するしかなさそうです。

#「オブジェクトの保護」を外せば出来たような記憶があったので、大変失礼しました(-_-;)
    • good
    • 0

再びです。


一つ付け加えますが、「シートの保護」設定をする前に、加工したいセルの”ロック”を外してから保護設定するようにしましょう。
でないとセルじたい触れないですよ。

#当たり前ですが(^^;)

この回答への補足

もちろんNo.2,3に書いてある方法でシートの保護をしました。
その後保護をしていないセルを塗りつぶそうとすると、ツールバーに塗りつぶしのボタンは表示されているのですが、色の種類がグレーになっていて選択できない状態になっています。ということは出来ないということなのでしょうか?

補足日時:2002/01/17 11:57
    • good
    • 0

基本的なことを言うようですが、「シートの保護」設定は、「セルの書式設定」→「保護」タブの”ロック”にチェックされていてはじめて機能します。


ですから、シート保護を設定した後、一部のセルを加工したいのなら、そのセルの”ロック”を外せばいいんです。
試してみて下さい。
    • good
    • 0

保護を解除してからもう一度保護するしか無いのではないでしょうか。

    • good
    • 0

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

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

このQ&Aを見た人はこんなQ&Aも見ています

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

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

Qオフ車250ccで セルが回らない(泣) 

お世話になります。
ストレス発散に久々にバイクに乗ろうとしたら!
 
▼セルが回らない 
 ⇒バッテリーあがり?
▼業者に来て貰う 
 ⇒バッテリーつないでも(充電しても)かからないと言うより 
  セルがウンともすんとも言わない。

*冬の間は一度も乗らず
*先月、軽4につなげて 30kmほど走行
*ガソリン少なめ
*いつもは車は充電器につなげたら、一発でかかる
*今回は セルを押してもライトが押してる時に消えるだけで
セルの独特のティティティティ って音もしない
ウィンカー類は特に問題なし。

以上より。
キックはついておらず、私は押しがけはできません。
(昔はできたけど、女だし今の体力では厳しい・・・)

質問として
1.押しがけして エンジンがかかる可能性はあり?
 (ならば男友達に頼もうかと。)
2.バッテリーの問題?
 新品パッテリー購入すれば セルが回る可能性あり?
 (ならばとりあえずバッテリー購入)
3.セルの接触不良の問題?
 (素人でも調べる方法はアリ?セルモータをたたけば一時的に
  かかるとも聞いたことがあるが セルモータはどこにある?)

アドバイスお願いします。
ちなみにバイクは SUZUKI DR250R 98年式
バッテリーは毎年買いなおしています・・・
もともと電気系統のウィークポイントが多く なんと2000年式から
ノーマルでキックスタータがついたと言うバイクです。


 

お世話になります。
ストレス発散に久々にバイクに乗ろうとしたら!
 
▼セルが回らない 
 ⇒バッテリーあがり?
▼業者に来て貰う 
 ⇒バッテリーつないでも(充電しても)かからないと言うより 
  セルがウンともすんとも言わない。

*冬の間は一度も乗らず
*先月、軽4につなげて 30kmほど走行
*ガソリン少なめ
*いつもは車は充電器につなげたら、一発でかかる
*今回は セルを押してもライトが押してる時に消えるだけで
セルの独特のティティティティ って音もしない
ウィンカー類は特...続きを読む

Aベストアンサー

こん**は

 まずはバッテリーですね
 フル充電するか、新品に交換してください。
 次はスタータースイッチを点検してください。
 分解して中が汚れていないか確認です。
 汚れいればパーツクリーナなどで洗浄してください。
 バッテリーとスイッチが正常ならスターターリレーですね
 スイッチを押して「かちっ!」と言うならとりあえずは正常です。
 言わないのならリレー交換です
 リレーが正常なら、次はモーターです。
 モーターはエンジンから外して回るかどうか確認しましょう。
 モーターが回ればエンジン内(クラッチ周り)の故障
 モーターが回らなければモーター交換となります。

 確実にチェック出来る計測機器を用意してください
 工具、テスター等が無いのなら、詳しい友人に頼むのが良いでしょう
 どれもないのなら素直にバイク屋に行かれるのをお勧めします

QEXCELで特定のセル以外を保護するのには?

完成したブックの特定のセル(年と月を入れるとそのカレンダーが表示されるなどの場合年とか月を入れるセル)だけ入力できてそれ以外のセルは入力や編集や上書きが出来ないように保護をかけるにはどうしたらいいのでしょう?
シートの保護にすると全部のセルが入力不可になりますし、データのチェックをはずすと全部のセルの入力編集上書きが出来てしまいます。
読み取り専用とか書き込み禁止のパスワードを設定しても上書き保存がされないというだけで、入力編集上書きが操作上できなくなるというわけではないのですよね?
上書き保存は出来てもOKなのですが、関数などが入ってるセルを誤って消したりしないように操作上特定のセルだけしか入力編集上書きができないようにするにはどうしたら一番よいのでしょうか?
よい方法をご存知の方がいらしたら是非教えて下さいm(__)m

Aベストアンサー

保護をかけたくないセル範囲を指定し、セルの書式設定で『保護』タグの“ロック”のチェックを外して下さい。
そうすれば、ブック・シートに保護をかけても、上記のセルだけは保護対象外となりますよ。

Qセルが回らない

ybr125に乗っているのですが、セルが回らないため始動できません。

セルスイッチを押すと「カチっ」と音を立てるだけです。
夏頃から回りづらいと思ってはいたのですが、冬になると完璧に回らなくなりました。

最初はバッテリーを疑って2~3年物のバッテリーを新品に交換
現在、電圧はテスターで測ったところ12~13Vあります。

セルモーター自体はブースターケーブルを使って車から回すと快調に回ります。
押しがけではかかります。

今日はスターターリレーを交換してみましたが変わりませんでした。
ヒューズも交換済みです。

どこら辺が怪しいと思いますか?
キャブまで分解清掃したほうがいいでしょうか?

Aベストアンサー

>セルモーター自体はブースターケーブルを使って車から回すと快調に回ります。

↑この意味が理解出来ませんか?

車のバッテリーからブースターケーブル繋いで回るなら「バイクのバッテリーが弱ってる」のです。

バッテリーの電圧をテスターなどで測る場合は電流負荷を掛けないと弱っていても12Vから13Vの電圧は出ますから「セルモーターを回した時の電圧」を測ってください。

恐らく、8V以下の電圧に下がってしまうはずです。

だから、セルを回すだけのパワー(電流)がバッテリーから供給されずに回らないのです。

バッテリーを新品に換えても「バッテリーに充電されなければ直ぐに容量不足」になってしまいますから、充電系統が故障してる疑いもありますから、エンジン始動後にヘッドライトやウインカーを点けてエンジン回転数を上げたり下げたりして明るさが大きく変化するか確認してください。

また、その時のバッテリー電圧を測ってください。

エンジン回転数に応じてバッテリー電圧が変動するはずですが、バッテリーが正常に充電されて満充電状態になれば電圧変動は少なくなります。

結論は、バイクのバッテリーが充電不足で弱ってるからなので、充電器で充電するか長距離を走行してバイクの発電機で自力充電を行ってください。

バッテリーが元気に回復すれば、車からブースターケーブルを繋がなくてもセルが回るようになります。

>セルモーター自体はブースターケーブルを使って車から回すと快調に回ります。

↑この意味が理解出来ませんか?

車のバッテリーからブースターケーブル繋いで回るなら「バイクのバッテリーが弱ってる」のです。

バッテリーの電圧をテスターなどで測る場合は電流負荷を掛けないと弱っていても12Vから13Vの電圧は出ますから「セルモーターを回した時の電圧」を測ってください。

恐らく、8V以下の電圧に下がってしまうはずです。

だから、セルを回すだけのパワー(電流)がバッテリーから供給されずに回...続きを読む

QExcel2003 書式→セル書式設定→パターンと塗りつぶしの色について

Excel2003で、異なるブックを左右に並べて配置し、セルの色を付けたい場合に、書式メニュー→セルの書式設定→パターンタブで色付けしようとすると、色パレットのローズの色が片方は名前の通りピンク色ですが、片方は見た目がどうしても紫色になってしまいます。

色番号がどうなっているのか、マクロで記録し確認すると両方色番号が38番になり、同じなのに見た目が違ってきます。

やり方をツールバーの「塗りつぶしの色」に変えると色パレットの色自体がピンク色の元々のピンク系で上手くいきますが、理由を知りたいのです。

Aベストアンサー

EXCELではブックごとに色の設定を帰ることが出来ます。
そのために色がずれているのだと思います。
同じ色の設定をしたいのであれば両方のブックを開き
変更したいほうのブックのツールメニューのオプションの色のタブを開き
コピー元のファイル名の欄に、元になるブックを指定してはどうでしょうか。

Qライトはつくのに、セルが回らない!!

お世話になります。

先日、HIDの片方が点灯しなくなった為、新しい商品を購入、今日取り替えました。
けっこう時間はかかったものの、なんとか無事に終わりまして、車を車庫から移動させました。

その後、2時間くらい経ってから、車に乗ってエンジンをかけようとしたら、セルが全く回らなくなってしまいました。

ヘッドライトも付きますし、ルームランプもナビも正常に動きます。

とりあえず、アクセサリ→オンまではいつも通りですし、カチカチと言う音もします。
しかし、そこからどんなに回しても、ウンともスンとも。。。

違う車で何度かバッテリーを上げた事もありますが、、セルが回らないと言ってもキュルキュルぐらいは音が鳴って、エンジンがかからないと言った症状ではあったのですが、今回は本当に何の音も鳴りませんし、何の反応もありません(汗

HID(バルブではなくキットごと)を交換した際に、バッテリーを外しましたので、締め方が緩かっただろうか?と思ったのですが、そうでもないようです。

試しに、他の車のバッテリーとケーブルで繋いでセルを回してみましたが、同じ結果でした。。。(泣

これは何が原因と考えられるでしょうか?
ライトやナビ自体は正常に付くので、バッテリーではないと言うことでしょうか?
セルモーターですか?
今まで不具合らしい不具合は無かったのですが、それともやはりHID交換時に何かしてしまったのでしょうか。。。

車屋にも連絡して見ましたが、今日明日はどうしてもレッカーを使えないそうで。。。

どなたか、詳しい方がおられましたら、どうか想像の出来る範囲でも構いませんのでお知恵をお貸し頂きたく思います。
助けてください(泣
よろしくお願い致します!!

お世話になります。

先日、HIDの片方が点灯しなくなった為、新しい商品を購入、今日取り替えました。
けっこう時間はかかったものの、なんとか無事に終わりまして、車を車庫から移動させました。

その後、2時間くらい経ってから、車に乗ってエンジンをかけようとしたら、セルが全く回らなくなってしまいました。

ヘッドライトも付きますし、ルームランプもナビも正常に動きます。

とりあえず、アクセサリ→オンまではいつも通りですし、カチカチと言う音もします。
しかし、そこからどんなに回しても、ウン...続きを読む

Aベストアンサー

>カチカチ
どういう状況での音?、(1)キーをひねった時、(2)セル始動しようとした時、(3)その他。
真っ先に、セルモーターに十分な電気が行っていない(確実な状況)。
何故?、バッテリーに十分な電力がない(セルはライトの十倍以上必要と思うべし)(2)の時。
バッテリーOKだが(2)、バッテリ、セル直結する(ソレノイドスイッチ接触不良)ただし(1)の時で(2)で音がしない時はソレノイドスイッチの駆動回路に問題。
セルモーターの異常。
電気系をいじった後であり、2時間後の状況から、配線ミスでショートの可能性も否定できません。

Qエクセルの「入力規則」→「リスト」の機能を、あるセルに使った時に、そのセルにリスト以外の文字も入力出来るようにするには?

エクセルの「入力規則」→「入力値の値」の
「リスト」の機能は便利な機能だと思いますが、
急遽、リスト以外の文字も入れなければいけない事態が
あった場合に、他の文字が入力できなかったりします。
私がファイルを全て管理す分にはリストの範囲を
広げたり修正したりできるのでいいのですが、
他の(あまりエクセルを使った事がない)人が
使う場合に、他の文字をいれたい場合に、入れれないで
戸惑ってしまうかもしれません。
ドロップダウンで文字を選択する機能も残しつつ、
手入力も出来るように機能を追加する事はできますでしょうか?

Aベストアンサー

実は私も同じことで以前なやんだのですが、実は単純に
リストを設定する際に、「エラーメッセージ」タブをクリック⇒「不正なデータが入力されたらエラーメッセージを表示する」に入ってるチェックをはずす、これで、リストから選ぶまた、リストにない値を入力するということができるようになります。

Qセルが回らない CDIの故障はあり得ますか?

こんばんば。
ネットで買ったバイクのレストアをしている者です。(レストア初心者です。)
セルスイッチを押してもモーターが回りません。
※良くある、セルスイッチを押してもカチッと音がするだけでセルが回らないってヤツではありません。
セルスイッチを押してもうんともすんとも言いません。
いろいろ配線をチェックしたのですが、原因が分かりません。
そこで下記のサイトを見ましたところ、ジャンクションボックス内にもスターターリレーのスイッチがあるという事を知りました。
http://motor.geocities.jp/cfsxd043/kawasaki/kawa1.html
(1)このジャンクションボックス内のスターターリレーの部分が壊れてセルが回らないって事はあり得ますか?

それと、スターターリレー直結すると、セルモーターが回り、エンジン始動します。

また、スターターリレーが故障しているかチェックする方法を教えてください。

よろしくお願いします。

Aベストアンサー

>スターターリレー直結すると

この意味が曖昧なので断定できないですし
車種が不明ですが、リレーは大体ヒューズ(15~30A)と
一体になってバッテリー近辺にあるスイッチです。
http://www.geocities.co.jp/MotorCity-Circuit/2519/electrics/relay.html

キル、セルボタン等の接触不良があるとリレーに
12V来ないのでリレーが動作しません。
セルスイッチ等の接触やアースが正常でボタン押すか
バッテリー直でリレーの+側に12V送りリレーが動作しない
カチってならないならリレーの故障です。
リレー自体は、9~10Vあれば動作する部品で
長期放置だと固着したり壊れる場合があります。

その他で多いのは、ターミナルの接触不良
バッテリーのマイナス端子からボディやシリンダーに
いく配線の腐食や接触不良などもあります。
キーONで電装やランプが点灯しても、接触が
不十分だと大電流を必要とするためセルモーターは回らない
リレーがカカカカってしか動作しない例も
ありました。

中には特殊な車種、構造のものもあるので
本気でレストアするなら車種くらいは提示するか
サービスマニュアル購入たほうがいいですよ。
そこにリレー以外の電装のチェック方法や始動不能の場合の
フローチャート、配線図も詳しく書いてあるので。
http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1248608007

>スターターリレー直結すると

この意味が曖昧なので断定できないですし
車種が不明ですが、リレーは大体ヒューズ(15~30A)と
一体になってバッテリー近辺にあるスイッチです。
http://www.geocities.co.jp/MotorCity-Circuit/2519/electrics/relay.html

キル、セルボタン等の接触不良があるとリレーに
12V来ないのでリレーが動作しません。
セルスイッチ等の接触やアースが正常でボタン押すか
バッテリー直でリレーの+側に12V送りリレーが動作しない
カチってならないならリレーの故障です。
リレー自体は、9...続きを読む

QExcel セルの塗りつぶし

セルの数値によって別のセルの塗りつぶしをしたいのですが
たとえば数値を参照するセル(A1)が「4」のとき左から4つセル(B1,C1,D1,E1)塗りつぶしたいです
こういったことは可能ですか?
可能ならセル(A2)に数値を入れたときA1の数値によって塗りつぶした次のセルから数値分のセルを塗りつぶしたいのですが
また複数の条件指定をして塗りつぶしを行う色を変更することはできますか?

Aベストアンサー

>1つ目のセルで色を決定して2つ目のセルで塗る数を決めたい
>図の通りのことを色を変えてやりたいと思っています
図とは当方が添付した図ですか?そうなら出来ているのに何が違うのでしょう??

何故あいまいで抽象的な説明をなさるのでしょうか。
1つ目とか2つ目でなくA1、A2ときちんとセルアドレスで書いてくれればイメージが掴めるのにと思います。

画像をつけてくれれば一番わかるのですが、文章でも今回の内容なら
A1セルに4を入力 → B1~E1が赤になる。
A2を2にする → F1とG1 が赤になる
このように書いて頂きたいです。

なお、A1の色で、というのは条件付き書式では出来ませんよ。
それをしたいならマクロです。
固定の色で設定するしかないです。

やりたい事が複雑なので、と言いますが、こんなに何度もやり取りしてお互い通じないのですから、最初から実際にやりたい事をやりたいアドレスで説明した方がいいと思います。

Qセルが回らない(T^T)

バリオスなのですが、バッテリーは、充電をし完璧な状態なのにセルが、回らない セルスイッチを押しても 「カチッ!!」と言う音しかしません。これは、セルが悪いのでしょうか?

Aベストアンサー

下記のURLに同じような症状のバイクがありました。
No.9に私が回答していますが、このときの質問者は
これで直ったようです。
一度、ご確認下さい。

参考URL:http://oshiete1.goo.ne.jp/kotaeru.php3?q=1412669

Qexcel マクロのセルの塗りつぶしについて

曜日によって特定のセルを自動で塗りつぶしたいのですが
マクロでの方法を教えてください。

例として、
G3からAL3までひと月の曜日のデータがあるのですが、
土=水色 日=赤色 祝=黄色 (これ以外は、塗りつぶしなし)
のように一致する縦列の2から51の背景塗りつぶしが自動で出来ないでしょうか?

Aベストアンサー

私は、読み違えをしていましたね。

>2***年**月を入力するとG3:AL3に曜日(祝日も)が直接全角漢字で割振られます。
その行は、シリアル値の行が、G1 や G2 にあって、それを、「=TEXT(G1,"aaa")」 などとしてあるということですか? 例えば、 「= G1」 として、書式側で、「aaa」としてもよいのですが。私のマクロは、シリアル値に沿って、色を変更していきますから、祭日などは、コードを変えない限りはとても不可能ですね。

具体的に(式などやセルの番地)、その日付と曜日のデータの内容を教えてくださいませんか?


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング