Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

26952 / 76732

←次へ　｜　前へ→


	【55106】Re:元に戻すには

stais - 08/4/15(火) 15:09 -


	引用なし

	パスワード

こんにちわ。
こう言う事かな？

Sub Test()
Dim Fi As Range, Ad As String, Ch As Boolean
Ch = True
With Worksheets("報告書")
　　 Set Fi = Worksheets("リスト").Columns(2).Find(.Range("AL2"), , xlValue, xlWhole)
　　 If Fi Is Nothing Then
　　　　Ad = Fi.Address
　　　　Do
　　　　　Set Fi = Worksheets("リスト").Columns(2).FindNext(Fi)
　　　　　If Fi.Offset(, 1).Text = .Range("l3").Text Then
　　　　　　 .Range("I4").Resize(3).Value = Application.Transpose(Fi.Offset(, 2).Resize(, 3).Value)
　　　　　　 .Range("I8").Value = Fi.Offset(, 5).Value
　　　　　　 .Range("I10").Value = Fi.Offset(, 6).Value
　　　　　　 Ch = False: Exit Do
　　　　　End If
　　　　Loop Until Ad = Fi.Address
　　 Else
　　　　GoTo End_Len
　　 End If
End With
If Ch Then GoTo End_Len
Exit Sub

End_Len:
　　 MsgBox "該当なし", vbInformation
End Sub

0 hits

▼

【55094】元に戻すには ウィル 08/4/15(火) 11:02