Zamknięty przez: master_mix
2012-03-20, 16:52 |
Wczytanie aktualnej daty do kolumny po wciśnięciu przycisku |
| Autor |
Wiadomość |
szunaj85 
forumowicz
Posty: 20
|
 Wysłany: 2012-02-05, 15:03 Wczytanie aktualnej daty do kolumny po wciśnięciu przycisku
|
|
|
Niestety z makr jestem zielony.
W jednym z moich plików excel wpisuje dane wierszami.
Chciałbym zrobić coś takiego, że w całej kolumnie "H" miałbym małe przyciski.
Odniosę się do konkretnego wiersza...
Obok kolumny "H2" pojawił by się przycisk, ale tylko wtedy jeżeli przynajmniej jedna z komórek od "A2" do "G2" została wypełniona.
Natomiast co miałby robić sam przycisk? Po wciśnięciu przycisku znajdującego się obok komórki "H2" pojawiała by się w niej aktualna data (format DD.MM.RRRR), a jeżeli już jakaś starsza data jest w tej komórce zostałaby nadpisana.
Oczywiście nie pogardził bym komunikatami pytającymi o to czy na pewno wpisać lub zastąpić datę.
Kolejne wiersze miałby działać na identycznej zasadzie. |
|
 | ID posta:
147541
|
|
|
 |
|
EXCELFORUM.pl POLECA - Bezplatne triki prosto na skrzynke email
|
OShon
Excel Expert
Zaproszone osoby: 41
Pomógł: 620 razy
Posty: 2037
|
| Wysłany: 2012-02-05, 17:27
|
|
|
Odradzam ładowanie XXX przycisków w wierszach. Taki arkusz może się rozkraczyć.
Wystarczy 1 przycisk. A wstawienie daty polegało by na wcześniejszym wskazaniu/położeniu kursora.
- Co do pytania to wystarczy msgbox z parametrem
- Wstawienie daty | Kod: | | cells(activecell.row, "h").value = format(now, "DD.MM.YYYY") |
- Warunek | Kod: | | if application.worksheetfunction.countA("a" & activecell.row & ":g" & activecell.row)>0 and isdate("g" & activecell.row) < now then |
Skleisz klocki? |
_________________
MVP Office System, moderator Outlook.pl|WSS.pl|CodeGuru.pl, praca: Business Developer, blog: VBATools |
|
 | ID posta:
147563
|
|
|
|
|
EXCELFORUM.pl POLECA - Bezplatne triki prosto na skrzynke email
|
szunaj85
forumowicz
Posty: 20
|
| Wysłany: 2012-02-05, 17:39
|
|
|
Twoja propozycja brzmi logicznie.
| OShon napisał/a: | | Skleisz klocki? |
Niestety, ale nie.  |
|
| ID posta:
147565
|
|
|
|
OShon
Excel Expert
Zaproszone osoby: 41
Pomógł: 620 razy
Posty: 2037
|
| Wysłany: 2012-02-05, 18:52 Re: Wczytanie aktualnej daty do kolumny po wciśnięciu przyci
|
|
|
| szunaj85 napisał/a: | | Chciałbym zrobić coś takiego... |
To było pytanie retoryczne, bo chyba razie źle cie nie zrozumiałem.
Na forum znajdziesz wiele podpowiedzi.
Pomoc pod [F1] też masz dostępną.
a masz ... ://
| Kod: | Option Explicit
Sub wstaw_date()
Dim msg
If WorksheetFunction.CountA(Range("a" & ActiveCell.Row & ":g" & ActiveCell.Row)) > 0 Then
With Cells(ActiveCell.Row, "h")
If Len(.Value) = 0 Then GoTo dodaj
If Format(.Value, "YYYYMMDD") < Format(Now, "YYYYMMDD") Then
msg = MsgBox("czy chcesz zastąpić date?" & _
vbCr & "Poprzednia data: " & Format(.Value, "DD.MM.YYYY"), _
vbQuestion + vbYesNo, "Wstawianie daty")
If msg = vbYes Then .Value = Now: .NumberFormat = "dd.mm.yyyy"
Else
dodaj:
.Value = Now: .NumberFormat = "dd.mm.yyyy"
End If
End With
End If
End Sub |
Więcej pomocy nie uzyskasz - puki
1. nie przeczytasz regulaminu
2. nie weźmiesz się do roboty i przedstawisz nie tylko swoje życzenia.
3. zamiast odpisywać po 5 min nie spróbujesz znaleźć rozwiązania SAM.
Od nas dostaniesz wskazówki. |
_________________
MVP Office System, moderator Outlook.pl|WSS.pl|CodeGuru.pl, praca: Business Developer, blog: VBATools |
|
| ID posta:
147569
|
|
|
|
|
EXCELFORUM.pl POLECA - Bezplatne triki prosto na skrzynke email
|
szunaj85
forumowicz
Posty: 20
|
| Wysłany: 2012-02-08, 17:05
|
|
|
Co mogłem zrobiłem, ale znowu utknąłem w martwym punkcie.
W załączniku ten plik.
Wczytanie aktualnej daty.rar
|
 Pobierz Plik ściągnięto 16 raz(y) 10.23 KB |
|
|
| ID posta:
147916
|
|
|
|
OShon
Excel Expert
Zaproszone osoby: 41
Pomógł: 620 razy
Posty: 2037
|
|
| ID posta:
147955
|
|
|
|
|
EXCELFORUM.pl POLECA - Bezplatne triki prosto na skrzynke email
|
szunaj85
forumowicz
Posty: 20
|
| Wysłany: 2012-02-13, 11:33
|
|
|
| Bo tyle byłem w stanie zrobić. Na prawdę mimo szukania informacji na ten temat w internecie i własnych prób nie jestem w stanie nic więcej zrobić. |
|
| ID posta:
148568
|
|
|
|
maxaa
ExcelSpec
Pomógł: 135 razy
Posty: 589
|
| Wysłany: 2012-02-13, 12:14
|
|
|
A zobacz takie coś wpisz w komórke I2 taką formułę i przeciągnij sobie potem w dół. Jeżeli od A2 do G2 niema żadnej liczby to nie ma wpisu daty jeżeli wstawisz gdziekolwiek liczbę pojawia sie data.
| Kod: | | =JEŻELI(SUMA.ILOCZYNÓW(A2:G2)=0;"";DZIŚ()) |
|
|
| ID posta:
148585
|
|
|
|
|
EXCELFORUM.pl POLECA - Bezplatne triki prosto na skrzynke email
|
OShon
Excel Expert
Zaproszone osoby: 41
Pomógł: 620 razy
Posty: 2037
|
| Wysłany: 2012-02-13, 12:21
|
|
|
| szunaj85 napisał/a: | | Bo tyle byłem w stanie zrobić. Na prawdę mimo szukania informacji na ten temat w internecie i własnych prób nie jestem w stanie nic więcej zrobić. |
Nie rozumiem. Ukradłeś ten plik i nie wiesz jak się podpina kod pod przycisk?
Wytłumacz się proszę albo weź sie do roboty, bo podane rozwiązanie należy zastosować.
Jeśli oczekujesz że ktoś ci WSZYSTKO zrobi to masz pecha że na mnie trafiłeś. |
_________________
MVP Office System, moderator Outlook.pl|WSS.pl|CodeGuru.pl, praca: Business Developer, blog: VBATools |
|
| ID posta:
148589
|
|
|
|
|
|
Regulamin
