Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4479 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【56495】ラベルの表示形式 K.A 08/6/19(木) 13:30 質問[未読]
【56496】Re:ラベルの表示形式 Jaka 08/6/19(木) 14:21 発言[未読]
【56497】Re:ラベルの表示形式 kanabun 08/6/19(木) 14:56 発言[未読]
【56508】Re:ラベルの表示形式 K.A 08/6/19(木) 17:00 お礼[未読]
【56495】ラベルの表示形式
質問  K.A  - 08/6/19(木) 13:30 -
引用なし
パスワード
   こんにちは
ラベルに数値を入力したいのですが、３桁ごとにカンマを入れて円表示にしたいのですが方法が分かりません。教えてください
【56496】Re:ラベルの表示形式
発言  Jaka  - 08/6/19(木) 14:21 -
引用なし
パスワード
   カッコええのが思いつかなかったけど。

Dim HH As Currency
If Len(Me.Label1.Caption) = 0 Then Me.Label1.Caption = 0
HH = Me.Label1.Caption
Me.Label1.Caption = Format(HH + 100, "#,0")
【56497】Re:ラベルの表示形式
発言  kanabun  - 08/6/19(木) 14:56 -
引用なし
パスワード
   ▼K.A さん：
おじゃまします

>ラベルに数値を入力したいのですが、３桁ごとにカンマを入れて円表示にしたい

Label1.Caption = Format$(数値, "Currency")

ではだめですか？
【56508】Re:ラベルの表示形式
お礼  K.A  - 08/6/19(木) 17:00 -
引用なし
パスワード
   回答ありがとうございました
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4479 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free