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も見ています
-
風水の観点で選ぶ観葉植物とは?置き場所や上げたい運気ごとの注意点を紹介!
観葉植物で運気をアップするコツを、風水デザイン1級建築士の福島昌彦さんに伺った。
-
EXCEL 2000→2,000のコンマを入れる方法
Excel(エクセル)
-
大至急!
PowerPoint(パワーポイント)
-
【至急】パワーポイントで表の複数の小数点ぞろえについて
その他(ソフトウェア)
-
-
4
グラフの横・縦項目が全部表示されない
Excel(エクセル)
-
5
計算式 何%減少を教えてください!
数学
-
6
Powerpointで、コピーすると、文字の書式が変わる
その他(Microsoft Office)
-
7
パワポの複数ページにまたがる表の位置を揃えたい
PowerPoint(パワーポイント)
-
8
PowerPointで表の1つの列だけ幅を変える方法
Illustrator(イラストレーター)
-
9
自分の部署・担当を言うとき、どういう言い方が正しいでしょうか?? 会社のときは、弊社といいますが、部
その他(ビジネス・キャリア)
-
10
有無、要否、賛否、是非、可否、当否…これらの言葉について
その他(教育・科学・学問)
-
11
パワーポイントの画面がずれる
PowerPoint(パワーポイント)
-
12
エクセルでの数値の表記方法(桁区切りや小数点)
PowerPoint(パワーポイント)
-
13
パーセンテージの平均の出し方は?
数学
-
14
納品 vs ご納品 どちらが正しいでしょうか?
日本語
-
15
エクセルの主軸と第2軸の0を合わせて表示したい
Windows Me・NT・2000
-
16
パワーポイントにエクセルの表を貼り付けると一部表示されません。
PowerPoint(パワーポイント)
-
17
伸び率のマイナス数値からのパーセント計算について
数学
-
18
エクセルで円グラフに引き出し線が出るものと出ないものがある
Excel(エクセル)
-
19
エクセルのセル内の余白の設定って出来るのでしょうか?
Excel(エクセル)
-
20
「弊社○○のご紹介で初めてご連絡差し上げました」であってますか?
日本語
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
PowerPointの表内のカンマ
-
エクセルで「-3E+06」と...
-
エクセルでオートサムを使った...
-
エクセルで囲み線で出来ますか?
-
エクセルの計算式でコンマを付...
-
エクセルでleft関数の結果が表...
-
16桁以上の「0」に変換されてし...
-
エクセルの計算結果に+(プラス...
-
エクセルで保護がかかったセル...
-
エクセルexcelで桁を減らして表...
-
エクセルで数字を千分の1にし...
-
セル上に表示された見かけ上の...
-
エクセル 数式の無効化
-
経過時間(秒)を○○分△△秒に変...
-
エクセルで桁を揃えるために0を...
-
エクセルで小数点以下の表示桁...
-
エクセルの改行文字を式で追加...
-
秒以下の時間の表示
-
エクセルの画面上にテキストBOX...
-
エクセル・SUM計算で数字がでない
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
PowerPointの表内のカンマ
-
エクセルの計算式でコンマを付...
-
エクセルでleft関数の結果が表...
-
エクセルでオートサムを使った...
-
エクセルで「-3E+06」と...
-
16桁以上の「0」に変換されてし...
-
エクセル 数式の無効化
-
セル上に表示された見かけ上の...
-
エクセルで囲み線で出来ますか?
-
Excelの表示形式で切り捨て
-
エクセルで、50銭以下切捨て...
-
エクセルの画面上にテキストBOX...
-
エクセルで、タイム計測の管理...
-
エクセル 0.1と0.10
-
Excelで小数点を表示しつつ、桁...
-
エクセルの計算結果に+(プラス...
-
エクセルでの『セルの書式設定...
-
エクセル 常に桁区切りにしたい
-
エクセル 平均年齢
-
エクセルで桁を揃えるために0を...
おすすめ情報