1

以下のコードは問題なく動作しますが、行をコメントアウトすると、Worksheets(Options).Activate実行時エラー 1004 が発生します。

        Worksheets(Options).Activate
        Worksheets(Options).Range(Cells(OptCurrentRow, 1), Cells(OptCurrentRow, OptEndCol)).Font.Bold = True
        Worksheets(Options).Range(Cells(OptCurrentRow, 1), Cells(OptCurrentRow, OptEndCol)).Interior.Color = LongColor
4

1 に答える 1

0

ワークシートに範囲オブジェクトを使用するには、範囲がアクティブなワークシートにある必要があると推測しています。次のコードはセルを参照し、アクティブなワークシートに関係なく機能し、元の投稿から他の変数を保持します。

    Dim iColumnCounter As Integer

    For iColumnCounter = 1 To OptEndCol
        With Worksheets(options).Cells(OptCurrentRow, iColumnCounter)
            .Font.Bold = True
            .Interior.Color = LongColor
        End With
    Next iColumnCounter
于 2013-08-16T20:25:08.270 に答える