□ 戻る □一般操作のサロン □ 使用方法 □ 新着記事 □ 新規に質問する！ □ トピック一覧 □ 検索 □ 過去ログ
[ 親トピックをトピックトップへ ]
| このトピックに書きこむ |
|---|
| このトピックに書きこむ |
|---|
| Re[2]: （削除） | |
|---|---|
[195118] Re[2]: （削除）- ■記事引用/メール受信=OFF■ □投稿者/ w11 -(2022/08/23(16:18)) □U R L/ >apAry.Value なぜValueプロパティつけるんでしょう？ | |
[195115] （削除）- ■記事引用/メール受信=OFF■ □投稿者/ / -(2022/08/20(16:36)) □U R L/ この記事は削除されました | |
[195114] オブジェクトが必要です。- ■親トピック/記事引用/メール受信=OFF■ □投稿者/ アホスタマン -(2022/08/20(15:54)) □U R L/
一番最後の処理（apRng.Value = apAry.Value）で「オブジェクトが必要です」というエラーになってしまいます。
セル範囲を使うときにも、しっかりと�Asetを使っているのですが。
原因、解決方法が分かる方がおりましたら教えてください。
sub sample()
Dim apRng As Range
Dim apAry As Variant
Dim x As Long
maxRow = Cells(Rows.Count, "D").End(xlUp).Row
Set apRng = Range("G1:I" & maxRow)
apAry = apRng.Value
For x = 1 To UBound(apAry)
If apAry(x, 2) <> "" Then
apAry(x, 1) = apAry(x, 2)
End If
If apAry(x, 3) <> "" Then
apAry(x, 1) = apAry(x, 3)
End If
Next x
apRng.Value = apAry.Value
end subこの記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 ++++++++++++++++++++ OS ⇒OTHER Version⇒OTHER ++++++++++++++++++++ | |