<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/" xmlns:copyright="http://blogs.law.harvard.edu/tech/rss" xmlns:image="http://purl.org/rss/1.0/modules/image/">
    <channel>
        <title>VBA</title>
        <link>http://blogs.ugidotnet.org/fgiossi/category/VBA.aspx</link>
        <description>Visual Basic for Application</description>
        <language>it-IT</language>
        <copyright>Francesco Giossi</copyright>
        <generator>Subtext Version 2.6.0.0</generator>
        <item>
            <title>Editare file di Excel 2007 da VBA o VB6</title>
            <link>http://blogs.ugidotnet.org/fgiossi/archive/2009/05/08/editare-file-di-excel-2007-da-vba-o-vb6.aspx</link>
            <description>Interessante articolo su come editare il formato OPENXML di Excel 2007 utilizzando il buon vecchio VBA o, per estensione, il sempre valido Visual basic 6.
http://www.jkp-ads.com/articles/Excel2007FileFormat02.asp
&lt;img src="http://blogs.ugidotnet.org/fgiossi/aggbug/96133.aspx" width="1" height="1" /&gt;</description>
            <dc:creator>Francesco Giossi</dc:creator>
            <guid>http://blogs.ugidotnet.org/fgiossi/archive/2009/05/08/editare-file-di-excel-2007-da-vba-o-vb6.aspx</guid>
            <pubDate>Fri, 08 May 2009 10:44:11 GMT</pubDate>
            <comments>http://blogs.ugidotnet.org/fgiossi/archive/2009/05/08/editare-file-di-excel-2007-da-vba-o-vb6.aspx#feedback</comments>
            <slash:comments>1</slash:comments>
            <wfw:commentRss>http://blogs.ugidotnet.org/fgiossi/comments/commentRss/96133.aspx</wfw:commentRss>
            <trackback:ping>http://blogs.ugidotnet.org/fgiossi/services/trackbacks/96133.aspx</trackback:ping>
        </item>
        <item>
            <title>Editare file di Excel 2007 da VBA o VB6</title>
            <link>http://blogs.ugidotnet.org/fgiossi/archive/2009/05/08/editare-file-di-excel-2007-da-vba-o-vb6.aspx</link>
            <description>Interessante articolo su come editare il formato OPENXML di Excel 2007 utilizzando il buon vecchio VBA o, per estensione, il sempre valido Visual basic 6.
http://www.jkp-ads.com/articles/Excel2007FileFormat02.asp
&lt;img src="http://blogs.ugidotnet.org/fgiossi/aggbug/96133.aspx" width="1" height="1" /&gt;</description>
            <dc:creator>Francesco Giossi</dc:creator>
            <guid>http://blogs.ugidotnet.org/fgiossi/archive/2009/05/08/editare-file-di-excel-2007-da-vba-o-vb6.aspx</guid>
            <pubDate>Fri, 08 May 2009 10:44:11 GMT</pubDate>
            <comments>http://blogs.ugidotnet.org/fgiossi/archive/2009/05/08/editare-file-di-excel-2007-da-vba-o-vb6.aspx#feedback</comments>
            <slash:comments>1</slash:comments>
            <wfw:commentRss>http://blogs.ugidotnet.org/fgiossi/comments/commentRss/96133.aspx</wfw:commentRss>
            <trackback:ping>http://blogs.ugidotnet.org/fgiossi/services/trackbacks/96133.aspx</trackback:ping>
        </item>
        <item>
            <title>Contrarre una selection (range) in Excel</title>
            <link>http://blogs.ugidotnet.org/fgiossi/archive/2008/10/20/contrarre-una-selection-range-in-excel.aspx</link>
            <description>Semplice funzione per Excel che consente di contrarre di n righe una selection (per intenderci, un range di celle) .
Risulta utile anche per spostarsi in su od in giù di n righe se la selection corrente è una singola cella.
Function CropSelection(Rows As Long) As Boolean
 
Dim sSelection As String
Dim iDollarPosition As Long
Dim sRow As String
Dim lRow As Long

    On Error GoTo CropSelection_Error

    sSelection = Selection.Address()
    
    iDollarPosition = InStrRev(sSelection, "$")
    
    sRow = Mid(sSelection, iDollarPosition + 1)
    lRow = CLng(sRow) - Rows
    sRow = Mid(sSelection, 1, iDollarPosition - 1) &amp;amp; CStr(lRow)
    
    Range(sRow).Select

    On Error GoTo 0
    CropSelection = True
    Exit Function

CropSelection_Error:

    MsgBox "Error " &amp;amp; Err.Number &amp;amp; " (" &amp;amp; Err.Description &amp;amp; ") in procedure CropSelection of Modulo Modulo1"

End Function
&lt;img src="http://blogs.ugidotnet.org/fgiossi/aggbug/94305.aspx" width="1" height="1" /&gt;</description>
            <dc:creator>Francesco Giossi</dc:creator>
            <guid>http://blogs.ugidotnet.org/fgiossi/archive/2008/10/20/contrarre-una-selection-range-in-excel.aspx</guid>
            <pubDate>Mon, 20 Oct 2008 23:42:38 GMT</pubDate>
            <comments>http://blogs.ugidotnet.org/fgiossi/archive/2008/10/20/contrarre-una-selection-range-in-excel.aspx#feedback</comments>
            <wfw:commentRss>http://blogs.ugidotnet.org/fgiossi/comments/commentRss/94305.aspx</wfw:commentRss>
            <trackback:ping>http://blogs.ugidotnet.org/fgiossi/services/trackbacks/94305.aspx</trackback:ping>
        </item>
    </channel>
</rss>