What do you want to save?
Add Code snippet
New code examples in category VBA
-
-
Awgiedawgie 2022-03-08 07:50:02
selecttoken em vbnet e json
Option Strict On Imports Newtonsoft.Json Imports Newtonsoft.Json.Linq Imports System.Net.Http Imports System.IO Module Module1 Sub Main() Dim t = JsonTestAsync() Console.ReadKey() End Sub Private Async Function JsonTestAsync... Add solution -
-
Awgiedawgie 2022-03-05 23:30:12
xl vba test if specific bits set in byte
'Fast VBA function to test if specific bits are set 'within a Byte. If ALL specified bits are set then this function 'returns True. If ANY of the specified bits are not set then 'this function returns False. 'Bits are numbered from 0 to 7, so the first ... Add solution -
Awgiedawgie 2022-03-05 11:55:05
excelvba is bit set in 64-bit longlong 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 -
Awgiedawgie 2022-03-02 18:35:20
vba left shift operator
'Many programming languages have a bitwise left-shift operator: << 'VBA does not. However, it can be emulated in a performant function: Function ShiftLeft1&(ByVal n&) ShiftLeft1 = 2& * (n And 1073741823): If n And 1073741824 Then Sh... Add solution -
A-312 2022-03-02 17:35:02
excel vba create recordset from table
'VBA function to create a detached, in-memory ADO recordset from an 'Excel table. This is the fastest method by far: Function RSFromExcelTable(ws As Worksheet, table) Dim sXML, oXML With ws.ListObjects(table) sXML = Union(.HeaderRowRange... Add solution -
A-312 2022-03-02 12:20:08
vba filter hex digits from string excel
'Extremely fast function to parse hexidecimal digits from text string: Function ForceStringToHexDigitsOnly$(s$) Dim i&, p&, max&, t& Dim b() As Byte, res() As Byte Static keep() As Boolean Const VALS$ = "0123456789 A... Add solution -
Awgiedawgie 2022-03-02 11:50:10
export datagridview to excel vb.net
Private Sub Export_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VIEW_Button.Click Dim xlApp As Microsoft.Office.Interop.Excel.Application Dim xlWorkBook As Microsoft.Office.Interop.Excel.Workbook Dim xlWor... Add solution