Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7355 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 ボタン１０_Click()
Cells(1, 1).Value = Cells(1, 1).Value & "."
End

このようにすると、例えば９９．９としたい場合、９９９となってしまい小数点が表示されません
最初に小数点ボタンを押してから９を入力すると０．９となるのですが・・・。
どこがおかしいのでしょうか
【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

数字１のボタンに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 ボタン１０_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 & "."　　　　　　　 '　２回目の「.」は無視
　　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 -
引用なし
パスワード
   皆さん、おはようございます。

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

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


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

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

但し、「.」のボタンをクリックすれば、何度でも小数点がセルに
入力されてしまいます。
「9....999」とかね！！
こうならないような制御が必要ですよ！！
【39647】Re:小数点について
お礼  ライム  - 06/6/28(水) 9:30 -
引用なし
パスワード
   何回も答えてくださって有難うございます。
とても参考になりました
【39648】Re:小数点について
お礼  ライム  - 06/6/28(水) 9:31 -
引用なし
パスワード
   セルの書式かあ。
ちょっと上手くいきそうです。
ありがとうございました。
【39649】Re:小数点について
お礼  ライム  - 06/6/28(水) 9:33 -
引用なし
パスワード
   達人の方に答えていただいて恐縮です；初心者ですいません。
ありがとうございました。大変参考になりました
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7355 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free