Excel VBA質問箱 IV

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

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


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

7591 / 76732

←次へ　｜　前へ→


	【74727】Re:セルの書き換え手法2点の違いを教えてください。

ichinose - 13/9/4(水) 6:34 -


	引用なし

	パスワード

>
>しかし、私の疑問は以下です。
>他の方にも教えていただけると助かります。
>
>○ケース1
>
>Dim MyRange As Range
>Set MyRange = Range("B4:G4")
>
>Dim MyV As Variant
>Set MyV = MyRange
>
>Do
>
>　　MyV = .....
>　　MyRange = MyV
>
>Loop
この
>　　MyV = .....
きちんとコードを記述していただいて、
ループも適当なタイミングで抜けるようにして、
仰りたい現象を誰もが経験できるようにした頂いた方がよいです。

Sub sample1()
　Dim MyRange As Range
　Set MyRange = Range("B4:g4")
　Dim MyV As Variant
　Set MyV = MyRange
　MyV.Value = 123
　MsgBox "ok"
　MyRange = MyV
End Sub

上記で同じような現象が再現できますよね！！

www.excel.studio-kazu.jp/kw/20101203205934.html
www.excel.studio-kazu.jp/kw/20101209011132.html
www2.aqua-r.tepm.jp/~kmado/kcolumn.htm
↑関連サイトです

前回投稿の
>’わかりやすいし、まれに付けた時と付けない時とで処理が違う場合があります

のよい例だと思います。

上記のコードを

Sub sample1()
　Dim MyRange As Range
　Set MyRange = Range("B4:g4")
　Dim MyV As Variant
　Set MyV = MyRange
　MyV.Value = 123
　MsgBox "ok"
　MyRange.value = MyV.Value
End Sub

ちゃんと値がはいります。

2 hits

▼

【74718】セルの書き換え手法2点の違いを教えてください。 化け猫 13/9/3(火) 1:42