MS Excel

Mám už teda vlasů poskrovnu, ale když vidím Select, tak rostou (dodám, že když už jsem si zvykl, že je nemám, tak nechci aby rostly ;) ). Jsou případy, kdy se mu nelze vyhnout, ale těch moc není. Ale k problému.

Pokud jsem to pochopil, data jsou doplňována postupně, den za dnem. Pokud není otevřen soubor 3 dny, chce se doplnit poslední 3 chybějící data.
Tedy zjistím poslední vyplněné datum (fce MAX), počet chybějících hodnot (zjištěné MAX - včera) a ty doplním.
Není tady třeba žádného cyklu a už vůbec selectu.

Sub subWriteMissingDates()
With ThisWorkbook.Sheets("List1")
If IsEmpty(.Cells(1)) Then
.Cells(1).Value = Date - 1
Else
Dim dMax As Date
dMax = Application.WorksheetFunction.Max(.Columns(1))

If dMax < (Date - 1) Then
Dim iMissingValuesCount As Integer
iMissingValuesCount = (Date - 1) - dMax

With .Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0).Resize(iMissingValuesCount, 1)
.Value = Application.Evaluate(CLng(dMax) & "+(ROW(1:" & iMissingValuesCount & "))")
.NumberFormat = "d.m.yyyy"
End With '.Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0).Resize(iMissingValuesCount, 1)
End If
End If
End With 'ThisWorkbook.Sheets("List1")
End Subcitovat

Co je špatnýho na příkazu Select
Neřekl bych špatného, ale zbytečného. Je to většinou zbytečný krok styluRange(XY).Select
Selection.NěcoTím pádem kód změní polohu kurzoru a dojde k překreslení obrazovky, což je velmi zdržující. Správně je tedy Range(XY).Něco
Vy to máte "vyřešeno" pomocí ScreenUpdatingu (což u nekorektního ukončení kódu nebo většího projektu může způsobit problémy), takže vlastně k žádnému zdržení nedojde. Znamená to ale, že kód vykonává zbytečnou činnost, zvlášť když tam máte Select 2x za sebou. Není zanedbatelná ani nepřehlednost kódu.
Zásada je co nejméně změnových přístupů na list. V mém kódu pouze čerpám data, vše vypočtu a teprve potom najednou zadám do celé oblasti výsledné hodnoty. Vyhnul jsem se překalkulování listu během kódu i překreslování obrazovky během kódu - tedy 2 asi nejvíce zdržujících procesů.

Samozřejmě, příkaz Select slouží k umístění kurzoru. Tedy pokud má kód umisťovat kurzor, tak je zbytečné vymýšlet něco jiného, protože by nějakému chytrolínovi (myšleno mně) rostly vlasy i když nechce.citovat

pro eLCHa:

Děkuji za Váš čas a podrobné vysvětlení.

Po vložení

.Select
.Cells(.Rows.Count, 1).End(xlUp).Select
mě to dávalo "kurzor" na buňku A1. Já potřebuju aby mi to kurzor dávalo na řádek se včerejším datem do sloupce I. Proto jsem si dovolil upravit kód takto:

.Select
.Cells(.Rows.Count, 9).Select
Několikrát jsem to vyzkoušel a funguje mi to. Snad je úprava v pořádku.

Děkuji za Vaši trpělivost se mnou citovat

Já mám Excel 2007.

V souboru Datum_pred_odtranenim_End(xlUp) jsem jen změnil sloupec kde se umístí kurzor. Nyní se umisťuje do buňky I1.

V souboru Datum_po_odtraneni_End(xlUp) jsem odtranil End(xlUp)a změnil sloupec. Nyní se mi kurzor umístí ve sloupci I na řádku posledního data (včerejší datum).

Vyzkoušeno na dvou stolních PC a dvou NTB s Excelem 2007.

Netvrdím v žádném případě že je to správně, že je to bez chyby. Ale mě to tak prostě funguje.citovat