Excel VBA質問箱 IV

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

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


8916 / 13646 ツリー ←次へ | 前へ→

【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の表示値を、3桁区切りの通貨スタイルで表示するには?

【30229】Re:LabelやTextBoxの通貨スタイル
回答  かみちゃん  - 05/10/22(土) 20:26 -

引用なし
パスワード
   こんにちは。かみちゃん です。

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

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 等をつけた理由は、そのまま計算につけますよって意味のつもりだったんですが、意味がありませんでした。

8916 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free