<rss version="2.0" xmlns:dc="http://purl.org/dc/elements/1.1/" xmlns:trackback="http://madskills.com/public/xml/rss/module/trackback/" xmlns:wfw="http://wellformedweb.org/CommentAPI/" xmlns:slash="http://purl.org/rss/1.0/modules/slash/"><channel><title>Suggerimenti su Excel e VBA</title><link>http://blog.shareoffice.it/terzaghi/category/80.aspx</link><description>In questa pagina presentiamo le risposte e i commenti riguardo ai problemi sottoposti dai lettori riguardo a macro e a funzioni partiocolari di Excel.
</description><managingEditor>Andrea Terzaghi</managingEditor><dc:language>it-IT</dc:language><generator>.Text Version 0.95.2004.102</generator><item><dc:creator>Andrea Terzaghi</dc:creator><title>Gestione degli Hyperlink in Excel</title><link>http://blog.shareoffice.it/terzaghi/archive/2006/06/21/6323.aspx</link><pubDate>Wed, 21 Jun 2006 21:19:00 GMT</pubDate><guid>http://blog.shareoffice.it/terzaghi/archive/2006/06/21/6323.aspx</guid><wfw:comment>http://blog.shareoffice.it/terzaghi/comments/6323.aspx</wfw:comment><comments>http://blog.shareoffice.it/terzaghi/archive/2006/06/21/6323.aspx#Feedback</comments><slash:comments>0</slash:comments><wfw:commentRss>http://blog.shareoffice.it/terzaghi/comments/commentRss/6323.aspx</wfw:commentRss><trackback:ping>http://blog.shareoffice.it/terzaghi/services/trackbacks/6323.aspx</trackback:ping><description>Capita di dover generare su un foglio Excel una serie di Hyperlink a un gruppo di fuile (altri fogli Excel o altri tipi di file, immagini ad esempio) presenti in una directory.
Si ha a disposizione i nomi dei files ma è complicato realizzare manualemnte, uno per uno tutti gli Hyperlink.
&lt;br /&gt;&lt;br /&gt;
nel file excel scarcabile &lt;a href="http://www.terzaghi.it/excel/faq/risposte/xls/gestione-hyperlinks.zip"&gt; da qui&lt;/a&gt; è disponibile una semplice macro che permette di creare in automatico un gran numero di Hyperlink recuperando i dati dell'Hyperlink stesso, dalle celle del foglio Excel.
&lt;br /&gt;&lt;br /&gt;
E' presente ovviamente, anche una macro per eliminare velocemente Hyperlink da un gruppo di celle selezionate.


&lt;img src ="http://blog.shareoffice.it/terzaghi/aggbug/6323.aspx" width = "1" height = "1" /&gt;</description><body xmlns="http://www.w3.org/1999/xhtml">Capita di dover generare su un foglio Excel una serie di Hyperlink a un gruppo di fuile (altri fogli Excel o altri tipi di file, immagini ad esempio) presenti in una directory.
Si ha a disposizione i nomi dei files ma è complicato realizzare manualemnte, uno per uno tutti gli Hyperlink.
<br /><br />
nel file excel scarcabile <a href="http://www.terzaghi.it/excel/faq/risposte/xls/gestione-hyperlinks.zip"> da qui</a> è disponibile una semplice macro che permette di creare in automatico un gran numero di Hyperlink recuperando i dati dell'Hyperlink stesso, dalle celle del foglio Excel.
<br /><br />
E' presente ovviamente, anche una macro per eliminare velocemente Hyperlink da un gruppo di celle selezionate.


<img src ="http://blog.shareoffice.it/terzaghi/aggbug/6323.aspx" width = "1" height = "1" /></body></item><item><dc:creator>Andrea Terzaghi</dc:creator><title>Ordinare i fogli Excel in un file</title><link>http://blog.shareoffice.it/terzaghi/archive/2006/01/11/3592.aspx</link><pubDate>Wed, 11 Jan 2006 00:58:00 GMT</pubDate><guid>http://blog.shareoffice.it/terzaghi/archive/2006/01/11/3592.aspx</guid><wfw:comment>http://blog.shareoffice.it/terzaghi/comments/3592.aspx</wfw:comment><comments>http://blog.shareoffice.it/terzaghi/archive/2006/01/11/3592.aspx#Feedback</comments><slash:comments>0</slash:comments><wfw:commentRss>http://blog.shareoffice.it/terzaghi/comments/commentRss/3592.aspx</wfw:commentRss><trackback:ping>http://blog.shareoffice.it/terzaghi/services/trackbacks/3592.aspx</trackback:ping><description>&lt;p&gt;E' possibile ordinare i fogli Excel all'interno di un file con una piccola
macro:&lt;/p&gt;
&lt;p&gt;______________________________________________&lt;/p&gt;
&lt;p&gt;&lt;font face="Courier"&gt;Sub ordina()&lt;br /&gt;
Dim ws As Worksheet&lt;br /&gt;
Dim prec As String&lt;br /&gt;
Dim corr As String&lt;br /&gt;
Dim spostamento As Boolean&lt;br /&gt;
Dim primo As Boolean&lt;br /&gt;
Dim i As Integer&lt;br /&gt;
&lt;br /&gt;
spostamento = True&lt;br /&gt;
While spostamento = True&lt;br /&gt;
&lt;br /&gt;
    primo = True&lt;br /&gt;
    spostamento = False&lt;br /&gt;
    prec = ""&lt;br /&gt;
    corr = ""&lt;br /&gt;
    For Each ws In Worksheets&lt;br /&gt;
        If primo Then&lt;br /&gt;
            corr = LCase(ws.Name)&lt;br /&gt;
            primo = False&lt;br /&gt;
        Else&lt;br /&gt;
            prec = corr&lt;br /&gt;
            corr = LCase(ws.Name)&lt;br /&gt;
        End If&lt;br /&gt;
        If prec &amp;lt;&amp;gt; "" Then&lt;br /&gt;
            If corr &amp;lt; prec Then&lt;br /&gt;
               
spostamento = True&lt;br /&gt;
               
ws.Move Before:=Sheets(prec)&lt;br /&gt;
            End If&lt;br /&gt;
        End If&lt;br /&gt;
    Next&lt;br /&gt;
Wend&lt;br /&gt;
&lt;br /&gt;
End Sub&lt;br /&gt;
&lt;/font&gt;______________________________________________&lt;/p&gt;
&lt;p&gt;La macro utilizza la tecnica BubbleSort che, dato il basso numero di elementi
da ordinare (qualche decina al massimo) è assolutamente efficace&lt;/p&gt;
&lt;p&gt;Potete scaricare un piccolo file di esempio da:&lt;/p&gt;
&lt;p&gt;&lt;a href="http://www.terzaghi.it/excel/faq/risposte/24.htm"&gt;http://www.terzaghi.it/excel/faq/risposte/24.htm&lt;/a&gt;&lt;/p&gt;
&lt;img src ="http://blog.shareoffice.it/terzaghi/aggbug/3592.aspx" width = "1" height = "1" /&gt;</description><body xmlns="http://www.w3.org/1999/xhtml"><p>E' possibile ordinare i fogli Excel all'interno di un file con una piccola
macro:</p>
<p>______________________________________________</p>
<p><font face="Courier">Sub ordina()<br />
Dim ws As Worksheet<br />
Dim prec As String<br />
Dim corr As String<br />
Dim spostamento As Boolean<br />
Dim primo As Boolean<br />
Dim i As Integer<br />
<br />
spostamento = True<br />
While spostamento = True<br />
<br />
    primo = True<br />
    spostamento = False<br />
    prec = ""<br />
    corr = ""<br />
    For Each ws In Worksheets<br />
        If primo Then<br />
            corr = LCase(ws.Name)<br />
            primo = False<br />
        Else<br />
            prec = corr<br />
            corr = LCase(ws.Name)<br />
        End If<br />
        If prec &lt;&gt; "" Then<br />
            If corr &lt; prec Then<br />
               
spostamento = True<br />
               
ws.Move Before:=Sheets(prec)<br />
            End If<br />
        End If<br />
    Next<br />
Wend<br />
<br />
End Sub<br />
</font>______________________________________________</p>
<p>La macro utilizza la tecnica BubbleSort che, dato il basso numero di elementi
da ordinare (qualche decina al massimo) è assolutamente efficace</p>
<p>Potete scaricare un piccolo file di esempio da:</p>
<p><a href="http://www.terzaghi.it/excel/faq/risposte/24.htm">http://www.terzaghi.it/excel/faq/risposte/24.htm</a></p>
<img src ="http://blog.shareoffice.it/terzaghi/aggbug/3592.aspx" width = "1" height = "1" /></body></item></channel></rss>
