|
▼夜勤労働者 さん:
こんばんは。
> チェック結果(F2:H784)をシートに置かせず、メッセージボックスに"×"の座標を
>羅列することは、可能でしょうか?
できますけど、せっかく便利なセルを有効利用しなければ
宝の持ち腐れだと思いますけどね!!
'=================================================================
Sub test2()
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("a2", Cells(Rows.Count, "a").End(xlUp))
If rng.Row > 1 Then
With rng
add1 = .Offset(0, 2).Resize(, 3).Address
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 Sub
敢えてするならこのようなコードでしょうか?
但し、Msgboxは表示文字数に制限があったと思いますから、
あまり表示するセル範囲が多いと全て表示されないことを制限事項とします。
|
|