- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我有一个 Excel 文件,其中包含表的名称及其对应的列,如下所示: Tables and Columns
我编写了一个子过程,它返回表名的所有对应列。
我当前的代码执行以下操作:
将 Col A(表名)和 Col B(列名)保存到二维数组
遍历数组,查找表名是否存在于数组的第一列。
我在那里有一个错误处理程序,如果表名不是表的全名(即用户是一个短字符,或者输入了数组中不存在的表名) ) 然后显示以下消息:
“您必须输入表格的全名。”
我的问题是,无论是否输入了正确的表名,上面的错误处理程序都会显示错误,我不知道为什么。如果我删除错误处理程序,代码就会运行完美...直到有人输入数组中不存在的表名,这是令人费解的错误处理程序应该解决的问题,除非它不能正常工作,大声笑。
有人知道哪里出了问题以及如何解决吗?它必须能够非常快地处理包含大量数据的大型数组。
感谢您提前提出任何想法、建议或答案!!!
注意:我有超过 100,000 行,因此 application.Match、Index 或组合将不起作用。
完整代码如下:
Option Compare Text
Option Explicit
Sub Testingggg()
Dim Big_Array(), small_array() As Variant
Dim i, j, LookUpValue_Counter As Long
Dim LookUpValue As String
Application.ScreenUpdating = False
'Clear previously returned data
Worksheets("New TRAX").Range("C2:D300").ClearContents
If UserForm2.txttablecols.Value <> "" Then
LookUpValue = UserForm2.txttablecols.Value
Else
MsgBox "You must enter a the name of the table.", vbExclamation, "Error Encountered"
Exit Sub
End If
'Store cols A and B in the Big_Array
Big_Array = Range("A2").CurrentRegion
'Starting in the second row of the Big_Array loop through _
each element of the Big_Array
For i = LBound(Big_Array, 1) To UBound(Big_Array, 1)
'Note: I used Option Compare Text at the _
beginning of the module to make the text _
comparisons case insensitive
'This searches the second Col (i.e. Column Names) only
If Big_Array(i, 2) Like LookUpValue Then
MsgBox "You must enter the name of the Table, NOT the Column", vbExclamation, "Error Encountered"
Exit Sub
'*******************************************************
'This ElseIf is what gives me problems. Like I said _
before, if I remove this, the other code and error _
handlers work perfectly. However if the the user _
enters a table name that doesn't exist, then the code _
won't run, but that makes sense, b/c that's what error _
handler is for...except it doesn't work, lol.
'*******************************************************
This searches the first Col (i.e. Table Names) only
ElseIf Not (Big_Array(i, 1) Like LookUpValue) Then
MsgBox "You must enter the the full name of the Table.", vbExclamation, "Error Encountered"
Exit Sub
'If the table name exists and is in the correct _
format, then execute the following
ElseIf Big_Array(i, 1) Like LookUpValue Then
'increase the LookUpValue_Counter by 1 each _
time the LookUpValue matches a value in col A
LookUpValue_Counter = LookUpValue_Counter + 1
'Redimension the small_array array with each instance _
of a the LookUpValue in the Big_Array.
ReDim Preserve _
small_array(1 To 2, 1 To LookUpValue_Counter)
'*******************************************
'NOTE: FOR THOSE OF YOU WHO HAVE BEEN TRYING TO _
FIND A WAY AROUND SUB-SETTING AN ARRAY THAT _
WORKS FOR WAY MORE THAN 65,536 ROWS (see index _
for sub-setting arrays) I FOUND A WAY :), NOTE THE _
2 to 2 IN THE FOR LOOP; THIS PULLS ONLY THE SECOND _
COLUMN OF THE ARRAY _
The following Starts a counter (j) to populate _
the small_array.
'*******************************************
For j = 2 To 2
'The small_array array equals the current Big_Array
small_array(j, LookUpValue_Counter) _
= Big_Array(i, j)
Next j
End If
Next i
'Transpose the small_array onto sheet
ActiveSheet.Range("C2", Range("C2").Offset(LookUpValue_Counter - 1, 1)) _
= Application.Transpose(small_array)
'Write LookUpValue to sheet
Worksheets("New TRAX").Cells(2, 3).Value2 = LookUpValue
Application.ScreenUpdating = True
End Sub
我也试过以下方法:
ElseIf Not InStr(1, Big_Array(i, 1), LookUpValue, vbTextCompare) Then
ElseIf Big_Array(i, 1) <> LookUpValue Then
ElseIf Not (Big_Array(i, 1) = LookUpValue) Then
这些都不起作用。
最佳答案
一开始你写的
For i = LBound(Big_Array, 1) To UBound(Big_Array, 1)
后来你写了
ElseIf Not (Big_Array(i, 1) Like LookUpValue) Then
MsgBox "You must enter the the full name of the Table.", vbExclamation, "Error Encountered"
想一想。
如果 LookUpValue
不是 Big_Array 中的第一个,它将始终向您显示消息。我打赌你想先遍历整个数组,然后然后当它找不到时你想显示消息。
实现一个 bool 值就可以了' ***
:
Option Compare Text
Option Explicit
Sub Testingggg()
Dim Big_Array(), small_array() As Variant
Dim i, j, LookUpValue_Counter As Long
' ***
Dim blnfound As Boolean
Dim LookUpValue As String
Application.ScreenUpdating = False
'Clear previously returned data
Worksheets("New TRAX").Range("C2:D300").ClearContents
If UserForm2.txttablecols.Value <> "" Then
LookUpValue = UserForm2.txttablecols.Value
Else
MsgBox "You must enter a the name of the table.", vbExclamation, "Error Encountered"
Exit Sub
End If
'Store cols A and B in the Big_Array
Big_Array = Range("A2").CurrentRegion
'Starting in the second row of the Big_Array loop through _
each element of the Big_Array
For i = LBound(Big_Array, 1) To UBound(Big_Array, 1)
'Note: I used Option Compare Text at the _
beginning of the module to make the text _
comparisons case insensitive
'This searches the second Col (i.e. Column Names) only
If Big_Array(i, 2) Like LookUpValue Then
MsgBox "You must enter the name of the Table, NOT the Column", vbExclamation, "Error Encountered"
Exit Sub
'If the table name exists and is in the correct _
format, then execute the following
ElseIf Big_Array(i, 1) Like LookUpValue Then
' ***
blnfound = True
'increase the LookUpValue_Counter by 1 each _
time the LookUpValue matches a value in col A
LookUpValue_Counter = LookUpValue_Counter + 1
'Redimension the small_array array with each instance _
of a the LookUpValue in the Big_Array.
ReDim Preserve _
small_array(1 To 2, 1 To LookUpValue_Counter)
'*******************************************
'NOTE: FOR THOSE OF YOU WHO HAVE BEEN TRYING TO _
FIND A WAY AROUND SUB-SETTING AN ARRAY THAT _
WORKS FOR WAY MORE THAN 65,536 ROWS (see index _
for sub-setting arrays) I FOUND A WAY :), NOTE THE _
2 to 2 IN THE FOR LOOP; THIS PULLS ONLY THE SECOND _
COLUMN OF THE ARRAY _
The following Starts a counter (j) to populate _
the small_array.
'*******************************************
For j = 2 To 2
'The small_array array equals the current Big_Array
small_array(j, LookUpValue_Counter) _
= Big_Array(i, j)
Next j
End If
Next i
' *** If no 'Like' was found
If blnfound = False Then
MsgBox "You must enter the the full name of the Table.", vbExclamation, "Error Encountered"
Exit Sub
End If
'Transpose the small_array onto sheet
ActiveSheet.Range("C2", Range("C2").Offset(LookUpValue_Counter - 1, 1)) _
= Application.Transpose(small_array)
'Write LookUpValue to sheet
Worksheets("New TRAX").Cells(2, 3).Value2 = LookUpValue
Application.ScreenUpdating = True
End Sub
顺便说一句,为什么 i
和 j
声明为 Variant
?
关于arrays - VBA 使用 Like 运算符在数组中查找字符串不起作用,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/53653917/
今天有小伙伴给我留言问到,try{...}catch(){...}是什么意思?它用来干什么? 简单的说 他们是用来捕获异常的 下面我们通过一个例子来详细讲解下
我正在努力提高网站的可访问性,但我不知道如何在页脚中标记社交媒体链接列表。这些链接指向我在 facecook、twitter 等上的帐户。我不想用 role="navigation" 标记这些链接,因
说现在是 6 点,我有一个 Timer 并在 10 点安排了一个 TimerTask。之后,System DateTime 被其他服务(例如 ntp)调整为 9 点钟。我仍然希望我的 TimerTas
就目前而言,这个问题不适合我们的问答形式。我们希望答案得到事实、引用资料或专业知识的支持,但这个问题可能会引发辩论、争论、投票或扩展讨论。如果您觉得这个问题可以改进并可能重新打开,visit the
我就废话不多说了,大家还是直接看代码吧~ ? 1
Maven系列1 1.什么是Maven? Maven是一个项目管理工具,它包含了一个对象模型。一组标准集合,一个依赖管理系统。和用来运行定义在生命周期阶段中插件目标和逻辑。 核心功能 Mav
我是一名优秀的程序员,十分优秀!