Posts

Showing posts from October, 2015

Selecting a Range of Cells Relative to the Current Cell (Microsoft Excel)

Selecting a Range of Cells Relative to the Current Cell (Microsoft Excel)



Range(Cells(Selection.Row, 1), Cells(Selection.Row, 3)).Select

Preventing Problems With Worksheet Renaming

Preventing Problems With Worksheet Renaming



ThisWorkbook.VBProject.VBComponents("Sheet1").Name = "SummarySheet"



Renames the object value of the worksheet. Comes in handy and streamlines the code.



I suspect VBA needs programmatic access to teh project model which can be solved here:



''RESOLUTION

''For any Automation client to be able to access the VBA object model programmatically, the user running the code must explicitly

''grant access. To turn on access, the user must follow these steps.

''

''Office 2003 and Office XP

''Open the Office 2003 or Office XP application in question. On the Tools menu, click Macro, and

''then click Security to open the Macro Security dialog box.

''

''On the Trusted Sources tab, click to select the Trust access to Visual Basic Project check box to turn on access.

''Click OK to apply the setting. You may need to restart the application for the code to run properly if you …

Folder Maker and shortcut creater AND REcurse Checker

MODULE FOLDER MAKER

Option Explicit Private fso AsNew FileSystemObject Dim RecurseCheck AsNew recurselimit Dim WSH As WshShell PublicSubCreateFolderStructure() Set WSH = CreateObject("WScript.Shell") ''WshShell''Set lnk = CreateObject("WScript.Shell") ''As WshShortcut RecurseCreateFolders "00-ROOT"''entry point iis to pass name of root sheet to recursive process''Set lnk = NothingSet WSH = Nothing MsgBox "DONE"EndSubPrivateSubRecurseCreateFolders(ByVal strWSSub AsString, OptionalByVal strFPpfix AsString) '', Optional FN As String, Optional XCUT As String)Dim lastrow AsIntegerDim I Dim strFP AsStringIf strWSSub <> "00-ROOT"And RecurseCheck.LimitReached(strWSSub) ThenExitSubIf strFPpfix > ""ThenIf Right(strFPpfix, 1) <> "\"Then strFP = strFPpfix & "\"EndIfEndIfIfNot WorksheetExists(strWSSub) ThenExitSub'&#…

Software Inventory Excel VBA

Option Explicit ''original source from'''http://www.mrexcel.com/forum/excel-questions/535773-list-softwares-installed-excel-using-visual-basic-applications.html''updated by Ron E. AllenPrivate sFileName AsStringPrivate StrComputer AsStringPrivateConst MAX_COMPUTERNAME_LENGTH AsLong = 31PrivateDeclare PtrSafe Function GetComputerName Lib"kernel32" _ Alias"GetComputerNameA" (ByVal lpBuffer AsString, nSize AsLong) AsLongPublic sCompName AsStringPublic strDomain AsStringSub GetInstalledSoftware() 'Dim sTitle As StringDim s AsStringDim wsh AsNew WshShell 'sTitle = "You are about to retrieve the software installed on your computer."'MsgBox sTitle StrComputer = GetCompName If StrComputer = vbNullString ThenExitSub StrComputer = Trim(StrComputer) If StrComputer = ""Then StrComputer = "." sCompName = GetProbedID(StrComputer) If Len(sCompName) > 0Then …

Acoustics Modeling | ANSYS e-Learning | CAE Associates - YouTube

Acoustic sound simulation in Revit: Enscape™ Tutorial - YouTube

Looks interesting for rough acoustic evaluation in Revit...

Acoustic sound simulation in Revit: Enscape™ Tutorial - YouTube