| Home Poczta Office Office2 Office 2000 Office XP Internet Explorer Outlook Express Outlook2 Windows XP Windows Windows Vista Exchange Server Windows Server SBS |
On 7 Gru, 16:24, marta_lebi...@tlen.pl (Marta_mm) wrote:
poni?sze marko powinno za?atwi? problem:
Sub dodawanie()
z = Worksheets.Count 'zmienna zawiera liczb? arkuszy w skoroszycie
przed uruchomieniem makra
p = Day(DateSerial(Year(Date), Month(Date) + 1, 1) - 1) 'zmienna p
zawiera informacje ile dni ma bie??cy miesi?c
For i = z + 1 To p
Worksheets.Add
Next i
End Sub
uruchamiasz makro w danym dniu i dodaje on tyle arkuszy aby ca?y
skoroszyt mia? ich tyle co dni w bie??cym miesi?cu
--
Pozdr.
Cynio
> Chcia?a bym aby w pliku Excell po w??czeniu mo?na by?o ustawi?
> miesi?c i rok, tak aby si? strony arkusza mi ponumerowa?y zgodznie z
> dniami miesi?ca, i jak w grudniu jest 31 to, ?ebym w jednym pliku mia?a
> 31 arkuszy (sheets)
> miesi?c i rok, tak aby si? strony arkusza mi ponumerowa?y zgodznie z
> dniami miesi?ca, i jak w grudniu jest 31 to, ?ebym w jednym pliku mia?a
> 31 arkuszy (sheets)
poni?sze marko powinno za?atwi? problem:
Sub dodawanie()
z = Worksheets.Count 'zmienna zawiera liczb? arkuszy w skoroszycie
przed uruchomieniem makra
p = Day(DateSerial(Year(Date), Month(Date) + 1, 1) - 1) 'zmienna p
zawiera informacje ile dni ma bie??cy miesi?c
For i = z + 1 To p
Worksheets.Add
Next i
End Sub
uruchamiasz makro w danym dniu i dodaje on tyle arkuszy aby ca?y
skoroszyt mia? ich tyle co dni w bie??cym miesi?cu
--
Pozdr.
Cynio
| 07 Gru 2010 | Formatowanie | Marta_mm |
| 10 Gru 2010 |  Re: Formatowanie | Cynio |
