No.4ベストアンサー
- 回答日時:
私なら、イベントプロシージャ(マクロの一種)で発注メール自体を飛ばしちゃいますね。
もはや「忘れる」可能性すら根絶できますので、一番合理的でしょう。
まず、現残が1になると起動させる範囲に、「範囲名」をつけます。例では「現残」。
で、このシートのシートモジュールにこれをコピペ。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngGenzan As Range
Dim strProductID As String '商品ID
Dim MailSmtpServer As String
Dim MailFrom As String
Dim MailTo As String
Dim MailCc As String
Dim MailBcc As String
Dim MailSubject As String
Dim Mailbody As String
MailSmtpServer = "" 'メールサーバー名入れて下さい
MailFrom = "" '発信者入れて下さい
MailTo = "" '送付先入れて下さい
MailCc = "" 'CCの送り先入れて下さい
MailBcc = "" '同上
MailSubject = "商品発注:" '発注メールのタイトル
Mailbody = "" '本文
For Each rngGenzan In Range("現残")
If rngGenzan.Value = 1 Then
strProductID = rngGenzan.Offset(0, -1).Value
MailSubject = MailSubject & strProductID
If SendMailByCDO(MailSmtpServer, _
MailFrom, _
MailTo, _
MailCc, _
MailBcc, _
MailSubject, _
Mailbody) <> "ok" Then
GoTo ErrHandler
End If
End If
Next rngGenzan
Exit Sub
ErrHandler:
MsgBox "メール送信に失敗しますた('A`) 、環境をチェックしてください", _
vbCritical, "重大問題発生"
End Sub
そんで、Module1に参考URLのメール発信プログラムを乗っけたら、後は勝手にメール送信されます。
上記変数(Mailなんたら)も、シート上のどっかから変数化して取ってきてメール作っちゃうと合理的。
ちなみに上記はろくにテストもしてないしチューニング(普通なら起動範囲絞る)もしてないので、
使う場合はたたき台としてよろしくです。
ありゃー、確認画面でわかったけど、Tab利かないのね。見づらくてすみません。
参考URL:http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub0 …
こんばんは。
これすごく便利ですね!
マクロをよく知らない私にとって目から鱗というか
思いもよらない方法で発注メールまで完了とは。
マクロも勉強したいと思っていたのでとても参考になりました。
>もはや「忘れる」可能性すら根絶
これです、これ!
忘れる馬鹿がいるんでわざわざ注意勧告を出すはめになっているので
もう少し勉強して教えていただいたマクロをたたき台として
自分なりのものを作っていきたいと思います。
ありがとうございました。
No.3
- 回答日時:
こんにちは
#1補足です。
後からアップされた画像のイメージでよいなら、#2の方のアドヴァイスをもとに実現できますね。
#2の方の式を結合されたA3セルに条件(例えばチェックするセル範囲)やイメージ(条件付き書式で塗りつぶしとフォントを指定)に合うように編集すればよいです。
A3セル例)
=IF(COUNTIF([範囲],"<2")>0,"注文はしましたか?","")
※[範囲]はチェックするセルを指定します(下記参照)。
[範囲]例)
$B$7:$B$* [*印に末尾の行番号を指定する]
$B:$B [B1~B6セルに値 1 が無いこと]
条件付き書式では、「セルの値が」を「数式が」に選択を変更して次の式を設定し、フォントとパターンの色を選択して下さい。
=$A$3="注文はしましたか?"
No.2
- 回答日時:
No.1さんの書かれている方法が一番判りやすいと思います。
ただ私はマクロを知らないので代替案としてはA1~A7に在庫数が入力されていた場合は
=IF(COUNTIF(A1:A7,"<2")>0,"注意:在庫数が1の項目があります","在庫は適正です")
のようなセルを目立つ場所に文字サイズを大きくして挿入します。
あとどのセルが1以下になったのかすぐに判るように在庫数の欄には条件付き書式で文字か背景の色が目立つようにしますね。
早速のアドバイスありがとうございます。
教えていただいた計算式でうまくいきました。
条件付き書式で思うとおりできました。
ありがとうございました。
No.1
- 回答日時:
こんにちは
>在庫が1になったら発注をかけるようにしたいのですが、その際に発注をするように注意を促すメッセージを表示させたいと思っています。
おっしゃるとおり、条件付き書式でセルに表示や変則的ですが入力規則でセルに表示、関数でセルに表示がありますが表示セルを見ない限り気づきませんね。
やはりここはマクロでメッセージボックスをエクセルシート上に表示して知らせる方が一番目立ちそうです。
早速のアドバイスありがとうございます。
自分のやりたい形の画像をアップしました。
マクロは使ったことがなく全くわからないのですが
こういう感じにしたい場合どうすればいいのでしょうか。
もう少し教えていただけると助かります。
よろしくお願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(ビジネススキル・経営ノウハウ) 在庫管理のこの問題が分かりません。どなたか解説お願いします 2 2022/04/18 18:35
- 数学 在庫管理のこの問題が分かりません。どなたか解説お願いします 4 2022/04/18 22:19
- 数学 在庫管理のこの問題が分かりません。どなたか解説お願いします 2 2022/04/18 22:21
- 経営情報システム 在庫管理のこの問題が分かりません。どなたか解説お願いします。 0 2022/04/18 16:02
- Visual Basic(VBA) エクセルVBA 4 2022/05/14 00:51
- Visual Basic(VBA) エクセル VBA 条件によるセル点滅 お詳しい方 ご教授をお願いします。 Excelファイルにて 現 1 2022/11/03 15:53
- Amazon アマゾン 7 2022/06/11 11:03
- Excel(エクセル) Excelのマクロについてご教授ください 2 2023/02/25 09:43
- Visual Basic(VBA) Excel VBA 同じ名前のフォルダがあれば作成したブックを格納するマクロをつくりたい 2 2023/01/16 16:19
- Excel(エクセル) VBAで、シート間の転記するコードを教えてください。 4 2023/03/26 10:43
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelについて教えてください
-
【Excel】数字を3倍にし、なお...
-
エクセルVBA、別ブックへ転記す...
-
エクセル マクロ チェックボックス
-
Excel分析ツールでのポアソン回...
-
【マクロ】顧客番号にて一致さ...
-
【マクロ】名前を保存する際に...
-
エクセルのデーターが2か月前の...
-
UNIQUE関数が使えないバージョ...
-
エクセル共有したが、アクセス...
-
Excelでセルの値が同じか...
-
(マクロ)データをAブックからB...
-
Excel フィルターを掛けた状態...
-
エクセル②
-
エクセルを使っていて2024/5/15...
-
Googleスプレッドシートでファ...
-
エクセルで不等号記号(≠)が上に...
-
Win10でExcel VBA GetPhonetic...
-
Excelで縦軸の書式を0:00形式の...
-
エクセル:一覧表に存在する文...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel 2019 のピボットテーブル...
-
[関数得意な方]教えて下さい・...
-
Excelにてある膨大なデータを管...
-
[関数について]わかる方教えて...
-
Excel初心者です。 詳しい方、...
-
excelの不要な行の削除ができな...
-
エクセル関数に詳しい方教えて...
-
INDIRECTを使わず excelで複数...
-
[オートフィルタ]で抽出された...
-
エクセルの神よ、ご回答を! エ...
-
エクセル関数に詳しい方、教え...
-
各ページの1番上の表示について
-
Excelで写真のような表を作った...
-
エクセルで不等号記号(≠)が上に...
-
数学 Tan(θ)-1/Cos(θ)について...
-
Excel 2019 は、SPILL機能があ...
-
Excelで全角を半角にしたいので...
-
条件付き書式を教えてください
-
Excel フィルターを掛けた状態...
-
[オートフィルタ]の適用範囲の...
おすすめ情報