Excel VBA質問箱 IV

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

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


35627 / 76732 ←次へ | 前へ→

【46301】Re:文字列の数字だけ読み込みたい
発言  かみちゃん  - 07/1/29(月) 21:09 -

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

>一つのセルに「T−A15−0016」と入力されていて
>その「0016」だけを読んで、0016のデータを反映させたい

ちょっと仕様がわかりづらいのですが、たとえば、以下のような感じですか?

Sub Sample()
 Dim strData1 As String
 Dim strData2 As String

 strData1 = "T−A15−0016"
 strData2 = "0016 晴れ"
 If InStrRev(strData1, "−") > 0 Then
  MsgBox Trim(Replace(strData2, Mid(strData1, InStrRev(strData1, "−") + 1), ""))
 Else
  MsgBox """−""がありません" & vbCrLf & strData1
 End If
End Sub

これでいいようであれば、strData1、strData2を実際のセルの値を設定するようにして、
MsgBox のところは、出力先のセルにすればいいことになります。
1 hits

【46297】文字列の数字だけ読み込みたい himiko 07/1/29(月) 20:39 質問
【46301】Re:文字列の数字だけ読み込みたい かみちゃん 07/1/29(月) 21:09 発言
【46303】Re:文字列の数字だけ読み込みたい himiko 07/1/29(月) 21:50 発言
【46304】Re:文字列の数字だけ読み込みたい himiko 07/1/29(月) 21:58 発言
【46305】Re:文字列の数字だけ読み込みたい かみちゃん 07/1/29(月) 22:15 発言
【46306】Re:文字列の数字だけ読み込みたい himiko 07/1/29(月) 22:20 お礼

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