在vba中搜索二维数组中的元素

Question

代码：VBA

假设有一个二维数组

计数器（1到8,1到2）作为字符串

A   6

B   7

C   8

D   9

E   10

F   11

G   12

H   13

如果我使用的话，我想在字母表中输入相应的数字。

计数器（ “F”，2）。

我该怎么做？

Answer 1

使用字典或集合是一种很好的学习方法，我建议您查看这些数据结构。

这是使用某些内置VBA功能的替代方法。基本上它会查找ASCII代码，然后将该数字偏移以与前面提到的值对齐，例如A - > 6。

Public Function OffsetChar(ByVal Character As String, _
                           Optional ByVal OffsetValue As Integer) As Integer
    OffsetChar = Asc(UCase(Left(Character, 1))) + OffsetValue
End Function

Public Sub SO_Example()
    Debug.Print OffsetChar("a", -59) ' This will return 6
End Sub

它也应该非常快。