Excel VBA質問箱 IV

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

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


36153 / 76732 ←次へ | 前へ→

【45762】Re:選択している行に対してのマクロ実行
回答  Kein  - 07/1/13(土) 21:11 -

引用なし
パスワード
   こんな感じでしょーか ?

Sub MyCopy()
  Dim MyR As Range
 
  Set MyR = Intersect(ActiveCell.EntireRow, Range("A:AA"))
  MyR.Interior.ColorIndex = 3
  ActiveWindow.ScrollColumn = 1
  If MsgBox(MyR.Address(0, 0) & " をコピーしますか", 36) = 6 Then
   MyR.Copy
   Sheets("Sheet2").Range("A65536").End(xlUp).Offset(1) _
   .PasteSpecial xlPasteValues
   Application.CutCopyMode = False
  End If
  MyR.Interior.ColorIndex = xlColorIndexNone: Set MyR = Nothing
End Sub

0 hits

【45760】選択している行に対してのマクロ実行 楽団 07/1/13(土) 20:56 質問
【45761】Re:選択している行に対してのマクロ実行 ぱっせんじゃー 07/1/13(土) 21:03 発言
【45762】Re:選択している行に対してのマクロ実行 Kein 07/1/13(土) 21:11 回答
【45763】Re:選択している行に対してのマクロ実行 かみちゃん 07/1/13(土) 21:11 発言
【45764】Re:選択している行に対してのマクロ実行 Kein 07/1/13(土) 21:15 発言
【45765】Re:選択している行に対してのマクロ実行 かみちゃん 07/1/13(土) 21:21 発言
【45766】Re:選択している行に対してのマクロ実行 Kein 07/1/13(土) 21:33 発言
【45767】Re:選択している行に対してのマクロ実行 楽団 07/1/13(土) 22:08 お礼
【45768】Re:選択している行に対してのマクロ実行 楽団 07/1/13(土) 23:20 質問
【45770】Re:選択している行に対してのマクロ実行 Kein 07/1/14(日) 0:52 発言
【45800】Re:選択している行に対してのマクロ実行 楽団 07/1/14(日) 18:47 お礼

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