Excel VBA質問箱 IV

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

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


16317 / 76738 ←次へ | 前へ→

【65889】Re:For〜 Nextの使い方
回答  アラン・ケイ  - 10/7/5(月) 18:06 -

引用なし
パスワード
   こんなことでしょうか?

Sub Test()
  Dim srcName As String
  Dim myRange As Range
  Dim startRow As Long
  Dim lastRow As Long
  Dim k    As Long
  Dim s    As String
  
  srcName = "Education"
  Set myRange = Range("A:A").Find(What:=srcName, LookAt:=xlWhole)
  
  If Not myRange Is Nothing Then
    startRow = myRange.Row + 3
    lastRow = Cells(Rows.Count, 2).End(xlUp).Row
    
    For k = startRow To lastRow
      s = Cells(k, "B").Value
      If s <> "" Then
        If Left(s, 6) = "D.V.M." Then
          Cells(k, "E").Value = "medical D"
        ElseIf Left(s, 8) = "D.Med.Sc" Then
          Cells(k, "E").Value = "Doctor"
        ElseIf Left(s, 2) = "M." Then
          Cells(k, "E").Value = "Master"
        Else
          Cells(k, "E").Value = "その他"
        End If
      End If
    Next
  End If
End Sub
0 hits

【65888】For〜 Nextの使い方 けい 10/7/5(月) 17:41 質問
【65889】Re:For〜 Nextの使い方 アラン・ケイ 10/7/5(月) 18:06 回答
【65890】Re:For〜 Nextの使い方 けい 10/7/5(月) 18:48 質問
【65891】Re:For〜 Nextの使い方 アラン・ケイ 10/7/5(月) 19:56 回答
【65892】Re:For〜 Nextの使い方 アラン・ケイ 10/7/5(月) 20:19 回答
【65894】Re:For〜 Nextの使い方 けい 10/7/6(火) 10:07 お礼

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