Excel Object Model: Application

Methods and properties

operatingSystem

Windows (32-bit) NT 6.01

screenUpdating

option explicit

sub main()

  Application.screenUpdating =  true
  call fill_10x40_rect(1, 1)
  
  Application.screenUpdating = false
  call fill_10x40_rect(1, 12)

end sub

sub fill_10x40_rect(startTopRow as long, startLeftColumn as long)

  dim t0, t1 as single
  dim r      as long
  dim c      as long
  
  t0 = timer
  for r = 0 to 39
  for c = 0 to  9
      cells(startTopRow + r, startLeftColumn + c).value = r * c
  next c
  next r
  t1 = timer
  
  debug.print "Filling 40 times 10 cells took " & (t1-t0) & " seconds."

end sub

sheetsInNewWorkbook

showDevTools

calculation

active objects

option explicit

sub main() ' {

    dim actCell     as range
    dim actWindow   as window
    dim actSheet    as worksheet
    dim actWorkbook as workbook

    set actWorkbook = application.activeWorkbook
    set actSheet    = application.activeSheet
    set actCell     = application.activeCell
    set actWindow   = application.activeWindow

    debug.print("Active workbook: " & actWorkbook.name )
    debug.print("Active sheet:    " & actSheet.name    )
    debug.print("Active cell:     " & actCell.address  )
    debug.print("Active window:   " & actWindow.caption)

end sub ' }

thisWorkbook

functions

option explicit

sub main()

    dim val as double

    dim rng as range: set rng = range("a1:b5")

    fillTestData

    val = application.min    (rng) : debug.print "min = " & val
    val = application.sum    (rng) : debug.print "sum = " & val
    val = application.average(rng) : debug.print "avg = " & val

end sub

sub fillTestData()

    cells(1, 1) =  9: cells(1, 2) =  5
    cells(2, 1) =  2: cells(2, 2) =  8
    cells(3, 1) =  4: cells(3, 2) =  7
    cells(4, 1) =  5: cells(4, 2) =  5
    cells(5, 1) =  3: cells(5, 2) =  4

end sub

evaluate

option explicit

sub main() ' {

    fillTestData

    evaluateFuncOnTestdata "sum"
    evaluateFuncOnTestdata "min"
    evaluateFuncOnTestdata "average"

end sub ' }

sub fillTestData() ' {

    cells(1, 1) =  9: cells(1, 2) =  5
    cells(2, 1) =  2: cells(2, 2) =  8
    cells(3, 1) =  4: cells(3, 2) =  7
    cells(4, 1) =  5: cells(4, 2) =  5
    cells(5, 1) =  3: cells(5, 2) =  4

end sub ' }

sub evaluateFuncOnTestdata(funcName as string) ' {

    debug.print funcName & " = " & application.evaluate(funcName & "(a1:b5)")

end sub ' }

option explicit

sub main() ' {

    dim val as double

    fillTestData

    val = [min(a1:b5)]    : debug.print "min = " & val
    val = [sum(a1:b5)]    : debug.print "sum = " & val
    val = [average(a1:b5)]: debug.print "avg = " & val

end sub ' }

sub fillTestData() ' {

    cells(1, 1) =  9: cells(1, 2) =  5
    cells(2, 1) =  2: cells(2, 2) =  8
    cells(3, 1) =  4: cells(3, 2) =  7
    cells(4, 1) =  5: cells(4, 2) =  5
    cells(5, 1) =  3: cells(5, 2) =  4

end sub ' }

match

option explicit

sub main() ' {

    dim interesting() as variant
        interesting = array("foo", "bar", "baz")
    
    if not isError(application.match("bla", interesting, 0)) then debug.Print "bla is interesting"
    if not isError(application.match("baz", interesting, 0)) then debug.Print "baz is interesting"

end sub ' }

caption

appActivate application.caption

executeExcel4Macro

See also