Gizport
1 回答
0
Share (facebook)
138
view
全般

こんにちは。エクセル2007で表を作成しています。同一のセル内に&q...

こんにちは。エクセル2007で表を作成しています。同一のセル内に"batang"と"MS明朝"の2つのフォントがランダムに混在しているのですが、対象約1500セルに対して一括で"batang"だけを太字に設定できるでしょうか? ちなみに"batang"の部分はハングル文字です。
Yahoo!知恵袋 4812日前
コメントする
お気に入り
1
質問者が選んだベストソリューション
≫対象セルがA1の例

Dim i As Long

With Range("A1")
For i = 1 To Len(.value)
With .Characters(i, 1).Font
If .Name = "Batang" Then
.Bold = True
End If
End With
Next i
End With

>対象約1500セルに対して一括で"batang"だけを太字に設定できるでしょうか?
上記コードで、対象セル範囲をループ処理すれば良いとおもいます。

≪参考≫
VBAを使うには/繰り返し(ループ)処理
http://www.bekkoame.ne.jp/~poetlabo/COMP/Excel/VBALEC/loop.htm
Yahoo!知恵袋 4812日前
シェア
 
コメントする
 

参考になったと評価
  このQ&Aは参考になりましたか?

Share (facebook)
その他の解決方法を知っていますか?
回答する
全般
21
Views
質問者が納得≫対象セルがA1の例 Dim i As Long With Range("A1") For i = 1 To Len(.value) With .Characters(i, 1).Font If .Name = "Batang" Then .Bold = True End If End With Next i End With >対象約1500セルに対して一括で"batang"だけを太字に設定できるでしょうか? 上記コー...
4812日前view21
全般
20
Views
質問者が納得A4用紙に1500文字の指定なら、1行40文字で、1ページ38行の設定で良いのではないでしょうか。 計算上は1ページあたり1520文字になります。 私の場合は、上下と右の余白を20mm、左の余白を25mmに設定します。 ※ただし、横書きの場合です。
5369日前view20