Excelワークシート関数を有効活用しよう

Excelワークシート関数を有効活用しよう

http://officetanaka.net/excel/vba/speed/s9.htm

Sub Test2()
    Dim i As Long, Ans As Long
    For i = 1 To 5000
        Ans = WorksheetFunction.Sum(Range("M1:M100"))
    Next i
End Sub

Sub Test2()
    Dim fc  As Variant, j As Long, Ans As Long
    For j = 1 To 30
        Ans = WorksheetFunction.VLookup("田中亨", Range("A1:B10001"), 2, False)
    Next j
End Sub

Sub Test2()
    Dim fc  As Variant, j As Long, Ans As Long
    For j = 1 To 30
        Ans = WorksheetFunction.VLookup("田中亨", Range("A1:B10001"), 2, False)
    Next j
End Sub


Sub Test3()
    Dim fc  As Variant, j As Long, Ans As Long
    For j = 1 To 30
        Set fc = Range("A1:A1001").Find(What:="田中亨")
        If Not fc Is Nothing Then Ans = fc.Offset(0, 1).Value
    Next j
End Sub

Excel絶対Withステートメントを使うべきです

絶対Withステートメントを使うべきです
http://officetanaka.net/excel/vba/speed/s4.htm

オブジェクト型変数に格納

Sub Test3()
    Dim i As Integer, j As Integer, myCell As Range
    Set myCell = ActiveWorkbook.Worksheets(1).Range("A1")
    For i = 1 To 300
        For j = 1 To 10
                myCell.Value = myCell.Value + j
        Next j
    Next i
End Sub

Excel(エクセル) VBA入門：ワークシート関数を利用する

Excel(エクセル) VBA入門：ワークシート関数を利用する

http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_ws_kansu.html
 

VBAでセルに数式を入力するにはFormulaプロパティを使います。

• 【例1】C1:C5に数式=SUM(A1:B1)を入力します。
  • Sub rei13_1()
    　　Worksheets("Sheet1").Range("C1:C5").Formula = "=SUM(A1:B1)"
    End Sub

 

【例3-2】VLOOKUP関数がエラーとなる場合(対処法1)

• エラー処理へ分岐します。
  Sub rei13_8()
  Dim myR
  On Error GoTo ErrorHandler
  　　With Worksheets("Sheet1")
  　　　　myR = Application.WorksheetFunction.VLookup(.Range("C1"), .Range("A1:B7"), 2, False)
  　　　　.Range("D1").Value = myR
  　　End With
  Exit Sub
  ErrorHandler:
  　　Worksheets("Sheet1").Range("D1").Value = "該当無し"
  End Sub