Pages

▼

Friday, March 02, 2007

Character to ASCII

This function will print the ASCII values for corresponding characters in the first and second column respectively

Sub Convert2_Asc_Values()

For i1 = 1 To 256

Cells(i1 + 1, 3).Value = Asc(Cells(i1 + 1, 2).Value)

Next i1
End Sub



AddMe - Search Engine Optimization
at

4 comments:

  1. Anonymous7:04 AM

    i1 gives an error... Don't you mean just 'i'?

    ReplyDelete
  2. Fernando Castaño7:10 AM

    The complete: i1 its a Var not declarated

    Sub Convert2_Asc_Values()
    Dim i1 as integer

    For i1 = 1 To 256

    Cells(i1 + 1, 3).Value = Asc(Cells(i1 + 1, 2).Value)

    Next i1
    End Sub

    ReplyDelete
  3. Anonymous11:22 PM

    its given error.. invalid procedure call or argument

    ReplyDelete
  4. Anonymous7:39 AM

    put the value in the cell from row 2 to row 257

    ReplyDelete