Posts

Showing posts from December, 2023

MS Forms Excel VBA Class Calculate ranged values

VERSION 1.0 CLASS BEGIN MultiUse = - 1 'True END Attribute VB_Name = "ResponseSummary" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = False Attribute VB_Exposed = False Option Explicit Option Compare Text Public ResponsesFoundCount As Integer ''responses in prioritization list Public ResponsesFound As New Collection ''Responses possible in condiseration Public ResponseCount As Integer ''number of responses added to the check Private RPC () As Integer ''RPC array of responses and their relative positions Private ResponseSourceMaxLen As Integer ''maximum lenght of response Private Sub Class_Initialize () Set ResponsesFound = New Collection ''initialize collection End Sub Private Function pad3 ( str As String ) As String pad3 = Right ( &q