samodejno v VELIKE TISKANE ČRKE

Kako v Excel-u definirati, da mi določen stolpec, kadar vpisujem vanj, samodejno spremeni v VELIKE TISKANE ČRKE.

Za vašo pomoč se vam zahvaljujem,

Loredanaa

nekako takole, vendar se boš morala še sama malce potruditi 🙂

Torej bova napisala nov macro – oz. v urejevalniku visual basic.
vse tole deluje, vendar sem preizkusil samo v excel ver. 2003, tako da
ne vem, če v starejših dela – vendar bi načeloma moralo, čeprav Microsoft ;)))

V meniju si izberi:

– Orodja
– Macro
– Urejevalnik za Visual Basic
– v visual basic-u klikni: View – Code

potem pa samo prilepi spodnjo kodo:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Intersect(Target, Me.Range(“A:A”)) Is Nothing Then Exit Sub
On Error GoTo CleanUp:
With Target
If .Value “” Then
Application.EnableEvents = False
.value = UCase(.value)
End If
End With

CleanUp:
Application.EnableEvents = True
End Sub

Potem Visual Basic zapreva –

Malce komentarja kode:

važna je samo talelele vrstica:
If Intersect(Target, Me.Range(“A:A”)) Is Nothing Then Exit Sub

tukaj vidiva napisano A:A to pomeni, da spreminjamo VSE znake v VELIKE
samo v stolpcu A

če pa želiš to početi npr. v stolpcu C potem ta vrstica
mora izgledati takolelelele:

If Intersect(Target, Me.Range(“C:C”)) Is Nothing Then Exit Sub

aja – pa slo črke (čšž) tudi pravilno spremeni

pa obilo užitka v velikih črkah :))

lp

klemenxx hvala za pomoč in pojasnilo.

Prijeten dan ti želim,

Loredanaa

uf fajn, glih prou, točno to rabm :)))

klemn ti si car
tnx

aja še to, kako pa izpustiš kakšen stolpec

recimo da spreminja samo od a do b pa od d do f

hvala

pa napiši dva macroja pa bo, če bom pa imel kaj časa, ga bom
pa malce spremenil 😉
Mogoče bo pa še Dr.Mr.Fr.Wega kaj pripomogel..

Jaz bi na simpl naredu tukolala…

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

Select Case Target.Column
Case 1, 2, 4 To 6
If Not (Target.Text = UCase(Target.Text)) Then
Target = UCase(Target.Text)
End If
End Select

End Sub

Vrstica Case 1, 2, 4 To 6 pove v katerih stolpcih želiš velike črke. Če želiš dodati kak stolpec, enostavno daš zadaj vejico in vpišeš stevilko stolpca ali rang (10 To 20)

Enostavno lahko popraviš tudi da gleda vrstice. Namesto

Select Case Target.Column

napišeš

Select Case Target.Row

huuudooo model, pi**a ste carji na temu forumu, sploh klemenxx pa ti (se opravičujem vsem k sm jih spustu)

res hvala!!!!