与A1单元格值进行比较,假如发生错误,就弹出提示对话框
来源：csdn
【EXCEL上的值是条码扫描上去的, 要求第一个单元格的值A1为标准, 每扫一下,EXCEL是自动换行的,这个不用写代码, 就是要求每扫出来的值都要与A1比较,假如错误,就跳出提示对话框, 非要鼠标去点掉, 才能继续扫下一个条码.
这个VBA代码如何写呢】
Runnerchin:
Worksheet_SelectionChange 里写代码
zhengyingcan:
假如是C#的话,可以如下写
if(B1.VALUE!=A1)
Messagebox.show("输入错误");
但是VBA在EXCEL中就不知道如何写了.
在 Worksheet_SelectionChange
中如何写呢
Runnerchin:
说了半天你的“发生错误”就是内容不一样啊？
当你在SHEET里的选中单元格位置发生变化时（说白了就是你点了一个不一样的单元格）就会触发。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row & 1 Then
If Cells(Target.Row - 1, 1) && Cells(1, 1) Then MsgBox "错误：不一致:", vbOKOnly + vbCritical, "提示:"
zhengyingcan:
因为不同于A1例就报错我改成如下
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row & 1 And Target.Column & 1 Then
If Cells(Target.Row - 1, 1) && Cells(1, 1) Then MsgBox "错误：不一致:", vbOKOnly + vbCritical, "提示:"
但是 为什么 加上了 And Target.Column & 1 就不灵了呢,好奇怪.
Runnerchin:
Target.Column>1意思是，你的目标单元格不在A列的时候再判断。你实际是在哪个列就写多少
zhengyingcan:
我是想目标单元格不在A1的时候 就 开始判断,怎么写呢
Runnerchin:
第 一行代码就是
只有目标单元格不在第一行的时候才执行代码
zhengyingcan:
能不能改成不在A1单元格的时候就执行呢
zhengyingcan:
因为扫描了第一列,接着还要扫第二列,还有第三列,依次扫下去
zhengyingcan:
改成如下也是不行的,我都不知道是什么原因
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row & 1 And Target.Column & 1 Then
If Cells(Target.Row - 1, Target.Column - 1) && Cells(1, 1) Then MsgBox "错误：不一致:", vbOKOnly + vbCritical, "提示:"
Runnerchin:
你的代码意思是不在A列并且不在第1行
把条件改成
if not (target.row=1 and target.column=1) then
zhengyingcan:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not (Target.Row = 1 And Target.Column = 1) Then
If Cells(Target.Row, Target.Column) && Cells(1, 1) Then MsgBox "错误：不一致:", vbOKOnly + vbCritical, "提示:"
以上代码还是不行,出来的结果,不管你输在那个单元格,只要不是 Cells(1, 1) 单元格都会报错
zhengyingcan:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not (Target.Row = 1 And Target.Column = 1) Then
If Cells(Target.Row - 1, Target.Column) && Cells(1, 1) Then MsgBox "错误：不一致:", vbOKOnly + vbCritical, "提示:"
以上倒是可以的
zhengyingcan:
以下代码倒是可以的
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not (Target.Row = 1 And Target.Column = 1) Then
If Cells(Target.Row - 1, Target.Column) && Cells(1, 1) Then MsgBox "错误：不一致:", vbOKOnly + vbCritical, "提示:"
免责声明：本站部分内容、图片、文字、视频等来自于互联网，仅供大家学习与交流。相关内容如涉嫌侵犯您的知识产权或其他合法权益，请向本站发送有效通知，我们会及时处理。反馈邮箱&&&&。
学生服务号
在线咨询，奖学金返现，名师点评，等你来互动很重要的EXCEL使用技巧一、求字符串中某字符出；1、打开含有宏的工作薄，点“工具/宏(M)?”，；2、点“文件/导出文件”，在“文件名”框中输入一；3、将扩展名为“.bas”的文件拷贝到另一台电脑；三、如何在EXCEL中设置单元格编辑权限(保护部；1、先选定所有单元格,点\格式\单元格\保护\取；2、再选定你要保护的单元格,点\格式\单元格\保；四、exc
很重要的EXCEL使用技巧 一、求字符串中某字符出现的次数： 例：求A1单元格中字符\出现的次数： =LEN(A1)-LEN(SUBSTITUTE(A1,\二、如何在不同工作薄之间复制宏： 1、打开含有宏的工作薄，点“工具/宏(M)?”，选中你的宏，点“编辑”，这样就调出了VB编辑器界面。 2、点“文件/导出文件”，在“文件名”框中输入一个文件名（也可用默认的文件名），注意扩展名为“.bas”，点“保存”。 3、将扩展名为“.bas”的文件拷贝到另一台电脑，打开EXCEL，点“工具/宏/VB编辑器”，调出VB编辑器界面，点“文件/导入文件”，找到你拷贝过来的文件，点“打开”，退出VB编辑器，你的宏已经复制过来了。 三、如何在EXCEL中设置单元格编辑权限(保护部分单元格) 1、先选定所有单元格,点\格式\单元格\保护\取消\锁定\前面的\√\。 2、再选定你要保护的单元格,点\格式\单元格\保护\在\锁定\前面打上\√\。 3、点\工具\保护\保护工作表\输入两次密码,点两次\确定\即可。 四、excel中当某一单元格符合特定条件，如何在另一单元格显示特定的颜色 比如： A1〉1时，C1显示红色 0<A1<1时，C1显示绿色 A1<0时，C1显示黄色 方法如下： 1、单元击C1单元格，点“格式”>“条件格式”，条件1设为： 公式 =A1=1
2、点“格式”->“字体”->“颜色”，点击红色后点“确定”。 条件2设为： 公式 =AND(A1>0,A1<1)
3、点“格式”->“字体”->“颜色”，点击绿色后点“确定”。 条件3设为： 公式 =A1<0
点“格式”->“字体”->“颜色”，点击黄色后点“确定”。 4、三个条件设定好后，点“确定”即出。 五、EXCEL中如何控制每列数据的长度并避免重复录入 1、用数据有效性定义数据长度。 用鼠标选定你要输入的数据范围，点\数据\有效性\设置\，\有效性条件\设成\允许\文本长度\等于\（具体条件可根据你的需要改变）。 还可以定义一些提示信息、出错警告信息和是否打开中文输入法等，定义好后点\确定\。 2、用条件格式避免重复。 选定A列，点\格式\条件格式\，将条件设成“公式=COUNTIF($A:$A,$A1)>1”，点\格式\字体\颜色\，选定红色后点两次\确定\。 这样设定好后你输入数据如果长度不对会有提示，如果数据重复字体将会变成红色。 六、在EXCEL中如何把B列与A列不同之处标识出来？ （一）、如果是要求A、B两列的同一行数据相比较： 假定第一行为表头，单击A2单元格，点“格式”->“条件格式”，将条件设为:
“单元格数值”“不等于”=B2
点“格式”->“字体”->“颜色”，选中红色，点两次“确定”。 用格式刷将A2单元格的条件格式向下复制。 B列可参照此方法设置。 （二）、如果是A列与B列整体比较（即相同数据不在同一行）： 假定第一行为表头，单击A2单元格，点“格式”->“条件格式”，将条件设为:
“公式”=COUNTIF($B:$B,$A2)=0
点“格式”->“字体”->“颜色”，选中红色，点两次“确定”。 用格式刷将A2单元格的条件格式向下复制。 B列可参照此方法设置。 按以上方法设置后，AB列均有的数据不着色，A列有B列无或者B列有A列无的数据标记为红色字体。 七、在EXCEL中建立下拉列表按钮 选定你要设置下拉列表的单元格，点“数据”->“有效性”->“设置”，在“允许”下面选择“序列”，在“来源”框中输入你的下拉列表内容，各项之间用半角逗号隔开，如： A,B,C,D
选中“提供下拉前头”，点“确定”。 八、阿拉伯数字转换为大写金额(最新收集) 假定你要在B1输入阿拉佰数字,C1转换成中文大写金额(含元角分),请在C1单元格输入如下公式:
=SUBSTITUTE(SUBSTITUTE(IF(-RMB(B1),IF(B1>0,,\负\通用格式元;;\角0分;;整\零角\零\零分\整\九、EXCEL中怎样批量地处理按行排序 假定有大量的数据(数值)，需要将每一行按从大到小排序，如何操作？ 由于按行排序与按列排序都是只能有一个主关键字,主关键字相同时才能按次关键字排序。所以，这一问题不能用排序来解决。解决方法如下：
1、假定你的数据在A至E列，请在F1单元格输入公式：
=LARGE($A1:$E1,COLUMN(A1))
用填充柄将公式向右向下复制到相应范围。
你原有数据将按行从大到小排序出现在F至J列。如有需要可用“选择性粘贴/数值”复制到其他地方。
注：第1步的公式可根据你的实际情况（数据范围）作相应的修改。如果要从小到大排序,公式改为:=SMALL($A1:$E1,COLUMN(A1))
十、巧用函数组合进行多条件的计数统计 例：第一行为表头，A列是“姓名”，B列是“班级”，C列是“语文成绩”，D列是“录取结果”，现在要统计“班级”为“二”，“语文成绩”大于等于104，“录取结果”为“重本”的人数。统计结果存放在本工作表的其他列。 公式如下： =SUM(IF((B2:B9999=\二\重本\输入完公式后按Ctrl+Shift+Enter键,让它自动加上数组公式符号\。 十一、EXCEL中某个单元格内文字行间距调整方法。 当某个单元格内有大量文字时，很多人都觉得很难将其行间距按自己的要求进行调整。现介绍一种方法可以让你任意调整单元格内文字的行间距： 右击单元格,点\设置单元格格式\对齐\将\水平对齐\选择\靠左\将\垂直对齐\选择\分散对齐\选中\自动换行\，点“确定”。你再用鼠标将行高根据你要求的行距调整到适当高度即可。 注：绿色内容为关键点，很多人就是这一点设置不对而无法调整行间距。 十二、如何在EXCEL中引用当前工作表名 如果你的工作薄已经保存,下面公式可以得到单元格所在工作表名:
=RIGHT(CELL(\十三、相同格式多工作表汇总求和方法 假定同一工作薄有SHEET1至SHEET100共100个相同格式的工作表需要汇总求和，结果放在SHEET101工作表中，请在SHEET101的A1单元格输入： =SUM( 单击SHEET1标签，按住Shift键并单击SHEET100标签，单击A1单元格，再输入： ） 此时公式看上去内容如下： =SUM('SHEET1:SHEET100'!A1) 按回车后公式变为
=SUM(SHEET1:SHEET100!A1) 所以，最简单快捷的方法就是在SHEET101的A1单元格直接输入公式： =SUM('SHEET1:SHEET100'!A1) 然后按回车。 十四、如何判断单元格里是否包含指定文本？ 假定对A1单元格进行判断有无\指定文本\以下任一公式均可:
=IF(COUNTIF(A1,\指定文本\有\无\ =IF(ISERROR(FIND(\指定文本\无\有\十五、如何替换EXCEL中的通配符“?”和“*”？ 在EXECL中查找和替换时，?代表任意单个字符，*代表任意多个字符。如果要将工作表中的\和\替换成其他字符，就只能在查找框中输入~?~和~*~才能正确替换。另外如果要替换~本身,在查找框中要输入~~才行。 十六、EXCEL中排名次的两种方法： （一）、用RANK()函数：
假定E列为成绩，F列为名次，F2单元格公式如下：
=RANK(E2,E:E)
这种方法，分数相同时名次相同，随后的名次将空缺。
例如：两个人99分，并列第2名，则第3名空缺，接下来是第4名。 （二）、用公式排序(中国式排名)：
假定成绩在E列,请在F2输入公式： =SUM(IF(E$2:E$/COUNTIF(E$2:E$1000,E$2:E$1000)))+1 公式以Ctrl+Shift+Enter三键结束。 第二种方法分数相同的名次也相同，不过随后的名次不会空缺。 十七、什么是单元格的相对引用、绝对引用和混合引用？ 相对引用、绝对引用和混合引用是指在公式中使用单元格或单元格区域的地址时，当将公式向旁边复制时，地址是如何变化的。
具体情况举例说明：
1、相对引用，复制公式时地址跟着发生变化，如C1单元格有公式：=A1+B1
当将公式复制到C2单元格时变为：=A2+B2
当将公式复制到D1单元格时变为：=B1+C1
2、绝对引用，复制公式时地址不会跟着发生变化，如C1单元格有公式：=$A$1+$B$1
当将公式复制到C2单元格时仍为：=$A$1+$B$1
当将公式复制到D1单元格时仍为：=$A$1+$B$1
3、混合引用，复制公式时地址的部分内容跟着发生变化，如C1单元格有公式：=$A1+B$1
当将公式复制到C2单元格时变为：=$A2+B$1
当将公式复制到D1单元格时变为：=$A1+C$1
规律：加上了绝对地址符“$”的列标和行号为绝对地址，在公式向旁边复制时不会发生变化，没有加上绝对地址符号的列标和行号为相对地址，在公式向旁边复制时会跟着发生变化。混合引用时部分地址发生变化。 注意：工作薄和工作表都是绝对引用，没有相对引用。 技巧：在输入单元格地址后可以按F4键切换“绝对引用”、“混合引用”和“相对引用”状态。 十八、求某一区域内不重复的数据个数 例如求A1:A100范围内不重复数据的个数，某个数重复多次出现只算一个。有两种计算方法： 一是利用数组公式： =SUM(1/COUNTIF(A1:A100,A1:A100)) 输入完公式后按Ctrl+Shift+Enter键,让它自动加上数组公式符号\。 二是利用乘积求和函数： =SUMPRODUCT(1/COUNTIF(A1:A100,A1:A100)) 十九、EXCEL中如何动态地引用某列的最后一个单元格？ 在SHEET2中的A1单元格中引用表SHEET1中的A列的最后一个单元格中的数值(SHEET1中A列的最后一个单元格的数值不确定,随时会增加行数)： =OFFSET(Sheet1!A1,COUNTA(Sheet1!A:A)-1,0,1,1)
=INDIRECT(\ 注:要确保你SHEET1的A列中间没有空格。 二十、如何在一个工作薄中建立几千个工作表 右击某个工作表标签,点\插入\选择\工作表\点\确定\然后按住Alt+Enter键不放,你要多少个你就按住多久不放,你会看到工作表数量在不断增加,几千个都没有问题。 二十一、如何知道一个工作薄中有多少个工作表 方法一：
点\工具\宏\编辑器\插入\模块\输入如下内容:
Sub sheetcount()
Dim num As Integer
num = ThisWorkbook.Sheets.Count
Sheets(1).Select
Cells(1, 1) = num
运行该宏，在第一个(排在最左边的)工作表的A1单元格中的数字就是sheet的个数。
按Ctrl+F3(或者点\插入\名称\定义\打开\定义名称\对话框
\引用位置\输入: =get.workbook(4)
点\确定\。
然后你在任意单元格输入=X
出来的结果就是sheet的个数。 二十二、一个工作薄中有许多工作表如何快速整理出一个目录工作表
1、用宏3.0取出各工作表的名称，方法：
Ctrl+F3出现自定义名称对话框，取名为X，在“引用位置”框中输入： =MID(GET.WORKBOOK(1),FIND(\ 确定
2、用HYPERLINK函数批量插入连接，方法：
在目录工作表（一般为第一个sheet）的A2单元格输入公式： =HYPERLINK(\ 将公式向下填充，直到出错为止，目录就生成了。
Excel XP小技巧
一、工作簿操作技巧
1.打开固定工作簿：如果您有几个固定的工作簿需要同时打开，可以将它们保存为工作区。以后只要将工作区打开，Excel就会打开其中的每个工作簿。保存工作区的方法是：打开需要同时使用的多个工作簿，按照使用要求调整好窗口大小和位置。再单击Excel“文件”菜单下的“保存工作区”命令，输入工作区名称后单击“保存”按钮。打开工作区的方法是：选择“打开”对话框中的“文件类型”为“工作区”，选中要打开的工作区名称后单击“打开”按钮。
注意：每个工作簿所作的修改必须分别保存，保存工作区并不能保存其中的工作簿。
2.打开多个工作簿：如果您要打开的多个工作簿不固定，可以采用以下方法操作：打开Excel XP的“打开”对话框，按住Ctrl键逐个选中您要打开的工作簿，最后单击“打开”按钮，所选工作簿就会被全部打开。
3.Excel启动工作簿：如果您的工作簿需要随Excel XP启动而打开，可以按照以下方法操作：在“资源管理器”中选中工作簿，单击工具栏中的“复制”按钮。Windows 2000/XP，就应该打开C:\\Program files\\Microsoft office\\office\\xlstart文件夹(其中C是Windows所在盘符)。用鼠标右键单击右窗格中的空白处，选择快捷菜单中的“粘贴快捷方式”命令，将工作簿图标放入xlstart文件夹。以后只要运行Excel XP，工作簿就会被打开。如果您要自动打开多个工作簿，只要将它们保存为工作区，然后将工作区图标放入xlstart文件夹即可。
4.多工作簿打印：如果要打印的工作簿较多，通常采用逐个打开的方法打印。如果这些工作簿位于一个文件夹内，可以采用下面的方法一次打印：单击“文件”菜单中的“打开”命令，按住Ctrl键选中需要打印的所有文件。然后单击“打开”对话框中的“工具”下拉按钮，单击其中的“打印”命令，就可以一次打印多个工作簿了。 三亿文库包含各类专业文献、文学作品欣赏、外语学习资料、行业资料、各类资格考试、应用写作文书、高等教育、生活休闲娱乐、中学教育、幼儿教育、小学教育、excel-vba资料大全精华版10等内容。　
　Excel_VBA_从入门到精通必备_电脑基础知识_IT/计算机_专业资料。Excel VBA 程序...如 OFFICE 2003 和 OFFICE 2007 都使用 6.05 版的 VBA。 检测当前 OFFICE 中... 　完全手册Excel_VBA典型实例大全01_计算机软件及应用_IT/计算机_专业资料。完全手册 Excel_VBA 典型实例大全 01 ( 11:20:48) 目录 第 1 章 宏的应... 　Excel_VBA 从入门到精通必备_互联网_IT/计算机_专业资料。vba入门精选 ...OFFICE 2003 和 OFFICE 2007 都使用 6.05 版的 VBA。 如 检测当前 OFFICE 中... 　excel VBA最基础入门手册_互联网_IT/计算机_专业资料。办公软件 ...以下代码为 38 度 OFFICE 技术论坛的老朽版主提供, 主要是帮助大家对 VBA ... 　EXCEL VBA常用代码实战大全_计算机软件及应用_IT/计算机_专业资料 暂无评价|0人阅读|0次下载|举报文档EXCEL VBA常用代码实战大全_计算机软件及应用_IT/计算机_专业... 　EXCEL-VBA-实用代码收集_计算机软件及应用_IT/计算机_专业资料。EXCEL-VBA-实用代码收集 往下翻翻 有个B卖2个下载券,我很生气 四、Word vba 常用语句 100 句 ... 　excel_VBA大全_计算机软件及应用_IT/计算机_专业资料。谈 VBA 最最基础入门《原创...以下代码为 38 度 OFFICE 技术论坛的老朽版主提供,主要是帮助大家对 VBA 语句... 　完全手册Excel_VBA典型实例大全:通过368个例子掌握_计算机软件及应用_IT/计算机_专业资料。VBA基础知识 典型实例大全: 完全手册 Excel VBA 典型实例大全:通过 368 ...}