Microsoft KB Archive/103164

From BetaArchive Wiki
< Microsoft KB Archive
Revision as of 16:03, 18 July 2020 by 3155ffGd (talk | contribs) (importing KB archive)
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)

Article ID: 103164

Article Last Modified on 8/15/2005



APPLIES TO

  • Microsoft Excel 95 Standard Edition
  • Microsoft Excel 5.0c
  • Microsoft Excel 5.0 Standard Edition
  • Microsoft Excel 4.0a
  • Microsoft Excel 4.0 Standard Edition



This article was previously published under Q103164

SUMMARY

In Microsoft Excel, there is no macro function to emulate the behavior of the AutoSum tool. However, you can activate this tool from a macro by using the SEND.KEYS() function to send the appropriate keyboard shortcut (ALT+EQUAL SIGN (=)) to start the AutoSum tool.

MORE INFORMATION

Microsoft Excel version 5.0 and later

Microsoft provides examples of Visual Basic procedures for illustration only, without warranty either expressed or implied, including but not limited to the implied warranties of merchantability and/or fitness for a particular purpose. This Visual Basic procedure is provided 'as is' and Microsoft does not guarantee that it can be used in all situations. Microsoft does not support modifications of this procedure to suit customer requirements for a particular purpose.

Sub AutoSum()
    'This macro activates the AutoSum function on the active cell.
     Application.SendKeys ("%=~")
End Sub
                

Microsoft Excel 4.0

The following macro activates the AutoSum function in the active cell:

   A1:   =SEND.KEYS("%=")
   A2:   =SEND.KEYS("~")
   A3:   =RETURN()
                

Explanation of Above Macro

   A1:   Sends the AutoSum Keyboard Shortcut
   A2:   Sends the Enter Key
   A3:   Ends the macro
                

Microsoft provides macro examples for illustration only, without warranty either expressed or implied, including but not limited to the implied warranties of merchantability and/or fitness for a particular purpose.

REFERENCES

"User's Guide 1," version 4.0, pages 152, 556
"Function Reference," version 4.0, page 385


Additional query words: 4.00a sum end row column formula Excel

Keywords: KB103164