Excel VBA質問箱 IV

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

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


49085 / 76736 ←次へ | 前へ→

【32573】Re:文字の選別
発言  かみちゃん  - 05/12/18(日) 14:53 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>規則性は前半が漢字で、文字数は決まってないです
>後半は数字で、文字数は決まってないです

それでは、以下のような感じではいかがでしょうか?

Sub Macro1()
 Dim strOrg As String
 Dim i As Long, x As Long
 Dim Mynum(1) As String
 
 strOrg = "日本2005"
 For i = Len(strOrg) To 1 Step -1
  If Not IsNumeric(Mid(strOrg, i, 1)) Then
   x = i + 1: Exit For
  End If
 Next i
 If x = 0 Then
  Mynum(1) = strOrg
 Else
  Mynum(1) = Mid(strOrg, x)
 End If
 Mynum(0) = Replace(strOrg, Mynum(1), "")

 MsgBox Mynum(0) & vbCrLf & Mynum(1)
End Sub

下記の過去ログを参考にしてみました。
http://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=31984;id=excel
0 hits

【32570】文字の選別 俊之 05/12/18(日) 14:25 質問
【32571】Re:文字の選別 かみちゃん 05/12/18(日) 14:37 発言
【32572】Re:文字の選別 俊之 05/12/18(日) 14:44 質問
【32573】Re:文字の選別 かみちゃん 05/12/18(日) 14:53 発言
【32574】Re:文字の選別 俊之 05/12/18(日) 15:03 質問
【32575】Re:文字の選別 かみちゃん 05/12/18(日) 15:15 発言
【32577】Re:文字の選別 俊之 05/12/18(日) 15:30 質問
【32578】Re:文字の選別 かみちゃん 05/12/18(日) 15:35 発言
【32591】Re:文字の選別 ichinose 05/12/18(日) 20:16 発言
【32592】Re:文字の選別 Kein 05/12/18(日) 20:20 回答
【32600】Re:文字の選別 awu 05/12/19(月) 11:17 回答
【32607】Re:文字の選別 俊之 05/12/19(月) 14:48 お礼

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