Excel VBA質問箱 IV

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

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


14518 / 76734 ←次へ | 前へ→

【67706】Re:コンマとドットの表示について
発言  kanabun  - 10/12/29(水) 0:20 -

引用なし
パスワード
   ▼Yoshim さん:
>ユーザフォームのテキストボックスで三桁単位にコンマをつけて入力していますが、銭単位まで表示する方法について教えてください。

ピリオド(小数点があるばあい)で場合分け、ということかな?

Option Explicit

Private Sub TextBox1_Change()
  Dim ss As String
  
  On Error GoTo ext
  ss = TextBox1.Text
  If Len(ss) = 0 Then Exit Sub

  If InStr(ss, ".") Then
    TextBox1.Text = Format$(CCur(ss), "#,##0.##")
  Else
    TextBox1.Text = Format$(CLng(ss), "#,##0")
  End If
  Exit Sub
ext:
End Sub

2 hits

【67705】コンマとドットの表示について Yoshim 10/12/28(火) 22:44 質問
【67706】Re:コンマとドットの表示について kanabun 10/12/29(水) 0:20 発言
【67707】Re:コンマとドットの表示について Yoshim 10/12/29(水) 7:37 お礼

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