neviete prosim este, ako tieto prepocty zrychlit, alebo ako dosiahnut aby stale neprepocitavalo bunky pri kazdom zapise, aj v inom harku?citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: odstraneni prazdnych b
MS Excel
Téma: odstraneni prazdnych b 
Zaslal/a mordredd 16.9.2010 22:25
Zdravim vas,
vedel by mi niekto popisat ako co najednoduchsie odstranit vsetky prazdne bunky v stlpchoch tabulky?
Cize z takejto tabulky
jozo fero lubo
2 2 2
3
4 4
5 5 5
... dostat taku tabulku?
jozo fero lubo
2 2 2
3 4 5
4 5
5
Strana: « předchozí 1
2
Do funkce přidat FALSE zbytek už tam je. to jen, aby se to false dalo na správné místo.citovat
Public Function SVYHLEDAT2(Table As Range, SearchColumnNum As Integer, _
SearchValue As Variant, Rank As Integer, ResultColumnNum As Integer)
Dim i As Integer
Dim iCount As Integer
Dim rCol As Range
Application.Volatile False
SVYHLEDAT2 = ""
For i = 1 To Table.Rows.Count
If Table.Cells(i, SearchColumnNum) = SearchValue Then
iCount = iCount + 1
If iCount = Rank Then
SVYHLEDAT2 = Table.Cells(i, ResultColumnNum)
Exit For
End If
End If
Next i
End Functioncitovat
SearchValue As Variant, Rank As Integer, ResultColumnNum As Integer)
Dim i As Integer
Dim iCount As Integer
Dim rCol As Range
Application.Volatile False
SVYHLEDAT2 = ""
For i = 1 To Table.Rows.Count
If Table.Cells(i, SearchColumnNum) = SearchValue Then
iCount = iCount + 1
If iCount = Rank Then
SVYHLEDAT2 = Table.Cells(i, ResultColumnNum)
Exit For
End If
End If
Next i
End Functioncitovat
Strana: « předchozí 1
2
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články