• ベストアンサー

注意を喚起するには

いつも利用させて頂いております。 エクセルで顧客1人1人にブックをつくって入金管理をしています。基本的には顧客から入金があればその方のブックの表へ日付と入金額を入力する単純作業なのですが、条件が色々ある顧客もおり、入力に注意を必要とする場合もあります。このような人のブックを開いた際に注意を促せられる様なものは無いでしょうか。(フリーソフト・マクロ等) とりあえず入力者へ注意を喚起できればどのようなものでも構わないです。エクセルの図形のオートシェイプで透過文字を作ってシートの背後にうっすら表示させたかったのですが、そうすると通常の入力に支障がでますよね? 何か良い方法がございましたら御教授お願い致します。

質問者が選んだベストアンサー

  • ベストアンサー
  • snoopy64
  • ベストアンサー率42% (337/793)
回答No.5

#2です。補足を拝見しました。 「プロジェクト-VBAProject」という窓が表示されていないのでしたら、 表示→プロジェクトエクスプローラ を選択してください。 「VBAProject(ブック名)」の左の「+」を押すと、「ThisWorkbook」が出てきます。 以上、Excel2000ですので、2002と少し違うかもしれませんが、参考にしてください。 頑張ってくださいヽ(^。^)ノ

hyuganatsu
質問者

お礼

出来ました!!!丁寧に御教授下さりありがとうございました。なんか…感動しますね(笑)。今後はマクロを勉強しようと思います。

その他の回答 (4)

  • mshr1962
  • ベストアンサー率39% (7418/18948)
回答No.4

入力前なら#1の方の入力規則 入力後なら「書式」「条件付き書式」で入力値に対して 文字色や塗りつぶし等を変化させる方法があります。

hyuganatsu
質問者

お礼

そうですね。もともとデフォルトで備わっている昨日をフルに活用するべきですよね。ありがとうございます。

  • ta123
  • ベストアンサー率51% (95/186)
回答No.3

シートの背後にうっすら表示する方法ですが、シートの背景という方法があります。(Excel2002以外は不明) 注意を喚起する注意事項をビットマップファイルにする。(例えばWordで作成→PrtScr→ペイント) Excelの"書式"→"シート"→"背景"で上記で作成したファイルを指定する タイル状にべったりと展開しますので、それほど良いとは思いませんが、参考までに。 なお、印刷はされません。

hyuganatsu
質問者

お礼

試してみました。面白いですね。様々な方法を試してみたいと考えています。ありがとうございました。

  • snoopy64
  • ベストアンサー率42% (337/793)
回答No.2

ツール→マクロ→VisualBasicEditor 左側のThisWorkbookをダブルクリック 右の空白部分に以下のコードを貼り付け Private Sub Workbook_Open() MsgBox "あああ" & vbLf & "いいい", , "注意事項" Sheets("Sheet1").Select End Sub 保存後、ブックを開くたびにメッセージが表示されてSheet1を表示します。 (マクロを実行していいか確認が出ますので、有効を選んでください。) 頑張ってくださいヽ(^。^)ノ

hyuganatsu
質問者

補足

実は私、マクロは初挑戦でこれでデビューできたらな、と思っていたのですがツール→マクロ→VisualBasicEditor→「左側のThisWorkbook」(←この部分)が見当たらないのです。もし、宜しければもう少し詳しく教えて頂けると嬉しいです。Excel2002です。

回答No.1

 ブックを開いた際ではないのですが、入力する際に注意を促せられればよいのでしたら、「入力時メッセージ」使用すればできると思います。  メニューバーの[データ]→[入力規則]→[入力時メッセージ]タブ  ここに注意事項を入力しておけば入力するセルを指定したときにメッセージが出ます。複数セルを指定できます。お役に立てれば。

hyuganatsu
質問者

お礼

!!!確かにそうですね。ありがとうございます。「入力規制」忘れていました。早速試します。

関連するQ&A

  • オートシェイプ図形の角度をマクロで変えたい

    エクセルのオートシェイプで図形を作って、それをグループ化して、 A1のセルへ数値を入力するとシート1上にあるオートシェイプの角度が変化するようにしたいのです。マクロで出来るでしょうか。 シート上の図形は、Group25 です。 エクセル2000を使用しています。 よろしくお願いします。

  • 添付ファイルを添付し忘れていたら注意喚起したい

    アウトルック2010なのですが とある件名、もしくはとあるアドレスに対してメールを 送信する時に、エクセルの添付ファイルを添付し忘れていたら 注意喚起するようにしたいのですが そのような機能はありますか? マクロを組めば可能でしょうか?

  • オートシェイプの図形の高さ、幅をマクロで変えたい

    エクセルのオートシェイプで図形を作って、それをグループ化して、 A1(縦)A2(横)のセルへ数値を入力するとシート1上にあるオートシェイプの長さと幅が変化するようにしたいのです。マクロで出来るでしょうか。 シート上の図形は、Group25 です。 エクセル2010を使用しています。 よろしくお願いします。

  • オートシェイプに関するマクロ

    エクセルのオートシェイプの書式設定のサイズの倍率(縦横比を固定)を、120%にするマクロって可能でしょうか? 沢山の図形の大きさを調節する作業があるのですが、その都度オートシェイプの書式設定を開いて値を入力すると大変な手間になってしまいます。 図形をセレクトしてマクロを実行するだけで、大きさを変化させるようにしたいのですが。 ご存知の方がいましたら、よろしくお願いします。

  • オートシェイプの文字列の抽出について

    エクセルのマクロについて教えてください。 今、オートシェイプで四角が描いてあり、その中にテキストで他のエクセルブックへのパスが記入してあります。 この状態から、オートシェイプ内のパスのブックを開き、開いたブックに何らかの処理をして、開いたブックを閉じるという処理をしたいと考えております。 処理を始めるトリガーは、他のオートシェイプをクリックするなどを考えております。 いろいろ試してみたのですが、オートシェイプ内に記述してあるテキストを抽出する方法が思いつきませんでした。(ここで使われているのはテキストボックスではなく、四角のオートシェイプです。) お詳しい方、どのようにすればよいか教えてください。 よろしくお願いいたします。

  • 線が消えたオートシェイプしか描けないエクセルファイル

    Excel97, Windows98SE を使用しています。 あるエクセルファイルで、オートシェイプの図形を描くと、必ず線が消えた状態で描かれてしまい、困っています。 描いた後に「オートシェイプの書式設定」で線の設定はできるのですが、いちいち設定しないといけませんので少し面倒なのです。 他にも黄色い太線の図形が描かれるファイルもあります。 ブックを新規作成してそこに描くと、普通に線が表示されたものが描けますので、ブックに何か設定してあるのかと思うのですがどこを見ればいいのかわかりませんでした。 ご存知の方、どうぞよろしくお願いいたします。

  • オートシェイプ図形をクリックでコメントを表示したい

    エクセルで、オートシェイプ図形をクリックした際、コメントを表示したいです。 (データ→入力時メッセージのように…セルをクリックではなく、図形をクリックしてコメント表示) マクロ等で可能なのでしょうか。 可能であれば、右クリック→マクロの登録欄へ記入する文字列をお教え頂けないでしょうか。

  • エクセル2007のマクロ

    どなたか教えて下さい。 エクセル2007で、図形とオートシェイプを同時に選択するマクロを教えて下さい。 今まで、エクセル2003では Selection.ShapeRange.Group.Select で、一発で選択できていましたが、エクセル2007に変わって動かなくなりました。 オートシェイプだけは、グループ化は出来たのですが、図形とのグループ化する方法が分かりません。 目的は、エクセルの図形の挿入で読込んだ図形の上に、エクセルのカメラで読込んだリンク図形(複数)を一緒にグループ化を行い、ペイント等でビットマップファイルを作成したいのです。 グループ化できた後は、手動でペイントに貼り付け、保存するつもりです。 よろしくお願いします。

  • Excelのマクロを使用してオートシェイプ図形の色を変えたいのです。

    Excelのマクロを使用してオートシェイプ図形の色を変えたいのです。 オートシェイプ図形を50個ならべて、マウスでクリックしてものは色が変わるようにしたいと思います。 マクロ記録をすると以下のようになりました。 Sub Macro1() ActiveSheet.Shapes("AutoShape 1").Select Selection.ShapeRange.Fill.ForeColor.SchemeColor = 45 Selection.ShapeRange.Fill.Visible = msoTrue Selection.ShapeRange.Fill.Solid End Sub このプログラムを50個書くわけにはいかないのですが、プログラムで処理するのに問題点が2つ出てきました。 ・オートシェイプ図形の名前が"AutoShape 1"となっていますが、これを変更したいのですが、書式設定にはありませんでした。変更するにはどうすればよいのでしょう? ・クリックしたオートシェイプ図形がどれであるかを返す関数がないと、どの図形がクリックされたかわからないのですが、これを返す関数はあるのでしょうか? よろしくお願いします。

  • オートシェイプが消えたり出たりする

    Windows 7+ Excel 2013を利用しています。 オートシェイプを200個位(四角、丸)入れています、重ね合わせはありません。 エクセルで職場のレイアウトを作成・更新しているのですが、 突然、全てのオートシェイプが表示されなくなり、オートシェイプがあるあたりの セルをクリックしたら、幾つかのオートシェイプが表示され、マウスを動かすと オートシェイプが消えてしまいます。 また、別のセルをクリックしたら、先とは、違うパターンで幾つかオートシェイプが 表示され、マウスを動かすと、何個かオートシェイプが表示されたまま、他のが消えます。 オブジェクトの選択と表示では、全て表示になっていますが、一旦、全て非表示にして、全て表示にしても、全く、オートシェイプが表示されません。 慌てて、保存せずに、終了して、パソコンを再起動、変になったエクセルブックを開いても直っていません。 仕方なく、先月のブックをコピーして、修正しています。 変になったエクセルブックですが、他のパソコン何台かで開いても同じようになります。 マクロでもあるのかと思い、Alt + F10を押してみましたが、コードは書かれていません。 諦めかけていたら、調べていないPCから開いたら、表示されています。 そこで、そのPCで上書き保存してから、変になったPCで開いたら、表示されています。 何故なんでしょうか? エクセルブックは、壊れてなかったんでしょうか?

専門家に質問してみよう