Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

9719 / 76734

←次へ　｜　前へ→


	【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:ｚ").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

5 hits

▼

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

≪