Group: microsoft.public.sms.tools · Group Profile · Search for Training3 in microsoft.public.sms.tools
Author: Maro
Date: Aug 27, 2007 11:46
Option Explicit Sub test() Dim iRowPtr As Integer, iClmPtr As Integer Dim iFirstRow As Integer, iLastRow Dim iKount As Integer, iSumRow As Integer Dim sTrainNum(1 To 4) As String, sMissed As String iFirstRow = r1 iLastRow = r2 iSumRow = 1 sTrainNum(1) = "Training1" sTrainNum(2) = "Training2" sTrainNum(3) = "Training3" sTrainNum(4) = "Training4" For iRowPtr = iFirstRow To iLastRow
|