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