請師傅幫助製作 VBA 巨集。 附件需要傳輸

有什麼問題，海陸空加你。

您可以通過呼叫單元格資料來為單元格賦值。

1.靜態變數和動態變數。

動態變數是在呼叫過程時重新初始化的變數，而靜態變數在下次呼叫時保留上一次呼叫的值。 這種區別是由不同的宣告方式引起的，例如靜態和 DIM。

下面是乙個示例，用於比較以兩種方式宣告變數之間的差異：

子動態與靜態。

dim a as byte

static b as byte

a = a + 1

b = b + 1

a 等於" & a

b 等於" & b

end sub

2. 變數的範圍和生命週期。

變數的作用域是指允許呼叫變數的位置。

變數分為公共變數和私有變數，也稱為模組級變數和程序級變數。 這種差異取決於它的宣告方式。 其中私有變數的作用域是當前過程，而公共變數允許多個過程呼叫同一變數。 具體效能如下：

範圍 如何宣告變數當前程序 在此過程中，使用 dim 或 static 宣告當前模組，並使用 dim 或 private 宣告此模組中的第乙個過程。

所有模組都宣告變數在模組中的第乙個程序（稱為生存期）之前保留其值的時間量。

private sub worksheet_activate()dim i, j

i = weekday(date) -1j = hour(now())

如果 i = 2 且 j = 11，則呼叫要執行的巨集的名稱。

elseexit sub

end if

end sub

sub test()

dim a as double

dim i as integer

a = '乘數。

i = 0do while len(cells(1 + i, 8)) 0'檢查 h 列是否為空。

不空繼續。

cells(1 + i, 8) = cells(1 + i, 8) *a '將列數 h 乘以常量 a，然後重寫列 h。

如果需要將結果寫在另一列中，請使用以下語句'結果寫在第一欄中。

cells(1 + i, 9) = cells(1 + i, 8) *a

i = i + 1'交換下一行。

loopend sub

1.按 Ctrl+* 選擇資料區域中的整個資料區域並複製它。

2.右鍵單擊空表中的點 A1，然後單擊“貼上選擇性轉置確定”。

這取決於何時需要觸發，例如，在 Excel 中，您希望在選擇更改時觸發，在 selectionChange 事件中呼叫巨集。

private sub worksheet_selectionchange(byval target as range)

call **

end sub

啟用工作表時。

private sub worksheet_activate()call **

end sub

工作表中只有幾個事件。

使用excel中的工作簿開啟函式，呼叫open事件中的巨集事件，巨集函式返回執行完成標誌，如果沒有標誌，則表示巨集沒有執行，它將退出。

你可以封裝你的**，僅此而已。