» Poradna » Programy

Excel

 |   |  Microsoft Windows 10 Chrome 79.0.3945.88

Tak jsem tady pro radu zase. Nechci mít v listu 200 zaškrtávacích políček. Šlo by to nahradit tím, že bych myší kliknul do buňky a tím by se do buňky zapsalo třeba "X"? Stejně jako kliknutím do zaškrtávacího políčka, akorát by ze zapsalo X.

Odpovědi na otázku

 |   |  Microsoft Windows 10 Firefox 71.0

Aby to byla "klikačka", muselo by tam být makro na událost SelectionChange na listu. Určitě by to chtělo vymezit oblast, kde může to X být, teď se umístí do kterékoliv prázdné buňky daného listu. Tohle je jen neučesaný nástřel kusu kódu, jak by to mohlo třeba fungovat.__________Private Sub Worksheet_SelectionChange(ByVal Target As Range)Select Case ActiveCell.Value Case "X" ActiveCell.Value = "" Case "" ActiveCell.Value = "X"End SelectEnd Sub

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Microsoft Windows 10 Chrome 79.0.3945.88

Dobrý den. Mohl bych poprosit o celý kod? Oblast třeba A2:C10? K VBA jsem čuchl před pár dny

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Microsoft Windows 7 Chrome 79.0.3945.88

v Target máš adresu buňky typu range stačí pak například testovat sloupecIf Target.Column=3 Then pro sloupec Cv případě omezení jen na určitou větší oblast buď omezit od do rozsahem sloupce a řádky, nebo použít intersect porovnání oblastí If Not Application.Intersect(Target, Range("B5:B10")) Is Nothing Then

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Microsoft Windows 10 Firefox 71.0

Pokud jsi k tomu přičichl před pár dny, tak je to asi trochu vyšší dívčí. Nicméně, do kódu listu, na kterém má docházet ke vkládání "X" přidej následující kód.Pro názornost jsemto omezil na dvě oblasti (A2:B10) a (D2:D10). Jak je uvedeno výše, šlo by to i přes Targer.Column a Target.Row, ale myslím si, že by ses tam celkem brzo ztratil v jednotlivých částech podmínky If ((Target.Column >= 1 And Target.Column <= 2) And (Target.Row >= 2 And Target.Row <= 10)) Or ((Target.Column = 4) And (Target.Row >= 2 And Target.Row <= 10)) Then(ano, šlo by to zjednodušit o jeden Target.Row, ale kdyby ta druhá oblast nebyla ve stejných řádcích, muselo by se to upravit do této podoby... Proto to pro názornost nechám takto)Nicmíně, raději bych to udělal takto:_____Private Sub Worksheet_SelectionChange(ByVal Target As Range)If (Not Application.Intersect(Target, Range("A2:B10")) Is Nothing) Or (Not Application.Intersect(Target, Range("D2:D10")) Is Nothing) Then  With ActiveCell    Select Case .Value       Case "×"          .Value = "" Case "" .Value = "×" End Select End WithEnd IfEnd Sub 

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Microsoft Windows 10 Chrome 79.0.3945.88

Děkuji za ochotu. JJ, je to pro mě vyšší dívčí. Dělám něco špatně. Při klepnutí do listu se nic nevloží. Asi bych to více pochopil, kdybych měl ten sešit. Ale to už se bojím poprosit

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Microsoft Windows 10 Firefox 71.0
 |   |  Microsoft Windows 10 Chrome 79.0.3945.88

Super, velké DÍK!

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Microsoft Windows 10 Chrome 79.0.3945.117

Dala by se do tohoto kodu zapsat ještě podmínka, aby se vložený znak nedal vymazat ani klávesou DELETE?

Souhlasím  |  Nesouhlasím  |  Odpovědět


Určitě si přečtěte

Nejlepší programy z roku 2000: Další várka zapomenutých legend, které jste měli v PC

Nejlepší programy z roku 2000: Další várka zapomenutých legend, které jste měli v PC

** Pokračujeme ve vzpomínání na prehistorické programy ** Pročetli jsme vaše tipy v diskuzi ** A všechny ty vykopávky spustili na Windows 2000

Jakub Čížek | 74

Je lepší hrát na PC, či na konzolích? Nebo jsou i jiné možnosti?

Je lepší hrát na PC, či na konzolích? Nebo jsou i jiné možnosti?

** Jaké jsou výhody a nevýhody hraní na počítači? ** Co mají společného a v čem se liší Xbox One, PS4 a Switch? ** Na čem hrát, když nemáte výkonné PC ani konzoli?

Lukáš Václavík | 122

Šmírování kamerami Googlu: Koukněte, co šíleného se objevilo na Street View

Šmírování kamerami Googlu: Koukněte, co šíleného se objevilo na Street View

Google stále fotí celý svět do své služby Street View. A novodobou zábavou je hledat v mapách Googlu vtipné záběry. Podívejte se na výběr nejlepších!

redakce | 3

Jak uložit dokument z Wordu, aby vydržel celé roky? Je to těžší než cesta na Mars

Jak uložit dokument z Wordu, aby vydržel celé roky? Je to těžší než cesta na Mars

** Jak uložit soubory, aby vydržely vnoučatům? ** A co kdyby měly přečkat celá staletí? ** Teď se o to pokouší GitHub a je to oříšek i pro lingvisty

Jakub Čížek | 118


Aktuální číslo časopisu Computer

Megatest: nejlepší notebooky do 20 000 Kč

Test 8 levných IP kamer

Jak vybrat bezdrátová sluchátka

Testujeme Android 11