|
▼ponpon さん:
こんばんは。
>こんばんは。PONPONです。
> またまたお世話になります。明日が台風のため(今年4日目です。先のことを考えると不安ですが・・・)休みになったので(もちろん職員は年休ですよ)、今まで書いていたコードを見直しています。
>
>以下質問です。
> 職員用に年間時間割の自動作成を作っています。
> コードを見てみると、参照するセルが違うだけだったり、参照するシートが違うだけだったりするコードがたくさんあります。
> ひな形のコード(引数付き)を作り、引数にセルを入力することで、同じようなコードを少なくしたいと思い挑戦しています。
> XXXXX(i AS InTger,j AS InTeger)とし、コードの参照セルをCells(i,j)とすることで、何とかうまくできました。
> Call XXXXX(2,5) とか Call XXXXX(4,8)
>(本当に正しいかどうかはわかりませんが、一応思った通りに動作しています。やったね!!)
> しかし、引数にWorksheetや文字をいれて同じようにしても、「型が一致しません」とエラーが発生してしまいます。
>
> 以下コードの説明
> 各種設定シートに、年月日入力欄とその横にあるチェックボックス6個(1校時から6校時まで)を設定しています。
> 行事設定シートに、たとえば、年月日を入力し、1校時、2校時をチェックし、コマンドボタンをクリックすると、年度時数(全)シートにある同じ年月日の年間時間割の1校時時2校時にに「行」を入力するというものです。
> 欠時設定シートでは同じように「欠」を、その他設定では、特定セル上の任意の一文字を というものです。
> これを各種設定(ABC AS Worksheet, MOJI AS String)
↑ このようにパラメータを設定したならば
> Call 各種設定(行事設定,行) こんなふうに
call 各種設定(Worksheets("行事設定"),"行")
というように型を合わせて引数を指定しなければなりませんよ!!
|
|