• 締切済み

マクロ(エクセル)を利用しての貼付

マクロを利用して、既定のセル(例:A1)に貼付は出来るのですが、マクロを実行するときに、貼付したいセルを選択後(毎回違ったセル)に貼付できるマクロはどのようにして作るのでしょうか。  どなたかご存知の方がいらっしゃいましたらご回答をお待ちしております。

みんなの回答

  • imogasi
  • ベストアンサー率27% (4737/17068)
回答No.5

コピー(セルの値と書式等)をFrom->Toにするとしてとして (1)Fromのセルはどのように区別するのか(一連のエクセルの操作で、これが始まる操作は何か)    コピーをするのか    セルのクリックだけか    その他ボタンを(貼り付けておいて)クリックするとか (2)Toのセルは、複数あるとして、     クリックだけで指定するのか     ボタンをクリックするのか     貼り付け先の指定の繰り返しの終わりはどうするのか そういうことを、質問の上で明確に表現しないと、回答者を悩ますことになる。質問者の頭のイメージは、表現しないと、質問を読む人に 判らないのです。実例でも挙げて表現してください。 またこんな部分的なことをマクロで実行して、実務などに役立つのですかね。仕事全体の中の本質問の位置づけを説明するのも、回答者の意欲を刺激すると思う。

回答No.4

こんにちは。 > どのようにして作るのでしょうか。 マクロの記録で十分です。特に難しい操作はないです。 1.コピーしたいセルを選択し「コピー」を実行 2.貼り付けしたいセルを選択 3.マクロの記録を開始 4.「貼り付け」を実行 5.マクロの記録を終了 以上です。 記録したマクロを Visual Basic Editor で確認すると柿のような感じなっているはずです。 Sub Macro1() ' ' Macro1 Macro ' マクロ記録日 : 2006/4/27 ユーザー名 : GreatDragon ' ' ActiveSheet.Paste End Sub これでOKです。

noname#123709
noname#123709
回答No.3

#1です。 >貼付したいセルを選択後に貼付できるマクロ 単純に選択したセルに貼り付けるなら下記のような感じで。 Range("A1").Copy Destination:=ActiveCell

  • kokorone
  • ベストアンサー率38% (417/1093)
回答No.2

.Cells(row_idx,col_idx).PasteSpecial Paste:=xlValues こういうことでしょうか?? row_idx,col_idxは、変数。

noname#123709
noname#123709
回答No.1

曖昧すぎます。 貼り付けるセルを選択したという判断はどうやって行うのでしょうか? コピーのタイミングも然りです。 普通にコピー&ペーストでよいのでは? 条件を具体的にして下さい。

関連するQ&A

  • エクセルのマクロですが

    現在選択しているセルから10行下のセルまでを選択状態にするマクロを知りたいのですが。 (現在A5を選択している時に実行すると、A5からA15までが選択状態になります) よろしくお願いします。

  • エクセルのマクロについてです。

    マクロを作ったのですが、実行させようとすると『実行時エラー1004』というのが出て、うまく実行できません。微妙な操作(一つのセルをソートして選択すると実行できます)をすると実行出来ますが、毎回上記のエラーが出てしまいます。これを解消するにはどうすればよいでしょうか?

  • Excel(セルの結合マクロ)

    いつもお世話になっております。 Excelのマクロで、選択範囲の中で、下のセルが空白のものは、上のセルと結合されるマクロを作りたいと考えています。 (例1:A1セルに”TEST”が入力されており、A2,A3セルが空白として、A1:A3を選択し、マクロを実行するとA1からA3がセル結合される  例2:A1に”TEST2”B2に"TEST3"が入力されており、A1:B3を選択すると、A1からA3が結合され、B2とB3も結合される) 説明が下手で申し訳ないのですが、お力を貸していただけませんでしょうか? よろしくお願いいたします。

  • Excel マクロについて

    Excelで、セルを選択して、マクロを実行すると、その選択したセルに赤マル(オートシェイプの)がはいるようなマクロをつくりたいのですが・・・。まだ、マクロは使ったことが無いもので・・・。詳しくお願いします。

  • Excelの繰り返し&条件貼付マクロの併用について

    本来であれば参考書片手に作成するべき内容だとは思いますが 事務処理の期限が近いのでご質問させてください。 【やりたい事】 現在、Sheet1A行のセルにIF関数で条件式をいれ 正のものは「1」と表示されるようになっている。 Aセルにフラグ「1」が表示されている場合、同列B~ZセルまでをSheet2同セルにコピー。 Aセルにフラグがない場合は上記処理を飛ばす。 これを1列目から600列目まで繰り返すマクロを作成したい。 ※Sheet2に対してコピー処理がされなければ良いので必ずしも列を詰める必要はない また、出来れば今後の拡張を考えて1~600列を可変させたいので 範囲コピーではなく繰り返し条件を用いて上記マクロ作成したいと考えています。 単純にネット上で探した繰り返しと条件貼付マクロを併用してみたのですが 構文エラーは表示されないものの処理が行われません。 Sub 貼付マクロ() For i = 1 To 600 If "A & i "= 1 Then Sheets("Sheet1").Range("B & i: Z & i").Copy Sheets("Sheet2").Range("B & i: Z & i").PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False Else End If Next i End Sub Excelマクロ自体、通常の記録マクロと WEBに公開されているマクロのセル変更での利用程度しかしたことがない為 根本的な間違いがあると思いますがご教示いただけないでしょうか? よろしくお願い致します。

  • 画像を結合セルの大きさで貼付(以前に回答されたマクロについて)

    以前、下記ページで回答(公開)されていたマクロについてなのですが、 私に一番あっているので使わせて頂きたいと思っています。 http://oshiete.homes.jp/qa2300268.html その中で、貼付画像サイズが「縦横比維持」に設定されています。 画像を選択した結合セルの大きさで貼付るには、どこを、どのように修正すればいいのでしょうか? 宜しくお願い致します。m(_ _)m

  • エクセルでのマクロ作成

    エクセルで作成したボタンをクリックすると以下の事を行うマクロを作りたいと思っています。 (1)最初に貼り付けたいセルの範囲をドラッグで選択する。(手動) (2)マクロを登録したボタンを押す。 (3)マクロ内で指定したセル(たとえば $A$1)をコピーして、(2)でボタンを押してマクロを実行する前に(1)で選択したセルの範囲に貼り付ける。 VBAが分からないので難儀しています。 宜しくお願いします。

  • エクセル2013のマクロについて。

    Excel 2013のシートでセルに2桁の数字を入れていますがセルの書式設定でユーザー定義を"00"として数値が1桁の場合に頭にゼロがつくようにしてあります。このシートでマクロを作成した時、変数Aを"Dim A As Byte"と定義して、「A = "セル"」の式で マクロの実行が止まり、「実行時エラー'13':型が一致しません。」と出て数値として読み込めないようですがどなたか原因と解決方法ご存知の方教えて下さい。

  • エクセルのマクロでセル選択するには

    初心者です! エクセルのSheet1に30箇所のセルをマクロで選択したいのですが、 たまに選択するセルが変わります。 そこで、Sheet2のA1から下へSheet1の選択する位置を「B2」「C5」「D10」・・・としてマクロで一発で30箇所のセルを選択する方法を教えてください Sheet2のA1から下へ入力するセル位置はその都度変化します。 変化したときにそのマクロを実行すると選択できるといいのですが!! よろしくお願いします。

  • エクセル 特定セルの表示拡大マクロ

    エクセル2010のマクロについて質問させていただきます。 特定セルが選択された場合のみ表示を140%に拡大し、そのほかを選択した場合は100%に戻すマクロをご教授願います。 具体的な例としては エクセル A1~E4 で表を作成しています。 入力セルは A2,B2,C2,D2,E2,A4,B4,C4,D4,E4 の10カ所に数値を入力します。 上記10カ所を毎回選択するのか面倒なので「名前の管理」で10カ所を選択しています。 エクセルファイルを開くと10カ所を選択するマクロを実行しています。 その10カ所を範囲指定した中で選択セルを「Enter」で送っていき、「D2」もしくは「D4」セルを選択した場合のみ、表示倍率を上げそのほかのセルを選択した場合は表示倍率を戻すマクロをご教授願います。 名前の管理(範囲指定)を実行せずに、単にセルだけを選択した場合のマクロは作成できたのですが、範囲指定した中でのセル選択ではマクロが実行されませんでした。 単にセルだけを選択した場合拡大するマクロを記述しますので、よろしくお願いします。 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address() = "$D$2" Or Target.Address() = "$D$4" Then ActiveWindow.Zoom = 140 Else ActiveWindow.Zoom = 100 End If End Sub マクロを学び始めて間もないため、初歩的なミス、見当外れな質問をしてしまうかもしれませんが、何卒よろしくお願いします。

専門家に質問してみよう