Excel VBA質問箱 IV

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

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


54421 / 76732 ←次へ | 前へ→

【27104】Re:2つのセルの中身を入れ替える方法を教...
発言  ponpon  - 05/7/29(金) 1:11 -

引用なし
パスワード
   こんばんは。                      この辺に「返信」があるはず  →

お礼は、新規の投稿ではなく前のツリーに続けてしましょう。
前の文に返信の形ですればよいです。

>セルの背景の色が移動してくれなかったのが

以下コードで出来てますが、初心者ですから、検証が十分ではありません。
上級者からの回答も参考にされてください。

Sub test()

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

End Sub

0 hits

【27103】2つのセルの中身を入れ替える方法を教え... 田村亮 05/7/29(金) 0:21 お礼
【27104】Re:2つのセルの中身を入れ替える方法を教... ponpon 05/7/29(金) 1:11 発言
【27107】Re:2つのセルの中身を入れ替える方法を教... 田村亮 05/7/29(金) 9:25 お礼

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