RSSユーザー
自動注文を出す
例えば、セルA1とB1の値が同じになったら、セルC1に１を代入して、発注するプログラムを作成したいのですが、下記の記述のしかたでちゃんと動くでしょうか？
これの他に常にA1とB1の値をチェックして判定するようなプログラムが必要な気がするのですが。
もし必要なら、それの作成方法を教えていただきたいのですが。よろしくおねがいします。
Sub NewOrder()
If Range("A1").value = Range("B1") Then
Range("C1").value = 1
Else
Endif
End sub
2018年11月18日
アップロードされたファイルにはウイルスチェックを行っておりますが、未知のウイルス等に感染されている場合がありますので、アップロードされたファイルのご利用はご注意ください。
また、取引パスワード等の重要な情報を投稿内容に含めないようご注意ください。
なお、アップロードされたファイルの利用や投稿内容によって、投稿者自身や他の利用者が被った損害に対して当社は一切責任を負いません。
また、セキュリティの関係上、一部コマンド等を含む内容を送信するとエラー画面が表示され、投稿ができない場合がございます。何卒ご了承ください。
岡三RSS集いの広場では、複数の単語による検索が可能です。
例）関数 and サンプル
→AND検索となり、「関数」および「サンプル」を含む検索結果が表示されます。
例）関数 or サンプル
→OR検索となり、「関数」または「サンプル」を含む検索結果が表示されます。
例）関数 not サンプル
→NOT検索となり、「関数」を含むが「サンプル」は含まない検索結果が表示されます。
※and、or、notの前後は半角スペースで区切ってください。
※単語の間を半角スペースで区切るだけだと、OR検索となります。
小笠原聖史
RSSユーザー様
はじめまして、小笠原と申します。
ontimeメソッドの活用が一つの解決策だと思いますので、以下にご紹介いたします。
Sub サンプル()
Call NewOrder’岡三RSSユーザー様のsubプロシージャー、NewOrderを呼び出します。
基準時刻 = TimeValue(Now)
Cells(1, 5) = 基準時刻
反復時刻 = TimeValue(Now) + TimeValue("00:00:01")
Application.OnTime 反復時刻, "サンプル"
End Sub
2018年11月21日
RSSユーザー
小笠原様
回答ありがとうございます。ひとつ質問なのですが、
End Sub の上の行の”サンプル”もそのまま記述するのでしょうか？
よろしくお願いします。
2018年11月23日
RSSユーザー
すみません解決しました。
2018年11月24日
小笠原聖史
RSSユーザー様
なにかありましたら、また書き込んでください。
2018年11月24日