エクセルの学校：全文検索：Hyper Estraier：（Mook）

Results of 1 - 1 of about 1215 for （Mook） (0.001 sec.)

[[20150331142444]]: #score: 9211; @digest: 9d672aba6199141376d9feb7dc10353d; @id: 67650; @mdate: 2016-03-01T07:59:58Z; @size: 6680; @type: text/plain; #keywords: 力必 (12727), total (11051), ・修 (6453), 記・ (6434), vbokonly (4676), （to (3579), 成者 (3406), 未入 (3231), 必須 (2884), vbexclamation (2708), 着色 (1797), ッセ (1541), メッ (1534), cancel (1509), セー (1361), 箇所 (1350), 閉じ (1346), ーメ (1208), 2016 (1069), 作動 (1031), 火) (996), 修正 (988), 2015 (875), activesheet (861), 入力 (798), 追記 (778), 該当 (710), 木) (703), マク (701), に教 (661), て頂 (640), クロ (630); 『入力必須セルが未入力だった場合。。』（TOTAL）
いつもお世話になっております。入力必須セルが何箇所かあり、そこが未入力のまま保存しようとした場合にエラーメッセージ&未入力箇所を着色したいのですがそういった事はできますでしょうか? 度々申し訳ございません。どなたかお手すきの時にご教示願います。＜使用 Excel:Excel2013、使用 OS:Windows7 ＞ ---- 保存時でなくとも、入力必須箇所を条件付書式で色付けしておいてはどうでしょうか。 （Mook） 2015/03/31(火) 14:34 ---- Mookさんも書いている通り条件付き書式で色づけをしておいて、それでもかつ入力忘れがあった場合、保存は出来るけどブックを閉じられないようにする方法です。下記例では必ず入力しなければいけないセルがA1、B3、D15となっています。 ThisWorkbookモジュールに Private Sub Workbook_BeforeClose(Cancel As Boolean) With ActiveSheet If .Range("A1") = "" Or .Range("B3") = "" Or .Range("D15") = "" Then MsgBox "未入力のセルがあります。入力してください", vbOKOnly + vbExclamation Cancel = True End If End With End Sub でもこれマクロ無効で開いたら何の意味もないんですけどね・・・。（se_9） 2015/03/31(火) 14:52 ---- もう一つ教えて頂けますでしょうか? 先程質問させて頂いた条件に加えてとあるセルが"-1"になっている場合もブックを閉じられないようにしたいのですが。。（TOTAL） 2015/03/31(火) 15:30 ---- A2セルに-1が入力されている場合だと With ActiveSheet If .Range("A1") = "" Or .Range("B3") = "" Or .Range("D15") = "" Or .Range("A2") = "-1" Then MsgBox "未入力のセル、またはA2セルに-1が入力されています。正しく入力してください", vbOKOnly + vbExclamation Cancel = True End If End With のようになります。メッセージボックスのメッセージは適当に変えてください。（se_9） 2015/03/31(火) 16:02 ---- いつもお世話になっております。ものすごくバカな質問をさせて下さい。以前上記のような質問をさせて頂きましたが。。未入力箇所があればエラーメッセージが出るように。。というような質問をさせて頂きました。ご指示頂いたとおりやってみた所やりたい事は出来たのですが、私自身も何か入れないとBOOKが閉じれなくなります^^; これを回避する方法をご存知の方がいれば教えて頂きたいです。書式の作成者はファイルを閉じることができて、その書式を使う人に対してエラーメッセージが出るようにできますでしょうか。。本当に申し訳ございません。何卒よろしくお願い致します。（TOTAL） 2015/04/14(火) 18:14 ---- 書式の作成者という意味は、このマクロの作成者ということだろうと思いますが、この情報は、（標準仕様としては）どこにもないでしょうね。また、今、エクセルを使っている人が誰なのかも、どこにも、その情報はありません。（エクセルのユーザーIDはありますが、これは、そのPCでだれがエクセルを使っていても同じID）思いつきレベルですが、 1.（TOTAL）さんも、該当のセルに何かいれて閉じる。 2.（TOTAL）さんが閉じる前に、（TOTAL）さんだけが実行できるマクロを実行。このマクロの中でApplication.EnableEvents = False と記述。この方法はいくつかありますが。 3.（TOTAL）さんが閉じる前に、（TOTAL）さんだけが変更できるシートのセルの値を決められたものにする。 BeforClose では、この値が決められたものであれば、チェックをしない。で、このセルの値をクリア。 4.（TOTAL）さんが閉じる前に、VBE画面を開き、イミディエイトウィンドウを表示して、そのなかで Application.EnableEvents = False とタイプしてエンター。 3.か 4.でいかれたらいかが? （β） 2015/04/14(火) 19:00 ---- β様ご丁寧に教えて頂きありがとうございます! 4番でやってみました。やりたかった事ができました。本当にありがとうございます。今後ともよろしくお願い致します。（TOTAL） 2015/04/14(火) 20:25 ---- いつもお世話になっております。以前質問を投稿させて頂き、まったく問題なく今日まできたのですが、突然マクロが作動しなくなりました。書式を少し修正しただけで、構文は何もさわっておりません。どなたか考えられる原因をご存知の方がいらっしゃったら教えて頂けますでしょうか? よろしくお願い致します。（TOTAL） 2016/02/25(木) 14:26 ---- 私、この質問に回答していたんですね。1年も経ってないのに記憶が・・・。書式をどのように修正したのかと、現在使っているマクロのコードを提示していただけますか? （se_9） 2016/02/25(木) 15:09 ---- Private Sub Workbook_BeforeClose(Cancel As Boolean) With ActiveSheet If .Range("K14") = "" Or .Range("Z14") = "" Or .Range("AP14") = "" Or .Range("BF14") = "" Or .Range("K16") = "" Or .Range("K17") = "" Then MsgBox "着色箇所は入力必須箇所です（上書き保存はできます）", vbOKOnly + vbExclamation Cancel = True End If End With End Sub マクロコードは上記の様になっております。今使用しているファイルの中にワークシートがいくつかあり、該当のシートで追記・修正はしておりません。マクロコードに関しても追記・修正はしておりません。ただ、他のシートで追記・修正はしました。修正内容もたいした修正ではなく項目欄をいくつか追加しただけです。どこを確認していいのかさっぱりわからず困っております。確認の為に何度もファイルを開けたり閉じたりしたのも原因でしょうか? ホントにこの程度知識なのでご教示頂けたら助かります。何卒よろしくお願い致します。（TOTAL） 2016/02/25(木) 15:36 ---- このマクロは【ActiveSheet】をチェックしていますね。したがって、どのシートかわかりませんが、閉じられようとした時点で、たまたま表示されているシートの該当のセルがすべて空白ではなかったら何もしないで終わり、つまり閉じられてしまいますが? （β） 2016/02/25(木) 16:29 ---- こちらで試したところ何の問題もありませんでした。なのでβさんも指摘しているようにシートが関係しているのかもしれません。・・・てそんなコード提示した私が悪いのですよね。特定のシート（たとえばSheet1）と決まっているのなら With ActiveSheet を With Sheets("Sheet1") にしてみてください。（se_9） 2016/02/25(木) 16:49 ---- 皆様ご丁寧に教えて下さってありがとうございます。全てのセルは空白になっておりますが、以前のように空白セルがあるとメッセージが表示されるようにしたいのですが、思うようにいきません。 se_9様に教えて頂いた通り With Sheets("Sheet1") にもしてみたのですがうまくいきません。何がどうなってしまったのでしょうか(T_T) 本当に申し訳ございません。（TOTAL） 2016/02/25(木) 17:31 ---- 未入力のセルがあるにも関わらず、閉じる時にメッセージが出てこないということですよね? こんなことはないかと思いますが、一応確認してみてください。・マクロが有効になっていない・該当シートが「Sheet1」ではない（se_9） 2016/02/26(金) 09:36 ---- お礼が遅くなり申し訳ございません。皆様に教えて頂いた通りの事を一通りやったのですがうまくいかず。。とにかくよくわからないまま、一度パソコンを再起動してみた所何事もなかったかのようにマクロが作動しました。お騒がせして申し訳ございません。今後ともよろしくお願い致します。（TOTAL） 2016/03/01(火) 16:59 ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201503/20150331142444.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ