| |
▼かみちゃん さん：
ご回答ありがとうございました。
> If Not myRange Is Nothing Then
> myRange.Select
> i = myRange.Offset(2, 1).Select
> End If
>
>は、
>
> If Not myRange Is Nothing Then
> i = myRange.Row + 2
といただきましたが、i をmyRangeから1列右隣の2行下に格納して
そこをIf 文の参照元にしたいのです。
Offsetではだめですか？
MsgBoxは特に出す必要はなくて、なぜ次のIf文へは進めず
エラーになってしまうのか、そこが知りたいです。
どう繋げたら次のIf文へ進めますか？
>こんにちは。かみちゃん です。
>
>>以下のコードの最初のEnd Ifの後にある’空白になるまで処理を繰り返す
>>のところでエラーになってしまいます。
>
>エラーメッセージを書かれたほうがいいと思います。
>
>コードは検証していませんが、
>
> Dim i As String
>は、
> Dim i As Long
>で、
>
> If Not myRange Is Nothing Then
> myRange.Select
> i = myRange.Offset(2, 1).Select
> End If
>
>は、
>
> If Not myRange Is Nothing Then
> i = myRange.Row + 2
> Else
> MsgBox srcName & "がA列にありません。処理を中止します"
> Exit Sub
> End If
>
>としないといけないのではないでしょうか？
|
|
Zoo
- 10/6/22(火) 14:17 -
