|
101 |
ボタン位置縦 |
Selection.ShapeRange.IncrementTop （-100↑ ↓100） |
|
102 |
ボタンキャンプション |
抽出ボタン.Caption = "抽出" |
|
103 |
ボタンキャンプション変更 |
ActiveSheet.Buttons(1).Caption = "ＯＮ" |
|
104 |
ボタンの選択 |
ActiveSheet.Shapes("Button 1").Select |
|
105 |
ボタンのフォント変更 |
Selection.Font.FontStyle = "標準" |
|
106 |
ボタンのフォント変更２ |
Font.Bold = True:Font.ColorIndex = 3 |
|
107 |
メッセージボックス |
MsgBox "エラー発生のため中止しました" |
|
108 |
メッセージボックズ改行 |
"1行目" & Chr(10) & "2行目" |
|
109 |
メニュー、プロパティ表示 |
Application.SendKeys "%FI" |
|
110 |
メニュー、検索 |
Application.SendKeys "%EF" |
|
111 |
文字結合 |
=CONCATENATE(B1, C1, B2, C2, D1, E1, D2, E2) |
|
112 |
文字数を取得 |
文字数 = Len(文字列) |
|
113 |
文字取り出す |
Mid(文字列,開始位置, 文字数) |
|
114 |
文字列に変換 |
Str(x) |
|
115 |
ユーザーネーム取得 |
iUserName = Application.UserName |
|
116 |
ユーザーフォーム表示 |
UserForm1.Show |
|
117 |
横の改ページ数取得 |
Sheet1.HPageBreaks.Count |
|
118 |
余白取る |
Trim(x) |
|
119 |
ラベルのキャンプション |
UserForm1.Label1.Caption =Work〜.Range("A1") |
|
120 |
ラベルのキャンプション2 |
UserForm2.Label1.Caption = "ラベルの文字" |
|
121 |
ラベルを非表示 |
UserForm1.Label1.Visible = False |
|
122 |
乱数取得 |
Left(Rnd() * 10, 1) |
|
123 |
乱数初期化 |
Randomize |
|
124 |
乱数で文字発生 |
irnd = Chr$(&H30 + Rnd() * 32) |
|
125 |
リストボックスに値 |
ListBox1.List=Sheet1.Range("A1:A10").Value |
|
126 |
リストボックスに値(列) |
ListBox1.List=WorksheetFunction.Transpose(Sheet1.Range("A1:E1").Value) |
|
127 |
リストを選択 |
Worksheets(1).Range("A1").CurrentRegion.Select |
|
128 |
列選択 |
Columns("C:C").Select |
|
129 |
列挿入 |
Range("A:A").Select Selecion.Insert |
|
130 |
列幅最適化 |
Columns("A:F").AutoFit |
|
131 |
列番号取得 |
Worksheets("Sheet1").Range("range").Column |
|
132 |
ロック設定 |
Selection.Locked = True |
|
133 |
右から1文字を取得 |
Right(文字列, 1) |
|
134 |
画面更新戻す |
Application.ScreenUpdating = True |
|
135 |
画面更新停止 |
Application.ScreenUpdating = False |
|
136 |
結合セル範囲を分割 |
Range("A１").MergeArea.UnMerge |
|
137 |
左から１文字を取得 |
Left(文字列,1) |
|
138 |
左側に改ページを追加 |
Worksheets("Sheet1").VPageBreaks.Add .Range("G25") |
|
139 |
最後のセルアドレス取得 |
Sheet1.UsedRange.Address |
|
140 |
使用セル範囲 |
ActiveSheet.UsedRange.Address |
|
141 |
使用行数取得 |
ActiveSheet.Range("A1").CurrentRegion.Rows.Count |
|
142 |
縦の改ページ数取得 |
Sheet1.VPageBreaks.Count |
|
143 |
上に改ページを追加 |
Worksheets("Sheet1").HPageBreaks.Add .Range("G25") |
|
144 |
電卓の起動1 |
z = Shell(Left(CurDir(), 3) & "Windows\Calc.exe", 1) |
|
145 |
電卓の起動2 |
z = Shell("C:\WINDOWS\CALC.EXE", vbNormalFocus) |
|
146 |
電卓の起動3 |
z = Shell("A:\WINDOWS\CALC.EXE", 1) |
|
147 |
電卓の起動4 |
z = Shell(Left(ActiveWorkbook.Path, 2) & "\Windows\Calc.exe", 1) |
|
148 |
電卓の起動5 |
z = Shell("CALC.EXE", 1) |
|
149 |
範囲選択 |
Worksheets("Sheet1").Range("A1:B10").Select |
|
150 |
文字右寄せ |
Selection.HorizontalAlignment = xlRight |