- ベストアンサー
エクセル VBA 曜日による処理？
エクセルVBAにて複数社注文書を入力→１日の注文締切→ コマンドボタン１（プリントアウト）クリック時に 各社を統一した注文書の１日分をプリントアウトの 処理を行っているのですが、 毎週金曜日のみ注文書無しでプリントアウトを行いたい エクセルデーターがあるのですが注文書が無いため どうしても忘れがちになってしまいます。 金曜日のみ処理（指定データプリントアウト）を 行うプログラムをコマンドボタン１に追記すればいいと 思うのですが、教えていただけないでしょうか？ また、出来るならば各曜日の指定がわかりますと 助かります。 以上宜しくお願いいたします。
- 77TAKETAKA
- お礼率65% (155/235)
- オフィス系ソフト
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
If Weekday(Date) = vbFriday Then '処理内容 End If 曜日の指定は、"vb"に曜日の英語表記を付け加えてください。
関連するQ&A
- Excel VBA 特定した曜日の検索
Excel VBA初心者です 毎月の第２金曜日だけのデータを検索し別のシートに貼り付けようとしています。 しかし特定の曜日を検索するコードをどのようにすればいいのかわかりません。 A列に月日(７年位)、B列に金額のデータ、C列にコメントが入っています。 ※データの貼り付けはサンプルコードで何とかなりました。 どなたか教えてください。よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- VBA; ユーザーフォームからの処理
Excel 2007を使用しています。 下記のようなことを考えています。 1. テキストボックスにYYYY/M形式の日付データを入力 2. コマンドボタンを押下。 3. 日付データを確認 4. オリジナル(sheet1)の列値、日付データ(A列)、商品番号(B列)、商品名(C列)から条件に 該当した行をサマリー(sheet2)にコピー。 オリジナルの3行目のベッダー情報は先頭に置いて、その下に該当行を付ける。 オリジナルデータ; 注文日付 商品番号 商品名 2010/9 312000 ノコギリ 2011/12 542000 ハンマー . . . . . . 2014/5 312000 ノコギリ サマリー; 注文日付 商品番号 商品名 2010/9 312000 ノコギリ 2014/5 312000 ノコギリ ご質問; 1. 上記3、4の処理はコマンドボタンのクリックイベント処理として、まとめて 記述すれば 良いのでしょうか? 2. 日付データのオブジェクト名を"TextBox1"として、コマンドボタンのクリックイベント処理 など、これらの処理を行うにあたりサンプルなるコードはありませんか? オリジナルの行数は変動します。 3. ユーザーフォームを作らずにシート上(shhet1)にテキストボックス、 コマンドボタンを作成できますか? ありましたら方法を教えてください。 以上、宜しくおねがいします。
- ベストアンサー
- Visual Basic
- VBAのループ処理
エクセルVBAにてテキストボックス、ラベルが複数ある フォームで入力ボタンを（コマンドボタン）クリックした時に 指定した複数のテキストボックス、ラベルをループ処理で空白に したいのですが どのようにすればいいでしょうか？
- ベストアンサー
- その他（プログラミング・開発）
- エクセルで曜日から締切日を表示させたい
媒体発行日と締切の一覧をエクセルで作成しています。発行日の曜日で締切日が違うのですが、曜日に関連づけて締切日を自動で表示させるにはどのような関数を使えばいいでしょうか。 例：3月17日(木)→3月11日(金)、3月20日(日)→3月16日(水) よろしくお願いいたします。
- ベストアンサー
- Excel（エクセル）
- エクセル VBA コマンドボタン位置変更による処理？
エクセルに注文表、在庫表シートを作成し 注文書シートには セルA1～A5には品番を入力 B1～B5には品名を入力 C1～C5には納期を入力 D1～D5にはコマンドボタン1～5を配置しました。 処理としてはA1,B1,C1,に入力されている項目を D1に配置しているコマンドボタン１クリック時 在庫表に移し変える処理 With Worksheets("在庫表") For idx = 4 To 70 If .Cells(idx, 1) = "" Then .Cells(idx, 1) = Worksheets("注文表").Cells(1, 1) .Cells(idx, 2) = Worksheets("注文表").Cells(1, 2) .Cells(idx, 3) = Worksheets("注文表").Cells(1, 3) Exit For End If Next idx End With 以上で出来るのですが さらに行いたいことは納期項目列（C1～C5）を昇順で並び替えた場合 コマンドボタン１の配置位置がD1からD4などに移動するため この場合のコマンドボタン１の処理はA4,B4,C4を在庫表に 移し変えたいのですがどの様に書き込めば宜しいでしょうか？
- ベストアンサー
- オフィス系ソフト
- エクセルのコマンドボタンの位置をVBAで指定できませんか？
エクセルのコマンドボタンの位置をVBAで指定できませんか？ 表にコマンドボタンがかぶらないようにデータのない最終行にコマンドボタンを移動する ＶＢＡを教えていただけませんか？ 最終列に移動するＶＢＡも合わせて教えてください。
- ベストアンサー
- オフィス系ソフト
- エクセルで曜日から締切日を表示させたい
媒体発行日と締切の一覧をエクセルで作成しています。 発行日の曜日で締切日が違うのですが、曜日に関連づけて締切日を自動で表示させるにはどのような関数を使えばいいでしょうか。 発行日は木・日の固定です。これが1か月を通して複数エリアあり、全体で数百となるので効率化を図りたいと思います。 例： 3月17日(木)→3月11日(金) 6日前 3月20日(日)→3月16日(水) 4日前 よろしくお願いいたします。
- ベストアンサー
- Excel（エクセル）
- エクセルで表を作っていますがある曜日の日付を
エクセルで表を作っていますがある曜日の日付を 欄に連続入力する方法はありますか?1週間置きの金曜日の日付を欄に連続入力したいのですが。
- ベストアンサー
- オフィス系ソフト
- ＥｘｃｅｌのＶＢＡ
ExcelのVBAにてFor～Nextのプログラム処理中に スペース等の指定したボタンを押したらプログラムの処理を終了させる事はできるのですか？ どうすれば良いのかわからないので教えてください。
- ベストアンサー
- Visual Basic
- エクセルで、指定曜日を表示させる関数、及び方法をお教えください。
エクセルで、指定曜日を表示させる関数、及び方法をお教えください。 Ａさん 10/22～10/28 "□" 第４日曜日 Ｂさん 10/29～11/04 "□" Ｃさん 11/05～11/11 "□" 第２水曜日 上記例でのご説明です。 "○さん"の指定された期間内に、任意に指定した曜日が含まれる場合、 上記例では"□"中に４を入れると"第４日曜日"を、２を入れると"第２ 水曜日"を表示するように作っています。 …が、現在"□"内はカレンダーを見ながら、手入力しています。 "□"を自動入力できる関数なり方法を考えてみましたが、妙案が 見つかりません。 良案がございましたら、お教えいただきたいと思います。 指定曜日は、随時変更になります。指定曜日を変更できる 方法でお願いいたします。 期間計算は、日曜日から土曜日までを自動計算させています。 たとえば"Ａさん"の担当日は、表面では見えない別セルで、すべての 日を計算させて、曜日も算出させています。そのセル郡よりデータを 抽出することも可能です。
- ベストアンサー
- オフィス系ソフト
お礼
ありがとうございます。 曜日設定を切り替えて動作確認しました。 思うように動作しました。