Foxtable(狐表)用户栏目专家坐堂 → 代码


  共有4420人关注过本帖树形打印复制链接

主题:代码

帅哥哟,离线,有人找我吗?
发财
  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1470 积分:8981 威望:0 精华:0 注册:2013/10/24 9:12:00
  发帖心情 Post By:2015/4/15 14:25:00 [只看该作者]

#VALUE!
出现这种情况的呢?

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/4/15 14:27:00 [只看该作者]

什么意思?  那你判断是否等于 
#VALUE!

 回到顶部
帅哥哟,离线,有人找我吗?
发财
  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1470 积分:8981 威望:0 精华:0 注册:2013/10/24 9:12:00
  发帖心情 Post By:2015/4/15 14:29:00 [只看该作者]

 If s2.Substring(0,1) = "编"Then
其中s2 = #VALUE!   ,就出现以下错误:
Index and length must refer to a location within the string.
Parameter name: length

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/4/15 14:31:00 [只看该作者]

if s2.length > 1 then
If s2.Substring(0,1) = "编"Then
end if
end if

 回到顶部
帅哥哟,离线,有人找我吗?
发财
  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1470 积分:8981 威望:0 精华:0 注册:2013/10/24 9:12:00
  发帖心情 Post By:2015/4/20 16:19:00 [只看该作者]

 For n As Integer = 4 To 48
                    If ws1.cells(6+i,n-1).Formula = "" Then
                        ws1.cells(6+i,n-1).value = Sheet1(n,4).Value
                    End If
                Next
上述代码如何做到ws1.cells(6+i,n-1).Formula只是对公式不输入,数字或空白都可输入?


 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/4/20 16:20:00 [只看该作者]

ws1.cells(6+i,n-1).Formula = "" 不就是公式为空的输入,不为空的不输入么?

 回到顶部
帅哥哟,离线,有人找我吗?
发财
  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1470 积分:8981 威望:0 精华:0 注册:2013/10/24 9:12:00
  发帖心情 Post By:2015/4/20 16:26:00 [只看该作者]

如何输入了一次数据后,没有数据的表格为0,如果下一次再输入时,就全部不能再输入了。

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/4/20 16:29:00 [只看该作者]

输入一次后就锁定表

 回到顶部
帅哥哟,离线,有人找我吗?
发财
  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1470 积分:8981 威望:0 精华:0 注册:2013/10/24 9:12:00
  发帖心情 Post By:2015/4/20 16:35:00 [只看该作者]

讲错了,希望为0的可以再输入?

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/4/20 16:37:00 [只看该作者]

PrepareEdit 判断一下


if e.col.name="列名" then

  if e.row(e.col.name)<>0 then

    e.cancel=true

  end if

end if


 回到顶部
总数 36 上一页 1 2 3 4 下一页