VocExcel（単語帳） / VBA Tips ブログ表示領域（スクロールエリア）を設定

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

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

[次の記事]
・印刷プレビュー

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

　[2008/08/25]　更新　

<--- 一覧へ戻る

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

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

Sub myAreaOn()

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

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

End Sub

Sub myAreaOff()

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

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

End Sub

シート | 【2008-08-25(Mon) 07:12:25】 | Trackback(-) | Comments(-)

[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"

VocExcel（単語帳） / VBA Tips ブログ

エクセルVBAの小技・Tips集。エクセルの単語帳、サンプルコードの紹介など。