Excel VBA質問箱 IV

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

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


37757 / 76732 ←次へ | 前へ→

【44137】Re:チェックレポートの作成について
発言  ichinose  - 06/11/5(日) 20:29 -

引用なし
パスワード
   ▼夜勤労働者 さん:
こんばんは。


> チェック結果(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は表示文字数に制限があったと思いますから、
あまり表示するセル範囲が多いと全て表示されないことを制限事項とします。
1 hits

【44128】チェックレポートの作成について 夜勤労働者 06/11/5(日) 9:56 質問
【44130】Re:チェックレポートの作成について ichinose 06/11/5(日) 10:09 発言
【44134】Re:チェックレポートの作成について 夜勤労働者 06/11/5(日) 13:02 質問
【44136】Re:チェックレポートの作成について Hirofumi 06/11/5(日) 18:03 回答
【44137】Re:チェックレポートの作成について ichinose 06/11/5(日) 20:29 発言
【44150】Re:チェックレポートの作成について 夜勤労働者 06/11/6(月) 14:06 質問
【44161】Re:チェックレポートの作成について ichinose 06/11/6(月) 21:31 発言

37757 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free