radsej by som pouzil druhu moznost
moze sa stat ze nejaka bunka bude prazna a xldown skonci nanej preto je lepsia druha moznost:
With Cells(2, 1).CurrentRegion
aa = .Rows(.Rows.Count).Row + 1
End With
nechcel som to tu davat lebo je to moc velke ale inac to asi nepojde :))
urobil som si addin na sietove sachy pre 2hracov.
takze ked sa makro dostane do stavu ze je na tahu druhy hrac tak kazdu 1s testuje ci uz sa ten hrac posunul .... a to testovanie vytvara blikanie presypacich hodin (ale cursor je definovany na xlDefault) a tomuto efektu by som sa ja rad vyhol
viac priloha:
ano to presne mam namysli ale neviem zistit aky aktualne viditelny cursor aby som ho vedel prepisat na tu 1-2s :) v makre
chci toto opravit:
OldPointer = Application.Cursor
na:
OldPointer = worksheet.Cursor.Now // samozrejme toto nefunguje :)
podrobne som to nestudoval pockam si na file :) ... ale vypada to ze to len schovava riadky nic tam nedoplnujuje
napriklad takto:
prva moznost:
aa = cells(1,1).End(xlDown).row +1
druha moznost:
With Cells(2, 1).CurrentRegion
aa = .Rows(.Rows.Count).Row + 1
End With
Ahojte
uz to hladam vyse 2hodin a stale som nic nenasiel
mam sub ktory sa kazdu 1s opakuje a chcel by som dosiahnut toho aby v cursore neboli vidiet presipacie hodiny resp. aby to vypadalo tak ze sa nic nenacitava
chcel som to riesit takto:
Private Sub TimerStart()
OldPointer = Application.Cursor
Application.Cursor = OldPointer
If TimerCheck = True Then
If Chess.CheckYourMove(aName) Then
Application.OnTime Now() + TimeValue("00:00:01"), "TimerStart"
Else
Chess.loadBoard
TimerCheck = False
End If
End If
Application.Cursor = xlDefault
End Sub
ale OldPointer je nastaveny na xlDefault .... netusite ako zistim aktualny ukazovatel mysi??????
no uz som nato s pomocou kamosa dosiel treba ten object najprv nastavit na visible = false a potom na visible = true
preco to takto riesit lebo microsoft :)
to znie ako domaca uloha na zakladnu skolu :)
Ahojte,
potreboval by som zas poradit :)
urobil som si sachovu hru, ale zatial tam len funguje pohyb strelca
moj problem: Ked chci premiesnit bieleho strelca na sachovej doske tak sa z pozicie kde bol nevymaze a na poziciu kam ho chcem dat neojavi, netusite Preco????
v kode sa jedna o tento prikaz:
Me.Controls.Item("x" & Chess(0, 2) & "y" & Chess(0, 3)).Picture = LoadPicture("")
Me.Controls.Item("x" & x & "y" & y).Picture = LoadPicture(CheckFigure(Chess(0, 4)))
ked dam ine image objekty ktore neboli zakliknute tak to funguje ale to neriesi problem
no musi tam byt nejaky subor co ma viac mb ako v predlohe :) nemoze to byt identicke ako predloha
ked to je subor officu 2007+ tak skuste zmenit koncovku suboru na .zip a sam sa kuknite do suboru co tam ma tak vela mb :) povacsinou su to neskomprimovane obrazky alebo integrovane dalsie excel subory
tak zamieto 5 napiste $BN$11
netusim k comu to potrebujete idealne hodte priklad a ja sa nato kuknu ci to tam pojde dohodit .)
Filter s SQL syntax: sa tu uz myslim ze riesil
ale napr. takto:
neviem ako ste pokrocili v VBA ale pre najrychlejsie vyhladavanie by som vytvoril novy stlpec kde budu spojene 3stlpce a v tom stlpci vyhladal lepsie ako si vytvarat SQL syntax filtrovanie (podla mna najefektivnejsie pre zlozitejsie filtrovacky)
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.