Excel VBA質問箱 IV

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

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


42165 / 76732 ←次へ | 前へ→

【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

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 お礼

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