Excel VBA質問箱 IV

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

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


54426 / 76732 ←次へ | 前へ→

【27099】Re:2つのセルの中身を入れ替える方法を教...
回答  MARBIN  - 05/7/28(木) 22:08 -

引用なし
パスワード
   みなさん、こんばんは。
bykinさんのコードをパクッて隣り合った2つのセルを
選択した場合のコードを書いてみました。
ちょっと回りくどい方法ですが・・・。

Sub test2()
  Dim TempValue As Variant
  Dim sa As String
  Dim sb As String
  If TypeName(Selection) = "Range" Then
    With Selection
      If .Areas.Count = 2 Then
        If .Areas(1).Cells.Count + .Areas(2).Cells.Count = 2 Then
          TempValue = .Areas(1).Value
          .Areas(1).Value = .Areas(2).Value
          .Areas(2).Value = TempValue
        End If
      Else
         sa = Range(Split(Selection.Cells.Address, ":")(0)).Value
         sb = Range(Split(Selection.Cells.Address, ":")(1)).Value
         Range(Split(Selection.Cells.Address, ":")(0)).Value = sb
         Range(Split(Selection.Cells.Address, ":")(1)).Value = sa
      End If
    End With
  End If
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 発言

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