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

4 comments:

  1. Anonymous7:04 AM

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

    ReplyDelete
  2. 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

StumbleUpon
Share on Facebook
Related Posts Plugin for WordPress, Blogger...

Visual Basic for Applications (VBA) Forum (recent threads)

CodeKeep VBA Feed

Visual Studio Tools for Office Forum (recent threads)

Download Windows Live Toolbar and personalize your Web experience! Add custom buttons to get the information you care about most.

Office Business Applications (OBA) Team Blog

MSDN Code Gallery Published Resources For Tag VSTO

microsoft.public.vsnet.vstools.office Google Group