|
▼[名前なし] さん:
>これを試してください。
>Sub mouke(CheckCol As Integer)
> Dim k As Integer, n As Long
> With Worksheets("Sheet1")
> For n = 1 To 49
> If .Cells(n, CheckCol).Interior.ColorIndex = 3 Then
> k = .Cells(n + 2, CheckCol).Value - .Cells(n, CheckCol).Value
> .Cells(n, CheckCol + 1) = k * 1000
> .Cells(n, CheckCol + 1).Interior.ColorIndex = 5
> End If
> Next n
> End With
>End Sub
>
>使うときは、別のマクロから引数に列番号を指定して使用してください。
>Sub Test()
> Call mouke(9)
> Call mouke(19)
> Call mouke(24)
>End Sub
>という感じで。
実行するとオーバーフローするのですが、どうすればいいのでしょうか?
|
|