メモ/2012年06月01日/20120601(金) - WEB漫画まとめ

#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