VBA_vba快速
VBA由刀豆文库小编整理，希望给你工作、学习、生活带来方便，猜你可能喜欢“vba快速”。
为了验证你的问题特意去看了看，是这样，清除全部是selection.clear,会把单元格恢复到原始的状态，即锁定状态，所以在你保护的表上当然无法编辑了，我能想到的方法1，禁止菜单的“清除”菜单项（disable），或者干脆删掉这个项。具体可以参考下commandbar的对象属性及方法
方法2，用onchange事件，在工作表中添加这个事件，当有内容被改变可以检查下是否有单元格被锁定，锁定的解锁之。。onclear这种事件是没有的。。有问题的话可继续提问，望采纳
追问
如何在工作表中添加onchange这个事件？具体代码怎样写？请赐教。回答
alt+f11，打开vb编辑器，在左边双击一个工作表，在右边下拉表选worksheet，最右边选相应的事件change，下边会自动出现类似的代码： Private Sub Worksheet_Change(ByVal Target As Range)
End Sub
下边，你该知道怎么做啦
追问
请赐教能达到“禁止清除——全部或格式”的全部vba代码，越完整越好，多谢啦！
回答
楼下的朋友代劳了，呵呵，就借花献佛吧，下边就是全部的代码，特别简单吧？顺便帮你解释下
当你清除了全部后，相关单元格会触发一个change事件，下面就是针对这个事件写的代码，首先解锁当前工作表的保护，然后把你清除全部的区域重新设置成没有锁定，再重新对表格加保护
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect Paword:=“”
Target.Locked = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Paword:=“”
添加工作表事件如下：两个引号内的密码你自己加上，保护的选项自己更改。Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect Paword:=“”
Target.Locked = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,Scenarios:=True, Paword:=“”
End Sub
Sub aaa()
a = 5b = 65536
Sheet2.Rows(a & “:” & b).ClearContents '行清除内容
'Sheet2.Rows(a & “:” & b).Clear'行全部清除a = 5b = 256With Sheet2
.Range(.Cells(1, a),.Cells(1, b)).EntireColumn.ClearContents '列清除内容
'.Range(.Cells(1, a),.Cells(1, b)).EntireColumn.Clear '列全部清除End With
End Sub
中国的节日
1月1日 元旦
2月份
2月2日 龙抬头
2月14日 情人节
2月15日 中国12亿人口日 199
月 份
3月5日 中国青年志愿者服务日
3月8日 国际劳动妇女节 1910
3月12日 中国植树节 1979
3月15日 国际消费者权益日 1987
3月16日 手拉手情系贫困小伙伴全国统一行动日
中国国医节 1929
3月18日 全国科技人才活动日
3月最后一个星期一 全国中小学生安全教育日 1996月 份
4月25日 全国预防接种宣传日 1986
4月30日 全国交通安全反思日月 份
5月1日 国际劳动节 1889
5月4日 中国青年节 1939
五四运动纪念日 1919
5月5日 全国碘缺乏病防治日 199
45月20日 全**乳喂养宣传日 1990
中国学生营养日 1990
5月第二个星期日 母亲节 1914
救助贫困母亲日 1997
5月第三个星期日 全国助残日 1990
5月31日屠妖节月 份
6月1日 国际儿童节 1949
6月6日 全国爱眼日 1996
6月份第二个星期日 “安全生产月”主题咨询日 200
26月11日 中国人口日
6月22日 中国儿童慈善活动日
6月25日 全国土地日 199
16月第三个星期日 父亲节月 份
7月1日 中国共产党诞生日 1921
7月1日 香港回归纪念日 1997
7月7日 中国人民抗日战争纪念日 1937月 份
8月1日 中国人民解放军建军节 1927
8月8日 中国男子节(爸爸节)1988
8月26日 全国律师咨询日 199
月 份
9月3日 中国抗日战争胜利纪念日 1945
9月10日 中国教师节 1985
9月18日 “九·一八”事变纪念日(中国国耻日)1931
9月20日 全国爱牙日 1989
9月第三个星期六 全民国防教育日 2001月 份
10月1日 国庆节 1949
10月8日 全国高血压日 1998
10月10日 辛亥革命纪念日 1911
10月13日 中国少年先锋队诞辰日 1949
每年重阳节 中国老年节(义务助老活动日)1989
11月份
11月8日 中国记者节 2000
11月9日 中国消防宣传日(消防节)1992
11月10日 世界青年节(日)1946
11月第四个星期四 感恩节
12月份
12月4日 中国法制宣传日
12月12日 西安事变纪念日 1936
12月13日 南京大屠杀纪念日 1937
12月20日 澳门回归纪念日 1999
12月24日 平安夜
12月25日 圣诞节
◆◆◆ 阴 历 节 日 ◆◆◆
正月初一 春节
正月十五 元宵节
二月初二 龙抬头节
五月初五 端午节
七月初七 七夕，乞巧节
八月十五 中秋节
九月初九 重阳节
九月初九中国老年节(义务助老活动日)
腊月初八 腊八节
腊月二十三或二十四 小年
阳历日期推算阴历日期的方法：
前已述及阴历日期是以月亮的圆缺为计月单位，其以逢朔为初一，以月望为十五（大月为十六日），以月晦为二十九日（大月为三十日）。然而目前记时通常用阳历日期表达，如欲将阳历日期换算成阴历日期可以用以下两种方法：其一是查《新编万年历》，如查1984年6月8日是阴历几日？翻开万年历6月10日是阴历十一，则逆推6月8日是阴历初九。其二可以利用公式推算阴历日期：
设：公元年数－1977（或1901）＝4Q＋R
则：阴历日期=14Q+10.6(R+1)+年内日期序数-29.5n
（注:式中Q、R、n均为自然数，R
例：1994年5月7日的阴历日期为：
1994－1977＝17＝4×4＋1
故：Q＝4，R＝1 则：5月7日的阴历日期为：
14×4+10.6(1+1)+(31+28+31+31+7)-29.5n
=204.2-29.5n
然后用29.5去除204.2得商数6......27.2，6即是n值，余数27即是阴历二十七日
