Příspěvky uživatele


< návrat zpět

Strana:  1 ... « předchozí  45 46 47 48 49 50 51 52 53   další » ... 82

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ý??


1. odpoved: ano vzdy to zobere prve dva znaky z lava ... ked text nebude obsahot ziadny znak tak vysledok LEFT funkcie je "" .... tak isto ked tam bude len jeden znak napr "G" tak vysledok je "G"

2. odpoved: ked je len cislo mozno vam pomoze funkcia:
If Not IsEmpty(TestString) And IsNumeric(TestString) Then
else
end if

tu zistuje ci nieje bunka prazna a sucasne je cislo potom spravi

TestString = Cells(1, 1)
aText = Left(TestString, 2)
bCislo = Mid(TestString, 3, Len(TestString) - 2)

napr.
TestString = "GG545874"

aText = "GG"
bCislo = "545874"


Strana:  1 ... « předchozí  45 46 47 48 49 50 51 52 53   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