[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『5の倍数時に・・・』(タロウZ)
5の倍数時に処理を行いたいのですが、 下記では動作しないのですが、どうすればいいでしょうか?
Sub 加工必要2() LastRow = Cells(Rows.Count, 1).End(xlUp).Row ハンイ = Range(Cells(1, 1), Cells(LastRow, 2))
For i = LBound(ハンイ) To UBound(ハンイ)
If ハンイ(i, 1).Value Mod 5 = 0 Then '黄色くなり動かない ハンイ(i, 2) = "加工必要" End If Next Range(Cells(1, 3), Cells(LastRow, 4)) = ハンイ End Sub
< 使用 Excel:Excel2016、使用 OS:Windows10 >
If ハンイ(i, 1).Value 配列はオブジェクトではないので.Valueはダメ。
(seiya) 2017/10/11(水) 20:28
訳も分からず配列でやってるもので・・・ .Valueをのけるとできました。 ありがとうございました。
(タロウZ) 2017/10/11(水) 20:50
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.