12

文字列に太字のテキストを設定したいのですが、どうすればよいですか？

4

4 に答える 4

23

キャラクターを使用する。

Range("A1").Characters(8, 5).Font.Bold = True
于 2012-07-25T07:26:25.373 に答える
6

この動的な式を使用すると思います-

Range("A1").Characters(worksheetfunction.find("Excel",Range("A1").value,1),len("Excel")).font.bold = True
于 2013-10-01T11:55:08.117 に答える
1

迅速な修正が必要で、VBAの使用に慣れていない人のための別の方法：

  1. セル範囲をコピーしてWord文書に貼り付けます（最初は乱雑に見えます）。
  2. 「交換」（右上）に移動します。
  3. 太字にしたい単語を[Findwhat：]フィールドに入力し、同じ単語を[Replace with：]フィールドに入力し、[Replace With：]ボックスでCTRLBを押します。[Format：]が表示されます。フォント：太字」がその下に表示されます。
  4. [すべて置換]をクリックすると、対象となるすべての単語が太字になります。
  5. Excelテキスト（現在はWord）にカーソルを合わせると、テキストの左上に4つの矢印の小さな記号が表示されます。それをクリックしてセルを強調表示し、それらをコピーしてExcelに貼り付けることができます。

最速の方法ではありませんが、VBAに慣れておらず、簡単な修正が必要な場合は、これでうまくいきます。

太字だけでなく、斜体の場合はCTRL I、下線の場合はCTRLU。

于 2015-11-02T12:25:08.873 に答える
0

複数の特定のテキストを太字にする必要がある場合は、これを試してください。

Sub Find_and_Bold()
Dim rCell As Range, sToFind As String, iSeek As Long
Dim Text(1 To 4) As String
Dim i As Integer


Text(1) = "text1"
Text(2) = "text2"
Text(3) = "text3"
Text(4) = "text4"


For Each rCell In Range("C7:C1000")
    For i = LBound(Text) To UBound(Text)
            sToFind = Text(i)
            iSeek = InStr(1, rCell.Value, sToFind)
        Do While iSeek > 0
            rCell.Characters(iSeek, Len(sToFind)).Font.Bold = True
            iSeek = InStr(iSeek + 1, rCell.Value, sToFind)
        Loop
    Next i
Next rCell

End Sub

このソリューションのソースは次のとおりです。http ：//www.vbaexpress.com/forum/showthread.php？52245-Make-specific-text-bold-in-cells

于 2021-07-24T15:59:05.687 に答える