Excel VBA質問箱 IV

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

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


5417 / 13646 ツリー ←次へ | 前へ→

【50864】セルのコピー りょう 07/8/20(月) 16:12 質問[未読]
【50869】Re:セルのコピー かみちゃん 07/8/20(月) 22:39 発言[未読]
【50870】Re:セルのコピー 07/8/20(月) 22:43 回答[未読]
【50932】Re:セルのコピー りょう 07/8/22(水) 17:25 お礼[未読]

【50864】セルのコピー
質問  りょう  - 07/8/20(月) 16:12 -

引用なし
パスワード
   初歩的なことで申し訳ないのですが、教えてください。
Ceiis(i+1,5)のセルは合否判定をさせていて、不合格のときは文字がピンクに表示するようになっています。
不合格の場合、ピンク色の文字で貼り付けしたいのですが、こういうときは下記の方法ではなく、copy&pasteでやらないとだめなのでしょうか?

i = activeCell Row
Sheets("現行").Cells(i + 1, 5) = Sheets("貼付").Cells(37, 5)

【50869】Re:セルのコピー
発言  かみちゃん  - 07/8/20(月) 22:39 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>不合格の場合、ピンク色の文字で貼り付けしたいのですが、こういうときは下記
>の方法ではなく、Copy & Pasteでやらないとだめなのでしょうか?

Copy Paste でもいいですが、以下のようなコードでもできると思います。
つまり、コピー先の値をコピー元の値にして、コピー先のフォントの色をコピー元
のフォントの色にするというコードにします。

Sub Test()
 Dim i As Long
 Dim rng1 As Range
 Dim rng2 As Range
 
 i = ActiveCell.Row

 Set rng1 = Sheets("貼付").Cells(37, 5)
 Set rng2 = Sheets("現行").Cells(i + 1, 5)
 
 rng2.Value = rng1.Value
 rng2.Font.ColorIndex = rng1.Font.ColorIndex
End Sub

上記のコードは、rng1 と rng2 の設定が逆なのかもしれませんが、そこは、
提示されたコードが正しい処理という理解に基づいています。

【50870】Re:セルのコピー
回答    - 07/8/20(月) 22:43 -

引用なし
パスワード
   ▼りょう さん:
こんばんは

>不合格の場合、ピンク色の文字で貼り付けしたいのですが、
Sheets("貼付").Cells(37, 5)に一般操作で
条件付書式で「不合格ならピンク」を設定してはどうでしょうか。


ちょっと気になるんですが
> Sheets("現行").Cells(i + 1, 5) = Sheets("貼付").Cells(37, 5)
 Sheets("貼付").Cells(37, 5)=Sheets("現行").Cells(i + 1, 5)
ではないですか?

マクロで書式を設定するには
>copy&pasteでやらないとだめなのでしょうか?
上記を実施してマクロ記録をとればフォンント設定の概要がわかります。

【50932】Re:セルのコピー
お礼  りょう  - 07/8/22(水) 17:25 -

引用なし
パスワード
   ▼岳 さん&かみちゃんさん

ありがとうございます。早速やってみます。

5417 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free