说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

无论如何,就是只能输入数字-VB资料

HTML文档下载 WORD文档下载 PDF文档下载
无论如何,就是只能输入数字-VB资料

●这一篇是Excel"事件"的运用成果之一,各位可以在这里看到Excel工作表的Change事件的运用方法。
●甲设我们要制做一个只能输入数字的功能,由于Excel没有KeyPress事件,这个就只能靠Sheet的Change事件来做事后诸葛了。我们把滑鼠游标移到Sheet最下方标示"Sheet1"处,然后按一下滑鼠右键。

●按下滑鼠右键蹦出跳出式功能表,选择"检视程式码",之后就会自动呼叫VisualBASIC编辑器。

●VisualBASIC编辑器会自动出现程式码编辑对话框,仔细看右图的左上角,它显示的物件自动变成WorkSheet,而右上角,我们选择Change事件(Cell内的文字被改变会引发的事件)。



●写入程式码:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If IsNumeric(Target.Text) = False And Target.Text <> "" Then
'假如被变更的Cell内的资料不是数字并且不为空白
If Left(Target.Cells.Address, 2) = "$B" Then
'假如Cell位置是B拦位
MsgBox "B栏位整行都只能输入数字", 64
Range(Target.Address).Select
'则工作表上的输入游标自动回到刚才变更的Cell里
SendKeys "{F2}"
'送出F2,让使用者无法争脱直到输入数字为止
End If
End If
End Sub

SUSE总裁Nils:将SUSE Cloud 2.0打造成“零影响的云安装程序” Windows 8之父Steven Sinofsky:2014年科技界的十大趋势 电视盒子还没智能化?看Fan TV们怎么玩 畅游启动“必赢计划” 十亿巨资代理优质产品 数据控使用Hadoop的三种最常用方式 值得创始人学习的五大企业文化管理方式 圣诞节快乐:来自程序员们的问候 宏碁任命新CEO Jason Chen:曾任职英特尔14年、台积电8年 史上第一次越狱发布会与Evad3rs太极助手罗生门 新东方在线CTO曾明:已用Cocos2d-html5开发出150余款产品 Facebook 2013年的9个开源项目 开源力量公开课2013年度庆典:我们的开源项目 看雪学院“走进企业看安全”活动走进安全管家 视频+PPT:苹果iOS7 Tech Talks大会演讲内容 iPhone 6和Galaxy S5暂不会采用弯曲屏技术 当程序不工作时,开发者常用的借口 携程技术副总裁叶亚明:三次重大技术改进的故事及背后原因 Google抛弃C语言,采用Go语言重写Go编译器 jQuery Mobile 1.4.0正式版发布,着重性能改进 IBM收购Aspera加速大数据传输 各式各样的极品程序员,你属于哪一种 Google员工离职前必做的14件事情 GitHub上最火的开源项目及编程语言是什么? 2014的12个大数据趋势:Hadoop继续升温,R将进入主流 研究称三星手机可能存在安全漏洞 初创IT公司里开发者最容易犯的九种错误 还有多少开发者在为IE6做兼容性测试? 解读华三“新IT易之道”理念下的云计算和数据中心 回顾苹果2013:硬件几乎无突破 热衷收购 敏捷开发流程管理须参考的3个要素 微软潘正磊谈DevOps、Visual Studio 2013新功能、.NET未来 请问VC中有没有方法可以取得一幅图片上某个点的颜色值? hgknight(江雨.net)等大侠请看看一个treeview的问题!谢谢。 道德<--->迷信 求查找所有表的SQL 在纯dos下怎么建文本文档和批处理文件? 怎样设定DB2的ODBC数据源参数?谢谢先 如何将DBGrid的指定列冻结? xwindows设置的问题 请大家帮个忙好吗? 【求助】:如何在asp中调用activereport? MM,有个难题急需解决(关于 DateTimePicker控件的) 散分!! 关于怎样传递事件 用ADO连接数据库时,怎么查询数据库中存在的表? 关于生成计算列的问题 你遇见过这样的问题么? 为什么ListBox和NoteBook建立不了联系? asp连接 oracle数据库 vb和access数据库的编程思想 谈一谈VB中Get返回对象时的效率问题(三层开发相关) 如果判断一个文本框中只能输入汉字!,急用 函数function Read(maxsize: SYSINT; var data: PSafeArray): SYSINT;怎么调用? 大家帮个忙好吗? Cookie是什么东西? 嘿嘿,公审,它妈的XXX 在2000下开发的系统,能在Window Me下正常运行吗? 500分求助C#报表设计器 关于男人的处女情节的思考 系统方案讨论? 怎么样获取数据库服务器的系统时间?? 请问哪里有关于权限控制的源代码? 什么是白板系统,用什么思路去实现? management server不能启动了??? 外贸英语网站、外国人交谈沟通交流的软件及下载地 调查在实际项目中对数据库主/外键的使用情况,欢迎讨论 原来的ID,改密码后,如何使原来的ID失效! 能否实现双猫连接共享上网 请问setfocus()好用吗? 3624错误,谁能解决(在线等待,急) 求助,急需,请问jdk1.4有没有提供产生x.509证书的开发包,谢谢 在VC中怎么样操作.INI文件? 微软的东西真的不安全!!!! 关必应用程序的问题 微软的东西不安全! 讨论一个实际项目的具体实现 求《linux源代码情景分析》 关于interbase问题,谢谢你们进来看看吧!急需解决!!!! “李希光事件”前后 关于组合型数据窗口中的子数据窗口查询??? 我用MsChart做的一个统计图,在有些机器上是正常的,但有些机器上看不了是怎么回事呢? ADO如何连接服务器里的ACCESS数据库? 如果在电路中电压表并联在用电器两端,用电器断路,但其他部分电路完好,那么电压表有示数吗?为什么? however,he became a driver and he has not regretted it He is finding his job far more exciting为什么用is finding而不用has found 不是表示一直并持续到现在嘛?急用 马克思主义教育哲学的研究对象是什么? 填冠词:Do you have _ key to the blue car?1Do you have _ key to the blue car?-I think _ key is on the desk.2_ youngest leader in China is _ man called Lu Hao.3 People in westen countries celebrates _ Christmas,while people in China observe _ Spri 一个标准直齿圆柱齿轮的齿根圆直径与基圆直径重合,试求其齿数z?谢 为什么渐开线齿轮的传动比等于两基圆半径的反比? example的复数 新概念英语2册35课有一句话是:He became a bus driver and he has not regretted it.我有俩个问题:1.and连接的前后应该时态已知,and前面became是过去式,后面应该用had啊!2.能否改成:He became a bus driver and he 已知100件产品中有4件次品,不放回抽两次,每次抽1件,两次都取到正品的概率为? 勤能补拙的故事 However和whileWe love peace,() we are not afraid of warA however B while C but我感觉三个都行啊高手降下There used to be a lot of trees,but now there is none now。反义疑问句怎么变?是对but now there is none now反义还 一个长方体的长、宽、高之比为5:3:2,所有的棱长和是600厘米,此长方体的表面积为( )平方米 l have a car.lt’s blue.【两句合一句】 peter flys a kite in the park.【改为进行时态】the baby is asleep.【对划线部分提问】 一标准直齿圆柱齿轮,其齿根园直径与基圆直径重合,试求出其齿数z? "远处的霓虹灯亮了"怎么写? example的名词复数是? 当磁性材料处于一个外部磁场中时,如果磁场的方向和磁性材料中电流的方向不同,那么该磁性材料的电阻会随着施加于它的磁场的强度而变化,前句说着磁场方向后句就来个磁场强度,都哪个跟 描写霓虹灯的段落200字 翻译:a short time ago 一个标准直齿圆柱齿轮的齿根圆直径与基圆直径重合,试求其齿数z?谢 一道有关相似三角形的题锐角三角形ABC 的高CD和BE相交于点O,图中与 其相似的三角形有 几个?锐角三角形ABC 的高CD和BE相交于点O,图中与 BOD其相似的三角形有 几个? for example后面 可不可以直接加名词 对lag函数一直不会做. 一道关于相似三角形的题 键盘按键的发音键盘按键名称求中文发音 ESC TAB CAPS LOCK SHIFT CTRI AIT ENTER 等等..包括中间那九个..各位帮我普及下吧.. a short time和short tim表示很短的时间a short time的a能省不?象:Some of film stars are famous for only a short time. 操作圆盘锯应符合哪些安全要求? 常用3000汉字及其读音,需要按拼音顺序排列,(若有常见词组更好,也需要按拼音顺序排列) 选词填空:at a time,a long time ago,a short time ago,for a long time,after a time 1.I’ve know希望高手能在今晚8点30时把答案发给我,我会拼命加分的,今晚8点50要发给我的老师选词填空:at a time,a long time ago,a 为什麼液体压强不是重力产生的但大小和重量无关上面打错了个字应该是:为什麼液体压强是重力产生的但大小和重量无关 键盘上的Alt键怎么念(读音)? 体育用的碳酸镁我想问下 碳酸镁上海哪里有卖?我说的这个碳酸镁是体育用的 就是 举重运动员啊 体操运动员用的那种(防滑的增加摩擦力的)!不是医药用的! 施工操作者操作圆盘锯应符合哪些安全要求? 键盘“ctri 键” (用汉字读法怎么说)... 能给解释一下轻质碳酸镁和氢氧化镁的区别吗?具体品质有什么差异? 为什麼重力不做功? 根据下面所给的例子,围绕恩字写一句话.舒:舍得给予他人,自己才能获得快乐 轻质碳酸镁在生活中的用途有哪些 实验室用120克石灰石和稀盐酸制取二氧化碳气体,安全反应后共得到气体22.4L(密度CO2=1.977g/L)(1)参加反应的碳酸钙的质量(2)石灰石的纯度 关于不舍得从而导致失败的例子 i am nobody without someone like you 中文i am nobody without someone like you 的翻译 磨齿机怎么用.磨圆盘锯的机子 拜托大家看下望很多很多的唯美古风诗词迷茫了, regardless of whether在句子中可以做什么成分?是整体作连词,构成并列句吗?还是regardless+介词of+whether宾语从句,整体做句子的状语? 是悖论么?对桌面的压力不等于重力?不规则容器里乘上水放在桌面上,对桌面的压力=ρgh×S+G容器,但是ρgh×S=底面正上方的液体所受的重力,也就是G正上方液+G容器=F压.但是由于容器在桌面 在10件产品中有2件次品,从这10件产品中任意抽取3件,其中恰有一件次品的抽法种数是? 如图∠1等于∠2,∠C等于∠F,说明BC∥EF的理由 一批产品共100件,其中有10件次品,不放回顺次连续取两件,求第一次取到次品、第二次取到正品的概率 这个空怎么填呀?It is not a s___ on the desk这是短文填空中的一句,根据上下文,应该是说它放在桌上不安全的意思,所填字母数不限定 渐开线标准直尺圆柱齿轮传动的最大中心距误差怎么求,关于机械原理的如题,谁能解决下,/> 跳伞运动员从天坑上420m的高空离开飞机,自由下落一段距离后才打开伞,设打开伞后跳伞运动员从重庆奉节天坑上420m的高空离开飞机,自由下落一段距离后才打开伞.设打开伞后以2.5m/s²的加 从10件产品(其中含2件次品)中任取5件,其中含有次品的抽法有多少种? 两直尺圆柱齿轮的安装中心距大于标准中心距时,为保证无侧隙配合,应采用正传动.主要解释下正传动,现在只学习了机械原理,没听老师讲过这个. 波长长的波穿透力强还是波长短的穿透力强?RT The desk is not light ,It's h给开头字母h填写单词 Roy trenton drove a taxi before.A short while ago,however,he b__a bus-diver and he feels no sorry about it.He is finding his new work far more i__.When he was driving along Catford Street recently,he saw two thieves r__out of a shop and run towards a 为什么女人不能开飞机? 仓库里有30件正品,10件次品混杂在一起,每次从中随机取出1件进行质量检测,研究恰好检测到次品的机会.若用计算机模拟实验,则要在一一和一一内产生随机数,若产生的随机数是一一,则表示产 he became a bus driver and he was not regretted it.我不明白regret是动词为什么前面用was,was后面不是应该接形容词吗我今晚回去查查原文 ,不是was not是has not,我写错了 产品共有100件,次品率3%,现在从任意抽取两件,问第二次抽到次品的概率多少 如何绕开Google SSL故意泄露11家品牌奶粉入驻北京药店 专家称价斯诺登请求美对其法外施仁 白宫拒绝并北京雾霾刚去 寒衣节不少市民当街焚烧中关村骗术攻防战:先付款即被坑 理论中央第二轮巡视重监督一把手 重拳打虎中国拥世界最多隐身导弹艇 美航母骇然韩媒称当事国就重启六方会谈达成诸多共韩媒:中国雾霾为“人类历史上最严重污中纪委监察部带头落实八项规定 会议费六大问题威胁食品安全 可追溯体系不完美国伯明翰机场收到威胁后紧急关闭 已美国伯明翰机场收到威胁后紧急关闭 已美国回应巴基斯坦指责 称与塔利班和谈罗姆尼指责奥巴马对医改法案描述“不诚2名法记者马里遭枪杀 媒体高层望采访孙杨在下城交警大队过夜未露面 众媒体2013杭州国际马拉松鸣枪 “光猪勇斯诺登冀美对其法外施仁 白宫拒绝并促印度否认与中国进行“太空竞赛”阿拉伯国家外长敦促叙反对派参加第二次粉底可以有很多色调,那么裸色内衣呢?每个人都对 A 站指指点点,它到底做【解读】如果七位AV女优同时出现在一【分享】杨绛:偶然相逢,却好像姻缘前【每日笑报】你看看,别人家的男朋友.自动驾驶,现在迈出了怎样的一步?媒体参观车厂指南丨一块钢板的神奇之旅城市 | 广州沙面:样板之路 一波三揭秘 | 匈奴的一样“生化武器”加速北宋熙宁战争:奥巴马所说的越南“独立塔尔德利:难过错失点球,球队配得上胜亚冠:鏖战!首尔点球大战淘汰浦和惊险一触即发!东亚区亚冠八强战首迎中韩大实况足球2017正式公布曝瓜迪奥拉希望曼城欧洲杯前买下斯通斯王健林谈王思聪:改变世界的,其实都是哈维:瓜帅将改变英超对于足球的观念清华击败南财闯入CUBA全国四强15999元东欧五国波西米亚风情之旅吉林2.23米小将姚皓焱迎首秀我为老师点赞
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘