我希望代碼在MsgBox中顯示ListBox1中的選擇，如果ListBox1爲空/未選中，則選擇「選擇容量」。 如果我嘗試使用IsEmpty()，那麼ListBox1.Value是Null。 如果我使用IsNull()，那麼ListBox1.Value是""。 Private Sub CommandButton3_Click()
Dim Cap As Integer
If
我試圖比較兩個不同工作簿上的兩個單元格。如果相等，腳本應該在這些（相同的）工作簿上進一步比較另外兩個不同的單元格，並突出顯示那些不相等的單元格。 我已經試過如下： Sub Compare()
Dim mycell As Range
Dim shtSheet1 As Worksheet
Dim shtSheet2 As Worksheet
Set shtSheet1 = Workbooks(
我正在嘗試創建一個允許我爲列中的所有條目添加前綴的Excel加載項。 我想我想出了一些代碼來做到這一點，但不幸的是，我不斷收到一個錯誤消息，「宏可能無法在此工作簿或所有宏可用被禁用。 。！安全設置 我希望能夠簡單地選擇文本，使用該插件，並有加入到每一列的前綴歡呼和感謝這麼多的尋找到這個 下面的代碼： Private Sub Workbook_AddinInstall()
On Error
我在openclassroom上發現問題時遇到問題。 我們有3個數字，我們在我們的工作表中寫入。 然後我們應該用3個不同的函數進行分類，這些函數是最大值，中值和最小值。 有關問題的更多信息，請參閱問題的底部。 這裏是我的問題代碼： Sub Problem3()
Dim a, b, c As Double
Dim maxnum, midnum, minnum As Double