|
Statis さん:
こんばんわ。
早速プログラム参考にさせていただいております。
質問です。
>For Each C In Range("A1", Range("A65536").End(xlUp))
> Ma = Application.Match(C.Value, DaSt, 0)
> If Not IsError(Ma) Then
> C.Offset(, 1).Value = DaSt1(Ma - 1)
> Else
> Ma1 = Application.Match(C.Value, DaSu, 0)
> If Not IsError(Ma1) Then
> C.Offset(, 1).Value = DaSu1(Ma1 - 1)
> End If
> End If
>Next
上記プログラム部分ですが、A1列の最終行までを選択しているところまでは
理解できますが、
> Ma = Application.Match(C.Value, DaSt, 0)
> If Not IsError(Ma) Then
> C.Offset(, 1).Value = DaSt1(Ma - 1)
> Else
> Ma1 = Application.Match(C.Value, DaSu, 0)
> If Not IsError(Ma1) Then
> C.Offset(, 1).Value = DaSu1(Ma1 - 1)
> End If
この部分の処理が詳しく理解できないでいます。
コメント頂けると大変助かります。
|
|