< návrat zpět
MS Excel
Téma: vyplnit ovládací prvek
Zaslal/a crocodyle 30.6.2015 8:20
dobrý den, potřeboval bych poradit, mám složitou tabulku, kde mam mimo jiné několik sloupců s ovládacím prvkem zaškrtávací políčko a vedle mám vždy sloupec s hodnotou PRAVDA /NEPRAVDA. Jelikož mám několik sloupců s cca 50 řádky zkoušel jsem si ulehčit práci příkazem CTRL+D vyplnit dolů, ale políčka se sice vyplní, ale berou si hodnotu PRAVDA/NEPRAVDA z prvního řádku. Dá se to nějak udělat, abych to nemusel ručně opravovat řádek po řádku? Snad je to srozumitelné. Díky Tom
pepe74287(30.6.2015 8:38)#025742 Bez prilohy se radi tezko..
citovat
crocodyle(30.6.2015 14:37)#025745 hmm pravda
.. posílám soubor, kde to zkouším. Řádku v konečné verzi by mělo být 65,sloupce s zaškrt.políčky přibudou ještě 4, ale to není podstatné.Díky
citovat
pepe74287(30.6.2015 15:25)#025747 Ja to v tom souboru vidim pracovat spravne. Napr checkbox v bunce I8 je navazen na bunku J8, v I9 na J9 atd..
citovat
pepe74287(30.6.2015 15:27)#025748
marjankaj(30.6.2015 16:49)#025750 CTRL+c a potom CTRL+v
A možno by si mal dať aj screenshot ako to má podľa teba vyzerať.
citovat
a.mlady(30.6.2015 20:01)#025751 Hezký večer.
Musí to být zaškrtávací políčko? Nemohl by to být rozevírací seznam. Dá se to bez problému zkopírovat a ušetří se tím sloupeček s vyhodnocením.
citovat
crocodyle(30.6.2015 20:49)#025752 zdravím všechny. Ano funguje to správně , ale jen proto, že jsem jeden řádek po druhém navazoval na buňku PRAVDA/NEPRAVDA. Když s kurzorem na posledním řádku uděláte blok doú a pak dáte CTRL +D vyplní se to o počet řádku v bloku ale již to bude svázáno s buňkou PRAVDA NEPRAVDA kde byl naposled kurzor.viz příloha. Pak se to musí pracně opravit. Proto se ptám nevíte li někdo jestli to jde udělat tak aby to bylo hned svázáno s vedlejší buňkou PRAVDA NEPRAVDA.
Příloha: 25752_zkouska.zip (70kB, staženo 34x) citovat
crocodyle(30.6.2015 20:58)#025753 pro a.mlady: dobrý večer... potřeboval bych aby to bylo zaškrt. políčko. ale dík
citovat
AL(1.7.2015 1:37)#025754 Mám za to, že toto by mohlo pomôcť:
Sub Linkuj()
Dim chBox As CheckBox
Application.ScreenUpdating = False
For Each chBox In ActiveSheet.CheckBoxes
With chBox
.LinkedCell = .TopLeftCell.Offset(0, 1 - (.Left - .TopLeftCell.Left > 5)).Address
End With
Next chBox
Application.ScreenUpdating = True
End Subcitovat
crocodyle(1.7.2015 21:34)#025757 Alovi díky, ale budeš mě muset malinko navést. Potřeboval bych nakopnout co s tím mám dělat. Dik
citovat