質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

ただいまの
回答率

88.62%

Excel_VBAのフォントの色コピーを教えて下さい。

解決済

回答 2

投稿 編集

  • 評価
  • クリップ 0
  • VIEW 5,776

mrrclb48z

score 15

Excel_VBAのフォントの色コピーを教えて下さい。
'(参考)クリップボードを使わないセルのCopy|ExcelマクロVBA技術解説
'http://excel-ubara.com/excelvba4/EXCEL254.html
'----------------------------------------------------------------------------------------
'セルの文字(一部だけ色)をコピーする。
'入力
'A列1行 '123
'2だけ赤色,1と3は黒色
'出力実行結果
'B列1行 '123全部黒色になります。
'Charactersの使い方を教えて下さい。よろしくお願いします。
'
Sub sample()
Call sample_sub(Range("A1:A7"), Range("B1"))
End Sub
Sub sample_sub(fromRange As Range, toRange As Range)
Dim s As String
Dim i As Long
Dim j As Long
For i = 1 To fromRange.Rows.Count
For j = 1 To fromRange.Columns.Count
toRange.Cells(i, j).Value = fromRange.Cells(i, j).Value
For k = 1 To Len(fromRange.Cells(i, j).Value)
toRange.Cells(i, j).Characters(k, k).Font.ColorIndex = fromRange.Cells(i, j).Characters(k, k).Font.ColorIndex
Next
Next
Next
End Sub

  • 気になる質問をクリップする

    クリップした質問は、後からいつでもマイページで確認できます。

    またクリップした質問に回答があった際、通知やメールを受け取ることができます。

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

    • 質問内容が明確
    • 自分も答えを知りたい
    • 質問者以外のユーザにも役立つ

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 過去に投稿した質問と同じ内容の質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

回答 2

checkベストアンサー

0

一文字ずつ処理していくコードに見えますので期待する動作は以下ではないでしょうか。

誤:
toRange.Cells(i, j).Characters(k, k).Font.ColorIndex = fromRange.Cells(i, j).Characters(k, k).Font.ColorIndex

正:
toRange.Cells(i, j).Characters(k, 1).Font.ColorIndex = fromRange.Cells(i, j).Characters(k, 1).Font.ColorIndex 

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

0

使い方

Charactersの使い方は以下に記載されています。
⇒Range.Characters プロパティ (Excel)

原因

上記ページを見ていただければわかると思いますが、引数の1つ目が文字列の取得位置、2つ目が取得する長さとなっています。

今回の処理では、文字列から文字を1文字ずつ取得して文字色を写していきたいのだと思いますが、提示いただいたコードでは、
fromRange.Cells(i, j).Characters(k, k).Font.ColorIndex 
のように2つ目の引数まで変数kの値としてしまっています。

これだと、仮にセルの値が"ABCDEFG"という文字列だった場合に
kループ1回目:Characters(1, 1)⇒"A"
kループ2回目:Characters(2, 2)⇒"BC"
kループ3回目:Characters(3, 3)⇒"CDE"
・・

といった具合に、取得する文字列の長さも増えていってしまいます。

例えばループ2週目で取得した文字列"BC"がともに赤ならFont.ColorIndexは赤(3)を取得できますが、BとCで色が異なる場合はFont.ColorIndexはNullとなり、結果的に黒文字として反映されてしまいます。

改修コード

期待する動作とするためには、問題の部分を以下のように修正すればよいと思います。

toRange.Cells(i, j).Characters(k, 1).Font.ColorIndex = fromRange.Cells(i, j).Characters(k, 1).Font.ColorIndex


ご確認ください。

投稿

編集

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2016/09/12 22:06

    式.Characters(Start, Length)
    ありがとうございました。

    キャンセル

15分調べてもわからないことは、teratailで質問しよう!

  • ただいまの回答率 88.62%
  • 質問をまとめることで、思考を整理して素早く解決
  • テンプレート機能で、簡単に質問をまとめられる

関連した質問

同じタグがついた質問を見る