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