作者:乔山办公网日期:
返回目录:excel表格制作
如果CTRL+A用不了,那么就是单元格保护里面限制了选择。可以用VBA来强行选择复制:一、按ALT+F11 打开VB编辑器二、双击左边靠上的zd【工程资源管理器】中的【Microsoft Excel 对象】中的ThisWorkbook(如果找不到【工程资源管理器】请按CTRL+R),在右边的代码窗口贴入下面的代码:(根据实际情况按代码说明修改a、b的值,中的内容)Sub 强行复制回()'修改以下两行中的工作表名字Dim a As String: a = Sheet1 '修改成你需要复制的表名Dim b As String: b = Sheet2 '修改成粘贴的空白表名'以下不需要修改Sheets(a).Cells.CopySheets(b).Range(A1).SelectActiveSheet.PasteEnd Sub三、回答到EXCEL表,运行菜单 【工具】-【宏】-【宏】,选择 强行复制 这条宏,然后按执行。四、假如有提示说宏的安全性被限制此类的信息,请在工具栏-【宏】-【安全性】里面把【安全级】设置为【中】。
如数据在百SHEET1表用度VBA: Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error Resume Next With Target If .Value <> "" Then PW = InputBox("修改内容请输入知密码:道") If PW <> "123" Then Cells(1, 1).S...
在专a1输入数据后,在b1输入 CTRL+;组合键。属
类推。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
If Target = "" Then
Cells(Target.Row, 2) = ""
Else
Cells(Target.Row, 2) = Date
End If
End If
End Sub
版本不一样,位置可能不一样,2007版是“审阅”→“撤销工作表保护”,可能需要输入密码,然后确定,就可以修改了。
1、打开一个excel表格,在更改表格内数据的时候页百面弹出提示框,提示单元格受保护,此时点击确度定。
2、然后点击工具栏中的“审阅知”选项并找到“撤销工作表道保护”按钮。
3、此时页面弹出“撤销工作表保护”对话框,在框内输入密码后点击确定。专
4、即可对表格内的数据属进行更改操作而不受限制了。