[已解决]求助!只能输入数字，不能输入数字以外的字符

FredAlex

我想对两个单元格设定一定的条件，其中一个单元格设定的条件为“区分大小写”，另外一个单元格设定“只能输入数字，不能输入数字以外的字符；如果输入数字外的字符，要弹出一个对话框提示输入数据不匹配。”请高帮忙教路此代码怎样写

最佳答案

月排行榜 / 总排行榜

周义坤

2012-8-18 13:27

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Target.Address = "$A$1" Then
   
3.         If Not VBA.IsNumeric([a1]) Then
   
4.         MsgBox "类型不匹配"
   
5.             [a1] = ""
   
6.         End If
   
7.     End If
   
8.     If Target.Address = "$B$1" Then
   
9.         [B1] = VBA.StrConv([B1], 1)
   
10.     End If
    
11. End Sub
    

复制代码

Book144.zip (8.58 KB, 下载次数: 22)

2012-8-18 13:27 上传

点击文件名下载附件

跳转到最佳答案楼层

过儿

匹配大小写是什么样子的？

FredAlex

过儿 发表于 2012-8-17 15:37
匹配大小写是什么样子的？

是区分英文字母大小写

wlz1660

你也是来完任务的吧,百度来的吧

hoogle

用数据有效性就行了。

jonnygu

测试单元格A1和B1,看看是不是你要效果，如果是请给我最佳，谢谢！

FredAlex

jonnygu 发表于 2012-8-17 16:08
测试单元格A1和B1,看看是不是你要效果，如果是请给我最佳，谢谢！

这个有点效果了，但与想我要的效果还有点差异。我想要“输入不匹配的字符不可以显示在单元格内，保持单元格为空”；字母大小写区分那里我弄错了，应该是“无论输入大写还小写，全都默认为大写，不用弹出对话框”。如果这两个地方改过来就是我想要的效果，请你再帮忙修改一下。

周义坤

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Target.Address = "$A$1" Then
   
3.         If Not VBA.IsNumeric([a1]) Then
   
4.             [a1] = ""
   
5.         End If
   
6.     End If
   
7.     If Target.Address = "$B$1" Then
   
8.         [B1] = VBA.StrConv([B1], 1)
   
9.     End If
   
10. End Sub

复制代码

Book144.zip (8.49 KB, 下载次数: 6)

2012-8-18 11:59 上传

点击文件名下载附件

FredAlex

周义坤 发表于 2012-8-18 11:59

• If Target.Address = "$A$1" Then
•         If Not VBA.IsNumeric([a1]) Then
•             [a1] = ""
  

现在就差显示一个对话框了，msgbox "输入类型不匹配" 。我弄了几次都不行，请帮忙在上面代码中插入显示对话框的代码,谢谢

周义坤

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Target.Address = "$A$1" Then
   
3.         If Not VBA.IsNumeric([a1]) Then
   
4.         MsgBox "类型不匹配"
   
5.             [a1] = ""
   
6.         End If
   
7.     End If
   
8.     If Target.Address = "$B$1" Then
   
9.         [B1] = VBA.StrConv([B1], 1)
   
10.     End If
    
11. End Sub
    

复制代码

Book144.zip (8.58 KB, 下载次数: 22)

2012-8-18 13:27 上传

点击文件名下载附件