Excel VBA質問箱 IV

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

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


42164 / 76732 ←次へ | 前へ→

【39639】Re:小数点について
発言  lime  - 06/6/28(水) 2:15 -

引用なし
パスワード
   Public moji As String

Private Sub UserForm_Initialize() '変数初期化
moji = ""
End Sub

Private Sub CommandButton1_Click() '「1」のボタン
moji = moji & "1"
Cells(1, 1).Value = moji
End Sub

Private Sub CommandButton2_Click() '「.」のボタン
If InStr(1, moji, ".") = 0 Then  ' 1.11.1とかにならないように
  moji = moji & "."        ' 2回目の「.」は無視
  Cells(1, 1).Value = moji    '
End If
End Sub

Private Sub CommandButton3_Click() '電卓のAC
moji = ""
 Cells(1, 1).Value = moji
End Sub

こんなん作ってみた〜〜

0 hits

【39633】小数点について ライム 06/6/28(水) 0:14 質問
【39635】Re:小数点について lime 06/6/28(水) 1:15 発言
【39636】Re:小数点について lime 06/6/28(水) 1:26 発言
【39637】Re:小数点について lime 06/6/28(水) 1:30 発言
【39639】Re:小数点について lime 06/6/28(水) 2:15 発言
【39640】Re:小数点について lime 06/6/28(水) 2:18 発言
【39647】Re:小数点について ライム 06/6/28(水) 9:30 お礼
【39643】Re:小数点について ichinose 06/6/28(水) 7:32 発言
【39648】Re:小数点について ライム 06/6/28(水) 9:31 お礼
【39638】Re:小数点について Kein 06/6/28(水) 1:39 回答
【39649】Re:小数点について ライム 06/6/28(水) 9:33 お礼

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