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も見ています
-
外出時に「待たせる妻」vs イライラする「待つ夫」は日本だけ?見習いたい海外事情
夫の家事参加に積極的なイメージのある海外でも、同様の事例はあるのか。結婚カウンセラーの佐竹悦子さんに伺ってみた。
-
EXCEL 2000→2,000のコンマを入れる方法
Excel(エクセル)
-
大至急!
PowerPoint(パワーポイント)
-
【至急】パワーポイントで表の複数の小数点ぞろえについて
その他(ソフトウェア)
-
-
4
PowerPointで表の1つの列だけ幅を変える方法
Illustrator(イラストレーター)
-
5
計算式 何%減少を教えてください!
数学
-
6
有無、要否、賛否、是非、可否、当否…これらの言葉について
その他(教育・科学・学問)
-
7
グラフの横・縦項目が全部表示されない
Excel(エクセル)
-
8
自分の部署・担当を言うとき、どういう言い方が正しいでしょうか?? 会社のときは、弊社といいますが、部
その他(ビジネス・キャリア)
-
9
Powerpointで、コピーすると、文字の書式が変わる
その他(Microsoft Office)
-
10
パーセンテージの平均の出し方は?
数学
-
11
パワポの複数ページにまたがる表の位置を揃えたい
PowerPoint(パワーポイント)
-
12
エクセルで円グラフに引き出し線が出るものと出ないものがある
Excel(エクセル)
-
13
パワーポイントにエクセルの表を貼り付けると一部表示されません。
PowerPoint(パワーポイント)
-
14
パワーポイントの画面がずれる
PowerPoint(パワーポイント)
-
15
「弊社○○のご紹介で初めてご連絡差し上げました」であってますか?
日本語
-
16
エクセルのセル内の余白の設定って出来るのでしょうか?
Excel(エクセル)
-
17
伸び率のマイナス数値からのパーセント計算について
数学
-
18
15%増しの計算方法
数学
-
19
○○様ほか3名は合計何名?
日本語
-
20
エクセルでの数値の表記方法(桁区切りや小数点)
PowerPoint(パワーポイント)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
PowerPointの表内のカンマ
-
エクセルで「-3E+06」と...
-
エクセルでleft関数の結果が表...
-
エクセルで囲み線で出来ますか?
-
エクセルの計算式でコンマを付...
-
エクセルでの『セルの書式設定...
-
Excelの表示形式で切り捨て
-
16桁以上の「0」に変換されてし...
-
エクセルでオートサムを使った...
-
#VALUE!を表示させないようにし...
-
エクセルで、小数点が整数に表...
-
Excelで小数点を表示しつつ、桁...
-
エクセルの計算結果に+(プラス...
-
エクセル 数式の無効化
-
エクセルの画面上にテキストBOX...
-
エクセル 常に桁区切りにしたい
-
エクセルで深夜勤務の時間計算
-
エクセル・SUM計算で数字がでない
-
エクセルVBAの入力文字(unicode...
-
EXCEL 小数点以下のある数字を...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
PowerPointの表内のカンマ
-
エクセルの計算式でコンマを付...
-
エクセルでleft関数の結果が表...
-
エクセル 数式の無効化
-
エクセルで囲み線で出来ますか?
-
16桁以上の「0」に変換されてし...
-
エクセルでオートサムを使った...
-
エクセルでの『セルの書式設定...
-
セル上に表示された見かけ上の...
-
エクセルで「-3E+06」と...
-
エクセルで、50銭以下切捨て...
-
エクセルの計算結果に+(プラス...
-
Excelの表示形式で切り捨て
-
エクセルで小数点以下の表示桁...
-
エクセルの画面上にテキストBOX...
-
エクセル 常に桁区切りにしたい
-
EXCEL計算式が入っているセルを...
-
Excelで小数点を表示しつつ、桁...
-
excelでセルに「1000」と入力し...
-
Excelで「1234」と入力して...
おすすめ情報