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