Excel VBA質問箱 IV

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

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


49652 / 76732 ←次へ | 前へ→

【31984】Re:指定した行の数と式の数字を対応させたい!
回答  Kein  - 05/12/3(土) 15:38 -

引用なし
パスワード
   例えば TextBox1 に入力された値から、目的の数値を取り出すとして

Dim i As Long, x As Long, Mynum As Long

With Me.TextBox1
  If .Value = "" Then Exit Sub
  For i = Len(.Value) To 1 Step -1
   If Not IsNumeric(Mid(.Value, i, 1)) then
     x = i + 1: Exit For
   End If
  Next i
  If x = 0 Then
   Mynum = CLng(.Value)
  Else
   Mynum = CLng(Mid(.Value, x))
  End If
End With

で、変数 Mynum に整数型で格納されます。

0 hits

【31979】指定した行の数と式の数字を対応させたい! kruk 05/12/3(土) 14:46 質問
【31980】Re:指定した行の数と式の数字を対応させた... かみちゃん 05/12/3(土) 14:51 発言
【31981】Re:指定した行の数と式の数字を対応させた... kruk 05/12/3(土) 15:19 質問
【31982】Re:指定した行の数と式の数字を対応させた... かみちゃん 05/12/3(土) 15:32 発言
【31983】Re:指定した行の数と式の数字を対応させた... kruk 05/12/3(土) 15:37 お礼
【32007】Re:指定した行の数と式の数字を対応させた... kruk 05/12/4(日) 16:17 質問
【32008】Re:指定した行の数と式の数字を対応させた... かみちゃん 05/12/4(日) 16:57 発言
【32014】Re:指定した行の数と式の数字を対応させた... kruk 05/12/4(日) 17:51 質問
【32017】Re:指定した行の数と式の数字を対応させた... かみちゃん 05/12/4(日) 18:11 回答
【32018】Re:指定した行の数と式の数字を対応させた... kruk 05/12/4(日) 18:15 お礼
【32019】Re:指定した行の数と式の数字を対応させた... kruk 05/12/4(日) 19:04 質問
【32020】Re:指定した行の数と式の数字を対応させた... かみちゃん 05/12/4(日) 19:14 発言
【32043】Re:指定した行の数と式の数字を対応させた... kruk 05/12/5(月) 13:30 お礼
【31984】Re:指定した行の数と式の数字を対応させた... Kein 05/12/3(土) 15:38 回答

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