Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10372 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【22229】アクティブなセル範囲に貼り付け 徒人 05/2/12(土) 19:37 質問[未読]
【22230】Re:アクティブなセル範囲に貼り付け ponpon 05/2/12(土) 20:09 回答[未読]
【22232】Re:アクティブなセル範囲に貼り付け かみちゃん 05/2/12(土) 20:20 発言[未読]
【22233】Re:アクティブなセル範囲に貼り付け 徒人 05/2/12(土) 20:32 質問[未読]
【22235】Re:アクティブなセル範囲に貼り付け ponpon 05/2/12(土) 21:05 回答[未読]
【22236】Re:アクティブなセル範囲に貼り付け 徒人 05/2/12(土) 21:43 質問[未読]
【22238】Re:アクティブなセル範囲に貼り付け かみちゃん 05/2/12(土) 22:11 発言[未読]
【22240】Re:アクティブなセル範囲に貼り付け ponpon 05/2/12(土) 22:30 回答[未読]
【22241】Re:アクティブなセル範囲に貼り付け 徒人 05/2/12(土) 22:53 お礼[未読]
【22247】Re:アクティブなセル範囲に貼り付け おさる 05/2/13(日) 12:53 回答[未読]
【22229】アクティブなセル範囲に貼り付け
質問  徒人  - 05/2/12(土) 19:37 -
引用なし
パスワード
   　はじめまして、基本的なことなんだと思うのですが教えてください。
アクティブなセル範囲に形式指定の貼り付けをしたいのです、わからないのが

　ActiveSheet.○○○ PasteSpecial Paste:=xlPasteAllExceptBorders

○の部分に何を入れればアクティブなセル範囲に貼り付けれるのでしょう？
又はまったく違う方法があるのでしょうか？
【22230】Re:アクティブなセル範囲に貼り付け
回答  ponpon  - 05/2/12(土) 20:09 -
引用なし
パスワード
   ▼徒人 さん：
ponponです。こんばんは。

>　ActiveSheet.○○○ PasteSpecial Paste:=xlPasteAllExceptBorders
>
>○の部分に何を入れればアクティブなセル範囲に貼り付けれるのでしょう？
>又はまったく違う方法があるのでしょうか？

Sub test()
　　ActiveSheet.Range("A1").Copy
　　Range("B1").PasteSpecial (xlPasteAllExceptBorders)
End Sub

Sub test2()
　　Worksheets("Sheet1").Range("A1:D4").Copy _
　　Destination:=Worksheets("Sheet2").Range("E5")
End Sub
【22232】Re:アクティブなセル範囲に貼り付け
発言  かみちゃん  - 05/2/12(土) 20:20 -
引用なし
パスワード
   ponponさん、こんにちは。かみちゃん　です。

>Sub test2()
>　　Worksheets("Sheet1").Range("A1:D4").Copy _
>　　Destination:=Worksheets("Sheet2").Range("E5")
>End Sub

これでは、
Range("E1").PasteSpecial (xlPasteAll)
と同じこととなり、xlPasteAllExceptBorders（罫線を除くすべて）と同じ結果を
得ることはできません。

もちろん、徒人さんが、「罫線も含めて貼り付けたい」なら、問題ないです。
【22233】Re:アクティブなセル範囲に貼り付け
質問  徒人  - 05/2/12(土) 20:32 -
引用なし
パスワード
   返答ありがとうございます
貼り付けの形式は「罫線無し」でＯＫです。ただ
貼り付け先が（"E5")等決められた場所でなく、今現在アクティブなセルに貼り付け
したいのです。
質問は変わるかもしれませんが、一度変数等にアクティブなセル情報を入れて
それを貼り付け場所にしたほうが良いのでしょうか？
【22235】Re:アクティブなセル範囲に貼り付け
回答  ponpon  - 05/2/12(土) 21:05 -
引用なし
パスワード
   ▼徒人 さん、かみちゃんさん。こんばんは。
かみちゃんさんありがとうございます。
>これでは、
>Range("E1").PasteSpecial (xlPasteAll)
>と同じこととなり、xlPasteAllExceptBorders（罫線を除くすべて）と同じ結果を
>得ることはできません。
ですよね。初心者ですので。(^^;

>アクティブなセルに
なら

Sub test()
　　ActiveSheet.Range("A1").Copy
　　ActiveCell.PasteSpecial (xlPasteAllExceptBorders)
End Sub
【22236】Re:アクティブなセル範囲に貼り付け
質問  徒人  - 05/2/12(土) 21:43 -
引用なし
パスワード
   回答ありがとうございます。
ただ私の予想とは若干違う結果が現れまして、てっきり私は複数セルを範囲指定して
それら全てに貼り付け（例えば赤色を貼り付け）ができると思っていたのですが、
実際は一番始めの一箇所しかセルに色は塗られませんでした。
自動記録を参照して、結合→色付→結合解除というのもうまくいきませんでしたし、
申し訳ありませんがこちらの方も教えて頂けませんでしょうか
【22238】Re:アクティブなセル範囲に貼り付け
発言  かみちゃん  - 05/2/12(土) 22:11 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

>ただ私の予想とは若干違う結果が現れまして、てっきり私は複数セルを範囲指定して
>それら全てに貼り付け（例えば赤色を貼り付け）ができると思っていたのですが、
>実際は一番始めの一箇所しかセルに色は塗られませんでした。

何がしたいのかが書かれていないので、よくわかりません。
現在の状態と期待する結果をはっきりさせて、再度質問を整理していただけないでしょうか？
【22240】Re:アクティブなセル範囲に貼り付け
回答  ponpon  - 05/2/12(土) 22:30 -
引用なし
パスワード
   ▼徒人 さん：
ponponです。こんばんは。
何がしたいかよくわからないのですが、アクティブなセルは一つだけですから
一つだけに貼り付けられると思います。

>てっきり私は複数セルを範囲指定して
>それら全てに貼り付け（例えば赤色を貼り付け）ができると思っていたのですが、

貼り付ける範囲を選択して実行してみてください。

Sub test()
　　ActiveSheet.Range("A1").Copy
　　Selection.PasteSpecial (xlPasteAllExceptBorders)
End Sub
【22241】Re:アクティブなセル範囲に貼り付け
お礼  徒人  - 05/2/12(土) 22:53 -
引用なし
パスワード
   説明が足りませんでしたね。すいません
範囲指定のほうは解決しまして、それとは別の話で
要はA1の書式（今は色です）を取得、それをC1:F3へ色づけ。
ということがしたかったのです。
調べたつもりですがわからなかったものですから、すいません
【22247】Re:アクティブなセル範囲に貼り付け
回答  おさる  - 05/2/13(日) 12:53 -
引用なし
パスワード
   こういうこと？

Sub iro()
With ActiveSheet
　.Range("c1:f3").Font.ColorIndex = .Range("a1").Font.ColorIndex
End With
End Sub
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10372 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free