最新WPS办公软件学习教程_免费企业办公软件下载_金山WPS Office官网论坛

 找回密码
 
查看: 107|回复: 4

[VB6/VBA] 在excel上运行无问题,wps上出现错误,求大神解答

[复制链接]

3

主题

1

听众

33

积分

LV.1

Rank: 1

签到天数: 1 天

[LV.1]初来乍到

金币
284
威望
89
帖子
10
精华
0
发表于 2015-8-29 17:36 |显示全部楼层
分享到: 新浪微博 腾讯微博
如题,下面红色部分出现438错误,可是在excel上可以运行的无问题,求解啊
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim I As Integer
    If Target.Count = 1 Then
        If Target.Column = 3 And Target.Row > 5 Then
            With Sheets("基础信息表")
                Myr = .[B65536].End(xlUp).Row
                Arrsj = .Range("A2:D" & Myr)
            End With
            TextBox1.Activate
            TextBox1 = ""
            With Me.TextBox1
                .Visible = True
                .Top = Target.Top
                .Left = Target.Left
                .Width = Target.Width
                .Height = Target.Height
            End With
            With Me.ListBox1
                .Visible = True
                .Top = Target.Top
                .Left = Target.Left + Target.Width
                .Width = Target.Width * 5
                .Height = Target.Height * 4
            End With
        Else
            Me.ListBox1.Clear
            Me.TextBox1 = ""
            Me.ListBox1.Visible = False
            Me.TextBox1.Visible = False
        End If
    End If
End Sub

0

主题

1

听众

9

积分

LV.1

Rank: 1

该用户从未签到

金币
3
威望
11
帖子
11
精华
0
发表于 2017-3-3 17:25 |显示全部楼层

我是来打酱油的
回复

使用道具 举报

0

主题

1

听众

8

积分

LV.1

Rank: 1

该用户从未签到

金币
3
威望
7
帖子
5
精华
0
发表于 2017-3-9 10:27 |显示全部楼层
我也遇到了WPS中VBA与EXCEL中的VBA运行效果不相同的问题,应该是兼容性问题
回复

使用道具 举报

4

主题

0

听众

11

积分

LV.1

Rank: 1

该用户从未签到

金币
3
威望
15
帖子
11
精华
0
发表于 2017-7-14 16:15 |显示全部楼层
这个我在WPS中试过了,好用啊!
回复

使用道具 举报

0

主题

0

听众

4

积分

LV.1

Rank: 1

该用户从未签到

金币
3
威望
1
帖子
3
精华
0
发表于 2017-9-28 20:28 |显示全部楼层
没有声明父对象,TextBox1 的父对象应该是某个窗体吧?格式:窗体名字.TextBox1
回复

使用道具 举报

*滑动验证:
您需要登录后才可以回帖 登录 | 更多账号登录:

快速回帖:

fastpost

WPS论坛更新日志|WPS Office官方论坛     

GMT+8, 2017-11-24 06:27

Powered by Discuz! X2.5

© 2001-2012 Comsenz Inc.

回顶部