Skocz do zawartości


Close Open
Close Open

pit_piotr

Dołączył: 21 Aug 2009
Offline Ostatnio aktywny: Mar 23 2013 10:46 AM
****-

Moje tematy

Egzamin MOS (Microsoft Office Specialist) Exam 77-851

27 February 2012 - 17:05 PM

Witam,

Czy zdawał ktoś może ostatnio Egzamin MOS (Microsoft Office Specialist) Exam 77-851?

Wiem jakiej wiedzy się wymaga: http://www.microsoft...cale=en-us#tab2 , ale może ktoś nie dawno zdawał i mógł się więcej wypowiedzieć na ten temat?

pozdrawiam
pit_piotr

[ACCESS] wersja 2010 Drukowanie raportu w takiej ilości jaką pokazuje, wartość w danym...

09 February 2012 - 19:10 PM

Program: ACCESS
Wersja: 2010

Witam fachowców z dziedziny Access-a!

Borykam się z wydrukiem raportu o nazwie: RapEtykieta, ale w określonej liczbie jaką przedstawia jedno z pól w nim zawarte ilosc.wydruku

Staram się to zrobić za pomocą Konstruktora Makr ale chyba się tak nie da, trzeba napisać makro, chyba, że znacie inny sposób? Bądź jesteście w stanie pomóc w napisaniu takiego makra?

pozdrawiam i z góry dzięki za pomoc i poświęcony czas!
pit_piotr

[EXCEL] VBA MAKRO PĘTLA DO DRUKOWANIA STRON OD 1 DO N - PILNE!

13 January 2012 - 20:45 PM

Witam,

Mam plik EXCEL-owy, a w nim dane;

Arkusz1 - Pierwszy wiersz to nagłówki kolumn, a od drugiego wiersza do n-tego to pewne dane, kolumna A to moja liczba przewodnia, po niej zaciągam dane do kolejnych arkuszy...
Arkusz2 - Tu zaciągam dane i chciałbym wykonać wydruk kartki zdefiniowanej jako "Obszar_wydruku", ale zmieniając wartość w komórce A1 od 1 do n-tego, czyli jak już wyżej napisałem ta liczba przewodnia; czyli komórka A1; liczba: 1 i drukuj, 2 i drukuj, 3... do n-tego z Arkusza1.

A każdy wydruk zapisać jeszcze w formie pdf-a w ścieżce: "C:\Program Files\IDT" o tytule jako wartość z komórki D2 i dzisiejszą datę.

pozdrawiam i z góry dzięki za waszą pomoc!
pit_piotr


Zaczynam coś sam...

Private Sub WszyscyKlienci_Click()
	
	Sheets("Arkusz1").Select
	Jedziemy ("A")
	
End Sub

Sub Jedziemy(Kolumna As String)

  Dim rg As Range, p As Long

  Set rg = Cells(2, Kolumna)

  Do While rg.Value <> ""

	With rg
 	.NumberFormat = "@"

	If .Value > 0 Then
    	.Copy ("Arkusz1,A2")
 	
    	'drukuj'
    	ActiveWindow.SelectedSheets.PrintOut Copies:=1
	
   	Range("D14").Select
    	'zapisuj:'
    	ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        	"C:\Users\" + ActiveCell.Text, Quality:= _
        	xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        	OpenAfterPublish:=False
    	
    	'-------------- i tu siedzę  ------------------'

    	End If

	Set rg = rg.Offset(1, 0)

  Loop

    	MsgBox ("Już!")

End Sub
Ma ktoś pomysł jak to poprawnie zapisać?

[EXCEL] [VBA] Makro które zamieni liczby od 1 do 99 na format 001 ... 099

03 January 2012 - 19:53 PM

Witam,

W pliku excel, w kolumnie E i F mam pewne dane w postaci tekst (od wiersza 2 do n-tego), które chciałbym za pomocą makra pozmieniać, a dokładniej zakres od 1 do 99 zamienić na format tekstowy jak było ale na format: 001 do 099.

Utrudnienia są dwa:

1) Znajdują się również inne zakresy takie jak:
-> liczby od-do:  101-3000
-> tekst np.:     101/2, 36/2
-> poprawnie wprowadzone dane tj. 001-099
Takie komórki dane makro niech zostawi jakie są.

2)Mogą się zdarzyć zakresy 01-09 i takie również najlepiej niech zamieni na format 001-009.

Z góry dzięki za pomoc i poświęcony czas!
pit_piotr

[EXCEL] VBA/Makro które otworzy plik excel-owy, który jest zablokowany do edycji

29 September 2011 - 12:02 PM

Witam,

Sprawda dotyczny EXCEL-a 2007, gdzie chciałbym 'zaczytać' dane z innych plików Excel-owych i je zamknąć, sprawa wygląda dość prosto ale działa na plikach, gdy nikogo nie ma w środku.
A gdy plik już jest otwarty i mimo, iż daje opcje do odczytu to i tak mnie wyrzuca Debug: "Run-time error 1004".

Podsumowując chce otworzyć pliki:
1) "O:\ROZLICZENIA PRODUKCJI\ARCHIWUM\2011\PRODUKCJA_TOTAL1.xls"
2) "O:\ROZLICZENIA PRODUKCJI\ARCHIWUM\2011\PRODUKCJA_TOTAL2.xls"

Wiedząc, że:
Może ktoś w nich być, czyli opcja do edycji jest zabroniona, ale i tak ja chce tylko odczytać dane formuła tablicową dla 9000 lini ;oD
I na końcu zamknąć je.

Próbowałem już nastepujących wariantów:
'import z plików:'
    Dim varID
	varID = Shell("O:\ROZLICZENIA PRODUKCJI\ARCHIWUM\2011\PRODUKCJA_TOTAL1.xls", 5)
	ChDir "O:\J\PL-Unifam\PLUNF_Prod\ROZLICZENIA PRODUKCJI\ARCHIWUM\2011"
	Workbooks.Open Filename:= _
    	"O:\ROZLICZENIA PRODUKCJI\ARCHIWUM\2011\PRODUKCJA_TOTAL1.xls" _
    	, UpdateLinks:=0, ReadOnly:=True
	Workbooks.Open ("O:\ROZLICZENIA PRODUKCJI\ARCHIWUM\2011\PRODUKCJA_TOTAL1.xls"), Output, True
	Set ArkRoboczy = Workbooks.Open(Filename:=("O:\ROZLICZENIA PRODUKCJI\ARCHIWUM\2011\PRODUKCJA_TOTAL1.xls"), ReadOnly:=True)

i nic nie działa ;o(

Z góry dzięki i pozdrawiam
pit_piotr