No.2ベストアンサー
- 回答日時:
こんにちは。
KenKen_SP です。#1 の方のコメントのとおり、Power Point (以下 PP ) には数字を桁区切り
にする機能はありません。
Excel で表を作って貼り付ければ良いような気がしますが、既存のデータには
対応しきれない事もあるかと思います。
そこで、マクロを書いてみました。
選択したスライド内の全ての数値を桁区切りに書式設定します。やり方がわから
ない場合は、その旨書き込んで下さい。
Sub 選択ページ内の数字の桁区切り()
Dim Sld As Slide
Dim Shp As Shape
Dim iShp As Shape
For Each Sld In ActiveWindow.Selection.SlideRange
For Each Shp In Sld.Shapes
If Shp.Name Like "Group*" Then
'表ならセルの数だけループ
For Each iShp In Shp.GroupItems
Call myNumberFormat(iShp)
Next iShp
Else
Call myNumberFormat(Shp)
End If
Next Shp
Next Sld
End Sub
Private Sub myNumberFormat(TargetShp As Shape)
Dim RegEx As Object
Dim Matches As Variant
Dim Match As Variant
Dim strNum As String
If Not TargetShp.HasTextFrame Then Exit Sub
'マッチングパターン定義
Set RegEx = CreateObject("VBScript.RegExp")
With RegEx
.Pattern = "[0-90-9]{4,}"
.Global = True
End With
'検索して置換
If TargetShp.TextFrame.HasText Then
With TargetShp.TextFrame.TextRange
Set Matches = RegEx.Execute(.Text)
For Each Match In Matches
'文字列の数値を書式設定 #、##0
strNum = Replace$(.Text, Match, Format$(Match, "#,##0"))
If StrComp(.Text, StrConv(.Text, vbWide), vbBinaryCompare) = 0 Then
'全角の場合
.Text = Replace$(StrConv(strNum, vbWide), ",", ",")
Else
'半角の場合
.Text = strNum
End If
Next Match
End With
End If
Set Matches = Nothing
Set RegEx = Nothing
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 数字にカンマを入れる方法 2 2022/04/12 11:52
- Excel(エクセル) エクセルの散布図で新たに入力した値のデータラベルが空欄になる現象 1 2022/04/26 09:31
- Excel(エクセル) Excelのtextboxへの入力で小数点以下に0が続く場合でも正しく表示したい 3 2022/04/11 13:53
- Java コンソールから所属財産を入力(単位:万円 1000~100000以内でIntegerに変換できない場 2 2022/05/31 21:32
- オープンソース csvデータのダブルクォーテーションで囲まれた文字内にあるカンマを削除したい 3 2022/09/02 15:17
- Visual Basic(VBA) VBAで出力したCSVファイルの先頭にカンマを挿入したい 5 2022/10/14 12:20
- Excel(エクセル) Excelにの以下の設定方法について教えてください! C列にデータ入力の設定をしています。(出、入を 3 2022/06/22 01:33
- タブレット Kindl fire7を購入しましたが、ひらがな入力をしたいのですが、どこから変更できるのでしょうか 3 2022/09/04 20:19
- Excel(エクセル) エクセルの数式で教えてください。 1 2023/02/02 10:20
- その他(Microsoft Office) エクセルのマクロを教えてください。 1 2022/12/08 15:45
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
EXCEL 2000→2,000のコンマを入れる方法
Excel(エクセル)
-
大至急!
PowerPoint(パワーポイント)
-
【至急】パワーポイントで表の複数の小数点ぞろえについて
その他(ソフトウェア)
-
-
4
グラフの横・縦項目が全部表示されない
Excel(エクセル)
-
5
パワポの複数ページにまたがる表の位置を揃えたい
PowerPoint(パワーポイント)
-
6
エクセルでの数値の表記方法(桁区切りや小数点)
PowerPoint(パワーポイント)
-
7
計算式 何%減少を教えてください!
数学
-
8
有無、要否、賛否、是非、可否、当否…これらの言葉について
その他(教育・科学・学問)
-
9
PowerPointで表の1つの列だけ幅を変える方法
Illustrator(イラストレーター)
-
10
自分の部署・担当を言うとき、どういう言い方が正しいでしょうか?? 会社のときは、弊社といいますが、部
その他(ビジネス・キャリア)
-
11
Powerpointで、コピーすると、文字の書式が変わる
その他(Microsoft Office)
-
12
納品 vs ご納品 どちらが正しいでしょうか?
日本語
-
13
メールの本文に添付されてしまう時があります。
Outlook(アウトルック)
-
14
パワーポイントにエクセルの表を貼り付けると一部表示されません。
PowerPoint(パワーポイント)
-
15
パワーポイントの画面がずれる
PowerPoint(パワーポイント)
-
16
PowerPointの表の罫線を二重罫線にしたい
Excel(エクセル)
-
17
エクセルの主軸と第2軸の0を合わせて表示したい
Windows Me・NT・2000
-
18
3ケタでカンマを入れるには
PowerPoint(パワーポイント)
-
19
伸び率のマイナス数値からのパーセント計算について
数学
-
20
エクセルのセル内の余白の設定って出来るのでしょうか?
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
PowerPointの表内のカンマ
-
エクセルでオートサムを使った...
-
16桁以上の「0」に変換されてし...
-
エクセルでleft関数の結果が表...
-
エクセルの計算式でコンマを付...
-
エクセルで、50銭以下切捨て...
-
エクセル 常に桁区切りにしたい
-
エクセルで囲み線で出来ますか?
-
エクセルで「-3E+06」と...
-
エクセルの画面上にテキストBOX...
-
エクセルの小数点を消す
-
エクセル 0.1と0.10
-
セル上に表示された見かけ上の...
-
エクセルのセルの書式設定。桁...
-
エクセルで日をまたぐ集計方法
-
エクセル 平均年齢
-
Excelの表示形式で切り捨て
-
エクセルで小数点以下の表示桁...
-
エクセルの計算結果に+(プラス...
-
エクセルでの『セルの書式設定...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
PowerPointの表内のカンマ
-
エクセルの計算式でコンマを付...
-
エクセルでleft関数の結果が表...
-
エクセルでオートサムを使った...
-
エクセルで「-3E+06」と...
-
16桁以上の「0」に変換されてし...
-
エクセル 数式の無効化
-
セル上に表示された見かけ上の...
-
エクセルで囲み線で出来ますか?
-
Excelの表示形式で切り捨て
-
エクセルで、50銭以下切捨て...
-
エクセルの画面上にテキストBOX...
-
エクセルで、タイム計測の管理...
-
エクセル 0.1と0.10
-
Excelで小数点を表示しつつ、桁...
-
エクセルの計算結果に+(プラス...
-
エクセルでの『セルの書式設定...
-
エクセル 常に桁区切りにしたい
-
エクセル 平均年齢
-
エクセルで桁を揃えるために0を...
おすすめ情報