Private Declare Function GetComputerName Lib "kernel32" Alias _
"GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Declare Function GetUserName Lib "advapi32.dll" Alias _"GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
' Attribute VB_Name = "modLotus" ' This public sub will send a mail and attachment if neccessary to the recipient including the body text. ' Requires that notes client is installed on the system. Public Sub SendLotusEMail(Subject As String, Attachment As String, recipient As String, bodytext As String, saveit As Boolean) ' Set up the objects required for Automation into lotus notes Dim MailDB As Object ' The mail database Dim UserName As String ' The current users notes name Dim MailDBName As String ' THe current users notes mail database name Dim MailDoc As Object ' The mail document itself Dim AttachME As Object ' The attachment richtextfile object Dim LotusSession As Object ' The notes session Dim EmbedObj As Object ' The embedded object (Attachment) ' Start a session to notes Set LotusSession = CreateObject("Notes.NotesSession") ' Get the sessions username and then calculate the mail file name ' You may or may not need this as for MailDBname with some systems you ' can pass an empty string UserName = LotusSession.UserName MailDBName = Left$(UserName, 1) & Right$(UserName, (Len(UserName) - InStr(1, UserName, " "))) & ".nsf" ' Open the mail database in notes Set MailDB = LotusSession.GetDatabase("", MailDBName) If MailDB.isOpen = True Then ' Already open for mail Else MailDB.OPENMAIL End If ' Set up the new mail document Set MailDoc = MailDB.CreateDocument MailDoc.Form = "Memo" MailDoc.sendto = recipient MailDoc.Subject = Subject MailDoc.body = bodytext MailDoc.SaveMessageOnSend = saveit ' Set up the embedded object and attachment and attach it If Attachment <> "" Then Set AttachME = MailDoc.CreateRichTextItem("Attachment") Set EmbedObj = AttachME.EmbedObject(1454, "", Attachment, "Attachment") MailDoc.CreateRichTextItem ("Attachment") End If ' Send the document MailDoc.PostedDate = Now() 'Gets the mail to appear in the sent items folder MailDoc.Send 0, recipient ' Clean Up Set MailDB = Nothing Set MailDoc = Nothing Set AttachME = Nothing Set LotusSession = Nothing Set EmbedObj = Nothing End Sub
Sub LaunchIE()Dim objIE As InternetExplorer Set objIE = New InternetExplorer objIE.Visible = True objIE.Navigate "http://inanyplace.blogspot.com" Do Loop Until objIE.ReadyState = READYSTATE_COMPLETE objIE.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_PROMPTUSER End Sub
Private Declare Function GetComputerName Lib "kernel32" Alias _ "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Declare Function GetUserName Lib "advapi32.dll" Alias _ "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long Function GetUser() As String Dim UserName As String ' receives name of the user Dim slength As Long ' length of the string Dim RetVal As Long ' return value UserName = Space(255) ' room for 255 characters slength = 255 ' initialize the size of the string RetVal = GetUserName(UserName, slength) ' slength is now the length of the returned string UserName = Left(UserName, slength - 1) ' extract the returned info from the buffer User = UserName End Function
Worksheet and workbook specifications and limits MAXIMUM LIMIT Maximum limits of memory storage and file size for Data Model workbooks Depends on System, please refer MSDN Open workbooks Limited by available memory and system resources Sheets in a workbook Limited by available memory Names in a workbook Limited by available memory Windows in a workbook Limited by available memory Linked sheets Limited by available memory Scenarios Limited by available memory; a summary report shows only the first 251 scenarios Custom functions Limited by available memory Reports Limited by available memory Named views in a workbook Limited by available memory Worksheet size 1,048,576 rows by 16,384 columns Column width 255 characters Row height 409 points Page breaks 1,026 horizontal and vertical Total number of characters that a cell can contain 32,767 characters Characters in a header or footer 255 Colors in a workbook 16 million colors (32 bit with full access to 24 bit color spectrum) Unique cell formats/cell styles 64,000 Fill styles 256 Line weight and styles 256 Unique font types 1,024 global fonts available for use; 512 per workbook Number formats in a workbook Between 200 and 250, depending on the language version of Excel that you have installed Hyperlinks in a worksheet 66,530 hyperlinks Panes in a window 4 Changing cells in a scenario 32 Adjustable cells in Solver 200 Zoom range 10 percent to 400 percent Sort references 64 in a single sort; unlimited when using sequential sorts Undo levels 100 Fields in a data form 32 Workbook parameters 255 parameters per workbook Items displayed in filter drop-down lists 10,000 Noncontiguous cells that can be selected 2,147,483,648 cells Calculation specifications and limits MAXIMUM LIMIT Worksheet arrays Limited by available memory Cross-worksheet array formula dependency Limited by available memory Area dependency Limited by available memory Area dependency per worksheet Limited by available memory Number precision 15 digits Smallest allowed negative number -2.23E-308 Smallest allowed positive number 2.23E-308 Largest allowed positive number 1.00E+308 Largest allowed negative number -1.00E+308 Largest allowed positive number via formula 1.7976931348623158e+308 Largest allowed negative number via formula -1.7976931348623158e+308 Length of formula contents 8,192 characters Internal length of formula 16,384 bytes Iterations 32,767 Selected ranges 2,048 Arguments in a function 255 Nested levels of functions 64 User defined function categories 255 Number of available worksheet functions 341 Size of the operand stack 1,024 Cross-worksheet dependency 64,000 worksheets that can refer to other sheets Dependency on a single cell 4 billion formulas that can depend on a single cell Linked cell content length from closed workbooks 32,767 Earliest date allowed for calculation January 1, 1900 (January 1, 1904, if 1904 date system is used) Latest date allowed for calculation 31-Dec-99 Largest amount of time that can be entered 9999:59:59 Charting specifications and limits MAXIMUM LIMIT Charts linked to a worksheet Limited by available memory Data points in a data series for 2-D charts Limited by available memory Data points in a data series for 3-D charts Limited by available memory Data points for all data series in one chart Limited by available memory Worksheets referred to by a chart 255 Data series in one chart 255 PivotTable and PivotChart report specifications and limits MAXIMUM LIMIT PivotTable reports on a sheet Limited by available memory Row or column fields in a PivotTable report Limited by available memory Calculated item formulas in a PivotTable report Limited by available memory Calculated item formulas in a PivotChart report Limited by available memory Unique items per field 1,048,576 Report filters in a PivotTable report 256 (may be limited by available memory) Value fields in a PivotTable report 256 Report filters in a PivotChart report 256 (may be limited by available memory) Value fields in a PivotChart report 256 Length of the MDX name for a PivotTable item 32,767 Length for a relational PivotTable string 32,767 Items displayed in filter drop-down lists 10,000 Shared workbook specifications and limits MAXIMUM LIMIT Personal views in a shared workbook Limited by available memory Workbooks that can be merged at one time Limited by available memory Users who can open and share a shared workbook at the same time 256 Days that change history is maintained 32,767 (default is 30 days) Cells that can be highlighted in a shared workbook 32,767 Colors used to identify changes made by different users when change highlighting is turned on 32 (each user is identified by a separate color; changes made by the current user are highlighted with navy blue) Excel tables in a shared workbook 0 (zero)
Teclas de Combinação O que fazem Combinação das Teclas de Atalho do MS Excel para tarefas simples ALT+TAB Switch to the next window ALT+SHIFT+TAB Switch to the previous window ALT+F5 Restore the size of the active window after you maximize it CTRL+W or CTRL+F4 Close the active window F6 Move to a task pane from another pane in the program window (clockwise direction) SHIFT+F6 Move to a task pane from another pane in the program window (counterclockwise direction) Ctrl + F6 Switch between open workbooks or windows CTRL+SHIFT+F6 Switch to the previous window Ctrl + F9 Minimize current window Ctrl + F10 Maximize currently selected window PRINT SCREEN Copy a picture of the screen to the Clipboard ALT+PRINT SCREEN Copy a picture of the selected window to the Clipboard Ctrl + Tab Move between Two or more open Excel files Ctrl+F4 Close the selected workbook window Ctrl+n Create a new blank workbook (Excel File) Ctrl+F7 Move Workbook Windows which are not maximized Alt+F4 Close Excel Excel Shortcut Keys for Working with Ribbon Ctrl+F1 Minimize or restore the Ribbon Alt/F10 Select the active tab of the Ribbon and activate the access keys. Press either of these keys again to move back to the document and cancel the access keys. and thenarrow left or arrow right Shift+F10 Display the shortcut menu for the selected command Space/Enter Activate the selected command or control in the Ribbon, Open the selected menu or gallery in the Ribbon Enter Finish modifying a value in a control in the Ribbon, and move focus back to the document F1 Get help on the selected command or control in the Ribbon Excel Shortcut Keys for Working with Dialogs Shift + F3 Open the Excel formula window Shift + F5 Bring up search box CTRL+f Display the Find and Replace dialog box (with Find Tab selected) CTRL+h Display the Find and Replace dialog box (with Replace Tab selected) CTRL +g (or F5) Display the 'Go To' dialog box Alt+' Display the Style dialog box Alt+Space Display the Control menu for Main Excel window Ctrl+o Open File Ctrl+s Save the active file with its current file name, location, and file format F12 Display the Save As dialog box f10 (or alt) Turn key tips on or off Ctrl+p Print File (Opens print menu) F1 Display the Excel Help task pane F7 Display the Spelling dialog box Shift+F7 Display the Thesaurus dialog box Alt+F8 Display the Macro dialog box Alt+F11 Open the Visual Basic Editor to create Macros F11 Create chart Excel Shortcut Keys for Working with Worksheets Shift + F11 Insert New Worksheet Ctrl + Page up Move between Excel work sheets in the same Excel document Ctrl + Page down Move between Excel work sheets in the same Excel document Page Down Move one screen Down in a worksheet Page Up Move one screen Up in a worksheet Alt+Page Up Move one screen to the Left Alt+Page Down Move one screen to the Right F7 Spell check selected text or document F11 Create chart Excel Shortcut Keys for Working with Cells Combinações Simples Ctrl + A Select all contents of the worksheet Ctrl + B Bold highlighted selection Ctrl + I Italic highlighted selection Ctrl + K Insert link Ctrl + U Underline highlighted selection Ctrl + 5 Strikethrough highlighted selection Ctrl + P Bring up the print dialog box to begin printing Ctrl + Z Undo last action Ctrl + Y Redo last action Digitação de Dados F2 Edit the selected cell Ctrl + Shift + ; Enter the current time Ctrl + ; Enter the current date Alt + = Create a formula to sum all of the above cells Ctrl + ' Insert the value of the above cell into cell currently selected Select & Move in the sheet F5 Go to a specific cell. For example, C6 Alt+Arrow Down Display the AutoComplete list Shift + Space Select entire row Ctrl + Space Select entire column Ctrl+Shift+o Select all cells with comments Shift+Arrow Keys Extend the selection by one cell Ctrl+Shift+Arrow Key Extend the selection to the last cell with content in row or column Shift+Page Down/Shift+Page Up Extend the selection down one screen /up one screen Shift+Home Extend the selection to the beginning of the row Ctrl+Shift+Home Extend the selection to the beginning of the worksheet Ctrl+Shift+End Extend the selection to the last used cell on the worksheet (lower-right corner) Arrow Keys Move one cell up, down, left, or right in a worksheet Home Move to the beginning of a row in a worksheet Ctrl+Home Move to the beginning of a worksheet Ctrl+End Move to the last cell with content on a worksheet Ctrl+ Arrow key Move to next section of text Ações dentro da célula Ctrl+Arrow Lef t/ Ctrl+Arrow Right Move one word to the left / to the right Home / End Move to the beginning / to the end of a cell entry Alt+Enter Start a new line in the same cell Enter Complete a cell entry and move down in the selection Shift+Enter Complete a cell entry and move up in the selection Esc Cancel a cell entry Backspace Delete the character to the left of the insertion point, or delete the selection Delete Delete the character to the right of the insertion point, or delete the selection Ctrl+Delete Delete text to the end of the line Formatando Ctrl +1 Format cells dialog Ctrl + Shift + ! Format number in comma format Ctrl + Shift + $ Format number in currency format Ctrl + Shift + # Format number in date format Ctrl + Shift + % Format number in percentage format Ctrl + Shift + ^ Format number in scientific format Ctrl + Shift + @ Format number in time format Ctrl+Shift+~ Apply the General number format F4 Repeat last formatting action/Apply previously applied Cell Formatting to a different Cell Ativando a edição ou Selecionando as células Ctrl+d Fill complete cell down (Copy above cell) Ctrl+r Fill complete cell to the right (Copy cell from the left) Ctrl+" Fill cell values down and edit (Copy above cell values) Ctrl+' (apostrophe) Fill cell formulas down and edit (Copy above cell formulas) Ctrl+l Insert a table (display Create Table dialog box) Ctrl+- Delete Cell/Row/Column Menu Ctrl+Shift++ Insert Cell/Row/Column Menu Ctrl+- with row /
column selectedDelete row / delete column Ctrl+Shift++ with row /
column selectedInsert row/ insert column. Shift+F2 Insert / Edit a cell comment Shift+f10, then m Delete comment. Alt+F1 Create and insert chart with data in current range as embedded Chart Object F11 Create and insert chart with data in current range in a separate Chart sheet Ctrl+k Insert a hyperlink Enter (in a cell with a hyperlink) Activate a hyperlink Mostrando e escondendo elementos Ctrl+9 Hide the selected rows Ctrl+Shift+9 Unhide any hidden rows within the selection Ctrl+0 (zero) Hide the selected columns Ctrl+Shift+0 (zero) Unhide any hidden columns within the selection Ctrl+ ~ Alternate between displaying cell values and displaying cell formulas Alt+Shift+Arrow Right Group rows or columns Alt+Shift+Arrow Left Ungroup rows or columns Ctrl+6 Alternate between hiding and displaying objects Ctrl+8 Display or hides the outline symbols Ctrl+6 Alternate between hiding objects, displaying objects, and displaying placeholders for objects Fórmulas e Nomes = Start a formula Alt+= Insert the AutoSum formula Shift+F3 Display the Insert Function dialog box Ctrl+a Display Formula Window after typing formula name Ctrl+Shift+a Insert Arguments in formula after typing formula name Shift+F3 Insert a function into a formula Ctrl+Shift+Enter Enter a formula as an array formula F4 After typing cell reference (e.g. =A5) makes reference absolute (=$A$5) F9 Calculate all worksheets in all open workbooks Shift+F9 Calculate the active worksheet Ctrl+Alt+F9 Calculate all worksheets in all open workbooks, regardless of whether they have changed since the last calculation Ctrl+Alt+Shift+F9 Recheck dependent formulas, and then calculates all cells in all open workbooks, including cells not marked as needing to be calculated Ctrl+Shift+u Toggle expand or collapse formula bar
