我知道這將是一個容易的,但我只是無法在嘗試和谷歌搜索的日子後得到它,所以我聽起來不像一個白癡在這裏問。VBA查找下一個列開始循環再次
我正在研究什麼應該是一個簡單的代碼來檢查名爲數字的列中的值實際上是數字,計數發生並打印cell.address。
許多工作表中有許多列用於搜索,並且所有工作表中的第一列的代碼都能正常工作我只是無法獲得findNext代碼,因此它在所有數字列中循環移動到下一個工作表之前。 (代碼包括日期值開始檢查第二個循環,當我得到數字排序出來)
我會sooooo偉大的任何assitance,所以我不會失去更多的頭髮。事先道歉我對VBA很新穎。
代碼:
Sub ErrorFormatCount()
Dim j As Long
Dim LastRow, LastCol, DateCol, AssetCol, NumericCol As Long
Dim ErrorCount, Counter As Integer
Dim Toolwb As Workbook
Dim ws As Worksheet
Application.ScreenUpdating = False
Set Toolwb = Workbooks("EDTDoctor")
Toolwb.Sheets("Infrastructure").Activate
For Each ws In Worksheets
If ActiveSheet.Name = "EndSheetName" Then
Exit For
End If
'On Error Resume Next
NumericCol = ActiveSheet.Rows(7).Find("Numeric", Lookat:=xlWhole).Column
DateCol = ActiveSheet.Rows(7).Find("Date", Lookat:=xlWhole).Column
AssetCol = Rows(4).Find(What:="1035", Lookat:=xlWhole).Column
LastRow = ActiveSheet.Cells(Rows.Count, AssetCol).End(xlUp).Row
LastCol = ActiveSheet.Cells(AssetCol, Columns.Count).End(xlToLeft).Column
For j = 8 To LastRow
ErrorCount = 0
Counter = Toolwb.Sheets("Cover").Cells(41, "G").Value
NextPrintCell = Toolwb.Sheets("Cover").Cells(Rows.Count, "G").End(xlUp).Offset(1, 0).Row
If Not IsNumeric(Toolwb.ActiveSheet.Cells(j, NumericCol)) Then
ActiveSheet.Cells(j, NumericCol).Select
Toolwb.Sheets("Cover").Cells(NextPrintCell, "G") _
= ActiveCell.address(RowAbsolute:=False, ColumnAbsolute:=False, External:=True)
ErrorCount = Application.WorksheetFunction.CountA(ActiveCell)
Toolwb.Sheets("Cover").Cells(41, "G").Value = ErrorCount + Counter
End If
Next j
Toolwb.ActiveSheet.Next.Activate
Next ws
Application.ScreenUpdating = True
Toolwb.Sheets("Cover").Activate
MsgBox ("Checked For Formatting Errors" & vbNewLine & vbNewLine _
& "Format Errors Found" & " - " & Counter), vbInformation = vbOKOnly
End Sub
「使用Excel 2010
想想我們需要更多的細節來看結果應該去哪裏。 – SJR
不用擔心。代碼遍歷選定列中的所有行(大多數工作表中除了第一個表「Cover」和最後一個「EndSheetName」外,每個ws中的列都帶有行(7)中的標題「numeric」。if if not not numeric counts the returns returns覆蓋!G41的累計結果並將從Cover!G43開始的單元格地址複製到下一行,以查找發現的每個數字錯誤。不幸的是,我無法更改工作表工作簿結構以使事情更輕鬆,因爲此輸出由客戶端數據設置如果您需要更多的信息或者需要上傳樣本,請告知我們。 – AmetureHour