VBA OFFICE - EXCEL, ACCESS, OUTLOOK, POWERPOINT
PROJETOS CURTOS OU LONGOS
Desenvolvo e aprimoro seus Dashboards em MS Excel!
- DASHBOARDS
- SCORECARDS
- BSC
- REPORTs
- Aplicações MS Access
Conecte suas planilhas ao BI!
✔ Programação GLOBAL® - Quaisquer soluções e/ou desenvolvimento de aplicações pessoais, ou da empresa, que não constem neste Blog devem ser tratados como consultoria freelance. Queiram contatar-nos: brazilsalesforceeffectiveness@gmail.com | ESTE BLOG NÃO SE RESPONSABILIZA POR QUAISQUER DANOS PROVENIENTES DO USO DOS CÓDIGOS AQUI POSTADOS EM APLICAÇÕES PESSOAIS OU DE TERCEIROS.
- DASHBOARDS
- SCORECARDS
- BSC
- REPORTs
- Aplicações MS Access
Selection.Sort Key1: = Range ( "B3"), _ Order1: = xlAscending, Header: = xlGuess, _ Orientação: = xlTopToBottom
Sub GuessName () Msg = "Este é o seu nome" & Application.UserName & "?" Ans = MsgBox (Msg, vbYesNo) Se Ans = vbNo Then MsgBox "Bem,isso não importa." Se ans = vbYes Then MsgBox "Claro com certeza!" End Sub
Sub OpenClose()
'Open and Close a File
Dim vPID As Variant
'Launch file
vPID = Shell("notepad.exe ""C:\VBA\text.txt""", vbNormalFocus)
'Perform your actions here
'Kill file
Call Shell("TaskKill /F /PID " & CStr(vPID), vbHide)
End Sub
Sub DailyTimer()
'Run timer
Dim vPID As Variant
'Variation 1:
vPID = Shell("wscript.exe ""C:\VBScripts\Timer.vbs""", vbNormalFocus)
'Variation 2:
Shell "explorer.exe ""C:\VBScripts\Timer.vbs""", 1
'Variation 3:
Call Shell("Explorer.exe ""C:\VBScripts\Timer.vbs""", vbNormalFocus)
'Variation 4 - Open with Notepad for Editing:
vPID = Shell("notepad.exe ""C:\VBScripts\Timer.vbs""", vbNormalFocus)
End Sub
dTimer=InputBox("Enter timer interval in minutes","Set Timer") 'minutes
do until IsNumeric(dTimer)=True
dTimer=InputBox("Invalid Entry" & vbnewline & vbnewline & _
"Enter timer interval in minutes","Set Timer") 'minutes
loop
if dTimer<>"" then
do
WScript.Sleep dTimer*60*1000 'convert from minutes to milliseconds
t=MsgBox("Take a Walk." & vbnewline & vbnewline & "Restart Timer?", _
vbYesNo, "It's been " & dTimer &" minute(s)")
if t=6 then 'if yes
'continue loop
else 'exit loop
exit do
end if
loop
end if
51 = xlOpenXMLWorkbook (sem macros entre as versões de 2007-2013, xlsx)
52 = xlOpenXMLWorkbookMacroEnabled (com ou sem macros nas versões entre 2007-2013, xlsm)
50 = xlExcel12 (Planilha Binária Excel entre as versões 2007-2013 com ou sem macros, xlsb)
56 = xlExcel8 (Versões entre 97-2003 no formato do Excel 2007-2013, xls)