[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『オートシェイプのテキストボックス内に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 >
消費税、総合計も同様のため省略します。
(きまぐれおじさん) 2021/09/17(金) 15:58
合計 ⇒ 合計.Text
以下省略
(わからん) 2021/09/17(金) 16:17
できました。
ありがとうございました。
(Game) 2021/09/17(金) 16:27
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.