Ｐａｇｅ 804 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼ＶＢからＥｘｃｅｌのセルをコピーしたいのですが 鹿 03/2/24(月) 18:16 ┣Re:ＶＢからＥｘｃｅｌのセルをコピーしたいのですが よろずや 03/2/24(月) 23:24 ┃ ┗ありがとうございます。 鹿 03/2/25(火) 9:34 ┃ ┗Re:ありがとうございます。 よろずや 03/2/25(火) 22:52 ┗Re:ＶＢからＥｘｃｅｌのセルをコピーしたいのですが 鹿 03/2/26(水) 11:06 ┗Re:ＶＢからＥｘｃｅｌのセルをコピーした... こう 03/2/26(水) 13:17 ┗Re:ＶＢからＥｘｃｅｌのセルをコピーした... 鹿 03/2/26(水) 15:00 ┗Re:ＶＢからＥｘｃｅｌのセルをコピーした... つん 03/2/27(木) 10:58 ─────────────────────────────────────── ■題名 ： ＶＢからＥｘｃｅｌのセルをコピーしたいのですが ■名前 ： 鹿 ■日付 ： 03/2/24(月) 18:16 -------------------------------------------------------------------------
| ＶＢにて今、立ち上がっている特定のＢｏｏｋ＆Ｓｈｅｅｔで 指定されたセルを指定したセルへコピーしたいのですが？ よろしくお願いいたします |
| ▼鹿 さん： >ＶＢにて今、立ち上がっている特定のＢｏｏｋ＆Ｓｈｅｅｔで >指定されたセルを指定したセルへコピーしたいのですが？ >よろしくお願いいたします まずは、今開いてるブックを捕まえるところからですか？ ヘルプで GetObject 関数 あたりを探してよく読んでください。 読み終えたら、次の質問をどうぞ。 |
| 下記のようにselectまではＯＫなのですが selection.Copyがどうやったらそしてpasteがどうやったら うまくいくのか教えてください。 With XLS.Application .Visible = True .Windows("CdFormat.xls").Visible =True .Worksheets("sheet1").Range("E3:E3").Select End with よろしくお願いいたします。 |
| ▼鹿 さん： >下記のようにselectまではＯＫなのですが >selection.Copyがどうやったらそしてpasteがどうやったら >うまくいくのか教えてください。 >With XLS.Application > .Visible = True > .Windows("CdFormat.xls").Visible =True .Worksheets("Sheet1").Range("E3").Copy _ Destination:=.Worksheets("Sheet2").Range("E5") >End with ってな感じですかね。 |
| よろずやさん、本当にありがとうございます。 できましたら同じシート内にコピーしたいのですが、、、。 下記のようにＳｈｅｅｔ１のセルＥ３をＳｈｅｅｔ１のセルＥ５にコピーしたい場合は どうすればいいのでしょうか？ With XLS.Application .Visible = True .Windows("CdFormat.xls").Visible =True .Worksheets("Sheet1").Range("E3").Copy _ End with |
| 鹿さん、よろずやさん、こんにちわ。 VBからは試していませんが... >下記のようにＳｈｅｅｔ１のセルＥ３をＳｈｅｅｔ１のセルＥ５にコピーしたい場合は >With XLS.Application > .Visible = True > .Windows("CdFormat.xls").Visible =True .Worksheets("Sheet1").Range("E5") = .Worksheets("Sheet1").Range("E3") >End with |
| ありがとうございます。 出来ました。 できましたらもう１回愚問を、、、。 sheet2のA1からC1までをsheet1のA1からC1にコピーしたいのですが、、、。 sheet2のA1からC1までのセルは結合されています。 結合したままうまくコピーさせたいのですが。 よろしくお願いします |
| 鹿 さん、おはようございます。 横から失礼します。 >sheet2のA1からC1までをsheet1のA1からC1にコピーしたいのですが、、、。 >sheet2のA1からC1までのセルは結合されています。 >結合したままうまくコピーさせたいのですが。 Sub test() Worksheets("Sheet2").Range("a1:c1").Copy _ Destination:=Worksheets("Sheet1").Range("a1") End Sub これでは、あかんのかな？ これで、普通にsheet2のA1からC1をコピーして、 sheet1のA1に貼り付けたのと同じ状態ですが・・・ こんな簡単なことじゃないのかな・・・？？？？ |