Excel VBA質問箱 IV

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

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


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

【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 お礼[未読]

【39633】小数点について
質問  ライム  - 06/6/28(水) 0:14 -

引用なし
パスワード
   まるっきり初心者ですがどなたかアドバイスいただけると幸いです
A1セルに数字を表示させていくのですが、小数点を入力させるボタンを押した際

Sub ボタン10_Click()
Cells(1, 1).Value = Cells(1, 1).Value & "."
End

このようにすると、例えば99.9としたい場合、999となってしまい小数点が表示されません
最初に小数点ボタンを押してから9を入力すると0.9となるのですが・・・。
どこがおかしいのでしょうか

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

引用なし
パスワード
   「ライム」の名前を検索したら「電卓」が見つかったんだけど、そのプログラムかなあ?
めっちゃ初心者の自分の思いつきだと

今、セルに「.9」って入れてみたら「0.9」になって
「999.」って入れてみたら「999」になったの
だから、順番に「9」 & ”9”で「99」になって
「99」 & ”.”で「99.」→「99」(これ整数やし、小数点要らんやんってエクセルが思ったのかも)
「.9」だと小数って判断して「0.9」にしたんじゃないかなあ

で、どうすればいいかは分かりません・・・

スレ汚しごめんなさい
おなじライムのよしみで許してね

【39636】Re:小数点について
発言  lime  - 06/6/28(水) 1:26 -

引用なし
パスワード
   あっ、文字列の変数をつくって、そこに継ぎ足していって
それをA1に表示させてみたら?
dim moji as string
moji=moji & "."

んで、A1には
Cells(1, 1).Value = moji

数字1のボタンにmoji=moji & "1" みたいな?

それだと変数mojiには「99.9」って入ってるから
「99.」→「99」
「99.9」→「99.9」ってならないかなあ?

ど素人が思いつくのはこれくらい・・・凹○

【39637】Re:小数点について
発言  lime  - 06/6/28(水) 1:30 -

引用なし
パスワード
   あ、この変数、全部のボタンでつかうから
dimじゃないや・・・凹○

【39638】Re:小数点について
回答  Kein  - 06/6/28(水) 1:39 -

引用なし
パスワード
   >小数点を入力させるボタン
なぜそんな面倒なものを作る必要があるのか分かりませんが、
通常のやり方では不可能と思われるので、以下のように苦肉の策となります。

Sub ボタン10_Click()
  Dim xPt As Integer
 
  With Cells(1, 1)
   xPt = InStr(1, .Value, ".")
   If xPt = 0 Then
     .Value = "'" & .Value & "."
   ElseIf xPt < Len(.Value) Then
     .Value = .Value
   End If
   .Select
   SendKeys "{F2}", True
  End With
End Sub

【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

こんなん作ってみた〜〜

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

引用なし
パスワード
   うは、達人の人の回答があった・・・
リロードしてなかった・・・
じゃあ寝ます
レス汚しごめんなさい

【39643】Re:小数点について
発言  ichinose  - 06/6/28(水) 7:32 -

引用なし
パスワード
   皆さん、おはようございます。

>「ライム」の名前を検索したら「電卓」が見つかったんだけど、そのプログラムかなあ?

なるほど・・・、だとしたら数字の0〜9もコッマンドボタンのクリックで
セルA1に入力させている仕様ですか?


>このようにすると、例えば99.9としたい場合、999となってしまい小数点が表示されません
>最初に小数点ボタンを押してから9を入力すると0.9となるのですが・・・。

この場合、セルA1の書式の表示形式を「文字列」に設定すればうまくいきそうですが。
(文字列にすると、デフォルトで左寄せになりますから、右寄せに設定するなどの
工夫は必要ですよ!!)

但し、「.」のボタンをクリックすれば、何度でも小数点がセルに
入力されてしまいます。
「9....999」とかね!!
こうならないような制御が必要ですよ!!

【39647】Re:小数点について
お礼  ライム  - 06/6/28(水) 9:30 -

引用なし
パスワード
   何回も答えてくださって有難うございます。
とても参考になりました

【39648】Re:小数点について
お礼  ライム  - 06/6/28(水) 9:31 -

引用なし
パスワード
   セルの書式かあ。
ちょっと上手くいきそうです。
ありがとうございました。

【39649】Re:小数点について
お礼  ライム  - 06/6/28(水) 9:33 -

引用なし
パスワード
   達人の方に答えていただいて恐縮です;初心者ですいません。
ありがとうございました。大変参考になりました

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