Excel VBA質問箱 IV

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

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


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

56881 / 76738

←次へ　｜　前へ→


	【24600】Re:シート全体をコピー＆ペーストしたい

ウッシ - 05/4/27(水) 22:28 -


	引用なし

	パスワード

こんばんは

うまく説明出来ませんけど、「Range」が複数セルの場合「Value」は配列を返しますが
配列自体に離れた要素という概念は無いので、
飛び飛びのセルの場合は最初のセル(セル範囲)しか返さないです。

いい例ではないですけど、こんな感じです。

Sub test1()
　　Dim v
　　Range("A1").Value = 1
　　Range("C1:D2").Value = Evaluate("{4,3;2,1}")
　　
　　v = Range("A1,C1:D2").Value
　　If Not IsArray(v) Then
　　　　MsgBox v
　　Else
　　　　MsgBox "戻り値が配列のためメッセージボックスに表示出来ません。"
　　End If

　　v = Range("C1:D2,A1").Value
　　If Not IsArray(v) Then
　　　　MsgBox v
　　Else
　　　　MsgBox "戻り値が配列のためメッセージボックスに表示出来ません。"
　　End If
　　
　　Range("A1,C1:D2").Value = Range("A1,C1:D2").Value
　　MsgBox "確認：「A1」に「A1」の値、「C1:D2」に「A1」の値"
　　
　　Range("A1").Value = 1
　　Range("C1:D2").Value = Evaluate("{4,3;2,1}")
　　MsgBox "確認：元の値を再セット"
　　
　　Range("C1:D2,A1").Value = Range("C1:D2,A1").Value
　　MsgBox "確認：「C1:D2」に「C1:D2」の値、「A1」に「C1」の値"
　　
End Sub

0 hits

▼

【24591】シート全体をコピー＆ペーストしたい にしもり 05/4/27(水) 20:44