a co tak to rovno zapisat takto:
Range("I4:I6,K4:K6,M4:M6") = CDate(Range("B1"))
ved tak to je nie? :)
mate tamvyrobok rozdeleny podla mesiacov potom podla firiem ktora ho kupila a aj celkovo
takto by to nestacilo?
kedysi som robil web stranky ale vedel som len html css a php :) javascrypt len vyuzivat ... nie tvorit ... ale to ked som bol mlady a blbby :))) a chcel som robit weboveho dizajnera :))) hned ma to preslo
toto asi pojde len makrom
for x = cells(1,1).currentregion.rows.count to 1 step -1
rows(x).delete
next
ale uz sa tu myslim ze daval aj lepsi kod na toto :))) jaj ta moja hlava derava
dik eLCHa za help ... asi tam neham tu hlasku ... kedze nemozem menit registre na firemnych PC :) a HTML code zas nieje mozne editovat a tak isto skusal som aj nejake ine objekty podobne rich text boxu a vsetky robia to iste :)
ale aspon som sa ted naucil ze sa daju robit aj html listy co mne html code nerobi problem .... idem odskusat ci tam ide aj php code :P
praveze ono tuto hlasku pise aj ked stupite do VBA editoru :)
eLCHa: a co pouzivate ked potrebujete zafarbovat casti textu? :)
a zas nic
ze to da uplne cislo tak s tym som sa este nestretol mne to povacsinou robilo to ze ked som dal 3.25454 tak to zapisalo ako 325454 resp. dalo len prec bodku
vie niekto sa zbavit tej hlasky "secure warning" aby sa nezobrazovala pri objecte Microsoft Rich Textbox Control 6.0 (SP6)???
prikladam aj prilohu kde som do cupliku dal show na userform kde sa nachadza ten object Microsoft Rich Textbox Control 6.0 (SP6)
niesom si isty ale skuste si zmenit decimal separator z , na . a potom to tam nahravat
aText = Left(TestString, 4)
LubošKroft napsal/a:
Aha takže tato konstrukce mi rozloží danou proměnou a když potřebuji vytvořit podmínku, lze použít aText jako do IF aby mi to v případě že je v něm GG poslalo program jednou větví a v případě že je prázdný druhou větví???
Předpokládám že pokud je proměnná pouze číslo aText zůstane prázdný??
TestString = Cells(1, 1)
aText = Left(TestString, 2)
bCislo = Mid(TestString, 3, Len(TestString) - 2)
napr.
TestString = "GG545874"
aText = "GG"
bCislo = "545874"
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.