サイトマップ

カテゴリ別に表示


サンプルファイル一覧


dz02572i@yahoo.co.jp
最新記事
ランキング



カウンタ


検索

サイト内のVBAコードを検索できます。


Google
WWW を検索 VBA を検索

　[2008/08/25]　 Update / by dz02572i


No.[9]　表示領域（スクロールエリア）を設定


[ --　ページの移動　-- ]

[前]・詳細を別セルに表示

[次]・印刷プレビュー



≪前のページ| HOME | 次のページ≫


・カテゴリ別に表示する / ジャンル別


トップページ


　■■■■■■■■　記 事 No.[9]　Entry Start　■■■■■■■■

<--- 一覧へ戻る



[表示領域（スクロールエリア）の設定]

080825.png




[表示領域（スクロールエリア）の設定/解除]

Sub myAreaOn()

　MsgBox "スクロールエリアを設定します。"

　ActiveSheet.ScrollArea = "A1:D65536" 'スクロールエリア　設定


End Sub


Sub myAreaOff()

　MsgBox "スクロールエリアを解除します。"

　ActiveSheet.ScrollArea = "" 'スクロールエリア 解除


End Sub



















[A] シート・ブック | 【2008-08-25(Mon) 07:12:25】 | Trackback(-) | Comments(-)
編集 　

　
Ads by Google




△ TOP PAGE
Copyright © VocExcel（単語帳） / VBA Tips ブログ All Rights Reserved. Powered By FC2.　 skin：cuteblog
FC2ブログ

[Key]
vbCrLf Chr(10) Chr(13) Application.WorksheetFunction.Max　End(xlUp)　ActiveCell.Row - 1 Cells(11,"B").Select　Worksheet_SelectionChange UserForm　Application.Wait Now() Application.Speech.Speak　CreateObject("SAPI.SpVoice") voice.getdescription()　Do While　　TimeValue< Len　vbNarrow　Replace　trim　Until 　Exit Do　Like Right　UBound　Split　vbLf　ActiveSheet.Hyperlinks.Add Anchor　Range　GetVoices.Count　voice.getdescription　Item　ColumnCount ColumnWidths 　ColumnCount ColumnWidths Cells(10, "IV").End(xlToLeft).Column　.PageSetup.PrintArea　Label ComboBox CheckBox OptionButton ListBox vlookup　NumberFormatLocal 　Application.GoTo Reference:=Range("$B$4"), Scroll:=True　ActiveSheet.ScrollArea = "A1:D65536"　　Cells(1, "A").NumberFormatLocal = "yy/mm/dd" Selection.Delete Shift:=xlUp　IsError　Application.VLookup DoEvents　Loop　CriteriaRange　AdvancedFilter Action:=xlFilterInPlace　.SaveAs , xlCSVActiveSheet.Hyperlinks.Add Anchor:=Selection, Address< Dir(ThisWorkbook.Path & "\*") Set myRng = myData.Find(myWord, LookAt:=xlPart) Application.WorksheetFunction.Match InStr　Left　Mid　Trim　Replace　StrConv　vbNarrow　ComboBox1.AddItem　ListBox1.AddItem　Like 'ActiveCell.Interior.ColorIndex = 37 Rows(ActiveCell.Row).Interior.ColorIndex = xlNone Selection.ClearContents Selection.Clear Range(Cells(myRow1, "A"), Cells(myRow2, "C")).ClearContents ActiveSheet.PageSetup.PrintArea = "$A$2:$C$10"