Příspěvky uživatele
< návrat zpět
Nedokázal byste mi někdo pomoc?
Na základě Tebou poskytnutých dat?
No jasně, jen budeš muset počkat než se někomu vrátí křišťálová koule z garanční prohlídky.
Zadání:
Tady máte nějaký data, který nazývám tabulky i když tam žádný tabulky nejsou, nesmyslný kód + vágní popis funkce. A ukažte se fešáci.
Kdysi sem řešil podobný požadavek, přikládám dva způsoby co sem použil. Možná se to hodí jako inspirace.
Netuším proč zrovna trváš na vkládání vzorce přes VBA, ale budiž.
Netvrdím, že je to nejlepší řešení, ale je to to první co mě napadlo.
Věřím, že někdo z kolegů by to napsal jinak (lépe).
Každý z OptionButtonů je přířazen do skupiny (Vlastnosti -> GroupName) aby bylo možno vybírat ze 3 možností v rámci otázky.
Název této skupiny je předán makru Writeoption, kde dojde ke zpracování.
PS:
V modulu je přidán kód Reset2, má tu samou funkci jako Reset, jen je použit jiný způsob zápisu kódu.
Přidáním
obj.Object.Value = False
Tedy:
Sub Reset()
Application.ScreenUpdating = False
Dim obj As OLEObject
For Each obj In List1.OLEObjects
If TypeOf obj.Object Is MSForms.OptionButton Then
obj.Enabled = True
obj.Object.Value = False
End If
Next
Application.ScreenUpdating = True
End Sub
Dita napsal/a:
Já bych potřeboval, aby po vybrání jedné možnosti už nebylo možné vybrat druhou (ani třetí).
Ano viz Edit
Edit: soubor
Když už něco opisuju, tak si dávám pozor, aby to bylo správně.
Select Case True
Case OptionButton1.Value: rg = 1
Case OptionButton1.Value: rg = 2
Case OptionButton1.Value: rg = 3
End Select
Edit: Místo LOCKED použí ENABLED
OptionButton2.Enabled = False
Marecek napsal/a:
Však soubor je hned na začátku tématu.
Všechny štítky jsou stejné, tj 5 buněk.
Počet štítků bude 15 a budou předem připravené, ty dva jsou jen jako vzor jak by to mělo vypadat. Budou seřazeny takto za sebou.
Položky v seznamu budou mít variabilní počet. Na každém štítku jich musí být vždy jen pět.
Jo přiložený soubor sem zaregistroval, šlo mi hlavně o to, že vzorový soubor nemusí korespondovat s "ostrou" verzí co se týče rozložení dat.
Položky v seznamu budou mít variabilní počet. Na každém štítku jich musí být vždy jen pět.
A v případě, že seznam bude obsahovat např 13 položek? Co potom?
Něco sem spíchnul tak si s tím pohraj.
Není takhle náhodou zamknutý list?
Revize - změny -> Odemknout list
Né že bych se chtěl do toho míchat, ale pokud chceš po někom vytvořit nějaké makro, tak by mělo být ve Tvém zájmu poskytnout co nejvíc informací a konkrétní soubor, ve kterém má makro pracovat.
Jediné co Víme, je že sloučené buňky nazýváš štítky, které se skládají z 5-ti buněk. A těchto "štítků" může být až 15. Není těch informací málo?!
"štítky" se skládají vždy z pěti buněk nebo je jejich velikost variabilní?
Pokud je variabilní, na základě jakého klíče?
Počet "štítků" v listu je již připraven?
Jaké je rozmístění "štítků" v listu?
Počet položek odpovídá počtu "štítků"? Tedy 2 "štítky" po 5 řádcích = 10 položek seznamu.
atd...
petas1998 napsal/a:
Omlouvám se, jde o tabulky google, přepsal jsem, protože jem si vyložil, že se my ostatní směji, že jsem napsal tabulky google.
Nikdo se Ti tu nesměje!
Motáš dvě věci dohromady. Tabulky Google a Excel jsou dvě naprosto odlišné věci.
Takže ten kód co tu kolega napsal si můžeš tak maximálně strčit za klobouk.
Tabulky Google (Tedy ty od Googlu) nepodporují programovací jazyk VBA (Visual Basic for Application), který se používá v Excelu (Tedy Softwaru od Microsoftu).
Moje poznámka:
Aneb co je čtverečkovaný je Excel
Byla takový povzdech, nad tím jak to všichni motají dohromady. Objevuje se tu spousta dotazů na EXCEL a nakonec z tazatelů vypadne, že vlastně vůbec žádný Excel NEVLASTNÍ, ale pracují online s tabulkami Googlu.
Za chvíli přijde doba, kdy budou čtverečkovaný papír nazývat analogovým excelem
Ne soubor nemusí mít koncovku *.xlsm (pokud tedy neobsahuje makra). Skrytí a uzamknutí listu přeci nebude probíhat makrem.
Upřímně nevím s čím je problém, skrytí sloupce a uzamknutí listu je přeci banalita a naprostý základ práce s excelem.
Vyberu sloupec -> pravé tl. myši -> skrýt
Záložka Revize - Změny -> zamknout list.
marjankaj napsal/a:
Urobí si tlačítko a klik.
Na výstup na tlačiareň samozrejme PrintOut
Sub Makro1()
ActiveSheet.PageSetup.PrintArea = "$O$3:$W$47"
ActiveWindow.SelectedSheets.PrintPreview
End Sub
Ale tazatel NEPOUŽÍVÁ EXCEL!
Takže makra tedy VBA je mu k prdu.
Schválně sem se na ty GOOGLE TABULKY podíval. Mají možnost maker, ale zápis kódu vypadá snad jako v C
function den() {
var spreadsheet = SpreadsheetApp.getActive();
spreadsheet.getRange('A2').activate();
spreadsheet.getCurrentCell().setValue('Dnes je');
spreadsheet.getRange('B2').activate();
var date = new Date();
date.setHours(0, 0, 0, 0);
spreadsheet.getActiveRangeList().setValue(date);
spreadsheet.getRange('C2').activate();
spreadsheet.getCurrentCell().setValue('Neděle');
};
EDIT: Teď sem zaregistroval, že informace o google tabulkách v dotazu byla nahrazena excelem.
V tom případě bude kód samozřejmě funkční a tazatel by si měl přestat z lidí dělat (_!_) !!!
marjankaj napsal/a:
Že by makrom?
A bez toho kliknutia by si nechcel? Lebo aj to by išlo.
tabulek google
Tam s makry s největší pravděpodobností neuspěje. Nebo máš odzkoušeno?
Aneb co je čtverečkovaný je Excel
ANO a ANO, je to možné. Je však důležité upozornit, že uzamknutí listu se dá jednoduše prolomit, existují na to spec. programy, makra nebo jednoduché postupy pokud se jedná o soubor *.xlsx
Pokud bude mít protistrana chuť, tak se k těm skrytým datům dostane(bez většího úsilí).
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