Excel

[Šerých Jakub]

Možná by bylo jednodušší než vymýšlet smyčku z toho udělat uživatelskou funkci (jmenuje se to UDF?). Už je to strašně dávno, co jsem něco takového dělal, takže už nevzpomenu jak, ale vím, že to nějak šlo.

Jakub Šerých

From: Hw-list [mailto:hw-list-bounces na list.hw.cz] On Behalf Of Zdeněk
Sent: Saturday, January 31, 2015 12:18 PM
To: 'HW-news'
Subject: RE: Excel

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í. :)

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<mailto: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. :(

Neřešil jste to někdo?
Případně bych uvítal i info, že to vyřešit nejde, abych zbytečně nehledal. :)

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