Question

我试图找出如何将给定工作表中的范围名称转换为数组。我已经获得了listnames函数，但似乎一次性列出它们。有什么想法吗？

提前致谢

詹姆斯

Answer 1

类似的东西：

Sub listum()
    Dim ary(1 To 3) As String
    With ActiveWorkbook
        If .Names.Count > 0 Then
            For i = 1 To .Names.Count
                MsgBox (i & "  " & .Names(i).Name & "  " & Range(.Names(i)).Address)
                ary(i) = .Names(i).Name
            Next
        End If
    End With
End Sub

将显示它们并将它们放入数组中。

根据需要调整阵列大小。
确保工作簿中没有非范围名称。

Answer 2

我的版本是我使用的动态数组：

  .card,.front,.back{
    width: 100px;
    height: 160px;
    margin: 1px;
  }
  .card{
    position: relative;
  }
  .front{
    background-color: red;
    transform: perspective(400px) rotatey(0deg); 
    backface-visibility: hidden;
    transition: transform 1s ease-in-out 0s;
  }
  .back{
    backface-visibility: hidden;
    transform: perspective(400px) rotatey(180deg); 
    background-color: blue;
    transition: transform 1s ease-in-out 0s;
    position: absolute;
    top: 0;
  }

  .card:hover .front{
    transform: rotatey(-180deg);
  }
  .card:hover .back{
    transform: rotatey(0deg);
  }

将命名范围名称读入VBA数组

2 个答案: