Příspěvky uživatele
< návrat zpět
A nemalo by to byť takto? Duplicitné hodnoty predsa nie sú jedinečné.
=SUM((COUNTIF(data; ""&data)=1)*1)
taktiež maticovo.
bloom napsal/a:
Díky za pomoc, sice to bohužel nefunguje (stále to jde vepsat). Ale pokusím se s to nějak obhájit bez toho. ;)
No overenie tak funguje. Niečo tam vpíšeš a ono to skontroluje, či vyhovuje podmienke. Ak vyhovuje, tak zápis je povolený.
Ak tam chceš zakázať vpisovanie, tak tú bunku zamkni a rob to cez makro.
archangel napsal/a:
pro jiné může být zajímavější diskutovat o horním indexu
Ale to asi nedáš do INTERIOR?????
Vieš vlastne, čo chceš?
archangel napsal/a:
všichni jste se soustředili na POZADÍ , ale to byl jen příklad pro zjednodušení
Ty si začal s tým pozadím.
Tak sme v tom pokračovali, aby ťa to nemýlilo. Zrejme tomu najviac rozumieš.
@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. 
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
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 Sub
Opičák napsal/a:
?Příloha: 20021_datum.zip
No možno treba namiesto ActiveCell.Row dať Target.Row.
Ak to vypisuješ cez klávesnicu, tak to píše o riadok nižšie. Teda ak to nemáš nastavené ako eLCHa.
misocko napsal/a:
a da sa aj nejako zistit ci subor uz bol ulozeny? nech nerobim zalohu z ulozeneho....
No šlo by to. Našiel som niečo takéto.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Not Me.Saved Then
msg = "Chcete uložiť prevedené zmeny?"
odp = MsgBox(msg, vbQuestion + vbYesNoCancel)
Select Case odp
Case vbYes
Me.Save
Case vbNo
Me.Saved = True
Case vbCancel
Cancel = True
Exit Sub
End Select
EndIf
End Sub
A čo tak Workbook_BeforeSave?
Poprosil by som priložiť prílohu. A hlavne vyznačiť ten "horizontální sloupec" 
A čo robí to tvoje makro?
Vlož tam
For x = 1 To Sheets.Count
sheets(x).activate
If Sheets(x).Cells(1, 1) = "1" Then call MyMakro
Next
ocinko napsal/a:
Jedná sa konkrétne len o tieto dve bunky. Čiže pri rovnosti čísla v bunkách C3 a C4, sú pomocné čísla v bunkách E3 a E4. Takže na základe vyššieho čísla v bunkách E treba určiť poradie a zapísať do buniek H.
Kvôli dvom bunkám ideš vymýšľať vzorec????
Veď to poradie tam jednoducho napíš.
A snažil si sa pochopiť, prečo je to práve takto?
A pri kopírovaní doprava sa zase mení iba stĺpec, to si neskúšal? A potom to dáš transponovať.
Veď si daj nahrať makro a potom to uprav.
Rows("11:20").Delete
Alebo v tom tvojom vyhoď prvý riadok, Vyber riadky a spusti makro
Uživatelské menu
\nMenu
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.
RSS nejnovější články