51

数式非表示

Selection.FormulaHidden = True

52

整数型に変換

Cint(x)

53

整数部を戻す

Fix(ｘ)

54

セル色削除

Selection.Interior.ColorIndex = xlNone

55

セル選択

Range("A1").Select

56

セル選択2

Cells(1,1).Select

57

セルデータクリア

Selection.Clear

58

セル内容を変数に

入力 = Worksheets("Sheet2").Range("D2").Value

59

セルにText

ActiveCell = TextBox2.Text

60

セルに入力

ActiveCell = "あ"

61

セルに入力

ActiveSheet.Cells(2, 1).Value = "あ"

62

セル幅自動

Columns("A").EntireColumn.AutoFit

63

セル範囲名

Range("A1:B3").Neme = "Area"

64

セル左上端表示

Application.Goto Reference:=ActiveCell, Scroll: =True

65

セル文字列扱い

Selection.NumberFormatLocal = "@"

66

セルをアクティブにする

Range("A1").Activate

67

全セル選択

Worksheets("Sheet1").Cells.Select

68

選択範囲の取得

範囲 = Selection.Address

69

選択範囲を1行下に

Range("A1").CurrentRegion.Offset(1, 0).Select

70

全列幅最適化

Cells.Select : Selection.Columns.Autofit

71

タブの表示

ActiveWindow.DisplayWorkbookTabs = True

72

データ範囲

Range("A1").CurrentRegion.Select

73

テキストボックスクリア

TextBox1.Text = ""

74

テキスト読込み

Workbooks.OpenText"フルパス"

75

テキストを変数に

i = UserForm1.TextBox1.Text

76

日時

MsgBox Now

77

年月日MsgBox

MsgBox Format（Now,"ｙｙｙ年mm月dd日h時mm分ss秒")

78

年で表示

Selection.NumberFormatLocal = "yy"

79

パスワード

TextBox1.PasswordChar="*"

80

バリアント型にする

CVar(Chr$(&H30 + Rnd() * 32))

81

貼り付け

ActiveSheet.Paste Destination: =Worksheets("Sheet1").Range("A1")

82

範囲選択

Range("A1:B3").Select

83

範囲選択2

Range(Cells(1,1),Cells(3,2)).Select

84

範囲選択3

Range("A1:C3,D4:F5")Select

85

日付

MsgBox Data

86

ウインドウの数

ActiveWorkbook.Windows.Count

87

フィルタ

Selection.AutoFilter

88

フォームアンロード

Unload Me

89

ブックの表示高さ

ActiveWindow.Height=200

90

ブックの表示幅

ActiveWindow.Width=300

91

ブック名取得

ActiveWorkbook.Name

92

プリンタ名取得

MsgBox ActivePrinter

93

フルパス取得

CurDir() & "\readme.txt

94

プログラム起動

X = Shell(CurDir() & "\fileload.exe", 1)

95

プロシージャ呼出

Call プロシージャ名()

96

ヘルプ

Application.SendKeys "{F1}"

97

保存終了

ActiveWorkbook.Close True

98

保存終了

ActiveWorkbook.Save:Application.Quit

99

保存せず終了

ActiveWorkbook.Close False

100

ボタン位置縦

Selection.ShapeRange.IncrementLeft （-100⇔100）