EXCEL jedno litera w polu
Witam
Jak zrobić aby w jednym polu wpisac jedna liter/cyfre a nastepny znak automatycznie wpisywalby sie w drugi i nastepnym polu.
np wpisujac nazwisko kazda litera byla by umieszczana w polach sasiadujacych
Jak zrobić aby w jednym polu wpisac jedna liter/cyfre a nastepny znak automatycznie wpisywalby sie w drugi i nastepnym polu.
np wpisujac nazwisko kazda litera byla by umieszczana w polach sasiadujacych
Odpowiedzi: 3
Nie mogę wysłać załącznika. Próbowałem kilka razy i lipa.
Otwórz excela
Wcisnij Alt+F11
Po lewej stronie powinno byc okienko VBAProject
Kliknij dwukrotnie na Arkuszu1
Wkopiuj procedury z poprzedniego postu
Wróć do excela i wpisz coś w pierwszej kolumnie w pierwszym arkuszu
wyjdź z komórki
Czy o czyms zapomniałem?
Otwórz excela
Wcisnij Alt+F11
Po lewej stronie powinno byc okienko VBAProject
Kliknij dwukrotnie na Arkuszu1
Wkopiuj procedury z poprzedniego postu
Wróć do excela i wpisz coś w pierwszej kolumnie w pierwszym arkuszu
wyjdź z komórki
Czy o czyms zapomniałem?
moze jakis przyklad bys poslal. Wielkie dzieki
Hej!!
Niezupełnie tak jak sobie źyczysz ale prawie.
W oknie VBA w zdarzeniach zwiazanych z arkuszem wpisz:
Dim b
Private Sub Worksheet_Change(ByVal Target As Range)
Dim a As Byte
If Target.Column = 1 Then
For a = 1 To Len(Cells(b, 1))
Cells(b, a + 1) = Mid(Cells(b, 1), a, 1)
Next a
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
b = ActiveCell.Row
End Sub
Pozdrawiam
Niezupełnie tak jak sobie źyczysz ale prawie.
W oknie VBA w zdarzeniach zwiazanych z arkuszem wpisz:
Dim b
Private Sub Worksheet_Change(ByVal Target As Range)
Dim a As Byte
If Target.Column = 1 Then
For a = 1 To Len(Cells(b, 1))
Cells(b, a + 1) = Mid(Cells(b, 1), a, 1)
Next a
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
b = ActiveCell.Row
End Sub
Pozdrawiam
Strona 1 / 1