excel中ba如下代码只能禁止删除某一个表,如"SHEET1",如何修改代码禁止删除多个表
工作表selectionchange事件:
if target"" then
target.offset(1,0).select
end if
输入代码后选择有内容的单元格时,自动跳至下方第一个空白单元格。
为了验证代码是否获得除了sheet1表以外的其它表:
Sub wfdele()
Dim sh As Worksheet
Dim c As Long
Dim r As Long
Dim LastRow As Integer
Dim Lastcolumn As Integer
For Each sh In Worksheets
debug.print sh.name '增加的代码
Lastcolumn = sh.[IV1].End(xlToLeft).Column
LastRow = sh.[a65536].End(xlUp).Row
For c = 1 To Lastcolumn
If sh.Cells(1, c).Value = "b" Then
For r = LastRow To 1 Step -1
If sh.Cells(r, c).Value = "0" Then
Range(r & ":" & r).Delete shift:=xlUp
End If
Next
End If
Next
Next
End Sub
Sub MyDelSht()
If VBA.UCase$(ActiveSheet.CodeName) = "SHEET1" Then
MsgBox "禁止删除" & ActiveSheet.Name & "工作表!"
Else
ActiveSheet.Delete
End If
If VBA.UCase$(ActiveSheet.CodeName) = "SHEET2" Then
MsgBox "禁止删除" & ActiveSheet.Name & "工作表!"
Else
ActiveSheet.Delete
End If
If VBA.UCase$(ActiveSheet.CodeName) = "SHEET3" Then
MsgBox "禁止删除" & ActiveSheet.Name & "工作表!"
Else
ActiveSheet.Delete
End If
If VBA.UCase$(ActiveSheet.CodeName) = "SHEET4" Then
MsgBox "禁止删除" & ActiveSheet.Name & "工作表!"
Else
ActiveSheet.Delete
End If
If VBA.UCase$(ActiveSheet.CodeName) = "SHEET5" Then
MsgBox "禁止删除" & ActiveSheet.Name & "工作表!"
Else
ActiveSheet.Delete
End If
If VBA.UCase$(ActiveSheet.CodeName) = "SHEET6" Then
MsgBox "禁止删除" & ActiveSheet.Name & "工作表!"
Else
ActiveSheet.Delete
End If
If VBA.UCase$(ActiveSheet.CodeName) = "SHEET7" Then
MsgBox "禁止删除" & ActiveSheet.Name & "工作表!"
Else
ActiveSheet.Delete
End If
......
End Sub
或者干脆所有工作表都不允许删除:
Sub MyDelSht()
MsgBox "禁止删除" & ActiveSheet.Name & "工作表!"
End Sub
在xcel如何把计算结果复制到另一个工作表而且按列的形式显示,前后数据...
,第二列输入=VLOOKUP(A1,Sheet1!A$1:R$1,C1,0),公式中的A$1:R$1后面的R可以根据实际情况修改为S、T、AA、BA等,然后向下即可。一定要注意相对引用与绝对引用!
墨种头孢: 按Alt+F11,双击你要设置的那张工作表,粘贴如下代码即可.Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) Cancel = True End Sub
白银市15142975124: 我的Excel出现了宏,如何删除Excel表中的宏.如果降低表的安全性,那就打不开了能是?
墨种头孢: 如果只是删除工作簿中的宏,可以在表格中按ALT+F11键,调出VBA窗口,在该窗口中的左侧找到工作簿中的工作表列表,用鼠标双击它们,就会在窗口的中间位置弹出相应的代码窗口,如果哪个代码窗口中有字符出现(其实就是VBA代码),用鼠标选中它们直接删除,最后保存这个工作簿就好了.
白银市15142975124: excel中怎么删除重复的记录,保留某项值最大的那个记录?? - ?
墨种头孢: excel对重复值操作的方法比较多,常见的有以下几种: 1. 条件格式:选中源数据区域-->开始-->条件格式-->新建规则-->对于唯一值或重复值设 置格式-->格式-->选择一种填充色-->确定,操作完成后,源数据区域所有的重复数据便 被标记上了颜...
白银市15142975124: excel中怎样保护vba代码不被查看和修改 - ?
墨种头孢: 工具/原料 excel 步骤/方法 第1步骤: excel 第2步骤: 1 打开excel以后,在菜单栏上执行:开发工具--vb,如图所示图片1第3步骤: 2 绝地反击地方输入一段代码,随便输入就可以了,我 图片1第4步骤: 3 在左侧导航栏,选中你要加密的一个工...
白银市15142975124: 在EXCEL中,如何筛选数据,只显示有数据的行(不能删除行)????
墨种头孢: 此问题可以用VBA解决,只是楼主不肯花时间想而已 …………………………………………………………… 楼上的方法需要转置 但用VBA挺简单:按下alt + F11,空白处右击插入模块,复制粘贴下面代码按F5即运行.(“For i = 1 To 4”指从第一...
白银市15142975124: 在excel中使用一个函数判断 如a1符合条件则,当前行隐藏否则不隐藏,有这样的函数吗? 或者其他实现的方法 - ?
墨种头孢: 首先在表中输入相应的内容 例如:第一行:A1 1 第二行:A2 2 第三行:A3 3 第四行:A4 4..........................然后点击“工具”——“宏”——“VB编辑器”在弹出的代码窗口中输入下面代码:就可以删除A列中为2的所有行.Sub myhide() For i ...
白银市15142975124: excel vba代码? - ?
墨种头孢: 一、工作表2-4,回主页代码如下: sub gotoHome() activesheet.visible=xlsheetveryhidden sheets("主页").activate end sub 二、工作表1,回工作表2-4,sheet2请自行修改为3,4,代码如下: sub gotoSht2() sheets("sheet2").visible=true sheets("sheet2").activate end sub手机打码,未测试,可继续追问 希望对你有帮助,请采纳,谢谢.
白银市15142975124: excel中用vba编写限制excel使用次数的代码 - ?
墨种头孢: Private Sub Workbook_Open() Worksheets(2).ScrollArea = "A1:IV65535" If Sheets("Sheet2").Cells(65536, 256).Value < 3 Then Sheets("Sheet2").Cells(65536, 256).Value = Sheets("Sheet2").Cells(65536, 256).Value + 1 ...
白银市15142975124: Excel中,使用REPLACE函数,对Sheet1中的员工代码进行升级. - ?
墨种头孢: 假设单元格A1的值为PA123456,复制下面的到单元格A2 =IF(LEFT(A1,2)="PB",A1,REPLACE(A1,1,2,"PA0")) A2的结果是PA0123456,如果A1的值为PB123456则不作改变 不知道是不是你想要的结果