bez setu a cyklu! Ako??? :)
eLCHa: ja na SET nemam hlavu ... ja mam rad ked sa svet toci :)
pardon pravda :)
niesom si isty ale nema to tu istu syntaxu ako do MS SQL??
napr. vyber dat:
SELECT * FROM test
nechcete ten priklad do MS SQL? :))
ja tu nemam nainstalovany access
napr:
for x = 1 to 666
if cells(x,1) <> "" then rows(x).delete
next
urobte to takto:
Private xl As Excel.Application
Private W As Workbook
sub test()
Set xl = CreateObject("Excel.Application")
Set W = xl.Workbooks.Open(Application.ThisWorkbook.Path & "\dd.xls")
w.cells(1,1) = cells(1,1)
W.Application.DisplayAlerts = False
W.SaveAs Filename:=Application.ThisWorkbook.Path & "\dd2.xls"
W.Application.DisplayAlerts = true
Set w = Nothing
Set xl = Nothing
end sub
nekontroloval som ten subor ale mate
Application.Displayalerts = FALSE tento prikaz definovany na ten otvoreny subor??
inac to da aktualne viditelny
netusim ci to je spravne ale skuste toto:
Sub test()
TestTime = VBA.DateTime.Timer + 0.01
For x = 1 To 10000
Cells(x, 1) = x
If VBA.DateTime.Timer >= TestTime Then
y = y + 1
Cells(y, 2) = VBA.DateTime.Timer
TestTime = VBA.DateTime.Timer + 0.01
End If
Next
End Sub
prihodte prilohu takto mozem hadat naco to presne potrebujete
no jednoduchsie by bolo vypisovat to non stop a potom nakoniec to vyfiltrovat :) nic ine ma nenapada
to uz sa riesilo tu:
http://wall.cz/index.php?m=topic&id=13871
husita napsal/a:
ahoj všichni, nedaří se mi nainstalovat mscomct2.ocx do office2010, poraďte kde dělám chybu, nebo je nějaký jiný způsob jak dostat kalendář do comboboxu?
skuste suboru prpisat koncovku na .zip a kuknite sa dovnutra co je to za obrazok co nevie zobrazit ... popripade ho prepiste funkcnym z toho suboru co funguje ... potom len tu koncovku zmente naspat
ale to len hadam potrebopval by som tie subory vidiet
marjankaj napsal/a:
No je tam rekurzívne volanie, takže asi ten OLDPOINTER sa stále mení.
Možno by stačilo napríklad
Application.Cursor=xlNorthwestArrow
Neviem, musel by som skúšať. A teraz nemám čas.
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
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.