Salve a tutti c'è qualcuno che mi potrebbe spiegare come costruire la tabella che poi sfrutta questo codice, in excel? so poco e nulla di VB e per questo mi sono iscritto a questo forum.
Il codice dovrebbe convertire le parole in codice binario e viceversa
Public Sub Confronta()
Dim i As Integer
Dim Lett(1 To 27) As Double 'Riconoscimento lettere
For i=1 To 26 Step 1
Lett(i) = Range("b" & i) & Range("d" & i) & Range("e" & i) & Range("f" & i) & Range("g" & i)
Next i
On Error Resume Next
Dim Cod1 As Double 'Acquisizione 1
Cod1 = Range("i15") & Range("j15") & Range("k15") & Range("l15") & Range("m15") & Range ("n15")
For i=1 To 27 Step 1 'Confronto
If Cod1 = Lett(i) Then
Range("i17") = Range("a" & i)
End If
Next i
Dim Cod2 As Double 'Acquisizione 2
Cod2 = Range("o15") & Range("p15") & Range("q15") & Range("r15") & Range("s15") & Range("t15")
For I=1 To 27 Step 1 'Confronto
If Cod2 = Lett(i) Then
Range("o17") = Range("a" & i)
End If
Next i
Dim Cod3 As Double 'Acquisizione 3
Cod3 = Range("u15") & Range("v15") & Range("w15") & Range("x15") & Range("y15") & Range("z15")
For i=1 To 27 Step 1 ' Confronto
If Cod3 = Lett(i) Then
Range("u17") = Range("a" & i)
End If
Next i
Dim Cod4 As Double 'Acquisizione 4
Cod4 = Range("aa15") & Range("ab15") & Range("ac15") & Range("ad15") & Range("ae15") & Range("af15")
For i=1 To 27 Step 1 ' Confronto
If Cod4 = Lett(i) Then
Range("aa17") = Range("a" & i)
End If
Next i
Dim Cod5 As Double 'Acquisizione 5
Cod5 = Range("ag15") & Range("ah15") & Range("ai15") & Range("aj15") & Range("ak15") & Range("al15")
For i=1 To 27 Step 1 'Confronto
If Cod5 = Lett(i) Then
Range("ag17") = Range ("a" & i)
End If
Next i
Dim Cod6 As Double 'Acquisizione 6
Cod6 = Range("am15") & Range("an15") & Range("ao15") & Range("ap15") & Range("aq15") & Range("ar15")
For i=1 To 27 Step 1 'Confronto
If Cod6 = Lett(i) Then
Range("am17") = Range ("a" & i)
End If
Next i
Dim Cod7 As Double 'Acquisizione 7
Cod6 = Range("as15") & Range("at15") & Range("au15") & Range("av15") & Range("aw15") & Range("ax15")
For i=1 To 27 Step 1 'Confronto
If Cod7 = Lett(i) Then
Range("as17") = Range ("a" & i)
End If
Next i
End Sub
Private Sub Label1_Click()
Confronta 'Pulsante "Codice -----------> Parola"
End Sub
Private Sub Label2_Click()
Range("i15", "ax15") = "0" 'Pulisce "Codice -----------> Parola"
Range("i15") = "1"
Range("o15") = "1"
Range("u15") = "1"
Range("aa15") = "1"
Range("ag15") = "1"
Range("am15") = "1"
Range("as15") = "1"
Confronta
End Sub
Private Sub Label3_Click()
Range("i3", "as3") = "\" 'Pulisce "Codice -----------> Parola"
End Sub