Excel VBA質問箱 IV

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

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


35161 / 76732 ←次へ | 前へ→

【46773】範囲指定後マクロを走らす
お礼  杉下 誠  - 07/2/14(水) 21:08 -

引用なし
パスワード
   回答有難う御座いました。自分なりに文構成トライしました。しかし、私マクロ、VBAは8年ほど離れており、たいそう忘れております。下記の文はB3:B6をマクロで順に走らせております。これを、マクロを走らせる前にB3:B6をマウスで範囲指定し、マクロで走らすのはその後のPastespecialからです。又動作セルもB3:B6でなく、マウスで自由に設定後マクロを走らす。この文がうまく構成できないので悩んで居ります。お手数をおかけしますが以上の内容に文を仕上げて頂けないでしょうか?
*********************************
Selection.Copy
  Range("B3").Select
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
  Application.CutCopyMode = False
  ActiveCell.FormulaR1C1 = ""
  Range("B3:B6").Select
  Range("B4").Activate
  ActiveCell.FormulaR1C1 = ""
  Range("B3:B6").Select
  Range("B5").Activate
  ActiveCell.FormulaR1C1 = ""
  Range("B3:B6").Select
  Range("B6").Activate
  ActiveCell.FormulaR1C1 = ""
  Range("B3:B6").Select
End Sub
*****************************************
1 hits

【46773】範囲指定後マクロを走らす 杉下 誠 07/2/14(水) 21:08 お礼
【46782】Re:範囲指定後マクロを走らす かみちゃん 07/2/15(木) 7:08 発言
【46787】Re:範囲指定後マクロを走らす 杉下 誠 07/2/15(木) 13:06 お礼

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