怎么设置wps一个单元格只录入一位数（0或1或2或3……或9）

选择设置区域，在“数据”选项下的“数据有效性”“设置”中，选择“自定义”类型，公式输入=AND(ISNUMBER(A1),LEN(A1)=1)  然后在出错警告中输入“只能输入个位数”提示，确定，即可。

详见附图示例

选中数据区域（A2:A11）,菜单栏-数据-有效性-允许-自定义-公式，输入=AND(LEN(A2)=1,ISNUMBER(A2))

确定。只能输入1位阿拉伯数字。

WPS 表格如何用 vba 设置某个单元格只能输入一次， 修改需要密码？

首先，全选单元格，取消锁定，然后保护工作表并设置密码，复制粘贴下面的代码

PrivateSubWorksheet_Change(ByValTargetAsRange)

Constpwd=”abc”‘将abc改成你设定的保护密码

Me.Unprotectpwd

Target.Locked=True

Me.Protectpwd

EndSub

WPS/EXCEL表格怎么样设置输入内容的唯一性？

1、选择“数据”菜单中“数据验证”下拉选择“数据验证”（2003版选择“数据”下“数据有效性”）

2、在“设置”中“验证条件”“允许”中选择自定义，如要设置B列唯一性，则在公式中输入=COUNTIF(B:B,B2)=1

3、在出错警告中进行相关设置，确定。

4、如果B列输入了重复值，就会出现提示。

您好，很高兴为您解答！

你好：可以点数据》有效性》自定义，输入公式=countif($a$1:a1,a1)

论文排版、模版下载、论文遇到难题，解决方法：

http://docer.wps.cn/zt/lunwen?from=qyzd

更多WPS办公软件教程，请访问：

http://bbs.wps.cn

或者

http://e.weibo.com/wpswfw

如有疑问，请点击我的头像提问。祝您生活愉快！

选中a列，数据-有效性，自定义，公式输入=COUNTIF(A:A,A1)=1

WPS表格怎么设置输入指定的内容

在表格中找到一个合适的位置，输入我们想要别人在单元格填写的内容选项，也就是填写者只能在我们设置的内容里进行选择性填写，而不能填写其他内容。

比如我们指定填写内容只能为“是”或者“否”，那后续填写者在单元格内就只能输入“是”或者“否”，而不能输入其他内容。

指定填写内容设置好之后，我们选中需要别人填写我们指定内容的单元格，然后在顶部菜单栏找到“数据”菜单。

在“数据”菜单中，我们再找到并点击“数据工具组”栏的子菜单“数据验证”，然后选中下拉菜单里的“数据验证”，点击进入。

打开“数据验证”弹窗后，我们选中“设置”栏，在验证条件里“允许”下拉菜单中选择“序列”，下面的“来源”则选择我们之前设置好的指定内容所在的单元格，例如之前设置好的“是”或“否”单元格，后续别人在填写时，就只能选择性输入我们所选择的数据来源中的内容。

“来源”选择好之后，我们点击确定。再回到之前的表格中，可以发现进入到需要别人填写指定内容的单元格中，在单元格右侧都会出现一个下拉下三角按钮，点击该按钮就可以选择我们指定好的内容输入了。

1、打开表格之后，鼠标要输入的单元格。

2、接着在工具栏中找到“数据”的命令按钮，点击这个按钮。

3、点击之后，在弹出的命令菜单中找到“有效性”命令，点击这个命令。

4、在有效性设置框中找到“有效性条件”，如下图在点击“允许”按钮出现的下拉菜单中找到“序列”命令，选择“序列”。

5、接着在“来源”中输入“男,女”，要注意男和女之间的符号必须是英文模式下的逗号。然后设置好出错警告等。

6、全部设置好以后点击“确定”，然后在单元格中。酷睿软件园为你解答。

设置数据-有效性

WPS怎么设置表格只允许填写数据，不允许再修改？

使用VBA。限制单元格输入次数，任何一个单元格，只能输入一次，即，空单元格允许输入第一次数据；非空单元格，不能删除不能修改数据。

打开VB编辑器，双击thisworkbook，输入以下代码

DimMyRowAsInteger

  DimMyColumnAsInteger

  DimMyOldValueAsString

  DimMyNewValueAsString

  PrivateSubWorkbook_SheetSelectionChange(ByValShAsObject,ByValTargetAsRange)

   MyRow=Target.Row

   MyColumn=Target.Column

   MyOldValue=Cells(MyRow,MyColumn).Value

  EndSub

  PrivateSubWorkbook_SheetChange(ByValShAsObject,ByValTargetAsRange)

   MyRow=Target.Row

   MyColumn=Target.Column

   MyNewValue=Cells(MyRow,MyColumn).Value

   If(Trim(MyOldValue)””)Then

   Cells(MyRow,MyColumn).Value=MyOldValue

   Else

   Cells(MyRow,MyColumn).Value=MyNewValue

  EndIf

  EndSub

关闭VB编辑器就可以了，输入内容后，如果修改了内容，会又变成原内容。

你也可以在里面加入警告语句，提醒输入者不能修改原数据。

….