Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8914 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【30228】LabelやTextBoxの通貨スタイル 年寄り 05/10/22(土) 20:19 質問[未読]
【30229】Re:LabelやTextBoxの通貨スタイル かみちゃん 05/10/22(土) 20:26 回答[未読]
【30230】Re:LabelやTextBoxの通貨スタイル 年寄り 05/10/22(土) 21:19 お礼[未読]
【30231】Re:LabelやTextBoxの通貨スタイル 年寄り 05/10/22(土) 21:30 発言[未読]
【30233】Re:LabelやTextBoxの通貨スタイル かみちゃん 05/10/22(土) 21:48 発言[未読]
【30267】Re:LabelやTextBoxの通貨スタイル 年寄り 05/10/24(月) 11:45 質問[未読]
【30274】Re:LabelやTextBoxの通貨スタイル かみちゃん 05/10/24(月) 12:45 回答[未読]
【30275】Re:LabelやTextBoxの通貨スタイル Jaka 05/10/24(月) 12:55 発言[未読]
【30361】Re:LabelやTextBoxの通貨スタイル gako 05/10/25(火) 20:25 発言[未読]
【30363】Re:LabelやTextBoxの通貨スタイル かみちゃん 05/10/25(火) 20:50 発言[未読]
【30374】Re:LabelやTextBoxの通貨スタイル Jaka 05/10/26(水) 9:54 発言[未読]
【30284】Re:LabelやTextBoxの通貨スタイル 年寄り 05/10/24(月) 14:37 お礼[未読]
【30228】LabelやTextBoxの通貨スタイル
質問  年寄り E-MAILWEB  - 05/10/22(土) 20:19 -
引用なし
パスワード
   ユーザーフォーム上のLabelやTextBoxの表示値を、３桁区切りの通貨スタイルで表示するには？
【30229】Re:LabelやTextBoxの通貨スタイル
回答  かみちゃん  - 05/10/22(土) 20:26 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

>ユーザーフォーム上のLabelやTextBoxの表示値を、３桁区切りの通貨スタイルで表示するには？

Me.TextBox1.Value=Fomrat(1000,"#,##0")
Me.Label1.Value=Fomrat(2000,"#,##0")
でいかがですか？
【30230】Re:LabelやTextBoxの通貨スタイル
お礼  年寄り E-MAILWEB  - 05/10/22(土) 21:19 -
引用なし
パスワード
   ▼かみちゃん さん：
ありがとうございます
【30231】Re:LabelやTextBoxの通貨スタイル
発言  年寄り E-MAILWEB  - 05/10/22(土) 21:30 -
引用なし
パスワード
   ▼年寄り さん：
Format
スペル違いがありました
【30233】Re:LabelやTextBoxの通貨スタイル
発言  かみちゃん  - 05/10/22(土) 21:48 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

>スペル違いがありました

申し訳ありません。

>Me.TextBox1.Value=Fomrat(1000,"#,##0")
>Me.Label1.Value=Fomrat(2000,"#,##0")

Me.TextBox1.Value=Format(1000,"#,##0")
Me.Label1.Value=Format(2000,"#,##0")
です。
【30267】Re:LabelやTextBoxの通貨スタイル
質問  年寄り E-MAILWEB  - 05/10/24(月) 11:45 -
引用なし
パスワード
   通貨スタイルで表現された値を計算で使用したい。どうやって数値に変換しますか？
ValやClngではなさそうですね。
【30274】Re:LabelやTextBoxの通貨スタイル
回答  かみちゃん  - 05/10/24(月) 12:45 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

>通貨スタイルで表現された値を計算で使用したい。どうやって数値に変換しますか？

私も同様のことをしています。
通貨スタイルの数字以外の文字を取り除けばいいです。
取り除くというのは、""に置き換えるということでできますので、
以下のような感じでいいかと思います。

Sub Macro1()
　Dim strDummy As String
　
　strDummy = "\1,000"
　MsgBox Val(Replace(Replace(strDummy, ",", ""), "\", ""))
End Sub
【30275】Re:LabelやTextBoxの通貨スタイル
発言  Jaka  - 05/10/24(月) 12:55 -
引用なし
パスワード
   こんにちは。
これな感じでも大丈夫ですよ。
要は、最初の\だけとれば良い。

Dim st As String
st = "\1,000"
MsgBox Mid(st, 2) * 4
MsgBox Application.Substitute(st, "\", "") * 5
【30284】Re:LabelやTextBoxの通貨スタイル
お礼  年寄り E-MAILWEB  - 05/10/24(月) 14:37 -
引用なし
パスワード
   皆さんありがとうございます。
解決。
【30361】Re:LabelやTextBoxの通貨スタイル
発言  gako  - 05/10/25(火) 20:25 -
引用なし
パスワード
   ▼Jaka さん：

すみません。
教えていただきたいのですが･･･
貴殿のコードの「*4」や「*5」は何を意味しているのでしょうか。
時間が有りましたら宜しくお願いします。

>こんにちは。
>これな感じでも大丈夫ですよ。
>要は、最初の\だけとれば良い。
>
>Dim st As String
>st = "\1,000"
>MsgBox Mid(st, 2) * 4
>MsgBox Application.Substitute(st, "\", "") * 5
【30363】Re:LabelやTextBoxの通貨スタイル
発言  かみちゃん  - 05/10/25(火) 20:50 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

横から失礼します。

>「*4」や「*5」は何を意味しているのでしょうか。

たぶん、「1,000」という文字列に「*1」で1をかければ、1000という数字に変換
されるということだと思います。
Mid("\1,000",2)*4 だと4000になりますから。
【30374】Re:LabelやTextBoxの通貨スタイル
発言  Jaka  - 05/10/26(水) 9:54 -
引用なし
パスワード
   すみません。
勘違いしていた部分があります。
かみちゃんさんに付け足し。

\は、文字だから計算に使えないと思っていました。
確認してみたら、数値型の変数に代入できてしまいました。

Dim st As String, su As Long
st = "\1,000"
su = st
MsgBox (st + su) * 5

* 4 等をつけた理由は、そのまま計算につけますよって意味のつもりだったんですが、意味がありませんでした。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8914 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free