应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » VB » 求急救：VBA中range对单元格不能依次读取数据，提示：“作用于对象Globle时失败”
132/2返回列表上一页12
查看: 2748  |  回复: 12
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

michaelwlin

木虫 (正式写手)

【答案】应助回帖

点击 网页 上的 按钮 参考 这里

http://www.excelpx.com/thread-289961-1-1.html

需要分析 网页源码，取得 按钮 的 id
赞一下 回复此楼
11楼2013-06-21 11:22:58
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

ausir

木虫 (正式写手)

【答案】应助回帖

数据表中的数据如下：
A               B                C              D
姓名        年龄        性别        职称
AAA        1        男        初级
BBB        2        女        中级
CCC        3        男        高级
DDD        4        女        初级
EEE        5        男        中级
FFF        6        女        高级
GGG        7        男        初级
HHH        8        女        中级

运行函数 GetDataAutoInputContent(), 结果正常。没有出现问题。

注：前面的共用部分省略。
Public Sub GetDataAutoInputContext()

Dim i As Integer
Dim r As Range
Dim x1 As String, x2 As String
Dim x3 As String, x4 As String
Dim startcol As Integer, endcol As Integer

If Selection Is Nothing Then
    MsgBox "请先选中处理行", vbOKOnly, "错误"
    STOPRUN = 1
    Exit Sub
End If

'i = Selection.Row
i = 2

If i < 2 Then
    MsgBox "不可处理第一行", vbOKOnly, "错误"
    STOPRUN = 1
    Exit Sub
End If

For i = 2 To 8

startcol = 1
endcol = startcol + XMS - 1

If startcol \ 26 > 0 Then
    x1 = Chr(Asc("A" + startcol \ 26 - 1)
Else
    x1 = ""
End If

x2 = Chr(Asc("A" + startcol Mod 26 - 1)

If endcol \ 26 > 0 Then
    x3 = Chr(Asc("A" + endcol \ 26 - 1)
Else
    x3 = ""
End If

x4 = Chr(Asc("A" + endcol Mod 26 - 1)

Set r = Range(x1 & x2 & i & ":" & x3 & x4 & i)

'循环语句Set r = Range(x1 & x2 & i & ":" & x3 & x4 & i)总是无法执行，提示“作用于对象Globle时失败”，而语句'Set r = Range(i & ":" & i)仅能执行当前行

For j = 1 To XMS Step 1
    Select Case j
    Case 1
        xm = Trim(r.Cells(1, j).Value) '姓名
    Case 2
        nl = r.Cells(1, j).Value '年龄
    Case 3
        If Trim(r.Cells(1, j).Value) = "男" Then
            xb = 1
        ElseIf Trim(r.Cells(1, j).Value) = "女" Then
            xb = 2
        Else
            MsgBox "性别字段错误", vbOKOnly, "错误"
            STOPRUN = 1
            Exit Sub
        End If
    Case 4
        Select Case Trim(r.Cells(1, j).Value)
        Case "初级"
            zc = 1
        Case "中级"
            zc = 2
        Case "高级"
            zc = 3
        Case Else
            MsgBox "职称字段错误", vbOKOnly, "错误"
            STOPRUN = 1
            Exit Sub
        End Select
    End Select
Next j

MsgBox CStr(i - 1) & ":" & xm & " " & CStr(nl) & " " & IIf(xb = 1, "男", "女" & " " & IIf(zc = 1, "初级", IIf(zc = 2, "中级", "高级")

Next i

End Sub

上面的例子中，从第2行循环到第8行，全部正常。
赞一下 回复此楼
12楼2013-06-21 20:28:10
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

bongb

银虫 (小有名气)
送红花一朵
引用回帖:
10楼: Originally posted by michaelwlin at 2013-06-21 11:14:40
MOD运算注意加空格

endcolMod26 应为 endcol Mod 26

这样 到 range() 函数 那里，应该没有错误

不好意思，有事情耽搁了，刚能回来上午。明天试下看看。
谢谢您一直关注解答！
赞一下 回复此楼
13楼2013-06-23 23:21:31
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 bongb 的主题更新
132/2返回列表上一页12
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 时间戳又变了8-15 +7 archvillain 2026-08-15 11/550 2026-08-15 15:06 by Yeuchan
[硕博家园] 售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急 +3 7lpolszZVXgi 2026-08-14 3/150 2026-08-15 14:53 by QXtWNz7PI7wZ
[考研] 售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急 +4 HFw0lei2R37i 2026-08-14 8/400 2026-08-15 14:41 by QXtWNz7PI7wZ
[基金申请] 欢迎发来filecode的Mz6后的代码验证其规律 +26 医学老男孩 2026-08-13 57/2850 2026-08-15 14:25 by JChen2024
[博后之家] 售SCI文章，我:8O.5.5.1O.54,科目全,可十急 +3 k0dTPqJtl0jt 2026-08-14 3/150 2026-08-15 12:41 by KxMI1BYBxWX1
[基金申请] 关于Filecode分析方法 +10 majunge000 2026-08-10 13/650 2026-08-15 12:26 by hanpeng972
[基金申请] 哪位老哥知道今年的国自然具体哪一天放榜？ +6 Ldrop2023 2026-08-13 6/300 2026-08-15 10:09 by tuanggou
[基金申请] filecode +7 cratir 2026-08-14 11/550 2026-08-15 06:19 by 学员8dgXkO
[基金申请] 咱们一起用铁证分析2026国家社科基金中标与否 +7 启萌科技 2026-08-12 22/1100 2026-08-14 23:45 by Noways
[基金申请] 是这周出结果还是下周出结果？ +4 yuleib84 2026-08-11 4/200 2026-08-14 23:05 by lfy8008
[基金申请] 应该是93bebmhtak前后十一个字符比较关键 +23 Lanmanbaby 2026-08-09 37/1850 2026-08-14 13:40 by Equinoxhua
[基金申请] filecode +15 documentary 2026-08-10 17/850 2026-08-14 10:08 by kissu88
[基金申请] 静等基金结果 +8 gjjjzhong 2026-08-10 21/1050 2026-08-13 17:56 by 且听虎啸
[基金申请] 重要来源：本周末出结果 +10 瞬息宇宙 2026-08-12 10/500 2026-08-13 15:46 by likettle
[基金申请] 不应该看fileCode +7 且听虎啸 2026-08-12 9/450 2026-08-13 14:27 by flydreamws
[基金申请] 分享一下我之前已中青C的计划书的filecode +4 布布和一二 2026-08-11 5/250 2026-08-13 12:56 by cratir
[基金申请] 综述论文作为代表作会不会影响评审专家的印象分？ +11 yufeiwaner 2026-08-09 13/650 2026-08-12 08:17 by yufeiwaner
[基金申请] 帮忙看看fileCode +7 wwncly 2026-08-10 13/650 2026-08-11 19:36 by 冰心玉壶晴
[基金申请] 为什么网上很多人说本周 12号出结果 +6 瞬息宇宙 2026-08-10 7/350 2026-08-11 19:25 by Tide man
[基金申请] 2026国自然放榜时间 +9 布布和一二 2026-08-08 9/450 2026-08-10 11:22 by xxxx2020
信息提示
关闭
请填处理意见
关闭