单元格名称操作

YDH318

问题如下:

  A1的单元格名称为 _A1
则在VBA代码中可以 [_A1] ="物料名称"  从而向A1单元格中写入物料名称 字符

现在 单元格的名称 _A1 要用变更 字符 Z 来表示.

z="物料名称"  则没法实现功能. 这个要如何写.

fxl447098457

Set z = [_A1]
z = "物料名称"

YDH318

测试不成功
原代码
Sub 椭圆1_Click()
    Dim z1 As String
    Dim z2 As String
    For i = 7 To 9
        z1 = Cells(i, 1).Value '获得要设置的单元格名称 不含前面的_  如 字段一
        z2 = Cells(i, 2).Value  '如 物料名称
        z1 = "_" & z1  ''获得字段名称 如 _字段一
        '现在要在变量Z1 所表示的具有名称_字段一 和单元格内写入 Z2的值 "物料名称" '
        [_字段一] = z2  '这样就可以写入值 了'
        Set z3 = "[" & z1 & "]"
        z3 = z2    '这两句怎么写都不正常了
    Next
End Sub
请教如何修改代码才行.

YDH318

fxl447098457 发表于 2018-7-12 16:14
Set z = [_A1]
z = "物料名称"

测试不成功