excel macro(1)

本文介绍了作者初次接触Excel Macro的经历,从寻找资料到理解如何在现有workbook上操作。通过阅读他人的脚本,了解如何将Excel内容写入properties文件,并最终实现了一个简单的宏,用于在Sheet1上获取A1到A10的最小值。作者发现直接使用Worksheets("Sheet1")可以方便地获取worksheet的句柄,从而简化了问题。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

闲暇时间,觉得无聊,突然想到前几天pm问过我会不会excel的macro,我想应该是这个很有意思的东西,既然是basic脚本,那我以前也毕竟在大一的时候写过一些,今天就开始尝试了起来.
开始的时候无从下手,因为在ms的网站上查到的结果都是创建一个新的excel后进行操作,我想是在原来的workbook上直接操作.看来只能去下msdn 2003了,还好公司的NSP(Network Service Provider)部门服务器上有ms.net 2003,下来就装上来用用.
开始的时候先看看别人写过的脚本,基本上都是把excel里面的内容读出到一个properties文件里,在项目里也就是一些按钮和标题的资源文件,部分代码如下
Private Sub InsertProperties_Click()
Dim strResult As String
Dim iSheetCount, i As Integer

strFilePath = ThisWorkbook.Path & “/ApplicationResources.properties“
Set FS = CreateObject(“Scripting.FileSystemObject“)
Set fileProperties = FS.OpenTextFile(strFilePath, 8, TristateFalse)
‘MsgBox “ApplicationResources.properties => “ & strFilePath

strResult = “ — — — — — — — — — — — — — — — — — -“
fileProperties.WriteLine (strResult)
strResult = “ — — — — — — — — — Resource Message of Common Module “
fileProperties.WriteLine (strResult)
strResult = “ — — — — — — — — — — — — — — — — — — — “
fileProperties.WriteLine (strResult).....

但我想操作这个 workbook还是没有办法,看来还是要自己去search了,找了下msdn 2003,发现直接可以用Worksheets(“Sheet1“)这样的形式来取得一个worksheet的handler,看来是我以前想的太复杂了,vb还是比较直接的,看来应该换个思路来理解这些脚本才行.先用了个简单的,算是开门吧.在sheet1上放个button,然后双击,进入script editor,输入如下内容:
Dim answer As String
Set myRange = Worksheets(“Sheet1“).Range(“A1:A10”)
answer = Application.WorksheetFunction.Min(myRange)
MsgBox answer
显示的是从A1到A10这一列中的最小值,当然要数字才行.

 
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值