制作序列，Range("F1 ").Validation 提示 应用程序定义或对象定义错误

nbwwming

我想点击 各班各学科成绩  统计时，在wroksheet  Activate 事件中，实现 b1  f1 j1 自动生成下列序列。 代码如下：

maxrow = Cells(Rows.Count, 14).End(xlUp).Row    ‘ 如果学校名称改变，罗列班级 名称
  With Range("F1").Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
         xlBetween, Formula1:="=r4c14:r" & maxrow + 1 & "c14"


        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .IMEMode = xlIMEModeNoControl
        .ShowInput = True
        .ShowError = True
    End With

但提示：应用程序定义或对象定义 错误 。
调试停留在
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _         xlBetween, Formula1:="=r4c14:r" & maxrow + 1 & "c14"
这一行
请高手帮忙，指点一二，谢谢！

这一年等待

     .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
         xlBetween, Formula1:="=$n$4:$n$" & maxrow

nbwwming

这一年等待 发表于 2020-1-27 11:23
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
         xlBetween, Form ...

谢谢老师指点。再请教，如果我是要 横着取值呢？这个范围怎么写？如：从 N4开始，横着过去，最大列号为maxColumn 。maxColumn = Cells(4, columns.Count).End(xlToLeft).Column

nbwwming

我知道怎么写了，Formula1:="=$C$1:" & Cells(1, w_columns).Address  .  但很奇怪的是，当我登记的数据一改，又发生同样 的错误了。

山菊花

改数据与发生楼上的错误不挂钩，只有参数Formula1值与当前引用样式不吻合时才出现错误。
这样改试试：
Formula1:= "=" & Range("c1").Resize(1, w_columns - 2).AddressLocal(, , Application.ReferenceStyle)

nbwwming

山菊花 发表于 2020-1-27 23:01
改数据与发生楼上的错误不挂钩，只有参数Formula1值与当前引用样式不吻合时才出现错误。
这样改试试：
Fo ...

谢谢老师指点，按你的写果然可以了，但有点看大不懂。 如果我要取c4开始，c4列着来的到 w_rows 为止，那又该怎么写呢？还请老师指教，谢谢！

山菊花

nbwwming 发表于 2020-1-29 15:02
谢谢老师指点，按你的写果然可以了，但有点看大不懂。 如果我要取c4开始，c4列着来的到 w_rows 为止，那 ...

“c4列着来的到 w_rows 为止”听不明白。
如果w_rows是行号：
Formula1:= "=" & Range("c4:c" & w_rows).AddressLocal(, , Application.ReferenceStyle)
如果w_rows是列号：
Formula1:= "=" & Range("c4").Resize(1, w_rows - 2).AddressLocal(, , Application.ReferenceStyle)

nbwwming

山菊花 发表于 2020-1-29 15:11
“c4列着来的到 w_rows 为止”听不明白。
如果w_rows是行号：
Formula1:= "=" & Range("c4:c" & w_rows ...

谢谢，有点懂了。如果没有你的帮助 ，我是不会知道AddressLocal(, , Application.ReferenceStyle) 。