Excel VBA質問箱 IV

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

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


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

26929 / 76738

←次へ　｜　前へ→


	【55135】Re:元に戻すには

stais - 08/4/16(水) 16:15 -


	引用なし

	パスワード

こんにちわ。
コード説明です。
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にしループを抜ける
　　　　　　 Ch = False: Exit Do
　　　　　End If
　　　　Loop Until Ad = Fi.Address
　　 Else
　　　 '無かった場合End_Lenへ
　　　　GoTo End_Len
　　 End If
End With
'変数Chの値がTrueならEnd_Lenへ
'（ここで変数ChがTrue場合は日付が一致したのが無かったことになる）
If Ch Then GoTo End_Len
Exit Sub

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

確認です。
シート報告書のセルの確認です
氏名＝AL2　ですか？
日付＝I3　ですか？

シートリストセルの確認です。
氏名＝B列　ですか？
日付＝C列　ですか？

2 hits

▼

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