Excel 编写应用程序添加了“识别硬盘编号”宏

楼上的牛x，学会了。

添加。 楼上**需要在VBA窗口中对胡纳宇块进行建模，然后粘贴。

然后将以下内容粘贴到本工作簿的**窗口**中，以达到您想要减速的裤子的效果。

private sub workbook_open()sheets("sheet1").a1].value = getserialnumber("c:\"

if getserialnumber("c:\"sheets("sheet1").a1].value then

sheets("sheet2").selectend if

end sub

您不必在其上设置附加的 dll。

这个问题有悖论的嫌疑。

如果禁用宏，则无法运行宏，VBA程序自然无效。

如果不禁用宏，则可以运行VBA，那么禁用宏与否有什么意义呢？

Excel Office 自动集成了“VBA”高级编程语言，用这种语言编写的程序称为“宏”。 使用“VBA”需要一定的编程基础和大量的时间，因此绝大多数用户只使用Excel的通用制表功能，很少使用“VBA”。

使用“VBA”语言编程并集成到 Excel 中，可以定制特定的、功能强大的 Excel 软件（这就是 Excel 强大功能的用武之地）。

但是，极少数人可能会使用“VBA”语言来编译专门破坏计算机系统的病毒程序并将其集成到Excel中，从而给计算机用户造成损失。 为了防止这种情况发生，Excel 带有“宏”检测功能。 当发现打开的 Excel 文件有“宏”时，用户将收到警报，并让用户选择是否启用“宏”。

计算机提示语言如下：“x x 文件包含宏...宏可以携带病毒。

取消宏可确保安全性，但如果宏本身是安全的，则会丢失一些功能。 ”

是否启用宏取决于软件的**。 如果您不知道软件的**，请不要启用它; 如果您知道它，您应该启用它，否则您将无法使用软件中设置的功能。

第二列的前三行位于第一个范围的前三行（"b1" & ":" & "b3").copy range("a1")

第三列的前三行位于第一列的四到六行中，range（"c1" & ":" & "c3").copy range("a4")

其他人也是如此。 如果你想循环，你可以这样做。

sub aaa()

dim n as long

n = 1for i = 1 to 5 '复制第 2 列到第 6 列的前三行并自行修改。

range("b1" & ":" & "b3").offset(0, i - 1).copy range("a" & n)

n = n + 3

nextend sub

如果您了解 VB，那么制作 VBA 就会容易得多。

我没有看你的具体问题，我只是想说一些基本的东西。

Excel 主要调用 sheet 对象和 cell（或 range）对象。

例如，可以调用 sheet1 中的单元格 A2，也可以使用 1）"a2"） 拨打电话。

假设您将数据放在 A 列中。

然后你可以在菜单栏的空白处右键，选择“控制工具箱”，点击“控制工具箱”中的“命令按钮”，然后在任意单元格中点击，会出现一个按钮，双击这个按钮，跳转到宏，输入以下内容。

x = cells(1, 1) '存储临时数据 y = 0'计算重复次数。

z = 0 '计数。

for i = 2 to 16 '如果 （cells（i， 1） = x 和 y < 3） 则将 16 更改为总行数

y = y + 1

elsey = 0

z = z + 1

x = cells(i, 1)

end if

nextmsgbox z

您可以自己录制宏并查看它。

range("a1").select

range（selection，range（selection，range（selection，range（selection，selection，xldown xlup on xltoright right xltoleft left.

只需给出 2，一个是最大的行，另一个是最大的列。

maxrow = range("a65536").end(xlup).row

maxcol = range("iv1").end(xltoleft).column 'iv1 = 256 列。

还有许多扩展，您可以在 excel 中搜索最大的列。

使用偏移方法。

set c = , 0) '在活动单元格的左侧获得一个正方形的倍数之间有什么关系？ 让我们把它放在你自己身上。

offset（n，m） 水平 n 个方格，纵向 m 个方格，负数时左上角，正数时右下角。

1.可以使用活动单元格左侧的位置，1）2，行数规则，可以使用循环。

假设它是行数的 2 倍。

for i=1 to rows(65000).end(xlup).row

msgbox cells(i,2).offset(0, -1).value

i=i*2-1

next i