Condividi:        

giorno della settimana

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

giorno della settimana

Postdi raimea » 06/08/10 07:13

sto cercando come far scrivere il giorno della settimana
(lunedi, martedi,.......)
in una determinata cella
io ho la macro che mi scrive la data odierna(in B7)
Codice: Seleziona tutto
Dim data As Date 
data = Now
Range("b7").Select
ActiveCell.NumberFormat = "dd/mm/yyyy"
ActiveCell = data


vorrei scrivere in B6 il giorno corrente :roll:
ho provato a cercare.... ma... :?:
S.O. win10, Excell 2019
Avatar utente
raimea
Utente Senior
 
Post: 1410
Iscritto il: 11/02/10 07:33
Località: lago

Sponsor
 

Re: giorno della settimana

Postdi Francesco53 » 06/08/10 08:20

Ciao da Formato Celle - Data poi cerchi la scritta *mercoledì 14 marzo 2001 e ti inserisce il girno della settimana.
Francesco
S.O. Windows 10 e Office 2007
Avatar utente
Francesco53
Utente Senior
 
Post: 811
Iscritto il: 20/02/10 18:45

giorno della settimana

Postdi raimea » 06/08/10 08:36

ai ragione
ma in questo modo, non so' x quale motivo,
quando " gira" la macro completa me lo toglie
(mi cambia i formati), quindi vorrei scriverlo ogni volta che faccio girare la macro.
ciao
S.O. win10, Excell 2019
Avatar utente
raimea
Utente Senior
 
Post: 1410
Iscritto il: 11/02/10 07:33
Località: lago

Re: giorno della settimana

Postdi Francesco53 » 06/08/10 09:48

Probabilmente la macro agisce sulla cella B6, devi vedere dove succede e modificare.
Nella piccola parte che hai inserito non si vede alcun riferimento alla cella B6.
Altrimenti alla fine della macro, puoi richiamare questa macro:
Call GiornoSett
prima di End Sub
Codice: Seleziona tutto
Sub GiornoSett()
    Range("B6").Select
    ActiveCell.FormulaR1C1 = "=+R[1]C"
    Range("B6").Select
    Selection.NumberFormat = "[$-F800]dddd, mmmm dd, yyyy"
    Range("A1").Select
End Sub

Ciao
S.O. Windows 10 e Office 2007
Avatar utente
Francesco53
Utente Senior
 
Post: 811
Iscritto il: 20/02/10 18:45

giorno della settimana

Postdi raimea » 06/08/10 10:10

mmm non funge
a me serve scrivere in B6 - solo - il giorno - "venerdi"
e non venerdi 6 agosto 2010
(la data odierna lo in B7 )

con la macro da te riportata mi scrive in b6 tutta la data


tutta la macro l'ho controllata e non fa riferimenti alla colonna b
solo che come dicevo quando gira mi cambiava il formato e ho dovuto
aggirare la funzione =OGGI()
x ora grazie x l'interessamento :undecided:
S.O. win10, Excell 2019
Avatar utente
raimea
Utente Senior
 
Post: 1410
Iscritto il: 11/02/10 07:33
Località: lago

Re: giorno della settimana

Postdi Flash30005 » 06/08/10 11:22

Usa queste due righe di codice per avere il dato come testo

Codice: Seleziona tutto
Dim data
data = Format(Weekday(Now, vbSunday), "dddd")
Range("b9").Value = data


altrimenti per mantenere la data odierna ma formattare la cella con lo scopo di visualizzare il giorno della settimana fai così

Codice: Seleziona tutto
Range("B11").Value = Now
Range("B11").NumberFormat = "dddd"

Ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

giorno della settimana

Postdi raimea » 06/08/10 11:36

ok, funziona :eeh:
ho optato x la 2da soluzione
riporto la parte della mia macro dove in una cella
scrivo la data odierna
e in un altra cella il giorno corrispondente della settimana
Codice: Seleziona tutto
Dim data As Date  '<<< scrivo  la data in b7
data = Now
Range("b7").Select
ActiveCell.NumberFormat = "dd/mm/yyyy"
ActiveCell = data

Range("B8").Value = Now  ' <<< serve a scrivere il giorno in b8
Range("B8").NumberFormat = "dddd"


        Range("C1").Select


grazie ad entrambi per il rapido interessamento.
S.O. win10, Excell 2019
Avatar utente
raimea
Utente Senior
 
Post: 1410
Iscritto il: 11/02/10 07:33
Località: lago

Re: giorno della settimana

Postdi Flash30005 » 06/08/10 11:49

Beh, se non hai l'esigenza di avere i dati in due celle separate, potresti anche scrivere tutto in una cella
con solo due righe di codice ;)
Codice: Seleziona tutto
     
Range("B7").value = Now
Range("B7").NumberFormat = "dddd - dd/mm/yyyy"


Ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

giorno della settimana

Postdi raimea » 06/08/10 12:21

ok grazie x la precizazione,
ma in questo caso ho necessita di
usare 2 celle diverse.
ciao
S.O. win10, Excell 2019
Avatar utente
raimea
Utente Senior
 
Post: 1410
Iscritto il: 11/02/10 07:33
Località: lago


Torna a Applicazioni Office Windows


Topic correlati a "giorno della settimana":


Chi c’è in linea

Visitano il forum: Nessuno e 56 ospiti

cron