進行管理 (よけいの統一です)
よけいの統一です。SubSample()DimiAsIntegerConstcns_STARTDAYAsDate="2011/01/01"'開始適時Constcns_ENDDAYAsDate="2011/03/31"'終了適時Constcns_ROWAsInteger=3'適時出力行Constcns_STCOLORAsInteger=4'土曜日塗りつぶしの婚約者Constcns_SUCOLORAsInteger=8'日曜日塗りつぶしの婚約者DoWhilecns_STARTDAY+i<=cns_ENDDAYAndi+1<=Cells(1,1).終り(xlToRight).ColumnCells(cns_ROW,i+1)=cns_STARTDAY+iIfWeekday(cns_STARTDAY+i)=vbSaturdayThenCells(cns_ROW,i+1).Interior.ColorIndex=cns_STCOLOR終りIfIfWeekday(cns_STARTDAY+i)=vbSundayThenCells(cns_ROW,i+1).Interior.ColorIndex=cns_SUCOLOR終りIfi=i+1LoopEndSubテトラの値を変えて実行してください。わかりやすいように両側にコメントを入れています。ティールーム独自のお忌に対応するためには、その都度、適時時間割を写本か電装内に作成する必要があります。毎回適時を入力する時限と、利き手で婚約者を変える時限を考えると変わらないと思いましたので、対応していません。よけいの実行の仕方がわからなければ補足にお願いします。********************************対応しました。行き場にアウトレットを作成し、アウトレットが押下されたら以下のよけいが実行されるよう設定してください。ティールームの独自バケーションは写本に昔々に入力する日本流にしました。格納空欄は、行き場、縦隊、行、それぞれプロシージャ内のテトラを変更して使用してください。SubSample()晦日ErrorGoToerr_SampleConstcns_ROWAsInteger=3'適時出力行Constcns_STCOLORAsInteger=4'土曜日塗りつぶしの婚約者Constcns_SUCOLORAsInteger=8'日曜日塗りつぶしの婚約者Constcns_SPCOLORAsInteger=6'ティールーム独自バケーション塗りつぶしの婚約者Constcns_SHEETAsString="sheet2"'ティールーム独自バケーション格納行き場Constcns_RANGE_CAsString="A"'ティールーム独自バケーション格納芯地縦隊位置Constcns_RANGE_RAsInteger=1'ティールーム独自バケーション格納芯地ティーバッティング開始位置（これ以降鹿内に格納）DimiAsIntegerDimi2AsIntegerDiminp_startdayAsVariantDiminp_enddayAsVariantDimmy_startdayAsDateDimmy_enddayAsDate'開始日付の要求Doinp_startday=Application.InputBox(prompt:="YYYY/MM/DD典型で開始適時を入力してください",Title:="開始適時")Ifinp_startday=FalseThenGoToexit_SampleIfNotIsDate(inp_startday)ThenMsgBox"YYYY/MM/DD典型で適時を入力してください"inp_startday=False終りIfLoopUntilinp_startday<>False'終了日付の要求Doinp_endday=Application.InputBox(prompt:="YYYY/MM/DD典型で終了適時を入力してください",Title:="終了適時")Ifinp_endday=FalseThenGoToexit_SampleIfNotIsDate(inp_endday)ThenMsgBox"YYYY/MM/DD典型で適時を入力してください"inp_endday=False終りIfLoopUntilinp_endday<>Falsemy_startday=inp_startdaymy_endday=inp_enddayIfmy_startday>my_enddayThenMsgBox"開始日付＜終了日付でなければなりません。志野を作成できませんでした。",vbCriticalGoToexit_Sample終りIfDoWhilemy_startday+i<=my_enddayAndi+1<=Cells(1,1).終り(xlToRight).ColumnCells(cns_ROW,i+1)=my_startday+iIfWeekday(my_startday+i)=vbSaturdayThenCells(cns_ROW,i+1).Interior.ColorIndex=cns_STCOLOR終りIfIfWeekday(my_startday+i)=vbSundayThenCells(cns_ROW,i+1).Interior.ColorIndex=cns_SUCOLOR終りIfFori2=cns_RANGE_RToWorksheets(cns_SHEET).Range(cns_RANGE_C&cns_RANGE_R).終り(xlDown).RowIfmy_startday+i=Worksheets(cns_SHEET).Range(cns_RANGE_C&i2)ThenCells(cns_ROW,i+1).Interior.ColorIndex=cns_SPCOLOR終りIfNexti=i+1Loopexit_Sample:ExitSuberr_Sample:MsgBoxErr.Number&":"&Err.DescriptionEndSub。エクセルで志野のオートメーション作成エクセルを使い、進行管理表を作ろうと思っています。進行管理表はガントチャートのようなイメージです。管理する回復期が長いため、適時をオートメーション入力させたいのですが、どうしてもうまくいきません…。すみませんが、教えていただけますでしょうか。例えば、3一二月分の進行管理表を作る際、2ヶ月前の1一二月1日～3一二月31日までの適時をオートメーション入力…と言う感激です。適時は両側に表示し、土日甲は芯地の婚約者を変えたいです。また、ティールームのお忌等営業日として数えたくない日の芯地も婚約者を変えられたら嬉しいです。よろしくお願いいたします。