| |
Zdravo,
Zanima me če obstaja pravilo ali pa formula, ki bi mi omogočila sledeče:
Imam kolono v tabeli, katera ima tekst v vsaki vrstici (vrstic je cca 3000), formula bi mi pa pobrisala tekst v vsaki vrstici, kateri je čez mejo 100 znakov.
Seveda bi rad da mi za celotno kolono to naredi naenkrat.
Vem da obstaja validation pravilo, katerega lahko nastaviš koliko je lahko največ znakov, vendar če že imaš znake čez to, to pravilo ne pobriše avtomatsko preseženega teksta.
Za pomoč, bi bil zelo hvalažen.
Hvala in LP
Vasja
spremenil: NikMan (20.2.2010 ob 15.41.14)
|
| |
| |
Pritisni F11, klikni zgoraj Insert/Module, prilepi spodnjo kodo:
Sub brisi()
Dim i
For i = 1 To ActiveDocument.Tables(1).Columns(1).Cells.Count
If Len(ActiveDocument.Tables(1).Columns(1).Cells(i).Range.Text) > 100 Then
ActiveDocument.Tables(1).Columns(1).Cells(i).Range.Text = ""
End If
Next
End Sub
odebeljene enice popravite z številko vaše kolone (torej prva kolona - 1, druga kolona - 2 ...)
in klikni zgoraj na zeleno puščico.
spremenil: kljuka (19.2.2010 ob 12.33.29)
|
| |
| |
Zdravo,
ko kliknem F11 mi izriše graf (char) je to ok?
Potem ko pa grem na INSERT, mi ne monudi opcije Module, prav tako, če ne pritisnem F11 in grem na INSERT nimam opcije module?
Zdej ne vem zakaj tega ni, sem pa pomislil na še eno rešitev če obstaja, da bi v sosedno kolono s funkcijo priklical prvih 100 znakov iz sosednje kot nekako : =LimitChar(A1;100)??
Mogoče kaj takega, ali brcam v napačno smer?
Najlepša hvala!
|
| |
| |
Joooooj ... Pardon ... Ne, tisto zgoraj ne bo delovalo. Sem prebral Word namesto Excel 
Torej, pritisni ALT+F11 in potem zgoraj Insert/Module.
Pred tem pa se postavi v prvo celico v želeni koloni. Prilepi in izvedi (klik na zeleno puščico zgoraj) spodnjo kodo:
Sub brisi()
Dim c, r
c = ActiveCell.Column
r = ActiveCell.Row
For i = r To r + 200
If Len(Cells(i, c).Value) > 100 Then
Cells(i, c).Value = ""
End If
Next
End Sub
|
| |
| |
Hmmm....sem testiral pa ne deluje, pa ne vem zakaj. Sicer ko kliknem run, piše v title vrstici running ampak samo kako sekundo, max dve potem pa izgine, samo zgodi se ne nič.
Mam namreč angleški excel pa sem probal brisi zamenjati z delete pa tudi ni pomagalo...
|
| |
| |
Ja, saj. Malo mora trajati, in sedaj če pogledaš na list, bi se ti mogle izbrisati vrstice, ki imajo več kot 100 znakov.
|
| |
Prikazujem 1 od skupno 1 strani |
|
