=a1&" "&a2 = $A1 & "-" & $B1 & ":" & row()
Function ACID(R1 As Range, R2 As Range) As String
Application.Volatile
Dim i As Integer
For i = 1 To Len(R1)
ACID = ACID & Asc(Mid(R1.Value, i, 1))
Next i
For i = 1 To Len(R2)
ACID = ACID & Asc(Mid(R2.Value, i, 1))
Next i
End Function| Excel Workbook | |||
|---|---|---|---|
| A | |||
| 1 | Smith, Jim | ||
| 2 | Great Northern Company | ||
| 3 | 3019 | ||
Sheet1 | |||
Option Explicit
Function SumCODE(c1 As Range, c2 As Range) As Integer
Dim Total%, LoopCtr%
For LoopCtr% = 1 To Len(c1) Step 1
Total% = Total% + Asc(Mid(c1.Value, LoopCtr%, 1))
Next LoopCtr%
For LoopCtr% = 1 To Len(c2) Step 1
Total% = Total% + Asc(Mid(c2.Value, LoopCtr%, 1))
Next LoopCtr%
SumCODE = Total%
End Function
Hi,
Dim crc32Table() As Long
'--------------------------------------------------
' Function : Crc32
' Parameter : StrBuf
' Purpose : Calc CRC32 of StrBuf string
' VBA usage : Call Crc32("My test string")
' XL usage : =Crc32(A1&A2)
'--------------------------------------------------
Function Crc32(StrBuf As String) As Long
Dim i%, j%
Crc32 = -1
On Error Resume Next
i = UBound(crc32Table)
If Err <> 0 Then Call InitCrc32
For i = 1 To Len(StrBuf)
j = (Crc32 And 255) Xor Asc(Mid$(StrBuf, i, 1))
Crc32 = ((Crc32 And -256) \ 256) And 16777215
Crc32 = Crc32 Xor crc32Table(j)
Next i
Crc32 = Not (Crc32)
End Function
'--------------------------------------------------
' Procedure : InitCrc32
' Purpose : Fill crc32Table by PKZip polinomial
'--------------------------------------------------
Private Sub InitCrc32()
Dim Crc&, i%, j%
ReDim crc32Table(0 To 255)
For i = 0 To 255
Crc = i
For j = 8 To 1 Step -1
If (Crc And 1) Then
Crc = ((Crc And -2) \ 2&) And 2147483647
Crc = Crc Xor -306674912
Else
Crc = ((Crc And -1) \ 2&) And 2147483647
End If
Next j
crc32Table(i) = Crc
Next i
End Sub
'--------------------------------------------------
' Procedure : Test_Crc32
' Purpose : Testing
'--------------------------------------------------
Sub Test_Crc32()
Dim s As String
s = "First Ladies rule the State and state the rule: ladies first"
MsgBox s & vbCr & "CRC32=" & Crc32(s)
End Sub
dim continue as boolean
dim ID as long ' Your Previously formed ID Number
continue = true
while continue
for row =topRow to BottomRow
if datasheet.cells(row, IDCol) = ID then
ID=ID+1
row = bottomrow+1
continue
endif
next
wenddatasheet.cells(row,IDCol).formula = "= if(R1C:R[-1]C = RC, RC+1,RC)"
datasheet.cells(row,IDCol).value = ID
