Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

49656 / 76736

←次へ　｜　前へ→


	【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