2017-01-23 5 views
-2

私は以下のVBAコードを持っており、ABはいくつかの文字列を保持しています。これらの値を他の文字列と連結して結果を別のセルに格納したいのですが、のみABの文字列は太字で、残りは通常のテキストとしてフォーマットします。セルの値の一部を太字に変換する方法

Set A = Worksheets("Mapping").Cells(rowNumber, columnNumber) 
Set B = Worksheets("Mapping").Cells(rowNumber, 3) 

' E.g.: A="currency", B="Small Int" 

Worksheets("TestCases").Cells(i, 2) = "Verify the column " & A & " has same Data type " & B & " in code as well as Requirement document" 

期待出力:

カラム通貨を確認有する同じデータタイプ小型のIntコードならびに要件文書で

注:Aの値とBが変更されているので、Characters()機能を使用することはできません。

ご協力いただければ幸いです。

+0

:私は手でインデックスを再計算することなく、それらを後から変更することができるように個人的に、私は、変数の静的文字列を格納しますあなたがそれをしたい理由)。ただし、変数の表示方法は、表示する場所に応じて変更できます。 [MsgBoxに太字のテキストを表示する](https://www.google.com.br/webhp?sourceid=chrome-instant&ion=1&espv=2&ie=UTF-8#q=vba%20msgbox %20bold)または[セル内にテキストを太字で表示する](https://www.google.com.br/webhp?sourceid=chrome-instant&ion=1&espv=2&ie=UTF-8#q=vba%20cell% 20font%20bold)。あなたがそれらのいずれかを望むなら、Googleはあなたの友人であり、それを手伝ってください –

+0

[Excel vbaは文字列の太字のテキストをセルに設定できますか?](http://stackoverflow.com/questions/11644566/excel- vba-set-bold-specific-string-of-the-cell) – Lankymart

+0

お返事ありがとうございます。 質問を更新しました。もう一度確認してください。 –

答えて

-1

フォントスタイルを変更する機能は次のとおりです。

[Cells/Cell range].Font.FontStyle = "Bold" 

そのためかもしれない仕事のようなもの:

Worksheets("Mapping").Cells(rowNumber, columnNumber).Font.FontStyle = "Bold" 

あなたはまた、物事が取り消し線などの下線を持たせることができます...私は本当にこれを見つけましたあなたが知る必要があるものをすべて網羅する役に立つブログ記事:

http://software-solutions-online.com/excel-vba-formating-cells-and-ranges/#Jump4

+0

お返事ありがとうございます。 質問を更新しました。もう一度確認してください。 –

-1

は、私はあなたがこの情報を自分で検索しましべきだと思う...それにもかかわらず、これはあなたが大胆にいくつかのセルのデータを変換するために使用する必要があるコードです:

Worksheets("Mapping").Cells(rowNumber, columnNumber).Font.Bold = True 
+0

お返事ありがとうございます。 質問を更新しました。もう一度確認してください。 –

+2

私はこれ以上のコメントはありません。私が言ったように、あなたはこの種の質問をするべきではありません...あなたが尋ねる前に十分な研究をしていないようです。 変数を太字に変換するだけで問題が解決しない場合は、必要な処理を行い、次に述べたように太字に変換する必要があります。 –

0

あなたCharacters()メソッドを使用することができます - あなただけの部分文字列の長さを追跡する必要があります。私はシングルを考えることはできません(あなたが太字に変数を変換することはできません

' Untested 

Set A = Worksheets("Mapping").Cells(rowNumber, columnNumber) 
Set B = Worksheets("Mapping").Cells(rowNumber, 3) 
Dim S1 = "Verify the column " 
Dim S2 = " has same Data type " 
Dim S3 = " in code as well as Requirement document" 

With Worksheets("TestCases").Cells(i, 2) 
    .Value = S1 & A & S2 & B & S3 
    .Characters(Len(S1), Len(A)).Font.Bold 
    .Characters(Len(S1)+Len(A)+Len(S2), Len(B)).Font.Bold 
End With 
関連する問題