| Home Poczta Office Office2 Office 2000 Office XP Internet Explorer Outlook Express Outlook2 Windows XP Windows Windows Vista Exchange Server Windows Server SBS |
Równa czcionka
Temat: Re: Excel - wymagane pole a zapisanie pliku
Autor: IDKrzych Data: 08 Kwi 2010
Odwołania: 1
Autor: IDKrzych Data: 08 Kwi 2010
Odwołania: 1
> Czy istnieje możliwość wprowadzenia w arkuszu komórki, którą należy
> uzupełnić, a w przypadku nieuzupełnienia tej komórki braku możliwości
> zapisania arkusza i żeby pojawiał się komunikat "Brak możliwości zapisania
> pliku - proszę uzupełnić danymi komórkę XX".
> uzupełnić, a w przypadku nieuzupełnienia tej komórki braku możliwości
> zapisania arkusza i żeby pojawiał się komunikat "Brak możliwości zapisania
> pliku - proszę uzupełnić danymi komórkę XX".
makrem owszem ...
np. w ThisWorkbook w zdarzeniu Workbook_BeforeSave podaj kod:
Dim TestowanaKomorka As Range
Set TestowanaKomorka = ThisWorkbook.Sheets(2).Range("A1")
If TestowanaKomorka.Value = "" Or TestowanaKomorka.Value = 0 Then
'gdy różne przerywamy zapis ..i komunikat
Cancel = True
MsgBox "Musisz podać dane w komórce " & TestowanaKomorka.Address & "
arkusza " & TestowanaKomorka.Parent.Name, vbCritical + vbOKOnly, "Wymagane
dane do zapisu"
End If
oczywiście gdy zero też będzie poprawne wykasuj tylko część "Or
TestowanaKomorka.Value = 0" ....
no i zamień na interesującą Ciebie komórkę i arkusz na początku.
IDKrzych
"Jakkolwiek będzie - będzie inaczej, aniżeli sobie wyobrażamy- ponieważ między Dobrem a Złem znajdujemy się w życiu i w świecie
wielowymiarowym,
w którym dokumentnie pomieszane jest Przypadkowe z Nieuchronnym."
(S. Lem 1999)
