excel,複数のセルの中の”特定”の文字の

ポイントを変えるには?関数かマクロか
 どちらが簡単ですか、またその方法は?

回答の条件
  • 1人1回まで
  • 登録:2010/04/22 07:46:36
  • 終了:2010/04/29 07:50:02

回答(4件)

id:taknt No.1

きゃづみぃ回答回数13537ベストアンサー獲得回数11982010/04/22 09:00:35

ポイント45pt

通常の関数では できないですね。

以下に自前で 関数を作成しましたので、これで できます。

文字のポイントって サイズですよね?

なお 使い方は

複数のセルを選択して

ChangeFontSize 文字,ポイントサイズ

で呼び出します。

ChangeFontSize "f", 9


ちなみに 文字は 一文字じゃないと 一致しません。


Sub ChangeFontSize(moji As String, sz As Integer)

With Selection
    Set c = .Find(moji, LookIn:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            '見つかった文字のサイズ変更
            For i = 1 To Len(c)
                If moji = Mid(c, i, 1) Then
                    c.Characters(Start:=i, Length:=1).Font.Size = sz
                End If
            Next i
            
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With

End Sub
id:mitsueda

有難うございました、が

私には難解でした

2010/04/24 08:07:11
id:SALINGER No.2

SALINGER回答回数3454ベストアンサー獲得回数9692010/04/22 09:18:10

ポイント45pt

数式だと書式は変更できないので、マクロでやるとしてこんな感じです。

最初の方の文字列とポイントを変更して実行してみてください。

Sub CangePoint()
    'ポイントを変える文字列を指定してください。
    Const key As String = "abc"
    'ポイントを指定してください
    Const fontSize As Integer = 14
    Dim r As Range
    Dim st As Integer
    Dim fAddress As String
    
    Set r = Cells.Find(key, lookat:=xlPart, MatchCase:=True)
    If r Is Nothing Then Exit Sub
    fAddress = r.Address
    Do
        st = InStr(1, r.Value, key)
        While st > 0
            r.Characters(st, Len(key)).Font.Size = fontSize
            st = InStr(st + 1, r.Value, key)
        Wend
        Set r = Cells.FindNext(r)
    Loop While Not r Is Nothing And r.Address <> fAddress
End Sub
id:mitsueda

有難うございました、が

私には難解でした

2010/04/24 08:07:45
id:zodazoda519 No.3

小沢回答回数214ベストアンサー獲得回数92010/04/22 17:33:09

どう言う事ですか?

id:kinamoti-kinakomoti No.4

きなもち回答回数14ベストアンサー獲得回数02010/04/23 14:27:27

マクロだっけ?マクロのほうが簡単ですヨ

コメントはまだありません

この質問への反応(ブックマークコメント)

トラックバック

  • もっと簡単だったか http://q.hatena.ne.jp/1271889995 改めて考えてみるともっと簡単でよかったので書いておきます。 Sub CangePoint() ’ポイントを変える文字列を指定してください。 Const key As String =
「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません