🚀 go-pugleaf

Dnia 2003-05-29 21:24, Użytkownik Przemysław Kapłon napisał:

> Witam!
> 
> Czy kto? powie mi, czy jest w Calcu jaki? skrót klawiaturowy do wstawienia 
> aktualnej daty, ale nie jako formuły, tylko jako zwykły wpis daty, która 
> nie zostanie zaktualizowana  po ponownym otwarciu dokumentu. W Excelu jest 
> to Ctrl + ;
> Czy jest jaka? formuła do wstawiania daty utworzenia dokumentu?
> Chodzi mi o to, że stworzyłem sobie szablon rachunku, w którym data 
> utworzenia dokumentu będzie wstawiana automatycznie i nie zmieni się po 
> ponownym jego otwarciu.
> I jeszcze jedno: czy wie kto?, w jaki sposób uzyskać np. warto?ć słownie, 
> np. 87 >  "osiem - siedem", lub "osiemdziesišt siedem"
> Sš wprawdzie formuły "KWOTA" i "TEKST", które zamieniajš liczby na tekst, 
> ale zmieniajš one tylko format liczby tak, że komórka jest traktowana jako 
> tekstowa, a nie zmieniajš cyfr na słowa.
> 
> Pozdrawiam 
> 
> Przemek

Najpierw piszemy makro a jak jesteśmy cwani znajdujemy.
Ja znalazłem w AndrewMacro.sxw

----------------------------------------------------------------------
Sub InsertDateIntoCell
	Dim oDesktop As Object, oController As Object, oSelection As Object
	Dim doc As Object

	oDesktop = createUnoService("com.sun.star.frame.Desktop")
	oController = oDesktop.CurrentFrame.Controller	
	doc = oController.Model

	If doc.SupportsService("com.sun.star.sheet.SpreadsheetDocument") Then
		oSelection = oController.Selection

		' set the date value
		oFunction = CreateUnoService("com.sun.star.sheet.FunctionAccess")
		oFunction.NullDate = doc.NullDate
		Dim aEmpty()
		oSelection.Value = oFunction.callFunction("NOW", aEmpty())

		' Set the date number format to default
		oFormats = doc.NumberFormats
		dim aLocale as new com.sun.star.lang.Locale
		oSelection.NumberFormat = oFormats.getStandardFormat(_
			com.sun.star.util.NumberFormat.DATETIME, aLocale)

		' Set the format to something completely different
		'oSelection.NumberFormat = FindCreateNumberFormatStyle(_
		'	"YYYYMMDD.hhmmss",  doc)
	Else
		MsgBox "This macro must be run in a spreadsheet document"
	End If
End Sub
-----------------------------------------------------------------------

nasteonie
Tools->Configure
znajdujemy Ctrl++
i przypisujemy nasze makro do klawisza

Makro słownie też gdzieś w necie powinno być.

>
>
>I jeszcze jedno: czy wie kto?, w jaki sposób uzyskać np. warto?ć słownie, 
>np. 87 >  "osiem - siedem", lub "osiemdziesišt siedem"
>Sš wprawdzie formuły "KWOTA" i "TEKST", które zamieniajš liczby na tekst, 
>ale zmieniajš one tylko format liczby tak, że komórka jest traktowana jako 
>tekstowa, a nie zmieniajš cyfr na słowa.
>
>Pozdrawiam 
>
>Przemek
>
Gotowe makro mogę przesłać na priva
--
Michał Faflik


-- 
Serwis Usenet w portalu Gazeta.pl -> http://www.gazeta.pl/usenet/

>>I jeszcze jedno: czy wie kto?, w jaki sposób uzyskać np. warto?ć
>>słownie, 
> Gotowe makro mogę przesłać na priva

To ja bardzo proszę o to makro. 

Przemek

> 
> Najpierw piszemy makro a jak jesteśmy cwani znajdujemy.
> Ja znalazłem w AndrewMacro.sxw
> 
Dzięki, ale jak zmienić format daty?
Próbowałem usunąć apostrofy z ostatniej sekcji:
' Set the format to something completely different

 i wykomentowac poprzednią:
' Set the date number format to default

, ale wyszły mi same głupoty.

Poza tym, czy wie ktoś, jak zmienić domyślny format daty na DD.MM.RRRR?
Zmiana ustawień językowzch nic nie daje, bo we wszystkich językach rok jest 
podawany dwoma cyframi.

Pozdrawiam 

Przemek

Użytkownik "Michał Faflik" <mfaflik@laser.pl> napisał w wiadomo¶ci
news:bb7kee$ec1$2@inews.gazeta.pl...
> >
> >
> >I jeszcze jedno: czy wie kto?, w jaki sposób uzyskać np. warto?ć słownie,
> >np. 87 >  "osiem - siedem", lub "osiemdziesiąt siedem"
> >Są wprawdzie formuły "KWOTA" i "TEKST", które zamieniają liczby na tekst,
> >ale zmieniają one tylko format liczby tak, że komórka jest traktowana
jako
> >tekstowa, a nie zmieniają cyfr na słowa.
> >
> >Pozdrawiam
> >
> >Przemek
> >
> Gotowe makro mogę przesłać na priva
> --
> Michał Faflik
>
> --
> Serwis Usenet w portalu Gazeta.pl -> http://www.gazeta.pl/usenet/

Ja tez bym prosil jesli mozna :).
Dzieki
marcin@iglak.com.pl