< návrat zpět

MS Excel


Téma: Pomoc s VBA rss

Zaslal/a 23.4.2013 1:09

čest kucí prosím o pomoc jukněte na přílohu. Když kliknu do buňky tak chci aby se mi zobrazil kalendář kde si vyberu datum a to aby se mi zaneslo do buňky ve formátu "dd/mm" to znamená že datum 1.1.2013 se zapíše jako "01/01", mi se zdá že vše fachčí ok, ale výsledek se mi přehazuje měsíc s dnem, ale dle krokování bych měl mít vše ok tak už netuším kde se tesař utnul díky za každou radu 6

Příloha: rar13061_cu2.rar (21kB, staženo 71x)
Příspěvek byl přidán.
stop Uzamčeno - nelze přidávat nové příspěvky.

icon #013064
avatar
No, napísať, že 1.1.2013 chceš ako "01/01" je fakt super skvelé jednoznačné vyjadrenie 1
To skoro na konciTarget.Value(datum) = datchce byť čo, prosím? 1
Napíš miesto tohoTarget.Value = dat, malo by to fungovať, pokiaľ som pochopil správne

Každopádne, potom máš v stĺpci A iba text, nie dátum, to samé platí o bunke O1. Pre získanie skutočného dátumu, t.j. numerickej hodnoty, musíš v kóde formulára zmeniť udalosť Click naPrivate Sub Calendar1_Click()
'Dim datum
datum = UserForm1.Calendar1.Value
MsgBox (datum)
Range("O1").Value = CDate(datum) 'tu je ta zmena, o ktorej hovorim
Unload Me
End Sub
citovat
#013065
avatar
AL - tak jsem to zkusil, ale bohužel mi to nefunguje.
Problém je že netuším jak si deklarovat globální proměnnou, která bude dostupná odevšad. Proto to ukládám v této metodě do buňky "O1", ta je jen pomocná
Private Sub Calendar1_Click()
datum = UserForm1.Calendar1.Value
MsgBox (datum)
Range("O1").Value = CDate(datum)
Unload Me
End Sub

a jen tak mezi řečí v té buňce "O1", tak tam se mi datum zobrazuje správně, ale ne už tam kde chci v buňkách "A4:A41" tam mi to přehazuje datum a vůbec netuším proč.

tu proměnnou bych potřeboval přenést sem do této metody,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
....
...
End Sub


prostě po kliku ve formu na datum potřebuji aby se mi v buňce "A4:A41" zobrazil datum v mnou požadovaném formátu tzn.: "dd/mm" a toto mi nějak nejde.

9 Už tuším proč se mi v hlavě ozývá hlas, který křičí že má hlad. To bude můj mozkožrout, který umírá hlady 4 5 6 3citovat
icon #013067
avatar
Mno, pokiaľ som Tvoje makro spúšťal u seba, tak síce v O1 bolo niečo, čo sa ako dátum tvárilo, v skutočnosti to ale bol text. V stĺpci A, než som konvertoval reťazec v O1 na dátum, tak mi to vyhadzovalo chybu, následne sa mi v stĺpci A zobrazujú textové reťazce v tvare "DD/MM" ale stále je to text. Takže, netuším, prečo to u teba funguje inak, tipol by som na iné nastavenie v národnom prostredí.citovat
#013069
avatar
hm tak jsem to vyřešil, přehodil jsem měsíc s dnem a ono to fachčí 9

tak to můžeme lockcitovat

Uživatelské menu

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

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

Sloučení dat dvou sešitů

marjankaj • 18.5. 21:31

Sloučení dat dvou sešitů

Anonym • 18.5. 21:25

Sloučení dat dvou sešitů

marjankaj • 18.5. 21:08

Sloučení dat dvou sešitů

Scraper • 18.5. 18:38

přiřazování hodnot funkcí když

elninoslov • 17.5. 23:50

přiřazování hodnot funkcí když

Borks • 17.5. 23:06

Otevřený sešit zpomaluje makro

Pavdi07 • 17.5. 15:25