< návrat zpět

MS Excel

Téma: Konstanta do proměnné rss

Zaslal/a archangel 25.6.2014 11:13

Ahoj,
poraďte prosím. V hlavě mám temno a v buňce
A1 - např. xlPatternHorizontal. Jak tuto konstantu načíst do proměnné abych s ní mohl dále pracovat?
Trochu trápí uvozovky (datový typ) 6
Sub vypln()
pozadi = Cells(1, 1)
Cells(1, 2).Interior.Pattern = pozadi
End Sub
Díky

Zaslat odpověď >
Strana:  1 2   další »
Pavlus(25.6.2014 11:41)#020124
avatar
U Cells(1, 1) jsi neuvedl, že chceš ukládat ono pozadí.
P.

Možné řešení:
Sub vypln()
Dim pozadi As Integer
pozadi = Cells(1, 1).Interior.Pattern
Cells(1, 2).Interior.Pattern = pozadi
End Subcitovat
archangel(25.6.2014 11:49)#020125
avatar
To Pavlus
v A1 není nastaveno pozadí, je tam text např. xlPatternHorizontal a podle něj chci nastavit pozadí v A2citovat
icon eLCHa(25.6.2014 12:07)#020128
eLCHa
xlPatternHorizontal není text ale definovaná konstanta s hodnotou -4128
neřešte to přes proměnnou, řešte rovnou

Cells(1, 2).Interior.Pattern = Cells(1, 1).Interior.Pattern


edit:
už asi rozumím
Hodnota buňky je "xlPatternHorizontal"
Nemůžete do buňky napsat -4128 ?citovat
archangel(25.6.2014 12:25)#020133
avatar
To je přesně ono.
Toto je jen příklad pro jednoduchost.
Obecně hledám funkci (něco jako Val či Str), která by převedla text z buňky na datový typ použitelný dále v kódu (viz Téma a uvozovky)citovat
marjankaj(25.6.2014 12:26)#020134
avatar

archangel napsal/a:

To Pavlus
v A1 není nastaveno pozadí, je tam text např. xlPatternHorizontal a podle něj chci nastavit pozadí v A2

Sub vypln()
If Cells(1, 1) = "xlpatternhorizontal" Then pozadi = xlPatternHorizontal
Cells(1, 2).Interior.Pattern = pozadi
End Subcitovat
archangel(25.6.2014 12:41)#020136
avatar
Vtipně a krásně jsi to obešel 2
Já to, ale potřebuji jak jsem psal, text v buňce dostat do proměnné. (jako-by pomocí hodnot v buňce měnit kód.)
Zítra bude v buňce třeba "xlPatternCrissCross" ať se také pozadí změní.citovat
icon eLCHa(25.6.2014 12:48)#020138
eLCHa
Já to, ale potřebuji jak jsem psal, text v buňce dostat do proměnné. (jako-by pomocí hodnot v buňce měnit kód.)
To podle mého názoru neuděláte. Jediná možnost je udělat tabulku např.:

xlPatternAutomatic -4105
xlPatternChecker 9
xlPatternCrissCross 16
xlPatternDown -4121
xlPatternGray16 17
xlPatternGray25 -4124
xlPatternGray50 -4125
xlPatternGray75 -4126
xlPatternGray8 18
xlPatternGrid 15
xlPatternHorizontal -4128
xlPatternLightDown 13
xlPatternLightHorizontal 11
xlPatternLightUp 14
xlPatternLightVertical 12
xlPatternNone -4142
xlPatternSemiGray75 10
xlPatternSolid 1
xlPatternUp -4162
xlPatternVertical -4166

a v ní pak pomocí vyhledávací fce přiřadit číselnou hodnotu

K čemu Vám je, že máte v listu místo čísla název konstanty? Proč tam nemůžou být ta čísla?citovat
marjankaj(25.6.2014 12:51)#020140
avatar

archangel napsal/a:

Vtipně a krásně jsi to obešel
Já to, ale potřebuji jak jsem psal, text v buňce dostat do proměnné. (jako-by pomocí hodnot v buňce měnit kód.)
Zítra bude v buňce třeba "xlPatternCrissCross" ať se také pozadí změní.


Tak tam daj toľko podmienok koľko potrebuješ

If Cells(1, 1) = "xlpatternhorizontal" Then pozadi = xlPatternHorizontal
If Cells(1, 1) = "xlpatterncrisscross" Then pozadi = xlPatternCrissCross
....

Alebo if cells(1,1)=1 then pozadí=xlpatternhorizontal
if cells(1,1)=2 then pozadí=xlpatternvertical
if cells(1,1)=3 then pozadi=xlpatterncrisscross

alebo použi príkaz CASE
2citovat
archangel(25.6.2014 12:53)#020141
avatar
jj tak toho jsem se bál, že to přijde:
To podle mého názoru neuděláte. Jediná možnost je udělat tabulku
Je to smutné, chtěl jsem obecně pomocí buňky měnit kód. Škoda.
Přesto mnohokráte děkuji. Naděje umírá poslední 1citovat
marjankaj(25.6.2014 12:55)#020142
avatar
@eLCHa
Ak to bude pre bežného používateľa, tak mu tie čísla nič neprezradia. To neprezradia ani tie názvy ako xlpatternhorizontal....
Najjednoduchšie sa mi vidí dať do bunky príslušný formát a ten skopírovať ako to už niekto uviedol(Pavlus). Tak každý bude vedieť, čo sa cs bunkou stane. Teda možno. 10citovat

Strana:  1 2   další »

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