自定义设置的问题

作者：绿色风分类：时间：2022-08-18 浏览：208

楼主蒸蒸日上	要求：A列只能输入数值1和0。输入1时显示对勾，输入0时，显示叉叉，输入其他，显示错误，详见下图和附件：开贴时间为2011年8月1号！
2楼 JLxiangwei	自定义格式代码： [=1]"√";[=0]"×"
3楼 luckydog	通过数据有效性来限定输入的数值，再用自定义格式 [=1]"√";[=0]"×" 来显示输出的值如附件：对与错.rar
4楼 lrlxxqxa	利用数据有效性结合自定义单元格格式，具体设置请看附件 9.rar
5楼悠悠雨	Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 1 Then Exit Sub Dim c As Range Application.EnableEvents = False For Each c In Target Select Case c.Value Case 0 c = "×" Case 1 c = "√" Case Else c = vbNullString MsgBox "输入值非法。" & Chr(13) & "其它用户已经限定了可以输入该单元格的数值。", 16 + vbRetryCancel + vbMsgBoxHelpButton, "Microsoft Office Excel" End Select Next Application.EnableEvents = True End Sub 自定义.rar 用二种方法试一下
6楼小叶子	自定义设置.rar
7楼 Zaezhong	[=1]√;[=0]×
8楼银鱼	作出来拉随机数.rar
9楼研究研究	新建.rar VBA与数据有效性的结合
10楼 lhq-2000	各位观众，到目前为止，来自精武门的楼主只给精武门的人加分。如果其他门派的有好的方法而不给加分，那么只能证明楼主这个帖子是用来灌水的，请社区管理员发挥管理职能！自定义设置.rar
11楼一剑惊心	自定义格式 √;;× 数据有效性设置允许：整数数据：介于最小值：0 最大值：1
12楼冰山暖暖	嘿嘿，我也参与下冰山暖暖.rar
13楼海洋之星	做法: 答案.rar
14楼 0Mouse	选中A列，进行自定义格式设置和数据-有效性设置！附件： 1勾0叉.rar
15楼 lutqhywow	来回答个问题撒回答问题.rar
16楼天南地北	选中A列，自定义单元格格式为[=1]"√";[=0]"×"; 然后在数据有效性里面设置整数最小值0，最大值1，搞定练习题.rar
17楼 lrlxxqxa	数据有效性自定义公式 =(A1=1)+(A1=0) 自定义单元格格式 [=1]"√";[=0]"×";G/通用格式 lr1.rar
18楼 peakchu	也来冒个泡哈自定义格式设置.rar
19楼张啸宁	首先选中A列设定自定义的单元格格式如： [=1]"√";[=0]"×" ，再在A列设置数据有效性，自定义公式如下： =OR($A1=0,$A1=1) 我这样试过，可行！
20楼涅磐86970	涅磐86970.rar 数据有效性整数介于0-1 自定义格式 "√";;"×"
21楼木易金	回复可见吗
22楼無心	自定义单元格格式.rar
23楼 rongjun	数据有效性和单元格自定义格式工作簿1.rar
24楼牧如久蓝	会了。3Q

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表

楼主蒸蒸日上	要求：A列只能输入数值1和0。输入1时显示对勾，输入0时，显示叉叉，输入其他，显示错误，详见下图和附件：开贴时间为2011年8月1号！
2楼 JLxiangwei	自定义格式代码： [=1]"√";[=0]"×"
3楼 luckydog	通过数据有效性来限定输入的数值，再用自定义格式 [=1]"√";[=0]"×" 来显示输出的值如附件：对与错.rar
4楼 lrlxxqxa	利用数据有效性结合自定义单元格格式，具体设置请看附件 9.rar
5楼悠悠雨	Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 1 Then Exit Sub Dim c As Range Application.EnableEvents = False For Each c In Target Select Case c.Value Case 0 c = "×" Case 1 c = "√" Case Else c = vbNullString MsgBox "输入值非法。" & Chr(13) & "其它用户已经限定了可以输入该单元格的数值。", 16 + vbRetryCancel + vbMsgBoxHelpButton, "Microsoft Office Excel" End Select Next Application.EnableEvents = True End Sub 自定义.rar 用二种方法试一下
6楼小叶子	自定义设置.rar
7楼 Zaezhong	[=1]√;[=0]×
8楼银鱼	作出来拉随机数.rar
9楼研究研究	新建.rar VBA与数据有效性的结合
10楼 lhq-2000	各位观众，到目前为止，来自精武门的楼主只给精武门的人加分。如果其他门派的有好的方法而不给加分，那么只能证明楼主这个帖子是用来灌水的，请社区管理员发挥管理职能！自定义设置.rar
11楼一剑惊心	自定义格式 √;;× 数据有效性设置允许：整数数据：介于最小值：0 最大值：1
12楼冰山暖暖	嘿嘿，我也参与下冰山暖暖.rar
13楼海洋之星	做法: 答案.rar
14楼 0Mouse	选中A列，进行自定义格式设置和数据-有效性设置！附件： 1勾0叉.rar
15楼 lutqhywow	来回答个问题撒回答问题.rar
16楼天南地北	选中A列，自定义单元格格式为[=1]"√";[=0]"×"; 然后在数据有效性里面设置整数最小值0，最大值1，搞定练习题.rar
17楼 lrlxxqxa	数据有效性自定义公式 =(A1=1)+(A1=0) 自定义单元格格式 [=1]"√";[=0]"×";G/通用格式 lr1.rar
18楼 peakchu	也来冒个泡哈自定义格式设置.rar
19楼张啸宁	首先选中A列设定自定义的单元格格式如： [=1]"√";[=0]"×" ，再在A列设置数据有效性，自定义公式如下： =OR($A1=0,$A1=1) 我这样试过，可行！
20楼涅磐86970	涅磐86970.rar 数据有效性整数介于0-1 自定义格式 "√";;"×"
21楼木易金	回复可见吗
22楼無心	自定义单元格格式.rar
23楼 rongjun	数据有效性和单元格自定义格式工作簿1.rar
24楼牧如久蓝	会了。3Q