[[20040812165209]]　『セルの網掛けの色だけコピー』（そう）　ページの最後に飛ぶ

『セルの網掛けの色だけコピー』（そう）

マウスだけ、もしくは簡単な操作で色だけをコピーし、

貼り付ける事は可能でしょうか？

他の書式はコピーされずに。。

 マクロを使うしかなさそうに思えます。

  (INA)

早速のお答え有難う御座います。

では、マクロ素人が使える簡単な?方法はありますでしょうか？
（そう）

 マクロを使うことは簡単です。 でも作るのは大変です。

  (INA)

 お願いします。作って下さい。

（そう）

基本的にここは学校なので、単純に作ってもらうのをお願いするのはどうかと・・・

 自分の勉強のためにマクロの記録を使って作ってみました。

 Sub irohari()

 Dim n As Variant
 Dim inpurange As String
 Dim R1 As Long
 Dim c1 As Long

 n = ActiveCell.Interior.ColorIndex

     inputrange = InputBox("コピー先のセル番地を入力して下さい。" & Chr(10) & _
              Chr(10) & "例：D10" & Chr(10) & Chr(10) & Chr(10) & _
              "実行を中止するときは、ここで「キャンセル」を押してください。" _
               & Chr(10) & "実行後は、元に戻せません。", "コピー先")

 If inputrange = "" Then

     Exit Sub

 End If

     R1 = Range(inputrange).Row

     c1 = Range(inputrange).Column

     Cells(R1, c1).Interior.ColorIndex = n

 End Sub

 どなたか、InputBoxにセルの手入力ではなく、貼り付け先をマウスで取得する方法を
 ご教示願えませんでしょうか。

 （川野鮎太郎）

 横から失礼します。
なさりたい事は、コピー，貼り付けでなければいけませんか？
マウスの操作で網掛けだけを設定したいということなら
ツールバー上にパターンを設定するボタンを配置すれば、
セル範囲を選択してボタンを押すだけで網掛けを設定できるようになります。
・「ツール」－「ユーザー設定」の[コマンド]タブを開く
・[分類]の書式を選択して、[コマンド]からパターンを探して、
　ツールバーにドラッグ
・「ユーザー設定」を閉じる
コピー，貼り付けでなければいけないのであれば無視してください。（Yosh!）

 application.inputboxを使うとマウスでなぞれますワ。
 Yosh!さん、今日も暑うおまんなぁ。ふ～。
 　　　　　ほな...（弥太郎）

 私が川野鮎太郎さんにしてあげられるのはこんなことぐらいだから、、
 で、どうでしょう？
（夏目雅子似）
 Sub irohari()
 Dim n As Long
 Dim inputrange As Range
 n = ActiveCell.Interior.ColorIndex
 On Error Resume Next
    Set inputrange = Application.InputBox("コピー先のセル番地を入力して下さい。" & Chr(10) & _
             Chr(10) & "例：D10" & Chr(10) & Chr(10) & Chr(10) & _
             "実行を中止するときは、ここで「キャンセル」を押してください。" _
              & Chr(10) & "実行後は、元に戻せません。", "コピー先", Type:=8)
     On Error GoTo 0         
 If TypeName(inputrange) = "Nothing" Then    
    Exit Sub
 End If
    inputrange.Interior.ColorIndex = n
 End Sub

 おー、ありがとうござります～（おんぷ

 みなさん、おはようございます。

 夏目さんのは、範囲指定して複数のセルに対して出来るようになってるんですね＾＾

 追加質問で複数セルをするためには・・・・って書くところでした。

 さすがです＾＾ｖ

 （川野鮎太郎）

 皆様、本当に有難う御座います。

 出来ました！

 複数のセルを選択し、複数のセルへ　することはできますか？

 また、罫線のみ、複数セルから複数セルにコピーはできますか？

 頑張って勉強しますが難しすぎて・・・。宜しくお願い致します。
　
 (そう)

 >複数のセルを選択し、複数のセルへ　することはできますか？

 条件によるのでは？

 コピー元で複数のセルを選択して、複数の色があったとき、 
 同じ数のコピー先のセル範囲が選択されなかったらどうしますか？

  (INA)

コメント返信：

[ 一覧(最新更新順) ]

[[20040812165209]] 『セルの網掛けの色だけコピー』（そう） ページの最後に飛ぶ

[[20040812165209]]　『セルの網掛けの色だけコピー』（そう）　ページの最後に飛ぶ