Excel VBA質問箱 IV

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

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


54429 / 76732 ←次へ | 前へ→

【27096】Re:2つのセルの中身を入れ替える方法を教...
発言  ponpon  - 05/7/28(木) 21:32 -

引用なし
パスワード
   こんばんは。
エラー対策が苦手というかよくわからないのですが、
以下コードで何とか出来ています。
セルを二つ選んで実行してください。

Sub test()

  Dim myAD As String
  Dim myStr As Variant
  Dim myVal As Variant
  
  myAD = Selection.Address(0, 0)
  myStr = Split(myAD, ",")
  If UBound(myStr) <> 1 Then
    MsgBox "セルをちゃんと二つ選んでください"
    Exit Sub
  End If
  myVal = Range(myStr(0)).Value
  Range(myStr(0)).Value = Range(myStr(1)).Value
  Range(myStr(1)).Value = myVal

End Sub
0 hits

【27093】2つのセルの中身を入れ替える方法を教え... 田村亮 05/7/28(木) 20:32 質問
【27095】Re:2つのセルの中身を入れ替える方法を教え... bykin 05/7/28(木) 21:00 回答
【27096】Re:2つのセルの中身を入れ替える方法を教... ponpon 05/7/28(木) 21:32 発言
【27098】マウスで「ずりっ」と二つ選ぶと??? ponpon 05/7/28(木) 21:45 発言
【27099】Re:2つのセルの中身を入れ替える方法を教... MARBIN 05/7/28(木) 22:08 回答
【27100】Re:2つのセルの中身を入れ替える方法を教え... かみちゃん 05/7/28(木) 22:17 回答
【27101】Re:2つのセルの中身を入れ替える方法を教え... ponpon 05/7/28(木) 22:34 発言
【27108】Re:2つのセルの中身を入れ替える方法を教え... 田村亮 05/7/29(金) 9:27 お礼
【27122】Re:2つのセルの中身を入れ替える方法を教... kaeru144 05/7/29(金) 11:21 発言
【27124】Re:2つのセルの中身を入れ替える方法を教... 田村亮 05/7/29(金) 11:48 お礼
【27167】Re:2つのセルの中身を入れ替える方法を教... マキチャン 05/7/31(日) 16:20 発言

54429 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free