Excel VBA質問箱 IV

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

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


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

37750 / 76738

←次へ　｜　前へ→


	【44150】Re:チェックレポートの作成について

夜勤労働者 - 06/11/6(月) 14:06 -


	引用なし

	パスワード

レイアウトの変更があって、修正はうまくいかず、止まってしまいました。
教えていただけませんか？
実施したいこと：
チェック範囲及び基準値を以下のように変更する場合は、
チェック範囲：C2:E760（３列）＝＝＝＞G5:K760（５列）へ変更
基準値：B2＝＝＝＞L5

修正結果：
Sub test02()
Dim idx As Long, jdx As Long
　　Dim rng As Range
　　Dim add1 As String
　　Dim add2 As String
　　Dim ans As Variant
　　Dim mes As String
　　Set rng = Range("a5", Cells(Rows.Count, "a").End(xlUp))　→2から5へ
　　If rng.Row > 1 Then
　　　 With rng
　　　　　 add1 = .Offset(0, 7).Resize(, 5).Address　　→2から7へ、２から５へ
　　　　　 add2 = .Offset(0, 1).Address
　　　　　 ans = Evaluate("=transpose(if(mod(" & add1 & "," & add2 & _
　　　　　　　　　　　　　 ")<>0,ADDRESS(ROW(" & add1 & "),COLUMN(" & add1 & ")),""""))")
　　　　　 End With
　　　　　 For idx = LBound(ans, 2) To UBound(ans, 2)
　　　　　　　For jdx = LBound(ans, 1) To UBound(ans, 1)
　　　　　　　　　If ans(jdx, idx) <> "" Then
　　　　　　　　　　 mes = mes & ans(jdx, idx) & vbCrLf
　　　　　　　　　End If
　　　　　　　Next
　　　　　 Next
　　　　　 If mes <> "" Then
　　　　　　　MsgBox mes, , "データのチェック"　　→タイトルを付けました
　　　　　 End If
　　 End If
End Sub

チェック範囲及び基準値を以下のように変更する場合は、
チェック範囲：C2:E760（３列）＝＝＝＞G5:K760（５列）へ変更
基準値：B2＝＝＝＞L5

0 hits

▼

【44128】チェックレポートの作成について 夜勤労働者 06/11/5(日) 9:56