Ｐａｇｅ 468 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼セル選択 dog 02/12/17(火) 20:30 ┗Re:セル選択 ぴかる 02/12/18(水) 8:05 ┗Re:セル選択 dog 02/12/18(水) 9:31 ┗Re:セル選択 ぴかる 02/12/18(水) 10:41 ┗Re:セル選択 dog 02/12/18(水) 11:27 ┣Re:セル選択 ぴかる 02/12/18(水) 12:33 ┃ ┗Re:セル選択 dog 02/12/18(水) 14:06 ┃ ┗Re:セル選択 ぴかる 02/12/18(水) 16:32 ┃ ┗Re:セル選択 ぴかる 02/12/18(水) 18:35 ┃ ┗Re:セル選択 つん 02/12/18(水) 22:44 ┃ ┗Re:セル選択 dog 02/12/19(木) 9:24 ┗Re:セル選択 こうちゃん 02/12/18(水) 13:33 ─────────────────────────────────────── ■題名 ： セル選択 ■名前 ： dog ■日付 ： 02/12/17(火) 20:30 -------------------------------------------------------------------------
| 自分が選んだランダムなセルの場所に貼り付けなどの動作 をさせるにはどうしたらよいのでしょうか？ 誰か教えてください。 |
| dogさん、おはようございます。 >自分が選んだランダムなセルの場所に貼り付けなどの動作 >をさせるにはどうしたらよいのでしょうか？ >誰か教えてください。 こういう単純なことでＯＫなのかな？。的外れだったらゴメンナサイ。 ActiveSheet.Paste |
| ぴかる さん ありがとうございます。 的外れではありませんよ。 できればもう一つ質問があります。 例えば、もしどこかのセルを選んだらこの動作をさせるといったことは どのようにしたらできるのでしょうか？ できれば、教えてください。 >dogさん、おはようございます。 > >>自分が選んだランダムなセルの場所に貼り付けなどの動作 >>をさせるにはどうしたらよいのでしょうか？ >>誰か教えてください。 >こういう単純なことでＯＫなのかな？。的外れだったらゴメンナサイ。 > ActiveSheet.Paste |
| ▼dog さん： 該当シートモジュールに下記マクロをコピーして下さい。 貼付可能状態でセルA1もしくはセルB1をセレクトした時に実行されます。 お試し下さい。 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If (Application.CutCopyMode = xlCopy) And _ ((Target.Address = "$A$1") Or (Target.Address = "$B$1")) Then ActiveSheet.Paste End If End Sub |
| ご回答ありがとうございます。 もう少しで思い通りにできそうです。 やりたいのは Private Sub CommandButton3_Click() Range("E700:H704").Select Selection.Copy のようにボタンを押したら指定のところをコピーして 選んだセルのところに貼り付けることをしたいのですが、 どうやってマクロをかいたらいいのでしょうか？ >該当シートモジュールに下記マクロをコピーして下さい。 >貼付可能状態でセルA1もしくはセルB1をセレクトした時に実行されます。 >お試し下さい。 >Private Sub Worksheet_SelectionChange(ByVal Target As Range) > > If (Application.CutCopyMode = xlCopy) And _ > ((Target.Address = "$A$1") Or (Target.Address = "$B$1")) Then > ActiveSheet.Paste > End If > >End Sub |
| ▼dog さん： >Private Sub CommandButton3_Click() > Range("E700:H704").Select > Selection.Copy ↑を実行した後、Ａ１をセレクトしたら貼付しませんでした？。 勘違いしてるかもしれませんが・・・。 |
| たびたびですが、 確かに貼り付けることはできました。 ごめんなさい説明不足でした。 私のやりたい流れとしては ボタンを押したら同時に例えばE列の何も文字などがないところ に貼り付けることをしたいのです。 できればやり方を教えてください。 >>Private Sub CommandButton3_Click() >> Range("E700:H704").Select >> Selection.Copy >↑を実行した後、Ａ１をセレクトしたら貼付しませんでした？。 >勘違いしてるかもしれませんが・・・。 |
| ▼dog さん： >私のやりたい流れとしては >ボタンを押したら同時に例えばE列の何も文字などがないところ >に貼り付けることをしたいのです。 具体的な条件を示して頂かないと、現状ではお答えする事が出来ません。 例） 貼付位置はＥ列の空白最上段とか・・・。 Range("E65536").End(xlUp).Select ActiveSheet.Paste |
| 例） >貼付位置はＥ列の空白最上段とか・・・。 > Range("E65536").End(xlUp).Select > ActiveSheet.Paste あっ、これ間違ってますね。ゴメンです。あえて訂正はしませんが・・・。 残念ながら、しばらくお答えすることが出来ません。申し訳ないです。 ていうことで失礼します。 |
| こんばんは〜 横から失礼します。 えっと、ずっと拝見してたのですが、 ひょっとして、dogさんがされたいのは、 コピーしたいセルをクリック→コマンドボタンをクリック→Range("E700:H704") の値を最初にクリックしたセルに貼り付け・・・ちゅーことでしょうか？ だったら、 Private Sub CommandButton1_Click() Range("E700:H704").Copy Destination:=ActiveCell End Sub これでええんではないでしょうか？ お試しください。 と、ここまで書いて、こうちゃんさんのレスを見たら・・・ こうちゃんさんのでも、同じ動作しますね♪ こうちゃんさんのは、いったんクリップボードにコピーしてますが、私のは直接貼り付けてまーす。 |
| どうもありがとうどざいます。 思い通りにできました。 >こんばんは〜 >横から失礼します。 > >えっと、ずっと拝見してたのですが、 >ひょっとして、dogさんがされたいのは、 > >コピーしたいセルをクリック→コマンドボタンをクリック→Range("E700:H704") >の値を最初にクリックしたセルに貼り付け・・・ちゅーことでしょうか？ >だったら、 > >Private Sub CommandButton1_Click() > > Range("E700:H704").Copy Destination:=ActiveCell > >End Sub > >これでええんではないでしょうか？ >お試しください。 >と、ここまで書いて、こうちゃんさんのレスを見たら・・・ >こうちゃんさんのでも、同じ動作しますね♪ >こうちゃんさんのは、いったんクリップボードにコピーしてますが、私のは直接貼り付けてまーす。 |
| dogさん、こんにちは ぴかるさん、横レス失礼しますね。 >Private Sub CommandButton3_Click() > Range("E700:H704").Select ここでセレクトせずにコピーのみして、そのままペーストすれば現在のアクティブセルのに貼り付けできませんか？ Range("E700:H704").Copy ActiveSheet.Paste |