小编Chr*_*nch的帖子

我正在尝试编写将循环遍历范围内所有单元格的代码.最终我想做一些更复杂的事情,但由于我遇到了麻烦,我决定创建一些简短的测试程序.第一个示例工作正常但第二个示例(带有命名范围)没有(给出"Object_Global失败的方法范围"错误消​​息).关于我做错了什么的任何想法？我真的很想用命名范围来做这件事......谢谢!

作品:

Sub foreachtest()
Dim c As Range
For Each c In Range("A1:A3")
    MsgBox (c.Address)
Next
End Sub

不起作用:

Sub foreachtest2()
Dim c As Range    
Dim Rng As Range
Set Rng = Range("A1:A3")
For Each c In Range("Rng")
    MsgBox (c.Address)
Next
End Sub

我正在尝试为我的regsubsets输出绘制一个漂亮的图。我需要减小 x 轴标签的字体大小（有 171 个基因，因此不可读）。

我正在使用的代码是：

regsubsets(x=genes, y=resp, really.big=TRUE, nvmax=4, nbest=10)
plot(a, scale="adjr2", cex=0.5)

我有几个不同的cex参数（cex、、、、、、、） ，但cex.axis没有cex.lab一个可以cex.main使字体大小变小。cex.subcex.textcex.names

看起来解决方案应该很简单，但我无法弄清楚！有什么建议么？