エクセルの学校：全文検索：Hyper Estraier：カレンダー

Results of 1 - 1 of about 1240 for カレンダー (0.001 sec.)

[[20101105224606]]: #score: 6122; @digest: a17db30536e6e01a367c5dfb23f8ff45; @id: 51998; @mdate: 2010-11-06T04:54:45Z; @size: 2596; @type: text/plain; #keywords: 程d (82527), 程a (24067), 工程 (15843), 程b (13965), 程作 (12450), 稼動 (12225), 日- (10711), 程c (10586), 働日 (10185), 日判 (8047), 各後 (7748), 非知 (6466), 稼働 (5850), 日程 (5666), 理途 (5655), 後工 (4494), 日as (4272), カレ (3161), ・工 (3139), 休日 (2968), 上続 (2779), 保障 (2775), │ (2264), 要) (2113), 成() (2112), レン (1967), は工 (1912), 日= (1886), ンダ (1733), ・カ (1710), 理矢 (1647), 矢理 (1647); 『マクロで稼働日を考慮して日程を自動入力』（hana）
日程作成をマクロで行いたいと思っています。（エクセル2003です） A B C D 1│工程A│工程B│工程C│工程D│ --------------- 2│ │ │ │ │ というシート1があり、シートに下記のようなカレンダーがあります。 A B 1│10/13│稼動 2│10/14│休日 3│10/15│稼動 4│10/16│稼動 5│10/17│休日 6│10/18│休日 7│10/19│休日 8│10/20│稼動工程Dの日付を任意で入力し、マクロを実行すると工程A〜Cの日付を各後工程（工程Aなら工程B）の-1稼働日休日を自動で入力されるようにしたいです。例えば工程Dに10/20を入力すると、工程Cは10/16、工程Bは10/15、工程Aは10/13です。マクロは使ったことが無かったので、 WEB等で検索し無理矢理途中まで書いてみましたが休日が2日以上続く場合にどう書くか悩んでしまいました。（おそらくLOOPとかを使う?と思ったのですが・・・）下記、途中まで考えたマクロです。 Sub 日程作成() Dim 工程Dの日 as Date Dim 工程Dの日-1日 as Date Dim 工程Dの日-1日の稼働日判定 as String 工程Dの日 = Range("D22) 工程Dの日の-1日 = Range("D22")-1 工程Dの日-1日の稼働日判定 =Application Worksheet Function.VLookUP(工程Dの日-1日,Worksheet("カレンダー").Range("A1:B8"),2,0) If 工程Dの日-1日の稼働日判定="稼動" Range("C2").Value = 工程Dの日-1日 Else ここまで書いてみましたが・・・。上記も慣れている方からしたら意味不明かもしれません。すみませんが、是非知恵をお貸しください。 ---- いくつか注意点ですが、変数に「-」は使えません。もしコードの作成をテキストエディタで行っているのであれば、 VBE を使用したほうが良いと思います。文法的な間違い（.の抜け、" の不整合など）は、かなりそこで減らすことができます。で、本論ですが、・説明に使用されている表とコード状のセルの位置が一致しません。・シート名は「カレンダー」と「シート1」でしょうか。・工程は必ずA〜Dで、入力されるのは工程Dだけなのでしょうか。また、・入力された工程Dは必ずカレンダー上で稼働日であり、・カレンダーには工程Aまでの日程が必ずあると保障されているという前提でかんがえてよいのですか? (Mook) ---- カレンダーを「稼働日のみのカレンダー(休日は不要)」にできれば簡単になると思いますが。(NB) ---- シート2 A B 1│10/13│稼動 2│10/15│稼動 3│10/16│稼動 4│10/20│稼動 Sub 日程作成() Range("A2:C2").FormulaR1C1 = "=INDEX(Sheet2!R1C1:R300C1,MATCH(RC[1],Sheet2!R1C1:R300C1,0)-1)" End Sub (NB) ---- 削除されていたので、復元（kazu） ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201011/20101105224606.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ