Witamy na forum PC Format Zapraszamy do REJESTRACJI


Użytkownicy przeglądający ten wątek: 1 gości

Exel jak to zrobić?

#1
Exel jak to zrobić?
Przygotuj arkusz w którym następowała będzie zamiana 8 cyfrowej liczby na zapis słowny w pracy uwzględnić 2 miejsca po przecinku. Należy zabezpieczyć komórkę do której zostanie wprowadzona liczba inna niż oczekiwana. np. 123,48 : jeden*dwa*trzy* 48/100
 System operacyjny: windows_seven Przeglądarka: firefox
#2
RE: Exel jak to zrobić?
Pogooglaj: "Kwota Słownie VBA Excel"
Nie pomagam na PW (ew. odpłatnie). 
I osobom z roszczeniowym podejściem. I osobom niedbającym o poprawność językową.
Jak podawać logi
Jeśli nie odpowiadam w danym wątku przez >3 dni - proszę o przypomnienie na PW z linkiem do wątku w treści.




 System operacyjny: windows_xp_2003 Przeglądarka: firefox
#3
RE: Exel jak to zrobić?
Dobra już mam. Znalazłem formułę z formatem złotych, usunąłem to ale mam jeszcze 1 problem. Jak zabezpieczyć to by nie dało się wpisać więcej niż 8 cyfr(licząc z tymi po przecinku) i liczb ujemnych, powinien pojawić się komunikat, że nie można użyć liczb ujemnych i wprowadzona liczba jest za duża.
 System operacyjny: windows_seven Przeglądarka: firefox
#4
RE: Exel jak to zrobić?
Musiałaby by być taka c.a. formuła:
Cytat:B1=JEŻELI(FRAGMENT.TEKSTU(A1;1;1)="1";"Jeden";"")
itd. (C1, D1... - i na koniec : ZŁĄCZ.TEKSTY (albo "&")).
---
Chyba tylko takiego typu macro: http://www.google.pl/#hl=pl&gs_nf=1&...mp;bih=629
które by "pilnowało" co się dzieje w Arkuszu...
"If Len(komórka) > Then..."
(Kombinuj: =Jeżeli (DŁ(...))
---
Excel to nie Access...
Nie pomagam na PW (ew. odpłatnie). 
I osobom z roszczeniowym podejściem. I osobom niedbającym o poprawność językową.
Jak podawać logi
Jeśli nie odpowiadam w danym wątku przez >3 dni - proszę o przypomnienie na PW z linkiem do wątku w treści.




 System operacyjny: windows_xp_2003 Przeglądarka: firefox
#5
RE: Exel jak to zrobić?
Znaczy się ja użyłem czegoś takiego:
Public Function Slownie(Kom As Range) As String

Dim Liczby As Variant
Dim Przec As Long
Dim Wynik As String
Dim x As Long

Liczby = Array("zero", "jeden", "dwa", "trzy", _
"cztery", "pięć", "sześć", "siedem", "osiem", "dziewięć")



Przec = InStr(1, Kom, ",")
If Przec <> 0 Then
For x = 1 To Przec - 1
Wynik = Wynik & "*" & Liczby(Mid(Kom, x, 1))
Next x
Wynik = Wynik & Mid(Kom, Przec, Len(Kom) - Przec + 1) & "/100"
Else
For x = 1 To Len(Kom)
Wynik = Wynik & "*" & Liczby(Mid(Kom, x, 1))
Next x
Wynik = Wynik
End If

Slownie = Wynik

End Function

Tylko nie wiem teraz jak mam wprowadzić komunikat błędu, te które pisałem wyżej.
 System operacyjny: windows_seven Przeglądarka: firefox
#6
RE: Exel jak to zrobić?
A koniecznie ma być funkcja?
Nie pomagam na PW (ew. odpłatnie). 
I osobom z roszczeniowym podejściem. I osobom niedbającym o poprawność językową.
Jak podawać logi
Jeśli nie odpowiadam w danym wątku przez >3 dni - proszę o przypomnienie na PW z linkiem do wątku w treści.




 System operacyjny: windows_xp_2003 Przeglądarka: firefox
#7
RE: Exel jak to zrobić?
Nie byle działało. Tyle, że komunikat błędu ma nie być systemowy tylko mój typu: "Nie można wprowadzać wartości ujemnych".
 System operacyjny: windows_seven Przeglądarka: firefox
#8
RE: Exel jak to zrobić?
1.Skopiowałeś "żywcem" - prawda? (stąd "Public" > zmień na "Private").
2. Tuż pod pierwszą linią dopisz:
Cytat:On Error goto laEnd.
a tuż nad ostatnią (zamykanie kodu):
Cytat:laEnd:

"LA" - od label... - kiedyś się numerowało linie....
Nie pomagam na PW (ew. odpłatnie). 
I osobom z roszczeniowym podejściem. I osobom niedbającym o poprawność językową.
Jak podawać logi
Jeśli nie odpowiadam w danym wątku przez >3 dni - proszę o przypomnienie na PW z linkiem do wątku w treści.




 System operacyjny: windows_xp_2003 Przeglądarka: firefox
#9
RE: Exel jak to zrobić?
Miało to wyglądać tak? Bo jak tak to wyskakuje mi błąd.
Private Function Slownie(Kom As Range) As String

On Error GoTo laEnd
Dim Liczby As Variant
Dim Przec As Long
Dim Wynik As String
Dim x As Long

Liczby = Array("zero", "jeden", "dwa", "trzy", _
"cztery", "pięć", "sześć", "siedem", "osiem", "dziewięć")


Przec = InStr(1, Kom, ",")
If Przec <> 0 Then
For x = 1 To Przec - 1
Wynik = Wynik & "*" & Liczby(Mid(Kom, x, 1))
Next x
Wynik = Wynik & Mid(Kom, Przec, Len(Kom) - Przec + 1) & "/100"
Else
For x = 1 To Len(Kom)
Wynik = Wynik & "*" & Liczby(Mid(Kom, x, 1))
Next x
Wynik = Wynik
End If

Slownie = Wynik
laEnd

End Function
 System operacyjny: windows_seven Przeglądarka: firefox
#10
RE: Exel jak to zrobić?
Brakuje ":".
A gdzie zadeklarowanie macierzy (wektora)?
Nie pomagam na PW (ew. odpłatnie). 
I osobom z roszczeniowym podejściem. I osobom niedbającym o poprawność językową.
Jak podawać logi
Jeśli nie odpowiadam w danym wątku przez >3 dni - proszę o przypomnienie na PW z linkiem do wątku w treści.




 System operacyjny: windows_xp_2003 Przeglądarka: firefox
Programy: Polecane / Nowe / Inne



Użytkownicy forum szukali:
kwota słownie excel 2010

Podobne wątki (Exel jak to zrobić?)
Wątek: Autor Odpowiedzi: Wyświetleń: Ostatni post
  [Exel] Czy mogę zapisywać bazę która jest otwarta na innym komputerze? Darowin 2 2599 01.08.2016, 10:34
Ostatni post: Darowin
  Jak zrobić, aby iTunes wykrywało Galaxy S6 Edge jak iPhona? barteczek56 0 2807 23.02.2016, 22:39
Ostatni post: barteczek56
  Exel - wpływ wartości jednej komórki na inne Dawiduu 2 2258 08.04.2015, 19:39
Ostatni post: Dawiduu

Skocz do:


Wybrane wątki (Exel jak to zrobić?)
Wątek: Autor Odpowiedzi: Wyświetleń: Ostatni post
  Brak pełnej integracji programu Steganos Privacy Suite 20 z menu kontekstowym po klik LilPeneros 3 2969 13.07.2019 08:04
Ostatni post: Illidan
Sad Problem z plikiem dll. Avniro 14 6081 11.07.2019 23:53
Ostatni post: Illidan
  Chrome - ostatnio zamknięte karty rumcajs339 1 3234 11.07.2019 02:05
Ostatni post: Illidan
  Szukam programu do robienia zrzutów ekranu większych niż ekran bez przewijania LilPeneros 2 2772 07.07.2019 21:02
Ostatni post: Armo
  Problem z wirtualnymi napędami w Alcohol 120% LilPeneros 3 2819 06.07.2019 14:41
Ostatni post: Armo
  Windows 10 - samoistne przemieszczanie się ikon na pulpicie Kogucik 8 3587 01.07.2019 20:42
Ostatni post: Kogucik
  Wystąpił nieobsługiwany wyjątek w aplikacji. ziomalls 3 2953 29.06.2019 10:33
Ostatni post: Michu_PL
  Problem z uruchomieniem rotonhageton 1 949 26.06.2019 20:50
Ostatni post: Michu_PL
  Rundll32.exe obciąza procesor ziemniak1337 0 2704 26.06.2019 00:41
Ostatni post: ziemniak1337
  Dlaczego nie wszystkie pliki się kopiują? neah 0 2725 25.06.2019 21:47
Ostatni post: neah
  phoenix awardbios rysiek71 1 3075 23.06.2019 06:53
Ostatni post: Kurp55
  Word umiera przy edycji obrazów eremo 0 623 22.06.2019 15:59
Ostatni post: eremo
  Polecany program do optymalizacji Rejestru i Windowsa. jou300 0 2673 21.06.2019 14:04
Ostatni post: jou300
  Coś lepszego od Windows Movie Maker damianprz 1 2705 17.06.2019 21:12
Ostatni post: Armo
  Microsoft Word 2010 - dodanie wyjątków CREATIVE_ 3 4417 17.06.2019 20:00
Ostatni post: CREATIVE_