This is an esoteric OOP concept and there’s a little more you need to do and understand to use a custom collection of shapes. You may first want to go through this answer to get a general understanding of classes and interfaces in VBA. Follow the below instructions First open Notepad and copy-paste the below …
I would expect the error is to do with the macro you’re calling, try the following bit of code: Code import os, os.path import win32com.client if os.path.exists(“excelsheet.xlsm”): xl=win32com.client.Dispatch(“Excel.Application”) xl.Workbooks.Open(os.path.abspath(“excelsheet.xlsm”), ReadOnly=1) xl.Application.Run(“excelsheet.xlsm!modulename.macroname”) ## xl.Application.Save() # if you want to save then uncomment this line and change delete the “, ReadOnly=1” part from the open function. xl.Application.Quit() …
Try using Worksheet.Protect “Password”, UserInterfaceOnly := True If the UserInterfaceOnly parameter is set to true, VBA code can modify protected cells. Note however that this parameter does not stick. It needs to be reapplied each time the file is opened.
From other forums, I have learned that it is due to the MS Update and that a good fix is to simply delete the file MSForms.exd from any Temp subfolder in the user’s profile. For instance: C:\Users\[user.name]\AppData\Local\Temp\Excel8.0\MSForms.exd C:\Users\[user.name]\AppData\Local\Temp\VBE\MSForms.exd C:\Users\[user.name]\AppData\Local\Temp\Word8.0\MSForms.exd Of course the application (Excel, Word…) must be closed in order to delete this file.
Posting a response so I can mark my own “question” as having an answer. I’ve seen other workarounds, but this seems simpler and I’m surprised it works at all. Sub ChangeIt(c1 As Range, c2 As Range) c1.Value = c2.Value c1.Interior.Color = IIf(c1.Value > 10, vbRed, vbYellow) End Sub ‘######## run as a UDF, this actually …
The best you can do is bend the office Visual Basic Editor (VBE) tool to your liking. If you stay in it’s native environment you get the full power of error detection, Intellisense, live code running, etc. My tips… In the VBE go to Tools > Options > Editor tab. Turn off ‘Auto Syntax Check’. …
To answer your direct question, it is: Range(“A1”).NumberFormat = “@” Or Cells(1,1).NumberFormat = “@” However, I suggest changing the format to what you actually want displayed. This allows you to retain the data type in the cell and easily use cell formulas to manipulate the data.
Isn’t it good enough? Public Function Contains(col As Collection, key As Variant) As Boolean Dim obj As Variant On Error GoTo err Contains = True obj = col(key) Exit Function err: Contains = False End Function
You can use a GoTo: Do ‘… do stuff your loop will be doing ‘ skip to the end of the loop if necessary: If <condition-to-go-to-next-iteration> Then GoTo ContinueLoop ‘… do other stuff if the condition is not met ContinueLoop: Loop
Can’t be done natively with VBA. VBA is built in a single-threaded apartment. The only way to get multiple threads is to build a DLL in something other than VBA that has a COM interface and call it from VBA. INFO: Descriptions and Workings of OLE Threading Models