我修改的代碼，我用來調用多個工作表，&我想用它來調用網址。 Sub OVR_Office_Listing()
Dim i As String
'MsgBox prompt:="1st 6 Months of Reports?", Title:="Referral Workbook - Data Entry"
i = MsgBox("Continue to OVR Office Di
我有一個代碼在所選列中輸入唯一日期。但是我只想在（U和X）的兩個欄中應用。任何人都可以請幫助我如何可以包括其他列 Private Sub Worksheet_Change(ByVal Target As Range)
Set r = ActiveSheet.Range("B2:B20000")
For Each c In r
If c.Value <> "" A
我有一個宏，它基於另一電子表格中的原始數據填充電子表格。 每行的主要排序方法是按車道（起點到終點）。每個車道的結果按周進一步分類。我需要在保留最後結果的同時刪除每個車道的重複周。 的設置與此類似：（抱歉格式） A B
LANE A WEEK 38
LANE A WEEK 39
LANE A WEEK 40
LANE A WEEK 41
LANE A WEEK 42
LANE A W
我已經編寫了一些代碼，它將基於行＃的代碼中的每個項分配給一個代碼。我想從那裏做的是從每行中選擇一個與所選代碼相對應的所有信息，然後將其粘貼到另一個工作簿中。我一直有一些麻煩。下面的代碼：在那裏我遇到的問題 wbLSHP.Activate
For Each cell In CodeRange
If cell = "1" Then
Range(ActiveCell.Offset
運行以下代碼時，出現錯誤「運行時錯誤'1004'：應用程序定義或對象定義的錯誤」。它打破了對標線 Dim cwb As Workbook
Dim csh As Worksheet
Set cwb = Workbooks.Open("M:\Secretary Resources\AppTracking\SentSurveys.xlsx")
Set csh = cwb.Sheets("Sheet
我有代碼，以活動監視器上的用戶窗體中心。用戶窗體可以選擇打開一個全屏幕的IE窗口，該窗口將用戶帶到一個站點並執行一些HTML解析。我想給用戶選擇打開當前或次要監視器上的IE窗口，但我沒有運氣在網上找到任何有用的信息。下面顯示了我用來打開IE的VBA。任何指針將不勝感激！ Dim ie As Object
Dim LoginAttempt As String
Set ie = N
我試圖用代碼來計算增值稅和總在同一條直線E（同一行淨額）但增值稅的答案遠高於淨額的20％。與總金額相同的問題。我認爲這兩個數字可能會拿出一些其他數字，而不僅僅是淨額。下面是我的代碼的一部分，請給我一些建議嗎？非常感謝 Option Explicit
Sub copy_info()
Dim i As Long, j As Long, lastRow As Long
Dim sh As Wor