Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


9722 / 76737 ←次へ | 前へ→

【72574】リストボックスの文字が小さくなる
質問  けろぽん  - 12/8/25(土) 22:59 -

引用なし
パスワード
   オープンイベントでリストボックスのフォントサイズを設定しているのですが、
ファイル起動時にコンテンツを有効化をクリックするとリストボックスの文字が小さくなってしまいます。
どなたかご教授をお願いいたします。


Sub AUTO_OPEN()

  Application.EnableEvents = False 'イベント抑制
  Application.ScreenUpdating = False

  'ウィンドウ固定
  
  Worksheets("出納帳").Activate
  ActiveSheet.Rows(21).Select


  ActiveWindow.FreezePanes = True
    
   '保護、スクロールロック、移動方向
    
  With Worksheets("出納帳")
  .EnableSelection = xlUnlockedCells
  .ScrollArea = "c1:Y1000"
  .Protect Password:="cjd"
  End With
  
  Application.MoveAfterReturn = True
  Application.MoveAfterReturnDirection = xlToRight
  
  'リストサイズ固定
  
  With Worksheets("出納帳")
  
  .lstKamoku.Height = 159.75
  .lstKamoku.Width = 426
  .lstKamoku.ColumnCount = 6
  .lstKamoku.ColumnWidths = "40;100;40;100;40;100"
  .lstKamoku.Font.Size = 11
  
  .lstHojo.Height = 159.75
  .lstHojo.Width = 178
  .lstHojo.ColumnCount = 2
  .lstHojo.ColumnWidths = "40;100"
  .lstHojo.Font.Size = 11
  
  .lstbumon.Height = 134
  .lstbumon.Width = 152
  .lstbumon.ColumnCount = 2
  .lstbumon.ColumnWidths = "40;100"
  .lstbumon.Font.Size = 11
  
  End With
  
  '画面幅調整
  
  'Range("A:z").Select
  'ActiveWindow.Zoom = True
  
  With Worksheets("出納帳")
  .lstKamoku.ListIndex = -1
  .lstHojo.ListIndex = -1
  .lstbumon.ListIndex = -1
  End With
  
  Application.ScreenUpdating = True
  Application.EnableEvents = True
  
  
  '開始セル選択
  Worksheets("出納帳").Cells(21, 3).Select
  
  
End Sub

0 hits

【72574】リストボックスの文字が小さくなる けろぽん 12/8/25(土) 22:59 質問
【72579】Re:リストボックスの文字が小さくなる UO3 12/8/26(日) 8:26 発言
【72580】Re:リストボックスの文字が小さくなる けろぽん 12/8/26(日) 9:42 お礼
【72583】Re:リストボックスの文字が小さくなる UO3 12/8/26(日) 11:50 発言
【72585】Re:リストボックスの文字が小さくなる けろぽん 12/8/26(日) 12:43 お礼

9722 / 76737 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free