[[20140415093355]]　『数式バーの高さ』（スカボロー）　ページの最後に飛ぶ

『数式バーの高さ』（スカボロー）

 こんにちは。よろしくお願いいたします。

 複数のブックを開いているとき、あるブックで数式バーの高さを変えると開いている他のブックの数式バーの高さ
 も変わってしまいます。

 数式バーの高さを変えても他のブックには反映しないようにする設定とかはありますでしょうか？

 Excelのオプションを見たのですがそれらしいものは見当たりませんでした。
 ご存知の方、ご教示お願いいたします。

＜使用 Excel：Excel2007、使用 OS：WindowsVista ＞

 数式バーはブックではなくアプリケーションの設定なので、個別に設定はできません。

 特定のブックだけでどうしてもというのであれば、そのブックの Thisworkbook の下に
 下記のコードを置いてどうでしょうか。

 Private Sub Workbook_Activate()
    Application.FormulaBarHeight = 3
 End Sub

 Private Sub Workbook_Deactivate()
    Application.FormulaBarHeight = 1
 End Sub

（Mook） 2014/04/15(火) 11:37

 Mookさん、ご回答ありがとうございます。
 ご呈示いただきましたコードを参考に組んでみました。

 セルの強制改行数によって数式バーの行数を調整しています。
 一行の文字数が多くて数式バー内で自動改行されてしまう場合は全部は表示しきれないのですが
 やりたいことには近づきましたのでこれで運用してみます。
 ありがとうございました。

 Option Explicit

 Private Sub Workbook_Activate()
  Call takasa(ActiveCell)
 End Sub

 Private Sub Workbook_Deactivate()
  Application.FormulaBarHeight = 1
 End Sub

 Private Sub Workbook_Open()
  Call takasa(ActiveCell)
 End Sub

 Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
  Call takasa(Target)
 End Sub

 Private Function takasa(ByVal c As Range)
  Dim sp As Variant
  Dim myrw As Integer
   If c.Value = "" Then
      myrw = 1
   Else
      sp = Split(c.Value, vbLf)
      myrw = UBound(sp) + 1
      Erase sp
   End If
   Application.FormulaBarHeight = myrw
 End Function
（スカボロー） 2014/04/16(水) 00:24

 Application.FormulaBarHeight
 は45以上になるとエラーになるようです。

 >  Application.FormulaBarHeight = myrw

 の前に一文追加。

  If myrw > 44 Then myrw = 44
  Application.FormulaBarHeight = myrw
（スカボロー） 2014/08/26(火) 21:15

 >は45以上になるとエラーになるようです。

 とは限らないと思いますよ！！

 新規ブックにて、標準モジュールに

 '=================================================================
 Sub test()
    With Application
        .WindowState = xlNormal
        .Height = .Height / 4
        .FormulaBarHeight = 44
    End With
 End Sub

 上記のtestの実行だと　44でもエラーになりませんか？

 FormulaBarHeightの限界値は、何か他のデータの変化も要因になっていると思いますよ！！

 application.UsableHeightの値なんて怪しいですけどね！！

（ichinose） 2014/08/27(水) 12:49

 ichinoseさん、ご回答ありがとうございます。

 該当ブックは常にウィンドウを最大化してあるので気づきませんでした。
（スカボロー） 2014/08/27(水) 22:28

コメント返信：

[ 一覧(最新更新順) ]

[[20140415093355]] 『数式バーの高さ』（スカボロー） ページの最後に飛ぶ

[[20140415093355]]　『数式バーの高さ』（スカボロー）　ページの最後に飛ぶ