Excel VBA質問箱 IV

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

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


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

13973 / 76734

←次へ　｜　前へ→


	【68261】データ入替処理

悩める老人 - 11/2/18(金) 22:05 -


	引用なし

	パスワード

このプログラムはAB列5行の表のデータ入替処理するものです｡
AB列とも1行から5行に1から5の数字が入力されています｡

この度プログラムの中に書いたような問題が発生しましたので
ご教示かた宜しくお願いします｡

Public Sub test()

　Dim a1 As Integer, b1 As Integer
　Dim a1b1 As Range, a5b5 As Range
　Dim a1b4 As Range, a2b5 As Range
　
'1.変数にセルの値を代入
　　a1 = Range("a1").Value
　　b1 = Range("b1").Value
　　
　　Set a1b1 = Range("a1:b1")
　　
　　Set a5b5 = Range("a5:b5")
　　Set a1b4 = Range("a1:b4")
　　Set a2b5 = Range("a2:b5")
　　
'2.２～５行データを１～４行に移動
　　a1b4.Value = a2b5.Value
　　
'3.最初(移動前）の１行目にあったデータを５行に表示します
　　a5b5.Value = a1b1.Value

　 '結果は移動後の１行目のデータが表示され意図したものになりません

'4.そこで次のようにしたら意図した結果となりました。

'　　Range("a5").Value = a1
'　　Range("b5").Value = b1

'プログラム2.で２～５行データを１～４行に移動した後でも変数a1,b1の値は
'変わらないのに　Set a1b1 = Range("a1:b1")では　a1b1 の値がどうして変わる
'のでしょうか？　Set a1b1 = Range("a1:b1")では処理不可能でしょうか？　

End Sub

2 hits

▼

【68261】データ入替処理 悩める老人 11/2/18(金) 22:05

≪