Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2147|回复: 3

[已解决]这段代码该怎么修改?

[复制链接]
发表于 2014-4-24 15:49 | 显示全部楼层 |阅读模式
本帖最后由 liwenhong 于 2014-4-24 21:25 编辑

问题描述:在工作表中输入内容,然后运行代码
       1、第一次远行代码:如果相同的行中G列和I列(从第6行到第300行)同时有文本时,出现提示框,然后结束。
       2、确定提示框后,修改输入的内容,使相同的行中G列和I列不同时有文本
       3、重新远行代码,(此时不应出现提示框),然后执行“LR”模块,之后结束
  1. Sub baobao()
  2.      Dim x As Integer
  3.      For x = 6 To 300
  4.        If Application.IsText(Cells(x, 7)) And Application.IsText(Cells(x, 9)) Then
  5.              MsgBox "输入有误!G列和I列不能同时有文字"
  6.             Exit For
  7.        End If
  8.      Exit Sub
  9.      LR
  10. End Sub

复制代码
最佳答案
2014-4-24 16:03
  1. Sub baobao()
  2.     Dim x As Integer
  3.     For x = 6 To 300
  4.         If Application.IsText(Cells(x, 7)) And Application.IsText(Cells(x, 9)) Then
  5.             MsgBox "第 " & x & " 行输入有误!G列和I列不能同时有文字"
  6.             Exit Sub
  7.         End If
  8.     Next
  9.     LR
  10. End Sub
复制代码
发表于 2014-4-24 16:03 | 显示全部楼层    本楼为最佳答案   
  1. Sub baobao()
  2.     Dim x As Integer
  3.     For x = 6 To 300
  4.         If Application.IsText(Cells(x, 7)) And Application.IsText(Cells(x, 9)) Then
  5.             MsgBox "第 " & x & " 行输入有误!G列和I列不能同时有文字"
  6.             Exit Sub
  7.         End If
  8.     Next
  9.     LR
  10. End Sub
复制代码

评分

参与人数 1 +3 收起 理由
liwenhong + 3 很给力!

查看全部评分

回复

使用道具 举报

发表于 2014-4-24 16:06 | 显示全部楼层
回复

使用道具 举报

 楼主| 发表于 2014-4-24 21:24 | 显示全部楼层
zjdh 发表于 2014-4-24 16:03

您的代码非常好用,比我想的更周到,提示更明确!非常感谢!!
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 18:18 , Processed in 1.153463 second(s), 13 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表