こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

検索後のセルの選択を正しくしたい

Excel2007でマクロ作成中の初心者です。

以下のコードの中で(1)のところがうまく作動できません。
ここの ActiveCell.Select を正常にするにはどうしたらよいかご教示をお願いします。





Sub 最終日の検索()
Dim FC As Range
Dim mydate As Date

mydate = Range("BQ5").Value
For Each FC In Range("BR30:BR300")
If FC.Value = DateValue(mydate) Then
Exit For
End If
Next
If FC Is Nothing Then
MsgBox "みつかりませんここでおわりです"
Exit Sub
End If
MsgBox "見つかりました" & vbLf & FC.Address(0, 0) & vbLf & FC.Value

' ' ここに処理を追加したい
ActiveCell.Select ’----------(1)
Selection.Offset(0, 45).Select
ActiveCell.Select

貼付けしてあるかどうか

Set FC = Nothing
End Sub
----------------------------------
Sub 貼付けしてあるかどうか()
If ActiveCell.Value = "※※" Then
MsgBox " 既に貼付けしてあります"
Else
MsgBox "貼付けしてないので処理します"
End If
End Sub

投稿日時 - 2013-11-10 13:01:22

QNo.8341541

すぐに回答ほしいです

質問者が選んだベストアンサー

ForEachで FCを使ってるから

FC.Select ’----------(1)

じゃないですか?

投稿日時 - 2013-11-10 13:59:11

お礼

ありがとうございました。うまくいきました。

投稿日時 - 2013-11-10 15:23:36

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問