存档

‘VBA’ 分类的存档

试着做个动态图表

2011年10月12日
没有评论

前面贴了一个优酷上面的数据可视化视频和Google Public Data的动态图，用同样的数据源也在Excel里做了一个动态图表，相比Google的网页动态图，没有了平滑变化，效果差了很多。
从这个表可以看到，如果将人均国民收入用对数坐标表示，和平均寿命有很好的相关性。
另外，触目惊心的是卢旺达在上世纪90年度初的内战导致平均寿命低至26~27岁。
MotionChart
下载：Box.Net | SkyDrive

Spreadsheet, VBA

[VBA书籍] Pro Excel 2007 VBA

2011年10月5日
1 条评论

最近工作闲了很多，股票行情差到不想看，也就多了时间看看书。之前很少用Excel 2007和2010，所以开始学习2007或2010版本的VBA。
Apress的这本《Pro Excel 2007 VBA》介绍的内容和普通的VBA书籍有些不同，因此适用于对Excel VBA或其它语言有一定了解的学习者。对我来说，像第2章、第3章和第6章的内容之前一直比较少接触，而第9章的内容则可以直接跳过。
Pro Excel 2007 VBA

目录
第1章：宏记录器和代码模块
第2章：数据进入，数据出来
第3章：在Excel2007中使用XML
第4章：用户窗体
第5章：Excel2007的图表
第6章：透视表
第7章：调试和错误处理
第8章：Office整合
第9章：ActiveX和.Net

PDF下载：爱问
源码下载：Apress

VBA, 图书

使用正则表达式截取文本

2011年8月13日
2 条评论

在进行网页内容下载时，经常需要截取指定关键字内的部分文本，以前一般使用Instr、InstrRev、Mid、Left和Right这些字符串函数来分离，这样比较繁琐一些。其实也可以使用正则表达式来处理，这里做一个自定义函数，以后自己就可以这样使用了。

Function TextBetween(strInput As String, strStart As String, strEnd As String) As String
    Dim regEx As Object
    Dim Matches As Object
    Dim strPattern As String
 
    Set regEx = CreateObject("vbscript.regexp")
 
    strStart = Replace(strStart, "\", "\\")
    strEnd = Replace(strEnd, "\", "\\")
 
    strStart = Replace(strStart, "(", "\(")
    strEnd = Replace(strEnd, "(", "\(")
 
    strStart = Replace(strStart, ")", "\)")
    strEnd = Replace(strEnd, ")", "\)")
 
    strStart = Replace(strStart, "*", "\*")
    strEnd = Replace(strEnd, "*", "\*")
 
    strStart = Replace(strStart, ".", "\.")
    strEnd = Replace(strEnd, ".", "\.")
 
    strStart = Replace(strStart, "^", "\^")
    strEnd = Replace(strEnd, "^", "\^")
 
    strStart = Replace(strStart, "$", "\$")
    strEnd = Replace(strEnd, "$", "\$")
 
    strStart = Replace(strStart, "$", "\$")
    strEnd = Replace(strEnd, "$", "\$")
 
    strStart = Replace(strStart, "+", "\+")
    strEnd = Replace(strEnd, "+", "\+")
 
    strStart = Replace(strStart, "?", "\?")
    strEnd = Replace(strEnd, "?", "\?")
 
    strStart = Replace(strStart, "{", "\{")
    strEnd = Replace(strEnd, "{", "\{")
 
    strStart = Replace(strStart, "}", "\}")
    strEnd = Replace(strEnd, "}", "\}")
 
    strStart = Replace(strStart, "|", "\|")
    strEnd = Replace(strEnd, "|", "\|")
 
    strPattern = strStart & "(.*\n*.*)" & strEnd
    regEx.Pattern = strPattern
    regEx.IgnoreCase = True
    regEx.Global = True
    regEx.MultiLine = True
 
    On Error Resume Next
    Set Matches = regEx.Execute(strInput)
    TextBetween = Matches(0).submatches(0)
    Set regEx = Nothing
    Set Matches = Nothing
End Function
 
Sub Test()
    MsgBox TextBetween("abc-this is a test-abc", "-", "-")
End Sub

VBA , , ,

想法-基于Web的加载宏管理器

2011年7月25日
1 条评论

有一个这样的想法，其实是可以实现的，只是可能实用性不会太好。

现在的加载宏一般都是手动打开文件运行，感觉可以做一个基于网络的加载宏管理器插件。
先建一个网站，允许网友们上传自己的加载宏，出于安全的考虑，必须是公开源代码。加载宏在审核之后分类呈现，添加版本的适用信息，可以接受用户评分。
然后做一个加载宏插件，显示网站上可用的加载宏，选择自己需要的加载宏后可以一键安装。下面只是一个简单的模版窗口，还可以添加分类、搜索、管理已安装加载宏等等功能。
AddinTool

VBA , ,

在不同版本的Excel中插入图片

2011年7月16日
没有评论

在Excel中插入图片一般使用Picture集合的Insert方法。 但是不同的版本有一些差别。

下面是Excel2003中的代码。其中Insert方法中的文件路径的文件夹分界符可以是”\”也可以是”/”。另外，设置LoctAspecRatio属性为True并不能固定长宽比，需要同时调整长度和宽度。

Sub InsertImg2003()
    Dim imgWidth As Integer
    Dim fixWidth As Integer
    Dim dRatio As Double
 
    ' 设置图片显示固定宽度
    fixWidth = Cells(2, 2).Width * 5
 
    ' 选择图片插入位置
    Cells(2, 2).Select
    With ActiveSheet.Pictures.Insert("C:\test.jpg")
        ' 获取图片插入后的原始宽度
        imgWidth = .ShapeRange.Width
        ' 获取拉伸比，如果固定显示高度的话用Height属性
        dRatio = fixWidth / imgWidth
        ' Excel2003中设置固定长宽比不起作用
        '.ShapeRange.LockAspectRatio = msoTrue
        ' 调整宽度
        .ShapeRange.ScaleWidth dRatio, msoFalse, msoScaleFromTopLeft
        ' 调整高度
        .ShapeRange.ScaleHeight dRatio, msoFalse, msoScaleFromTopLeft
    End With
End Sub

Excel2007中插入图片的代码基本上一样。但是Insert方法中的文件路径的文件夹分界符只能是”\”。另外设置固定长宽比在Excel2007中有效，所以只需要设置宽度即可。还有一个不同的地方是2007中使用代码插入图片后，图片并不定位于当前选择的单元格，需要设置图片的位置。

Sub InsertImg2007()
    Dim imgWidth As Integer
    Dim fixWidth As Integer
    Dim dRatio As Double
 
    ' 设置图片显示固定宽度
    fixWidth = Cells(2, 2).Width * 5
 
    ' 选择图片插入位置
    Cells(2, 2).Select
    With ActiveSheet.Pictures.Insert("C:\test.jpg")
        ' 获取图片插入后的原始宽度
        imgWidth = .ShapeRange.Width
        ' 获取拉伸比，如果固定显示高度的话用Height属性
        dRatio = fixWidth / imgWidth
        ' 设置固定长宽比，默认为True
        .ShapeRange.LockAspectRatio = msoTrue
        ' 调整宽度
        .ShapeRange.ScaleWidth dRatio, msoFalse, msoScaleFromTopLeft
        ' 不需要重复设置高度
        '.ShapeRange.ScaleHeight dRatio, msoFalse, msoScaleFromTopLeft
        ' Excel2007和2003不同，使用代码插入图片的位置并不位于选择的单元格
        .Left = Cells(2, 2).Left
        .Top = Cells(2, 2).Top
    End With
End Sub

2007的代码可以用于2010，但是当保存文件时，你会发现文件的大小并没有什么改变，实际上在Excel2010里使用代码插入图片只是保存了指向图片的链接，图片本身并没有保存下来。当源图片文件被删除或移走，Excel文件将不能显示图片。一个简单的方法是将图片剪切一下，然后重新粘贴，这样Excel文件中将在保存时包含图片。同时，Cut方法的位置放在ScaleWidth前或者后将影响图片的保存质量。

Sub InsertImg2010()
    Dim imgWidth As Integer
    Dim fixWidth As Integer
    Dim dRatio As Double
 
    ' 设置图片显示固定宽度
    fixWidth = Cells(2, 2).Width * 5
 
    ' 选择图片插入位置
    Cells(2, 2).Select
    With ActiveSheet.Pictures.Insert("C:\xiugai.jpg")
        ' 获取图片插入后的原始宽度
        imgWidth = .ShapeRange.Width
        ' 获取拉伸比，如果固定显示高度的话用Height属性
        dRatio = fixWidth / imgWidth
        ' 设置固定长宽比，默认为True
        .ShapeRange.LockAspectRatio = msoTrue
        ' 调整宽度
        .ShapeRange.ScaleWidth dRatio, msoFalse, msoScaleFromTopLeft
        ' 不需要重复设置高度
        '.ShapeRange.ScaleHeight dRatio, msoFalse, msoScaleFromTopLeft
        ' Excel2010和2007不同，插入的图片位于当前选择的单元格，不需要设置位置
        '.Left = Cells(2, 2).Left
        '.Top = Cells(2, 2).Top
        ' 复制图片让文件保存的时候包含图片
        .Cut
        ActiveSheet.Pictures.Paste.Select
    End With
End Sub

VBA , ,