Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

1793 / 76734

←次へ　｜　前へ→


	【80586】型が一致しないがわかりません

ゆうすけ - 19/3/15(金) 17:11 -


	引用なし

	パスワード

1週間前にVBAの勉強を始めました。少しずつエラーを直していったのですが、最後の部分でつまづいています。
下から8行目の
Sh2Range.Offset(newRecordOffset, 0).Value = newRecordValues
で、「型が一致しない」となってしまいます。
どなたかお助けください。

Sub saveData()
　　Dim i As Long
　　For i = 14 To 41
　　　　If Worksheets("1").Cells(i, 16) = "1" Then
　　　　　　Dim Sh1 As Worksheet
　　　　　　Dim Sh2 As Worksheet
　　　　　　Dim Sh1Range As Range
　　　　　　Dim Sh2Range As Range
　　　　　　Dim newRecordOffset As Variant
　　　　　　Dim newRecordValues As Variant
　　　　　　Dim dataRow As Long
　　　　　　Set Sh1 = Worksheets("1")
　　　　　　Set Sh1Range = Sh1.Range("K14:K41")
　　　　　　Set Sh2 = Worksheets("2")
　　　　　　Set Sh2Range = Sh2.Range("E24")
　　　　　　Set newRecordOffset = Sh2.Range("E24")
　　　　　　dataRow = 1
　　　　　　　　Do While Sh1Range.Cells(dataRow, 0).Value <> ""
　　　　　　　　　　newRecordValues = Array( _
　　　　　　　　　　　　Sh1Range.Cells(dataRow, 1).Value _
　　　　　　　　　　　　)
　　　　　　　　　　Sh2Range.Offset(newRecordOffset, 0).Value _
　　　　　　　　　　　　= newRecordValues
　　　　　　　　　　dataRow = dataRow + 1
　　　　　　　　　　newRecordOffset = newRecordOffset + 1
　　　　　　　　Loop
　　　　End If
　　Next i
End Sub

8 hits

▼

【80586】型が一致しないがわかりません ゆうすけ 19/3/15(金) 17:11