大神指点下

铜锤

看到一个大神的代码，如下：
For I = 1 To 8
        rst.AddNew
        rst.Fields("???") = Range("K2")
        rst.Fields("????") = Range("B3")
        rst.Fields("????") = Range("D3")
        rst.Fields("????") = Range("RNG" & I)
        rst.Fields("???") = Range("ANG" & I)
        rst.Update
    Next I

请问Range("RNG" & I)中的RNG和Range("ANG" & I)中的ANG是什么啊？

看见星光

rng是列标,i是变量，指行号。

铜锤

看见星光 发表于 2018-6-21 04:14
rng是列标,i是变量，指行号。

星光老师亲自答疑，受宠若惊啊，^_^
-----------------------------------------------------
具体指的是哪一个单元格呢？
ANG也是指列标吗？

铜锤

星光老师亲自答疑，受宠若惊啊^_^
--------------------------------------------
Range("RNG" & I)具体指哪个单元格呢？
ANG也是指列标吗？

yylucke

铜锤 发表于 2018-6-21 12:35
星光老师亲自答疑，受宠若惊啊^_^
--------------------------------------------
Range("RNG" & I)具体 ...

单元格引用有两种常见方式
1、range，range("B2")，直观，但是如果位置是变量，需要进行列标的转换，即把数字列标转换为英文字母。
2、cells，cells(2,2)，易于用变量来改变单元格位置，缺点：不够直观。
楼主问题中的RNG就是一个字符串变量，肯定在别的部分代码中给其赋值。

铜锤

yylucke 发表于 2018-6-21 04:49
单元格引用有两种常见方式
1、range，range("B2")，直观，但是如果位置是变量，需要进行列标的转换，即 ...

Sub ???浥??2()
    Dim cnn As New ADODB.Connection
    Dim rst As New ADODB.Recordset
    Dim myPath As String
    myPath = ThisWorkbook.Path & "\?????.mdb"
    Dim sq1 As String
    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & myPath
    sq1 = "select * from ??????? where ???=" & Range("K2") & ""
    rst.Open sq1, cnn, adOpenKeyset, adLockOptimistic
    Debug.Print Sql
    If rst.RecordCount > 0 Then
     If MsgBox("????棬?????", vbYesNo + vbQuestion, "??") = vbNo Then: Exit Sub
    End If
    rst.Close
    sq1 = "select * from ???????"
    rst.Open sq1, cnn, adOpenKeyset, adLockOptimistic
    For I = 1 To 8
        rst.AddNew
        rst.Fields("???") = Range("K2")
        rst.Fields("????") = Range("B3")
        rst.Fields("????") = Range("D3")
        rst.Fields("????") = Range("RNG" & I)
        rst.Fields("???") = Range("ANG" & I)
        rst.Update
    Next I
HHH:
    rst.Close
    cnn.Close
    Set rst = Nothing
    Set cnn = Nothing
    MsgBox "??????"
End Sub

整段代码如上

yylucke

铜锤 发表于 2018-6-21 12:52
Sub ???浥??2()
    Dim cnn As New ADODB.Connection
    Dim rst As New ADODB.Recordset

抱歉，前面解释有误。
RNG和ANG就是列号

铜锤

yylucke 发表于 2018-6-21 05:49
抱歉，前面解释有误。
RNG和ANG就是列号

Range("RNG" & I)是指哪个单元格呢？

yylucke

铜锤 发表于 2018-6-21 14:25
Range("RNG" & I)是指哪个单元格呢？

在2007及以后的版本中，一张Sheet的最大列为XFD即16384列，最大行为1048576
所以，你的代码中就是RNG列，即12539列

铜锤

我运行了代码，第一次循环Range("RNG" & I)引用的是B4的值