Excel VBA質問箱 IV

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

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


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

33165 / 76807

←次へ　｜　前へ→


	【48866】Re:セルの値の交換方法

ichinose - 07/5/12(土) 22:14 -


	引用なし

	パスワード

▼ユニフさん：
こんばんは。

>セルA1に（りんご）、セルB1に（ばなな）と書いてあります。
>このりんごとばななの文字の交換に
>
>Sub test()
>Range("C1").Value = Range("A1").Value
>Range("A1").Value = Range("B1").Value
>Range("B1").Value = Range("C1").Value
>Range("C1").ClearContents
>End Sub
>
>という順送りの方法を使っていますが、これを
>
>Sub test()
>セルA1の値とセルB1の値を交換する
>End Sub
>
>のように一行でこなせるコードはありますでしょうか？
昔のBasicには、Swapというステートメントがありましたけどねえ！！

方法としては、ユニフさんの提示されたロジックが簡単ですよ
但し、テンポラリエリアに別のセル（C1）を使う必要はないですよね！！

'==========================
Sub main()
　　Dim a1 As Range, b1 As Range
　　Set a1 = Range("a1")
　　a1.Value = "りんご"
　　Set b1 = Range("b1")
　　b1.Value = "バナナ"
　　MsgBox "ok"
　　Call swap(a1, b1)
End Sub
'============================
Sub swap(ByVal x1 As Range, ByVal x2 As Range)
　　Dim tmp As Variant
　　tmp = x1.Value
　　x1.Value = x2.Value
　　x2.Value = tmp
End Sub

0 hits

▼

【48865】セルの値の交換方法 ユニフ 07/5/12(土) 21:11