Příspěvky uživatele


< návrat zpět

Strana:  1 ... « předchozí  53 54 55 56 57 58 59 60 61   další » ... 82

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)


Strana:  1 ... « předchozí  53 54 55 56 57 58 59 60 61   další » ... 82

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

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.

On-line nástroje