Excel VBA メール作成について Excel D7セルをOutlookの本文（HTML）にしま

Excel VBA メール作成について
Excel D7セルをOutlookの本文（HTML）にします。

・フォント（Meiryo UI）とフォントサイズ（px）等を一部指定
・【予比差①】が負の数字だった場合、【予比差①】%を赤字

↑↑↑どのようにすれば良いか、教えて頂けると幸いです。宜しくお願い致します。

・Excel D7セル内容
<div style ="font-size:9px"><font face ="Meiryo UI">TO ○○<br>
CC　○○ </font></div> <br><br>
<div style ="font-size:12px"><strong>共有<br><br>
【予比①】％　 【予比差①】%）</strong></div>

・VBA
Sub メール作成()
Dim outlookObj As Outlook.Application
Set outlookObj = New Outlook.Application

Dim mailObj As Outlook.MailItem
Set mailObj = outlookObj.CreateItem(olMailItem)

mailObj.Display

Dim mailBody As String
mailBody = CreatemailBody

With mailObj
.HTMLBody = mailBody
End With
End Sub

Function CreatemailBody() As String
Dim Day As Variant
Dim Budget1, difference1 As String
Dim Body As String

Budget1 = Range("D9")
difference1 = Range("D11")

Body = Range("D7").Value
Body = Replace(Body, "【予比①】", Budget1)
Body = Replace(Body, "【予比差①】", difference1)

CreatemailBody = Body

End Function

No.1 ベストアンサー 回答者： Qchan1962 回答日時： 2022/03/15 02:18

こんばんは

％を含めるのかな？
取り敢えず、【予比差①】（difference1）

Budget1 = Range("D9")
difference1 = Range("D11")

Body = Range("D7").Value
Body = Replace(Body, "【予比①】", Budget1)
If Budget1 < 0 Then difference1 = "<font color=""red"">" & difference1 & "</font>"
Body = Replace(Body, "【予比差①】", difference1)
CreatemailBody = Body

この回答へのお礼

赤字になりました！！！ありがとうございます✨✨

お礼日時：2022/03/16 01:43