|
我们如何才能做到，在Excel工作薄的任何一张工作表里面，任意的一个单元格，只能输入一次数据。
意思就是说，任何一个单元格，只能输入一次，即，空单元格允许输入第一次数据；非空单元格，不能删除不能修改数据。
言归正传，下面是实现的方法，请您过目，希望对您有所帮助。
一、实现的原理
通过判断被选中的单元格，是否有内容；如果有，那么，当被修改成为其它数据时，会自动返回到原来的数据，以此达到不能修改的目的，同时，也不能删除原有的数据。
如果被选择的单元格是空的，没有数据，那么，就允许输入。
二、实现方法
必须使用VBA程序代码来控制。
为方便不懂VBA的网友学习，本文尽量耐心的讲。
首先，如下图一样，
在任何一个工作表名称上面，点击右键，在弹出的菜单中选择“查看代码”，这样，就进入到vba代码编写窗口了。
接着，就能看到下图了。
首先，我们在ThisWorkbook上点击右键，在弹出的快捷菜单中选择“查看代码”，弹出代码编写窗口，如下图！
上图，就是功能代码了。
照着输入就行了，因为是通用的代码，啥地方都不需要修改。
为方便您的学习，下面将代码粘贴如下：
Dim MyRow As Integer
Dim MyColumn As Integer
Dim MyOldValue As String
Dim MyNewValue As String
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
MyRow = Target.Row
MyColumn = Target.Column
MyOldValue = Cells(MyRow, MyColumn).Value
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
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
End If
End Sub
三、代码说明
Dim MyRow As Integer
Dim MyColumn As Integer
Dim MyOldValue As String
Dim MyNewValue As String
这三行代码写在通用处。
另外的两段代码，照着写没问题！
如果您看来看去还是学不会，那么就请联系站长，我会拿做好的源文件给您，由于本站空间小，因此，就不提供源文件的下载了。
[Web开发]上篇—水晶报表导出为word/excel文件的代码 [Web开发]下篇—水晶报表导出为word/excel文件的代码
[Web开发]关于虚拟空间的System.Web.HttpUnhandledExceptio… [Web开发]在C#中如何对Excel单元格设置背景色以及对Range设…
[网页制作]js将表格导出为word/excel文件的代码 [办公软件]Excel宏与函数的本质区别
[办公软件]excel菜单栏和右键菜单被屏蔽的解决办法 [办公软件]如何打印Excel的批注
[办公软件]Excel数据分列与合并的经验总结 [办公软件]总结Excel自动填充功能的高级技巧
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
