※上記の広告は60日以上更新のないWIKIに表示されています。更新することで広告が下部へ移動します。

#blognavi

EXCELで簡単に上付き文字、下付き文字を設定するには・・・考

通常は文字選択→右クリック押して→セルの書式ダイアログ開いて→チェック打って→OK
文字選んで→上付下付にできたら嬉しい
個人的にはこんな形にしたい
これWORDにはあるんだけどなー。EXCELにもつけて欲しい
結局、入力中だとマクロは動かないので機能しない

なんやかんや考えて、フォーム作ってこれに落ち着いた。
まあいいか

Sub CommandButton1_Click()
If FormulaBox.SelLength = 0 Then Exit Sub
  With ActiveCell.Characters(Start:=FormulaBox.SelStart + 1, Length:=FormulaBox.SelLength).Font
  If .Superscript = Null Or .Superscript = True Then .Superscript = False Else .Superscript = True
  End With
End Sub

Sub CommandButton2_Click()
If FormulaBox.SelLength = 0 Then Exit Sub
  With ActiveCell.Characters(Start:=FormulaBox.SelStart + 1, Length:=FormulaBox.SelLength).Font
  If .Subscript = Null Or .Subscript = True Then .Subscript = False Else .Subscript = True
  End With
End Sub


カテゴリ: [Office] - &trackback- 2012年06月01日 15:51:12

#blognavi