Excel

Zdeněk zdej na atlas.cz
Sobota Leden 31 12:17:35 CET 2015


Tak nakonec to ve VBA nebylo tak složité:

 

    If Range("A2").Font.Strikethrough = True Then Range("B2") = "" Else
Range("B2") = Range("A2")

 

Už jen zbývá obalit to smyčkou pro celou tabulku.

 

Díky za nasměrování. J

 

Zdeněk

 

From: Hw-list [mailto:hw-list-bounces na list.hw.cz] On Behalf Of Šerých Jakub
Sent: Saturday, January 31, 2015 10:55 AM
To: HW-news
Subject: RE: Excel

 

IMHO jediná cesta bude přes Makra = VBA. Ale bude to asi cesta hodně trnitá
:-( 

Doporučuji si nahrát nové pokusné makro, ve kterém si do buňky vložíte text,
a pak upravíte vlastnosti jeho písma. Pak si makra zobrazte a klikněte na
Upravit makro. Tam uvidíte jak se ve VBA dostat k příslušným vlastnostem.

 

Jakub Šerých 

 

From: Hw-list [mailto:hw-list-bounces na list.hw.cz] On Behalf Of Zdeněk
Sent: Saturday, January 31, 2015 10:00 AM
To: hw-list na list.hw.cz
Subject: OT: Excel

 

Nemá někdo nápad, jak ve vzorci nebo v makru zjistit vlastnosti písma ve
vybrané buňce?

Mám soubor, kde jsou v některých buňkách přeškrtnutá čísla a potřeboval bych
je nahradit 0. 

Našel jsem pouze funkci POLÍČKO, která vrací některé informace o buňce.
Bohužel ne vlastnosti písma. L

 

Neřešil jste to někdo?

Případně bych uvítal i info, že to vyřešit nejde, abych zbytečně nehledal. J

 

Zdeněk

------------- další část ---------------
HTML příloha byla odstraněna...
URL: <http://list.hw.cz/pipermail/hw-list/attachments/20150131/888f90db/attachment.html>


Další informace o konferenci Hw-list