Sancarn sancarn

Inspired by Hellstone115

graph TD
    %%{ init: { "layout": "elk" } }%%
    %% --- Houses ---
    houseTachonis[House Tachonis]:::house
    houseHalovar[House Halovar]:::house
    houseKsharavi[Ksha’aravi]:::house
    houseRoyce[House Royce]:::house

MCopyMemory

Based almost entirely on the work of cristianbuse's MemoryModule, this is merely a minimal example and substitute for CopyMemory in VBA without any other helper functions.

Kudos to Cristian for building the original solution.

This gisst was made in response to a reddit thread here. OP Claims that ChatGPT is good at writing basic VBA code if you give it clear instructions.

Explaining code in such a way that it codes the correct thing is pretty awful though, slow and tedious... Let's try to do that for stdTimer.

The prompt I used was as follows:

I want to write a predeclared VBA class. Next I want to add public event Tick with no parameters. Next I need a remote workbook property with events and a callback object. I want a Create method which acts as a constructor, which creates and initialises an object via the protInit method. The Create method should have params milliseconds and an optional callback of type stdICallable. In the initialisation method I need to set access to the VB object model to true, then create a new instance of Application and wi

The Excel Error

It is quite common at least in our business that when people are building spreadsheets they accidentally link data without properly acknowledging the linkage. This can cause error messages later on which can irritate users. The error messages you might recieve often contian the text:

Microsoft Excel cannot access the file 'https://.../myfile.xlsx'. There are several possible reasons:

or

Cannot download the information you requested

Now let's actually look at the code originally investigated in the author's original video ported to VBA

public sub run()
  while true
    Dim path as string
    while (path = requestedUrls.poll()) != null    
      downloads.add(new DownloadState(path))
    wend
    if not me.connectionDisabled then

Dim iterator as ListIterator

	'Gets all hidden range subsets within a range.
	'@param r - Range to find hidden ranges within
	'@returns - All hidden range within `r`
	Public Function getHiddenRange(ByVal r As Range) As Range
	Dim oVisible As Object: Set oVisible = CreateObject("Scripting.Dictionary")
	Dim rVisible As Range: Set rVisible = r.SpecialCells(xlCellTypeVisible)
	If rVisible.Address = r.Address Then
	Set getHiddenRange = Nothing
	Exit Function
	End If

	Screens:
	SPS Checklist:
	Properties:
	LoadingSpinnerColor: =RGBA(56, 96, 178, 1)
	OnVisible: \|-
	=ClearCollect(myResults, {ID: "", Title: "", Type: "", SortNum: 0, JSON: ""});
	Remove(myResults, First(myResults));
	UpdateContext({VisibleMode: Blank()})
	Children:
	- EditPumpDetails:

	ComponentDefinitions:
	GalleryInput:
	DefinitionType: CanvasComponent
	CustomProperties:
	Default:
	PropertyKind: Input
	DisplayName: Default
	Description: The default value in the property
	RaiseOnReset: true
	DataType: Table

	(function openFormulaEditorPopup() {
	const getFxEditorModel = () => {
	const el = document.querySelector("#formulabar");
	if (!el) return console.warn('No element with ID "formulabar" found.'), null;

	const fiberKey = Object.keys(el).find(k => k.startsWith('__reactInternalInstance'));
	if (!fiberKey) return console.warn('No React internal instance found.'), null;

	let fiber = el[fiberKey];
	const visited = new Set();

	let
	//Computed Helmert transformed X coordinate.
	//@param {number} X - Cartesian X coord in meters
	//@param {number} Y - Cartesian Y coord in meters
	//@param {number} Z - Cartesian Z coord in meters
	//@param {number} DX - Cartesian X translation in meters
	//@param {number} Y_Rot - Y rotation in seconds of arc
	//@param {number} Z_Rot - Z rotation in seconds of arc
	//@param {number} s - Scale in ppm
	//@returns {number} Helmert transformed X coordinate