[[20210917154554]]　『オートシェイプのテキストボックス内にNumberForm』（Game）　ページの最後に飛ぶ

『オートシェイプのテキストボックス内にNumberFormatLocalを反映させたい』（Game）

初めまして。
オートシェイプのテキストボックスに計算結果を表示させるためのマクロを作りました。

Sub sample()

Dim 合計 As Range
Dim 消費税 As Range
Dim 総合計 As Range

Set 合計 = Range("C2")
Set 消費税 = Range("E2")
Set 総合計 = Range("G2")

With ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 0, 0, 450, 40)

        .Fill.Transparency = 1
        .Line.Transparency = 1
        With .TextFrame.Characters
            .Text = 合計 & ("　　　　　　　") & 消費税 & ("　　　　　　　") & 総合計
            .Font.Size = 16
            .Font.Bold = True
        End With
        .Top = Range("C6").Top
        .Left = Range("C6").Left
    End With
 End Sub

しかし、出来上がったテキストボックスの数値に「,」が消えてしまっているため

.NumberFormatLocal = "#,###"

を設定したいのですが、上手く行きません。
どこに加えたらよいか教えて欲しいです。

＜使用 Excel：Excel2010、使用 OS：WindowsVista ＞

合計→Format(合計, "#,###")

消費税、総合計も同様のため省略します。
（きまぐれおじさん） 2021/09/17(金) 15:58

セルには「,」つきで表示されているなら、

合計　⇒　合計.Text

以下省略
（わからん） 2021/09/17(金) 16:17

＞＞きまぐれおじさん様　＞＞わからん様

できました。

ありがとうございました。
（Game） 2021/09/17(金) 16:27

コメント返信：

[ 一覧(最新更新順) ]

[[20210917154554]] 『オートシェイプのテキストボックス内にNumberForm』（Game） ページの最後に飛ぶ

[[20210917154554]]　『オートシェイプのテキストボックス内にNumberForm』（Game）　ページの最後に飛ぶ