Excel VBA質問箱 IV

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

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


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

1789 / 76734

←次へ　｜　前へ→


	【80590】Re:型が一致しないがわかりません

マナ - 19/3/15(金) 18:37 -


	引用なし

	パスワード

▼ゆうすけさん：

>Sh2Range.Offset(newRecordOffset, 0).Value = newRecordValues
>で、「型が一致しない」となってしまいます。

たぶん、それより前の段階で間違っていると思います。

>Dim newRecordOffset As Variant
>Set newRecordOffset = Sh2.Range("E24")

Option Explicit

Sub saveData()
　　Dim i As Long
　　Dim Sh1 As Worksheet
　　Dim Sh2 As Worksheet
　　Dim Sh1Range As Range
　　Dim Sh2Range As Range
　　Dim newRecordOffset As Long
　　Dim dataRow As Long
　　
　　Set Sh1 = Worksheets("1")
　　Set Sh1Range = Sh1.Range("K14:K41")
　　Set Sh2 = Worksheets("2")
　　Set Sh2Range = Sh2.Range("E24")

　　For i = 14 To 41
　　　　If Worksheets("1").Cells(i, 16).Value = 1 Then
　　　　　　dataRow = 1
　　　　　　newRecordOffset = Sh2Range.Value
　　　　　　
　　　　　　Do While Sh1Range.Cells(dataRow, 0).Value <> ""
　　　　　　　　Sh2Range.Offset(newRecordOffset, 0).Value = _
　　　　　　　　　　　　Sh1Range.Cells(dataRow, 1).Value
　　　　　　　　dataRow = dataRow + 1
　　　　　　　　newRecordOffset = newRecordOffset + 1
　　　　　　Loop
　　　　　　
　　　　End If
　　Next i
　　
End Sub

6 hits

▼

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