|
▼kazu さん:
先ほどのエラーは改善されましたが、次は「.Cells((j - 1) * Cnt + IntNoRow, IntNoCol).ClearContents」でエラーが出ました(°口°)!!結合されたセルはどうとかこうとかというエラーだったのですが...。私の入力ミスなのでしょうか...?
教えてください!!
>' 受け付け番号書き出し + 印刷
>'========================================================================
>
> j = 1
> For i = IntStartId To IntLastId Step 1
> .Cells((j - 1) * Cnt + IntNoRow, IntNoCol) = i
> j = j + 1
> If j = 7 Then
> .PrintOut
> For j = 1 To 6
> .Cells((j - 1) * Cnt + IntNoRow, IntNoCol).ClearContents
> Next
> j = 1
> End If
> Next
>
> If j <> 1 Then
> .PrintOut
> End If
>
>
> End With
|
|