1
我製作了一個數據輸入表單,用於廣告或更新數據表中的行。以此http://www.contextures.com/exceldataentryupdateform.html爲基礎。該表單有128行,其中5個是使用視圖記錄導航按鈕時應排除的查找公式(第12,19,30,34,36行)。否則,如果使用導航按鈕,公式將被刪除並替換爲值。從宏中的範圍中排除具有公式的行
但我真的不知道如何做到這一點。我對VBA非常陌生。這是我的第一個項目,所有的幫助將不勝感激。
Sub ViewLogDown()
Dim historyWks As Worksheet
Dim inputWks As Worksheet
Dim rngA As Range
Dim lRec As Long
Dim lRecRow As Long
Dim lLastRec As Long
Dim lastRow As Long
Application.EnableEvents = False
Set inputWks = Worksheets("Input")
Set historyWks = Worksheets("Werknemers")
Set rngA = ActiveCell
With historyWks
lastRow = .Cells(.Rows.Count, "A").End(xlUp).Offset(1, 0).Row - 1
lLastRec = lastRow - 1
End With
With inputWks
lRec = .Range("CurrRec").Value
If lRec < lLastRec Then
.Range("CurrRec").Value = lRec + 1
lRec = .Range("CurrRec").Value
lRecRow = lRec + 1
historyWks.Range(historyWks.Cells(lRecRow, 3), historyWks.Cells(lRecRow, 128)).Copy
.Range("D5").PasteSpecial Paste:=xlPasteValues, Transpose:=True
inputWks.Range("OrderSel").Value = .Range("D5").Value
rngA.Select
End If
End With
Application.EnableEvents = True
End Sub
太好了,我覺得這是我需要但你可以放置也告訴我如何將其嵌入我的代碼?因爲我試圖粘貼它,但它給了我一個錯誤。 – user3425887
SUPER THX爲您提供幫助! – user3425887
我想結束的列表應該看起來像這樣。在你底部的例子中,他們向上移動。那會攪亂數據。 [1]:https://i.stack.imgur.com/ijYVP.png – user3425887