What do you want to save?
Add Code snippet
New code examples in category VBA
-
ANTHONY WALKER 2021-09-02 23:16:02
xlvba is bit set in 64-bit integer
'Extremely fast VBA function to test if a specified bit is set 'within a 64-bit LongLong integer. 'Bits are numbered from 0 to 63, so the first (least significant) bit 'is bit 0. 'Note: we do not inspect bit 63, the sign bit. 'Note: the LongLong data t... Add solution -
Megadeth 2021-09-02 22:52:01
excel vba exit for next loop
'In VBA how to exit a For Next loop when a condition 'is met: use Exit For. For i = 1 To 1000 c = c + 1 If c = 750 Then Exit For Next 'Exit For can also be used inside a For Each loop: For Each r In [A1:A10] c = c + c If r.Value = "Hi&qu... Add solution -
Kell Willsen 2021-08-31 23:47:02
vba string to date
Dim myDate As Date, strDate As String myDate = CDate("2021-01-28") strDate = Format(myDate, "YYYY-MM-DD") ' 2021-01-28 ' String to date myDate = CDate(Format$("20210213101235", "####-##-## ##:##:##")) ' Date to... Add solution -
Wonderan 2021-08-31 17:06:04
VB Error Code BC30201
Loop Until points <= 0 Or >= 30 Add solution -
Vincent Garbrant 2021-08-31 15:20:03
delete all controls in an area vb
Private Sub ClearControls() 'removing the controls from Me.Controls Me.SuspendLayout() For Each Control As Control In ListToDelete Me.Controls.Remove(Control) Next Me.ResumeLayout() ListToDelete = New List(Of Control) End Sub Add solution -
George Feb 2021-08-31 15:03:03
excel vba queue fifo memory structure first in first out
'VBA does not include a native QUEUE (FIFO: FIRST-In-FIRST-Out) memory 'structure. It is possible to implement AN a QUEUE using nothing but a native 'array or collection. 'However, the easiest solution is to have VBA create and use a .NET Queue: Set Que... Add solution -
S. Thornton 2021-08-31 13:00:02
excel vba force recalculation
'VBA routine to force the workbook to recalculate: Sub ForceCalc(Optional Full As Boolean) With Application .Calculation = xlCalculationManual .Calculation = xlCalculationAutomatic If Full Then .CalculateFull End With End Sub Add solution
Best helpers
Mary Ortel
+5
Ceekay
+5
NHaskins
+5
Isaac Moses
+5
Nacib Neme
+5
Jcora
+5
Prismonic
+5
Mr Regulus
+5
Seung
+5
Poma
+5
Goodside
+5
Malaz
+5
Cyndyb
+5
Simon Crase
+5
Larry Holt
+5
Jenno
+5
Jean Luis
+5