1

IMEの状態取得

MsgBox IMEStatus

2

アクティブセルの行番号

ActiveCell.Row

3

アクティブセルの列番号

ActiveCell.Column

4

アクティブブックのパス取得

ActiveWorkbook.Path

5

アクティブブックフルパス

ActiveWorkbook.Path & "\" & ActiveWorkbook.Name

6

新しいウィンドウを開く

ActiveWindow.NewWindow

7

印刷

ActiveSheet.PrintOut

8

ウィンドウ全画面表示

Application.DisplayFullScreen=True

9

上書き保存

ActiveWorkbook.Save

10

エラー処理

On Error GoTo ｴﾗｰ処理

11

オートオープン

Sub Auto_Open()

12

オフセット下に１

ActiveCell.Offset(1,0).Activate

13

オフセット右に１

ActiveCell.Offset(0,1).Activate

14

開いてるシート数

ActiveWorkbook.Worksheets.Count

15

開いてるブック数

Workbooks.Count

16

カレントドライブ取得

iDir = Left(CurDir(), 3)

17

カレントパス取得

ActiveSheet.Cells(1, 1).Value = CurDir()

18

行選択

Rowｓ("3:3").Select

19

行挿入

Range("A1").Select Selecion.EntireRow.Insert

20

行番号取得

Worksheets("Sheet1").Range("A1").Row

21

金額で表示

Selection.NumberFormatLocal = "\#,##0;\-#,##0"

22

組込ダイアログ表示

Application.Dialogs(xlDialogOpen).Show

23

クリア

Selection.ClearContents

24

結合セルかどうか

If Range("A1").MergeCells Then

25

コピー

Selection.Copy

26

コピーモード解除

Application.CutCopyMode = False

27

小文字

LCase(文字列)

28

コントロールの数取得

UserForm1.Controls.Count

29

最下行

Range("A1").CurrentRegion.Rows.Count

30

最右列

Range("A1").CurrentRegion.Columns.Count

31

座標行

Gyo = ActiveCell.Row

32

座標列

Retu = Chr$(ActiveCell.Column + Asc("@"))

33

シート１非表示

Worksheets("Sheet1").Visible=False

34

シートアクティブ

Worksheets("Sheet1").Activate

35

シートアクティブ

Worksheets(1).Activate

36

シート削除

ActiveSheet.Delete

37

シート追加

Sheets.Add

38

シートの表示

Application.Worksheets("Sheet2").Visible = True

39

シート非表示2

ActiveWindow.Visible=False

40

シート保護解除

ActiveSheet.Unprotect

41

シート見出し非表示

ActiveWindow.DisplayWorkbookTabs = False

42

シート名取得

Worksheets("sheet1").Name

43

時間の合計で表示

Selection.NumberFormatLocal = "[h]:mm:ss"

44

時間の取得

時間 = Hour(Now())

45

時刻

MsgBox Time

46

時刻MsgBox

MsgBox"現在時刻 =" & time, vbOKOnly

47

終端セル上

Renge("A65536").End(xlUp).Select

48

数字かどうか

False = IsNumeric(irnd) Then

49

数式入力

Range("C1").Formula = "=SUM(A1:A10)"

50

数式のあるセルを選択

Selection.SpecialCells(xlFormulas).Select