Excel VBA質問箱 IV

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

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


4778 / 76732 ←次へ | 前へ→

【77570】Re:メール自動作成マクロの質問です
発言  γ  - 15/10/24(土) 11:09 -

引用なし
パスワード
   以前のあなたの投稿を参考にしてコード例を作ってみました。
変数宣言は省略しています。

  s = ""
  GYOMAX = Cells(Rows.Count, 1).End(xlUp).Row
  GYO = 10
  Do Until GYO > GYOMAX
    strRec = Cells(GYO, 1).Text & Cells(GYO, 2).Text & Cells(GYO, 3).Text & Cells(GYO, 4).Text
'     lngREC = lngREC + 1
'    xlAPP.StatusBar = "出力中です....(" & lngREC & "レコード目)"
'    ' レコードを出力
'     Print #intFF, strREC
    s = s & strRec & vbCrLf
    GYO = GYO + 1
  Loop
  objMAIL.body = s

A列のデータがある最終行までを対象に、4列の値を連結しています。
そのあたりの前提は明示されていないので、勝手に設定しましたが、
そちらで直してください。
0 hits

【77523】メール自動作成マクロの質問です SHO 15/10/19(月) 15:20 質問[未読]
【77548】Re:メール自動作成マクロの質問です SHO 15/10/21(水) 10:00 発言[未読]
【77556】Re:メール自動作成マクロの質問です γ 15/10/21(水) 20:54 発言[未読]
【77565】Re:メール自動作成マクロの質問です SHO 15/10/23(金) 17:03 発言[未読]
【77568】Re:メール自動作成マクロの質問です γ 15/10/23(金) 21:02 発言[未読]
【77570】Re:メール自動作成マクロの質問です γ 15/10/24(土) 11:09 発言[未読]
【77573】Re:メール自動作成マクロの質問です γ 15/10/25(日) 23:52 発言[未読]
【77574】Re:メール自動作成マクロの質問です SHO 15/10/26(月) 9:41 お礼[未読]

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