Excel VBA質問箱 IV

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

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


35623 / 76732 ←次へ | 前へ→

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

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

>二つのシートがあって「☆」を押すと、シートBのデータを読み込むんです
>が、シートAの「T-P15-」は読まず、下4桁の数字を見て抽出して、シートBのセ
>ルB2の「曇り」をシートAのセルB1に反映させたい

それでは、以下のような感じでできると思います。
"-"か"−"はどちらが正しいのかわかりませんので、ちょっと注意してください。

Sub Sample2()
 Dim LastCell As Range
 Dim c As Range
 Dim c2 As Range
 Dim strData1 As String
 Dim intPos As Integer

 Set LastCell = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp)
 For Each c In Sheets("Sheet1").Range("A1", LastCell)
  strData1 = c.Value
  intPos = InStrRev(strData1, "-")
  If intPos > 0 Then
   strData1 = Mid(strData1, intPos + 1)
   With Sheets("Sheet2").Columns("A")
    Set c2 = .Find(strData1, , xlValues, xlWhole)
    If Not c2 Is Nothing Then
     c.Offset(, 1).Value = c2.Offset(, 1).Value
    Else
     c.Offset(, 1).Value = "検索値なし" & strData1
    End If
   End With
  Else
   c.Offset(, 1).Value = """-""がない"
  End If
 Next
End Sub

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

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