输入框VBA，输入列名称代替名称

Question

我创建了一个程序，要求输入列，然后创建60个值的平均值，然后再创建下一个60个值，依此类推。 我希望输入Column（A，B）的指令，我将输入已使用该列命名的变量，就像将L列命名为Power一样。 所以我输入功率而不是L。

Sub Hourlyaverage()
    Dim i As Long, j As Long, k As Long
    Dim myRange As Range
    Dim myValue As Variant

    Sheets("DUT1_Test51_excel").Select

    i = 3
    j = 3
    k = 63

    myValue = InputBox("Give Column name to calculate Average eg. A,B")

    Do While Cells(i, 12).Value <> ""
        Set myRange = Range(myValue & i & ":" & myValue & k)
        Cells(j, 20).Value = Application.Average(myRange)
        i = i + 60
        j = j + 1
        k = k + 60
    Loop   
End Sub 

Answer 1

您可以添加一个自定义函数，给定一个值，该函数将为您返回该列：

Public Function valueToColumn(ByVal val As String) As String

    valueToColumn = Split(ActiveSheet.Range("A:Z").Find(val).Address, "$")(1)

End Function

因此，一旦用户获得输出，您要做的就是将myValue转换为myValue = valueToColumn(myValue)的列字母。

请注意：

• 上面搜索范围AZ的值。 您需要根据需要进行调整。
• 如果找不到该值，则以上内容将引发异常Variable not set 。 您需要使用错误处理程序来管理此问题（我让您根据需要选择最好的）。

Answer 2

如果您使用第一行来命名列，则使用它。 将colEnd更改为使用的列数。 或从vba获取使用的列。

Sub Hourlyaverage()
    Dim i As Long, j As Long, k As Long
    Dim myRange As Range
    Dim myValue As Variant

    'variables for Column Names
    Dim colEnd As Long, x As Long
    Dim colName As String


    Sheets("DUT1_Test51_excel").Select

    i = 3
    j = 3
    k = 63

    myValue = InputBox("Give Column name to calculate Average eg. A,B")

    'Set columns used
    colEnd = 5

    For x = 1 To colEnd
        If Ucase(Cells(1, x).Value) = Ucase(myValue) Then colName = Right(Left(Cells(1, x).Address, 2), 1)
    Next
    'If column name is not used it will take the value of myValue to see try and use that as a column name incase the user does not use the full name.
    'Tries the first letter incase it was spelt wrong.
    If colName = "" Then colName = Left(UCase(myValue),1)

    Do While Cells(i, 12).Value <> ""
        Set myRange = Range(colName & i & ":" & colName & k)
        Cells(j, 20).Value = Application.Average(myRange)
        i = i + 60
        j = j + 1
        k = k + 60
    Loop
End Sub