excel macro(1)

最新推荐文章于 2025-05-23 04:09:32 发布

alex_wan

最新推荐文章于 2025-05-23 04:09:32 发布

阅读量4.9k

点赞数

CC 4.0 BY-SA版权

分类专栏： VBA 文章标签： excel properties 脚本 integer string network

本文链接：https://blog.youkuaiyun.com/alex_wan/article/details/744527

VBA 专栏收录该内容

0 篇文章

订阅专栏

本文介绍了作者初次接触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这一列中的最小值,当然要数字才行.