» 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

Biblická potopa Česka: Jak bychom dopadli, kdyby nás zatopil oceán

Biblická potopa Česka: Jak bychom dopadli, kdyby nás zatopil oceán

** Představte si biblickou potopu ** Nejprve zaniknou Děčín a Břeclav, pak i Brno a Praha ** Hlavním městem se stane Jihlava a zbytky Čechů přežijí na Kvildě

Jakub Čížek | 94

12 nejšílenějších programovacích jazyků, ze kterých vám praskne hlava

12 nejšílenějších programovacích jazyků, ze kterých vám praskne hlava

** Myslíte si, že umíte programovat? ** Ale prosím vás, zkuste jazyk Wenyan nebo Malbolge ** Z ezoterických jazyků zešílíte, nebo vás zaměstnají v Googlu

Jakub Čížek | 26

Srovnali jsme česká města s IBM, Googlem nebo třeba Samsungem. Podívejte se, v jaké firmě „žijete“

Srovnali jsme česká města s IBM, Googlem nebo třeba Samsungem. Podívejte se, v jaké firmě „žijete“

** Nadnárodní korporace zaměstnávají stovky tisíc lidí ** Mají tedy velikost metropolí ** Srovnali jsme je s českými krajskými městy

Jakub Čížek | 15

Český Turris MOX: Nejbláznivější síťový počítač nejen pro fanoušky Lega

Český Turris MOX: Nejbláznivější síťový počítač nejen pro fanoušky Lega

** CZ.NIC začal prodávat svůj Turris MOX ** Z několika základních jednotek postavíte skoro cokoliv ** Kompletní Wi-Fi router, rozsáhlý switch i univerzální linuxový server

Jakub Čížek | 32

Š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 | 8



Aktuální číslo časopisu Computer

Velký test autokamer

Test ATX skříní

Jak surfovat pohodlně

Sportovní aplikace

Jak funguje procesor