Excel VBA質問箱 IV

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

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


51130 / 76738 ←次へ | 前へ→

【30482】Re:メールの本文がうまくいかない・・・
回答  awu  - 05/10/28(金) 15:50 -

引用なし
パスワード
   たぶん、こういうことでないかと思いますが・・・

如何でしょうか。


Dim MailBody As String
Dim LineBody As String
Dim MyR As Range, C As Range
Dim i As Long
Set MyR = ActiveSheet.UsedRange
For i = 1 To MyR.Rows.Count
  LineBody = ""
  For Each C In Intersect(MyR, Rows(i))
   If Not IsEmpty(C.Value) Then
     LineBody = LineBody & C.Text & " "
   End If
  Next
  If LineBody <> "" Then
   MailBody = MailBody & LineBody & vbCrLf
  End If
Next i
0 hits

【30478】メールの本文がうまくいかない・・・ 綿棒 05/10/28(金) 14:09 質問
【30479】Re:メールの本文がうまくいかない・・・ Kein 05/10/28(金) 14:38 発言
【30489】Re:メールの本文がうまくいかない・・・ 綿棒 05/10/28(金) 16:36 質問
【30491】Re:メールの本文がうまくいかない・・・ Kein 05/10/28(金) 17:06 発言
【30482】Re:メールの本文がうまくいかない・・・ awu 05/10/28(金) 15:50 回答
【30490】Re:メールの本文がうまくいかない・・・ 綿棒 05/10/28(金) 16:47 お礼
【31107】Re:メールの本文がうまくいかない・・・ 綿棒 05/11/11(金) 16:57 質問
【31130】Re:メールの本文がうまくいかない・・・ awu 05/11/11(金) 23:04 回答
【31141】Re:メールの本文がうまくいかない・・・ 綿棒 05/11/12(土) 10:25 発言
【31142】Re:メールの本文がうまくいかない・・・ かみちゃん 05/11/12(土) 10:33 発言
【31148】Re:メールの本文がうまくいかない・・・ 綿棒 05/11/12(土) 15:13 発言

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