• 締切済み

エクセルでクリックすると?

エクセル2000です。 たとえば、A1をクリックしたら B3:D4のデータをコピーして B8に値の貼り付けをしたいのです。(これは1月のデータ) 次にB1でもよいのですがクリックしたら、 B3:D4のデータをコピーして B10に値の貼り付けを(1月の貼り付けたデータの下に。2月のデータ)。。。というふうに 12月までを毎月貼り付けたいのですが、よろしくお願いします。

みんなの回答

noname#8445
noname#8445
回答No.2

クリックでいけます 対象のシートのコードに Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) gyo = Target.Row retu = Target.Column If gyo = 1 And retu = 1 Then '処理 End If End Sub

mimi923
質問者

お礼

ありがとうございます。しかし、gyo= のところでコンパイルのエラーがでます。

  • KenKen_SP
  • ベストアンサー率62% (785/1258)
回答No.1

マクロで実現可能です。 クリックではないのですが、ダブルクリックなら、、 Worksheet_BeforeDoubleClickイベントにご希望の処理を書けば良いと思います。

mimi923
質問者

お礼

ありがとうございます。 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Range("B3:D4").Select Selection.Copy Range("B8").Select Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _ xlNone, SkipBlanks:=False, Transpose:=False End Sub でよいですか?と言うかA1をダブルクリックしたら という条件をいれたいのですが?

関連するQ&A

  • EXCEL VBAを使ってマクロを組んだのですが、消えてしまいます。

    VBAを使ってマクロをEXCELに組んだのですが、貼り付け先のデータをダブルクリックするとデータが消えてしまいます。 組んでいるマクロは (前提) ファイルA・・コピー元データ ファイルB・・貼り付け先データ (内容) Aファイルでマクロを実行すると、Aファイルの内容がBファイルにコピーされるというものです。 Aファイルの元データは数式のため、Aファイル内でいったん値として貼り付けてから再度コピーして、Bファイルに貼りつけています。 Aファイルは自分で作成したものですが、Bファイルは他社作成のため、もろもろ変更ができません。 Aファイルにもロックが必要のため、保護をかけています。(ロック、表示ともに) マクロ実行後、Bファイルの貼りつけされたデータをダブルクリックすると、ダブルクリックしたセル内容が消えてしまいます。 まったく原因がわからず困っています。すみませんがどなたかわかるかたお願いいたします。

  • Excelの貼り付けについて

    Excelの貼り付けについて教えて下さい。 通常だと、A1のセルに貼り付けをした場合、 B1・C1・D1という風に右のセルに貼り付けされると思いますが、 これを D1のセルを選択して、D1・C1・B1・A1という風に左に貼り付けたいのですが可能でしょうか。

  • エクセルのコピー

    エクセルで表を作っています。 エクセルで関数をつかって、打ち出した表を、 右クリックでコピーして貼り付けをすると、 式を使っているためか、「#REF!」とでてきてしまいます。 関数はコピーせず、値だけを(おなじエクセルの中で)コピーする方法を教えてください。よろしくおねがいします。 下記のような状況です。 -------------------------------------- A1  l A2 lA3 lA4l A5 -------------------------------------- いろは街l 5 l 6l 7l 18(←ここに合計・B2+B3+B4の式が書いてあります) --------------------------------------

  • エクセルで縦列を横列にコピーしたい

    エクセルで縦列のデータを横列にコピーしていきたいのです。例えばA40のセルに「=G3」と入力し横にコピーしていくとB40には「H3」、C40には「I3」、D40には「J3」・・・・となります。そうではなく、B40には「G4」、C40には「G5」、D40には「G6」・・・・の値が入るようにしたいのです。この場合A40のセルにどのような式を入力してコピーしていけばいいのでしょうか。(複数列あり「形式を選択して貼り付け-行列を入れ替える」では上手くできません。)

  • Excelに関する質問

    お尋ねします。メモ帳にあるファイルをドラッグして、デ^タの色を変えたのち、マウスを右クリックしてメニュウのうちコピーをクリックしてメモ帳を閉じ、つぎに空白の Excelのbookをひらき、マウスをA1に合わせて、右クリックしてメニュウの貼り付けを選び、貼り付けのオプションの先頭にある紙ばさみの絵柄をクリックすると、メモ帳のデータはExcelにコピーされます。ただし困ったことに、Excelにコピーされたデータはすべて1行ずつ空白の行が挿入されています。下図のように メモ帳 excel 123456689 123456789 987654321 987654321 メモ帳のデータは最少のフォントにしても、どうしても空白の行ができてしまいます。っ解決方法を教えてください。なをExcelのヴァージョンは6.3です。 987654321 ※OKWaveより補足:「富士通FMV」についての質問です。

  • エクセルのマクロを教えてください。

    初心者です。 エクセルで次のような操作をしたいのです。 ブック1のセルA1に入っている値の新しいブックを作る。 その新しく作ったブックのセルB1からB10へ元からあるブックの セルB1からB10までの値をコピー、貼り付けする。 ボタンを押したら、上記の様な動作をするにはどうしたら良いでしょうか? なお、ブック1のセルA1の値はその度、変化するので、新しく作られる ブック名もその度変わるようにしたいのです。 宜しくお願いします。

  • エクセルの文字列中の指定した位置の文字列の置き換え(REPLACE)。

    エクセルの文字列中の指定した位置の文字列の置き換え(REPLACE)。 エクセルのセルA1に 「A123B1234X9876C123DD」と入力されています。 これを 「A123-B123X9876-C123-DD」としたいです。 現在 ・B1のセルに=REPLACE(A1,5,0,"-") ・C1のセルに=REPLACE(B1,15,0,"-") ・D1のセルに=REPLACE(C1,20,0,"-") と入れて、D1にできた値の 「A123-B123X9876-C123-DD」 をコピーして E1のセルに「形式を選択して貼り付け」「値」で貼り付けして B1~D1を削除して ・A1のセルには元の「A123B123X9876C123DD」 ・B1のセルには編集後の「A123-B123X9876-C123-DD」 が表示されるようにしています。 このA列が100行もあるとうんざりです。 式をオートフィルでコピーしていくのですが  ・B1に式を入れてオートフィルでB100までコピー  ・C1に式を入れてオートフィルでC100までコピー  ・D1に式を入れてオートフィルでD100までコピー  ・D1~D100をコピーしてE1~E100に「形式を選択して貼り付け」「値」で貼り付け  ・B,C,D列を列削除  3回は式を入れないといけないです。一発で編集する方法はありますでしょうか?

  • Excelでお尋ねしたい事があります。

    エクセルのデータを下記のようにするのに 良い方法があれば教えて下さい。    A   B         A   B   C   D  1 AAA 100      1 AAA 100 101 102 2 AAA 101  ⇒   2 BBB 100 101 102 3 AAA 102      3 CCC 100 101 102 4 BBB 100      5 BBB 101 6 BBB 102 7 CCC 100 8 CCC 101 9 CCC 102 A列にある同一のデータを一行にして B列のデータを一行にした列に持っていく作業です。 現在は、A列にある同一データのB列をコピー。 行列を入れ替えて貼り付け。 B列が空いた所を行事削除しています。 このデータが何千とありまして… 延々とコピー、貼り付け、削除。 をしています。 何か良い方法があれば教えて下さい。 よろしくお願いします。

  • エクセルについて、

    エクセルについて、 A1は空白、B1には=IF(A1=0,"",A1)、C1にB1をコピー-値貼り付け、D1に=IF(C1>0,1,0)とすると、D1には1と表示されます。C1には値は表示されていないのになぜそうなるのでしょうか?おそらくC1には何かデータが入ってているのでしょうが、これを削除してC1を空白セルにするにはどうしたらいいのでしょうか?

  • エクセルで、書式+データーの貼り付け方法

    Excelのバージョン:2000 セルA1をB1に貼り付ける場合、A1で右クリックしコピー、B1で右クリックし貼り付けでデーターと書式が貼り付けられる。 また、B1に=A1 リターンキーで、データーは貼り付けられるが塗るつぶしがなどの書式は張り付かない。 関数などいろいろ探したが良い方法が見つかりません。 データーと書式共に貼り付ける良い方法を教えてください。

専門家に質問してみよう