The first "For" look at the top just goes through the results cells and clears the results from the last time I ran a check. SPing = sPing & "TTL (s) = " & vbTab & vbTab & oRetStatus.ResponseTimeToLive SPing = sPing & "Time (ms) = " & vbTab & oRetStatus.ResponseTime & Chr(10) SPing = sHost & " Ping Success on " & Now() & Chr(10) If IsNull(oRetStatus.StatusCode) Or oRetStatus.StatusCode 0 Then ("select * from Win32_PingStatus where address = '" & sHost & "'") Set oPing = GetObject("winmgmts:").ExecQuery _ IntSiteCount = CInt(Sheet1.Cells(1, 2).Value) If you look at it that way, you may realize just how much you can accomplish with the application.ĭim oPing As Object, oRetStatus As Object It is actually a design platform for applications. Microsoft Excel is not just a data spreadsheet. If you want to enhance your use of Excel, I invite you to follow along as I share a few of these designs - and simple scripts - that I used to accomplish these tasks. This spreadsheet has 4 tabs and covers everything from grouping links of URLs that I want to launch all at once, to managing my debt and paying it off faster. To help with that, I've decided to share a "Automation" spreadsheet that I've created to manage different areas of my life. However, if you're serious about using Excel to manage more of your life, then you should take the time to learn how VBA coding works. Of course if you aren't much of a coder, you can always get Excel applications someone else has written, like those listed by Simon. In the past, here at MUO, I've shared a few of the things I've done with Excel and VBA, like exporting Excel data into Word or sending out emails straight from Excel.
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |