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

24小时热门版块排行榜    

Znn3bq.jpeg
小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » VB » 求急救：VBA中range对单元格不能依次读取数据，提示：“作用于对象Globle时失败”
132/2返回列表上一页12
查看: 2665  |  回复: 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
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考博] 2026博士还有哪些学校有名额 +3 小王求读研 2026-05-15 4/200 2026-05-16 01:01 by 小田6699
[教师之家] 上海大学实验技术岗位非升即走 +5 嘻嘻哈哈乐呵呵 2026-05-15 5/250 2026-05-16 00:17 by caiyun
[文学芳草园] 窗边初夏的小雨 +8 阿美_Lml888 2026-05-09 11/550 2026-05-15 23:54 by WASM
[考博] 西南大学考核制博士 +4 lijunjie84 2026-05-11 7/350 2026-05-15 23:20 by 同仁堂教主
[文学芳草园] 裁员滚滚，退居二线 +3 J_wei 2026-05-10 3/150 2026-05-15 22:52 by molecula
[硕博家园] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3 l7k6xnh0yc 2026-05-14 4/200 2026-05-15 17:43 by x0mp7owy2b
[论文投稿] 有带发论文的吗 +4 山楂之术 2026-05-09 4/200 2026-05-15 15:40 by 妹子不好惹
[文学芳草园] 风把牡丹吹跑了 +5 myrtle 2026-05-12 9/450 2026-05-15 15:27 by myrtle
[基金申请] 青C资助名额大幅增加！ +11 西葫芦炒鸡蛋 2026-05-13 15/750 2026-05-15 14:36 by ambravo
[公派出国] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3 l7k6xnh0yc 2026-05-14 3/150 2026-05-15 12:03 by onwj4wpxp2
[基金申请] 这年头没有找到涵评专家，还有中面上的可能吗 +9 dd921ww 2026-05-12 10/500 2026-05-15 10:41 by muyiliuhui
[考博] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3 l7k6xnh0yc 2026-05-14 3/150 2026-05-15 09:23 by onwj4wpxp2
[考研] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3 cjf4bx70cj 2026-05-14 4/200 2026-05-15 09:03 by gagyerk94e
[教师之家] 教学课件你会给同学吗 +8 硕士研究生吗 2026-05-13 8/400 2026-05-14 22:23 by 常规沥青
[基金申请] 重磅！青年科学基金项目（C类）资助增幅预计超过50% +5 水和泥不是水泥 2026-05-13 7/350 2026-05-14 20:57 by 水和泥不是水泥
[高分子] 本人最近太闲了，谁有问题可以提，每天会统一回复 +8 一切都是空工 2026-05-12 19/950 2026-05-14 20:03 by 一切都是空工
[考博] 申博自荐 +4 食品的橙子 2026-05-09 6/300 2026-05-14 16:05 by great1919
[考博] 材料类只有一篇综述能申博么 +4 乐逍遥谷 2026-05-13 4/200 2026-05-14 12:05 by zhyzzh
[基金申请] 请问大佬b0816评完了吗 +3 市民华南虎 2026-05-12 7/350 2026-05-14 07:41 by 市民华南虎
[硕博家园] 导师各种操作恶心咋办 +11 苍白的小青天 2026-05-09 13/650 2026-05-13 17:11 by 六两废铜
信息提示
关闭
请填处理意见
关闭