Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
18 / 13618 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【82199】VLOOKUPで文字色もコピーする方法 まき 23/10/18(水) 22:49 質問[未読]
【82204】Re:VLOOKUPで文字色もコピーする方法 まき 23/10/19(木) 23:00 回答[未読]
【82214】Re:VLOOKUPで文字色もコピーする方法 マナ 23/10/20(金) 17:06 発言[未読]
【82215】Re:VLOOKUPで文字色もコピーする方法 まき 23/10/20(金) 20:27 お礼[未読]
【82216】Re:VLOOKUPで文字色もコピーする方法 マナ 23/10/20(金) 21:00 発言[未読]
【82220】Re:VLOOKUPで文字色もコピーする方法 まき 23/10/24(火) 16:31 質問[未読]
【82222】Re:VLOOKUPで文字色もコピーする方法 マナ 23/10/25(水) 16:21 発言[未読]
【82223】Re:VLOOKUPで文字色もコピーする方法 まき 23/11/1(水) 22:53 発言[未読]
【82224】Re:VLOOKUPで文字色もコピーする方法 マナ 23/11/2(木) 19:30 発言[未読]
【82229】Re:VLOOKUPで文字色もコピーする方法 まき 23/11/8(水) 20:53 お礼[未読]
【82204】Re:VLOOKUPで文字色もコピーする方法
回答  まき  - 23/10/19(木) 23:00 -
引用なし
パスワード
   はい、複数色が混在します。
【82214】Re:VLOOKUPで文字色もコピーする方法
発言  マナ  - 23/10/20(金) 17:06 -
引用なし
パスワード
   ▼まき さん：

Sub test()
　　Dim rng As Range, m, k As Long
　　
　　Set rng = Worksheets("入力用").Columns(1).Cells
　　
　　For k = Range("B1").Value To Range("B2").Value
　　　　m = Application.Match(k, rng, 0)
　　　　If IsNumeric(m) Then
　　　　　　Range("A1").Value = k
　　　　　　CopyWithColor rng(m, 2), Range("C3")
　　　　　　CopyWithColor rng(m, 4), Range("D3")
　　　　　　CopyWithColor rng(m, 6), Range("E3")
　　　　　　ActiveSheet.PrintPreview
　　　　End If
　　Next
　　
End Sub

Private Sub CopyWithColor(rngFrom As Range, rngTo As Range)
　　Dim k As Long
　　
　　rngTo.Value = rngFrom.Value
'　　rngTo.Font.Color = rngFrom.Font.Color

　　For k = 1 To Len(rngTo.Value)
　　　　rngTo.Characters(k, 1).Font.Color = rngFrom.Characters(k, 1).Font.Color
　　Next

End Sub
【82215】Re:VLOOKUPで文字色もコピーする方法
お礼  まき  - 23/10/20(金) 20:27 -
引用なし
パスワード
   ありがとうございます。
すぐに確認ができないので後日確認してみようと思うのですが、説明が不足していた部分があり、代入場所がC3ではなくC3とC4など結合されている場合も同じものでいけるでしょうか。
【82216】Re:VLOOKUPで文字色もコピーする方法
発言  マナ  - 23/10/20(金) 21:00 -
引用なし
パスワード
   ▼まき さん：
>C3とC4など結合されている場合も同じものでいけるでしょうか。

たぶんOK
【82220】Re:VLOOKUPで文字色もコピーする方法
質問  まき  - 23/10/24(火) 16:31 -
引用なし
パスワード
   遅くなりました。
確認をしたところ全ての動作は思い通りできていました。
一点だけ文字と文字色を読み込むのに時間がかかるのですがそれはどうしょうもないことなのでしょうか。
【82222】Re:VLOOKUPで文字色もコピーする方法
発言  マナ  - 23/10/25(水) 16:21 -
引用なし
パスワード
   ▼まき さん：

１文字ずつ処理しているので仕方がないです。
罫線とか背景色等の他の書式もコピーして良いなら
セル単位で処理できるので早いです。
【82223】Re:VLOOKUPで文字色もコピーする方法
発言  まき  - 23/11/1(水) 22:53 -
引用なし
パスワード
   ▼マナ さん：
>▼まき さん：
>
>１文字ずつ処理しているので仕方がないです。
>罫線とか背景色等の他の書式もコピーして良いなら
>セル単位で処理できるので早いです。

セルごとの方法も教えていただけたら幸いです。
【82224】Re:VLOOKUPで文字色もコピーする方法
発言  マナ  - 23/11/2(木) 19:30 -
引用なし
パスワード
   ▼まき さん：

Private Sub CopyWithColor(rngFrom As Range, rngTo As Range)

　　rngTo.UnMerge
　　rngFrom.Copy rngTo
　　rngTo.Resize(2).Merge

End Sub
【82229】Re:VLOOKUPで文字色もコピーする方法
お礼  まき  - 23/11/8(水) 20:53 -
引用なし
パスワード
   遅くなりました。
最初のやり方ですることにしました。
毎回、丁寧に迅速な回答ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
18 / 13618 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free