カウンタ
プロフィール

sc440ge

Author:sc440ge
「あめた」です。大ケガをして拾われたニャン。サーバーの空き箱に入ってるニャン。
「あめた」ありがとう。
20130603

sc440ge@yahoo.co.jp
パソコン価格情報

 [2008/09/16] *

VBA Tips 一覧




■■■■■■■■■■ Entry Start ■■■■■■■■■■


・ブログトップへ戻る



= VBA Tips =




[ 9月16日 更新 ]

---> 本日の更新内容です。


[メッセージボックスで改行する]

080916.png

メッセージボックス内で改行するにはいくつかの方法があります。
・vbCrLf
・Chr(10)
・Chr(13)


・メッセージボックスで改行する



VBA Tips 一覧

[セルの選択]

080819_01.png

・セルの選択
 A1を選択
 C15を選択
 変数でC15を選択
 C列の最終行を選択
 C列の最終行を選択 (変数)
 行を選択
 複数行の選択
 すべて選択
 四隅の選択
 四隅の選択 (変数) ・・・など


・セルを移動して左上に表示
・詳細を別セルに表示



[セルに値を入力]
080827_03.png


・A1セルに「テスト」と入力
・A1セルに今日の日付を入力
・A1セルに書式を設定して日付を入力





[セル・テキストボックスの色の指定方法]

080912_02.png

・セル・テキストボックスの色の指定方法





[セルの書式設定]
080828_01.png
・数値を3桁にそろえる / セルの右クリックで
・数値を3桁にそろえる / マクロ







[セルの移動で色を変える]
080821_04.png

・セルの移動で色を変える
 セルの移動で、色を変える / その1
 セルの移動で、色を変える / その2 *選択しているセルだけ  
 セルの移動で、色を変える / その3 * 行全体 ・・・など




[いろいろなセルの削除方法]
080822_02.png

・セルの削除
 セルの値のみを削除
 セルの値・書式すべてを削除
 A1セルの削除  その1 / 選択して削除
 A1セルの削除  その2 / 選択せずに削除
 A2からC1の削除 その1 / 選択して削除
 A2からC1の削除 その2 / 選択せずに削除
 A2からC1の削除 その3 / 変数
 A2からC列の最終行の削除 ・・・など


 行の削除・挿入



[表示領域(スクロールエリア)を設定]
080825.png

・スクロールエリアの設定
・スクロールエリアの解除






[印刷]

080822.png

・印刷範囲の指定
 四隅を印刷範囲に指定
 四隅を印刷範囲に指定 (変数1)
 四隅を印刷範囲に指定 (変数2) 最終行が不確定の場合 ・・・など



・印刷プレビュー
・設定をしてプレビューする




[シート・ブック]

080829_01.png

・シート名 / ブック名を取得する





[テキストボックス]

080901_01.png

・テキストボックスの値をループで削除 その1
・テキストボックスの値をループで削除 その2


・テキストボックスのフォント色・背景色をループ処理で変更

・テキストボックスに今日の日付を表示





[月の最終日を取得]

080903.png

・月の最終日を取得




[今週・先週・来週の期間を取得]

080904_01b.png

・今週の期間を取得
・先週の期間を取得
・来週の期間を取得






[リストボックス・コンボボックス]

080906_01.png


・リストボックス・コンボボックスの基本用語
・ListIndex : 現在選択されている行番号
・ListCount :リストの数
・ListRows  :コンボ ボックスのリストボックスのに表示される最大行数
・ColumnCount :列の数
・ColumnWidths :列の幅
・BoundColumn
・Column

・リストボックス,コンボボックスに1~10の値を入れる

・コンボボックスに今週の日付を追加する
・コンボボックスに先週の日付を追加する
・コンボボックスに来週の日付を追加する

・コンボボックスに今月の日付を追加する
・コンボボックスに先月の日付を追加する
・コンボボックスに来月の日付を追加する

・コンボボックスの値をテキストボックスに表示





[メッセージボックス]

[メッセージボックス]

080916.png

・メッセージボックスで改行する





















[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 , xlCSV
ActiveSheet.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"








・ブログトップへ戻る



ちょっと待ってニャン。まだ何か買うニャンか? パソはやめれないニャンか?いたずらしないからゲージから出してニャン。拍手はちょっとだけ好きニャン。
ame-thinks.jpg




VBA | 【2008-09-16(Tue) 03:53:48】 | Trackback(-) | Comments(-)
編集  

 
Ads by Google 1
最新記事

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