■起動時にVBAを実行

標準モジュールを作成します

Private Function Auto_Open()
	MsgBox ("auto start")
End Function


■フォームを表示

ユーザーフォームを作成します。

UserForm1.Show


■セルに値を設定および取得

'セルに値や数式を設定
Worksheets("sheet1").Range("A1").Value = "=a2+a3"
'計算結果を取得
Dim str As String
str = Worksheets("sheet1").Range("A1").Value
MsgBox (str)

結果は計算結果の値が出力されます。


▼ブック名を指定してセルの値を取得

'開いているブックのブック名とシート名を指定してワークシートを取得
Dim seet1 As Worksheet
Set seet1 = Workbooks("Book2.xls").Worksheets("Sheet2")

'高さ1、横1のセルを取得
Dim cell1 As Object
Set cell1 = seet1.Cells(1,1)
'セルの値を出力
Msgbox(cell1.Value)
'セルに値や数式を設定
cell1.Value = "=1+1"


■タイマー

関数、testが10秒おきに呼び出されます

Private Sub Workbook_Open()
    Call timer
End Sub

Public Sub timer()
    Call test
    Application.OnTime Now + TimeValue("00:00:10"), "timer"
End Sub


■自動計算、画面描画の停止

'再計算を手動にする
Application.Calculation = xlCalculationManual
'画面描画を無効にする
Application.ScreenUpdating = False

'様々な処理

'画面描画を有効にする
Application.ScreenUpdating = True
'再計算を自動にする
Application.Calculation = xlCalculationAutomatic
'再計算を行う
Application.Calculate



▲トップページ > オフィス