🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: free.it.visual-basic
Article #129

Modifica codice per inserimento date con calendario

#129
From: magomerlino
Date: Sun, 14 Feb 2010 12:29
26 lines
2244 bytes
In excel 2007 ho crearo una macro per inserire le date nella cella excel 
mediante un calendario come in Access 2007.
Seleziona la cella excel, tasto CTRL+Z e compare il calendario, doppioclicco 
sul numero del giorno ed inserisco
la data nella cella selezionata. A questo punto devo chiudere il calendario 
altrimenti non posso selezinare u'altra cella per un nuovo inserimento.
Quesito:  si potrebbe modificare il codice in modo da tenere sempre aperto 
il calendario e consentire cmq l'inserimento delle date
che significa  non digitare ogni volta CTRL+Z, quindi evitare di aprire e 
chiudere, aprire e chiudere,  .....

Il codice nella UserForm1 �:
Private Sub Calendar1_Click()
    ActiveCell.Value = Me.Calendar1.Value
End Sub

Il codice nel modulo1 �:
Public Sub m()
    UserForm1.Show
End Sub

E' possibile rinominare la UserForm in "Calendario"?
Il file excel cmq � a questo indirizzo:
http://cid-4e8529db43cfa3a4.skydrive.live.com/browse.aspx/Merlino?uc=1

Grazie! 
Technical Details
Message-ID: <31Sdn.135971$9f6.152450@twister1.libero.it>
Path: arc1-ca.pugleaf.net!g2news1.google.com!news1.google.com!npeer02.iad.highwinds-media.com!news.highwinds-media.com!feed-me.highwinds-media.com!nntp.club.cc.cmu.edu!feeder.erje.net!de-l.enfer-du-nord.net!feeder1.enfer-du-nord.net!news.panservice.it!nntp.infostrada.it!twister1.libero.it.POSTED!not-for-mail

Show Full Headers
Complete Article Headers
X-Google-Thread: 3de4ef2fba,41c4d5cc2b28397,start
X-Google-Attributes: gid3de4ef2fba,public,usenet
X-Google-NewGroupId: yes
X-Google-Language: ITALIAN,ASCII
Path: arc1-ca.pugleaf.net!g2news1.google.com!news1.google.com!npeer02.iad.highwinds-media.com!news.highwinds-media.com!feed-me.highwinds-media.com!nntp.club.cc.cmu.edu!feeder.erje.net!de-l.enfer-du-nord.net!feeder1.enfer-du-nord.net!news.panservice.it!nntp.infostrada.it!twister1.libero.it.POSTED!not-for-mail
From: "magomerlino" <magomerlino.1963@libero.it>
Newsgroups: free.it.visual-basic
Subject: Modifica codice per inserimento date con calendario 
Lines: 27
MIME-Version: 1.0
Content-Type: text/plain;
 format=flowed;
 charset="iso-8859-1";
 reply-type=original
Content-Transfer-Encoding: 8bit
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Windows Mail 6.0.6001.18000
X-MimeOLE: Produced By Microsoft MimeOLE V6.1.7600.16385
Message-ID: <31Sdn.135971$9f6.152450@twister1.libero.it>
Date: Sun, 14 Feb 2010 12:29:51 GMT
NNTP-Posting-Host: 151.46.153.198
X-Complaints-To: abuse@libero.it
X-Trace: twister1.libero.it 1266150591 151.46.153.198 (Sun, 14 Feb 2010 13:29:51 MET)
NNTP-Posting-Date: Sun, 14 Feb 2010 13:29:51 MET
Organization: [Infostrada]