Excel VBA質問箱 IV

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

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


387 / 73513 ←次へ | 前へ→

【78755】型が一致しないエラーについて
質問  VBA勉強中  - 17/1/14(土) 11:47 -

引用なし
パスワード
   以下自分で書いてみたものです。
原因はrange型の変数とstring型の変数を=で結んだからかな?と予想していますが、どう書き換えたらいいのかわかりません。ご教授お願いします…

Sub test()
Application.ScreenUpdating = False

  Dim sh1 As Object
  Dim pos1 As Range
  Dim pos1row As Long
  Dim pos1col As Long
  Dim name1 As String
  Dim name2 As String
  Dim name3 As String
  Dim name4 As String
  Dim name5 As String
  Dim name6 As String
  Dim name7 As String
  Dim name8 As String
  Dim name9 As String
  Dim memo As Range
  
  Set sh1 = Sheets("sheet1")
  
  pos1col = 8
  pos1row = 5
  Set pos1 = Cells(pos1row, pos1col).MergeArea
  Set memo = pos1.Offset(, 7)
  
  Do While Not IsEmpty(pos1)
    name1 = "a"
    name2 = "b"
    name3 = "c"
    name4 = "d"
    name5 = "e"
    name6 = "f"
    name7 = "g"
    name8 = "h"
    name9 = "i"
      Select Case pos1.Value
          Case Is = name1
            memo = "aa"
          Case Is = name2
            memo = "bb1" & Right(pos1.Offset(, 3).Value, 5) & "bb2" _
              & Left(pos1.Offset(, 3).Value, 4) & "bb3"
          Case Is = name3
            memo = bb1" & Right(pos1.Offset(, 3).Value, 5) & "bb2" _
              & Left(pos1.Offset(, 3).Value, 4) & "bb3"
          Case Is = name4
            memo = pos1.Offset(, 3).Value & "dd"
          Case Is = name5
            memo = "ee"
          Case Is = name6
            memo = "ff"
          Case Is = name7
            memo = pos1.Offset(, 3).Value & "gg"
          Case Is = name8
            memo = "hh"
          Case Is = name9
            memo = pos1.Offset(, 3).Value & "ii"
      End Select
      
    pos1row = pos1row + 1
    Set pos1 = sh1.Cells(pos1row, pos1col).MergeArea
    
  Loop


End Sub

82 hits

【78755】型が一致しないエラーについて VBA勉強中 17/1/14(土) 11:47 質問[未読]
【78756】Re:型が一致しないエラーについて γ 17/1/14(土) 13:40 回答[未読]
【78757】Re:型が一致しないエラーについて VBA勉強中 17/1/14(土) 14:14 お礼[未読]
【78758】Re:型が一致しないエラーについて γ 17/1/14(土) 14:42 発言[未読]
【78759】Re:型が一致しないエラーについて γ 17/1/15(日) 9:03 回答[未読]

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