z liczby na "słownie" w EXCELu
hajotek
automatycznie zamienić w innej komórce na tekst np. "jeden tysiąc dwieście
pięćdziesiąt sześć". Innymi słowy chodzi o zamianę z kwoty na "słownie".
Pozdrawiam
--
hajotek
pxd74
news:b4i3pm$gag$1...@news.onet.pl...
Zobacz w FAQ 7.5 www.vbfaq.pl
--
Pozdrowienia
px...@poczta.onet.pl
Adam Pietrasiewicz
W poniedziałek, 10 marca 2003 14:25:59 hajotek napisał/a
>
>
> Czy istnieje możliwość aby w EXCELu wpis w jednej komórce np. 1256 zł można
> automatycznie zamienić w innej komórce na tekst np. "jeden tysiąc dwieście
> pięćdziesiąt sześć". Innymi słowy chodzi o zamianę z kwoty na "słownie".
Na www.amsoft.com.pl/downloads/SumaSlownie.dll jest narzedzie, ktorego
mozna uzyc. Jest calkowicie freeware!
--
Pozdrawiam
Adam Pietrasiewicz
Redaktor Biuletynu Sceptycznego
www.biuletynsceptyczny.z.pl
---
Ten list został wysłany przy użyciu Gołąbka http://www.amsoft.com.pl/golabek
hajotek
Użytkownik "pxd74" <px...@poczta.onet.pl> napisał w wiadomości
news:b4i67m$mrl$1...@news.onet.pl...
to nie bardzo kojarzę co mam z nim zrobić. Chodzi o to aby było najprościej.
Pozdrawiam
hajotek
Użytkownik "Adam Pietrasiewicz" <adp...@polbox.com> napisał w wiadomości
news:LAPTOP1003200316080...@lauda.pl...
o pomoc - nie jestem fachowcem
--
hajotek
pxd74
>
> > > Czy istnieje możliwość aby w EXCELu wpis w jednej komórce np. 1256 zł
> > można
> > > automatycznie zamienić w innej komórce na tekst np. "jeden tysiąc
> dwieście
> > > pięćdziesiąt sześć". Innymi słowy chodzi o zamianę z kwoty na "słownie".
> > > Pozdrawiam
> >
> > Zobacz w FAQ 7.5 www.vbfaq.pl
> >
> to nie bardzo kojarzę co mam z nim zrobić. Chodzi o to aby było najprościej.
Utwórz nowy moduł standartowy (Module) lub jeśli już masz jakiś, to otwórz go i wklej tą
funkcję. Będziesz mógł używać tej funkcji bezpośrednio w formułach jak innych funkcji.
Jeśli chcesz używać tej funkcji we wszystkich skoroszytach to stwórz dodatek Excela. Jeśli
nie wiesz jak go stworzyć - daj znać.
--
Pozdrowienia
px...@poczta.onet.pl
Adam Pietrasiewicz
W poniedziałek, 10 marca 2003 16:30:40 hajotek napisał/a
> Dzięki. Ściągnąłem plik *.dll ale dalej nie wiem co znim mam zrobić. Proszę
> o pomoc - nie jestem fachowcem
Ok. No to zacznijmy od poczatku.
w Excelu otwierasz narzedzia-odwolania.
przyciskasz "przegladaj" i wskazujesz plik "suma Slownie.dll" ktory
pobrales
I masz go juz w projekcie.
BNastepnie robisz W programie:
Dim SumaSlownie As New Slownie
I moze nastepnie w kodzie programu napisac tak:
Dim SNS As String
SNS = SumaSlownie.PokazSlownie(1300.22, True)
Pierwszym parametrem ma byc liczba Double.
W zmiennej SNS odzyskujesz wartosc slownie. Drugi parametr
(True/False) pozwala na wstawienie w tekst slów "Złotych/Groszy" z
zachowaniem poprawnosci gramatycznej (Trzy ZŁOTE piętnaście GROSZY,
pięć ZŁOTYCH jeden GROSZ itp).
hajotek
wiem jak to zrobić.
Pozdrawiam i dziękuję.
hajotek
Adam Pietrasiewicz
W poniedziałek, 10 marca 2003 18:22:13 hajotek napisał/a
>Sorki, ale ja nie mam w EXCELU 2000 ani 97 w narzędzia - odwołanie.
Wow!
Ok.
A czy potrafisz otworzyc srodowisko VBA w Excelu?
Bo chyba od tego trzeba zaczac...
pxd74
(...)
> No właśnie chciałbym we wszystkich skoroszytach. Daję znać bo oczywiście nie
> wiem jak to zrobić.
Stwórz nowy skoroszyt Excela. Otwórz Edytora VBA. W menu Insert -> Module (Wstaw -> Moduł
<standartowy>). Wklej funkcję ze FAQ-u. Zalecane jest, aby zabezpieczyć projekt - w tym
celu otwórz w menu Tools -> VBA Project Properties (Narzędzia -> Właściwości projektu
VBA). Wybierz zakładkę Protection (Ochrona) i zaznacz opcję "Lock project for viewing"
(Zablokuj projekt przed przeglądaniem), w poniższe pola wpisz takie samo hasło i naciśnij
OK. Następnie zamknij Edytor VBA i przejdź do Excela. Otwórz w menu Plik -> Zapisz jako na
dole wybierz "Dodatek Excela" (jest na samym dole) wpisz nazwę (np. Słownie) i naciśnij
OK. Później zamknij Excela i otwórz go jeszcze raz. W menu Narzędzia -> Dodatki wybierz
"Słownie" i naciśnij OK. Teraz już możesz używać tej funkcji (szukaj jej w funkcjach
użytkownika).
Aha, jeszcze jedno w siódmej linii funkcji jest błąd. Usuń jedną z dwóch takich samych
linii:
Dim v42 As Integer, v5 As Integer, v51 As Integer
i będzie wszystko OK.
Możesz ponadto w kodzie poprawić wszystkie słowa na takie, które zawierają polskie znaki
--
Pozdrowienia
px...@poczta.onet.pl