Zamiana na kod ASCII

Question

Napisz program wyświetlający na ekranie tablice kodów ASCII

Mam cos takiego ale nie działa

Private Sub CommandButton1_Click()

licznik = 20
For licznik = 20 To 127 Step 1
TextBox1.Text = TextBox1.Text + Str(licznik) + vbNewLine
Next licznik

TextBox2.Text = Asc(TextBox1.Value) + vbNewLine




End Sub

 

Answer 1

Sub vq()

    For counter = 0 To Application.Selection.Count Step 1
    
        If Not IsEmpty(Application.Selection(counter)) Then
            Application.Selection(counter) = Asc(Application.Selection(counter))
        End If
        
    Next counter
    
End Sub

Jeśli coś byłoby nie tak, to zmień counter = 0 na counter = 1. Żeby zobaczyć rezultat, to musisz wpisać parę znaków w odpowiednie pola w Excel'u, obojętnie w jakie pola, zaznaczyć i uruchomić macro. Odtąd zostaną zamienione wszystkie zaznaczone znaki z zapisu standardowego na zapis w kodowaniu ASCII.

Sub vq2()
    
    For counter = 0 To 127 Step 1
    
        Application.Range("A" & counter + 1) = Chr(counter)
    
    Next counter
    
End Sub