vba如何实现条件格式？表格锁定如何展开折叠？

Excel 表格 折叠/展开如何设置？~

VBA解决方法

第一步:按alt+F11打开vbe编辑器,双击Thisworkbook,复制以下代码粘贴

Private Sub Workbook_Open()
With Sheets("sheet1") ' 把 sheet1 改成你的工作表名称
.EnableOutlining = 1
.Protect "123", userInterfaceOnly:=True ' 把 123 改成你的保护密码
End With
End Sub

第二步:把宏的安全性调到低,如果是07以上格式请保存为XLSM格式

第三步:关闭工作簿 重新打开即可

当然 你也可以给你的vba工程加上密码

方法/步骤

• 首先我们打开一个工作样表作为例子。

  请点击输入图片描述

• 条件格式解释起来就是excel中对单元格中的字体，字体颜色和背景颜色等进行格式设置，来达到突出显示的效果。比如图例中以红色显眼标错，蓝色突出对比等等都属于条件格式设置。

  请点击输入图片描述

• 而条件格式属于FormatConditions属性，format即格式。这里我们设置的是所选区域，也就是Selection对象，用鼠标框取的这一部分作为对象。

  请点击输入图片描述

• 我们使用alt+f11组合快捷键进入vbe编辑器，插入一个新的模块，并在模块中输入以下代码：

  Sub FormatConditions() 

  Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlLessEqual, Formula1:="10" 

  Selection.FormatConditions(1).Font.ColorIndex = 3 

  End Sub

  请点击输入图片描述

• 这里的条件格式设置可以使用add方法来添加条件的需求，其中包括条件的类型，条件的运算格式，以及运算后的值等。

  请点击输入图片描述

• 这里可以直接使用指定对象的方式，比如font对象，也可以进行修改使用modify方法。这里大家可以多试验几次来掌握对条件格式的设置。

  请点击输入图片描述

---

达尔罕茂明安联合旗17211656930： excel中用vba实现按条件锁定单元格 - ？
莱该萘夫： 也许是因为这里有个错误(倒数第二句锁定表的代码DrawingObjects:=ture, ),代码根本就没运行. 要不要来个简单的,从另外的思路来满足你的需求:当达到条件时,你选取不了要锁定的单元格,变相锁定了这个单元格,不改变对整个表的其他操作,方便多了.只有一句代码.试试吧! Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 3 And Target(1).Offset(0, -1) = ＂按合同总额付款＂ Then Target.Offset(0, 1).Select End Sub

达尔罕茂明安联合旗17211656930： 高手指点:如何在VBA中条件锁定某个单元格,急急急! - ？
莱该萘夫： 假设这个要判断日期的工作表标签名字是“统计”,用下面代码吧 Private Sub Workbook_Open() Sheets(＂统计＂).Select ActiveSheet.Unprotect '撤消保护 t = Date '当前日期 For i = 3 To 100 '判断范围M3:M100 If Cells(i, 13)Cells(i, 13).Locked = True Else Cells(i, 13).Locked = False End If Next ActiveSheet.Protect '保护工作表 End Sub 代码放置在thisworkbook模块中,只要打开该工作簿,就自动执行此代码

达尔罕茂明安联合旗17211656930： 在excel里利用vba怎么对指定单元格,或区域单元格保护 - ？
莱该萘夫： 1、打开EXCEL2003,输入并编辑好相关的数据,如下图,录入九年级学生相关的成绩,并设置好字体大小和行列的宽高等.2、编辑相关的统计公式,如在原始数据最后一列增加总分列,并在K4单元格输入:=SUM(D4:J4),然后往下拖拉填充...

达尔罕茂明安联合旗17211656930： 怎么用VBA根据条件锁定一个区域 假如sheet1里 B2,C2, A3:H10,这4个区域 - ？
莱该萘夫： 用单元格事件完成锁定和不锁定单元格是吗? Private Sub Worksheet_Change(ByVal Target As Range)If Target.Address = ＂$C$2＂ ThenIf Target.Value = Range(＂B2＂).Value ThenRange(＂A3:H10＂).Locked = FalseElseRange(＂A3:H10＂).Locked = TrueEnd IfEnd If End Sub

达尔罕茂明安联合旗17211656930： excel中使用vba如何能够实现如果我这个单元格里的内容是1则另一个单元格锁定,不允许修改, - ？
莱该萘夫： 假定A1单元为1,B1锁定,A1变为2时解锁.以下代码能满足你的要求:Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address＂$A$1＂ Then Exit Sub ActiveSheet.Unprotect If Target = 1 Then Range(＂B1＂).Locked = True If Target = 2 Then Range(＂B1＂).Locked = False ActiveSheet.Protect End Sub注意两点:一是代码不能写在模块里,就写在工作表代码区,二是在写代码前先将所有单元格解锁:

达尔罕茂明安联合旗17211656930： excel表格如何根据某单元格显示的文字条件锁定另一单元格? - ？
莱该萘夫： 这个只能用VBA做一段宏代码,利用工作表保护与单元格锁定来实现. 先判断A1格内容,如果是“有”,就解锁B1格,并保护工作表; 如果A1为“无”,就锁定B1,并保护工作表. Private Sub Worksheet_Change(ByVal Target As Range) ...

达尔罕茂明安联合旗17211656930： excel 如何实现满足条件时锁定指定区域? - ？
莱该萘夫： 如下:1、选定所有单元格——“设置单元格格式”——“保护”——“锁定”去掉“√”;2、选定C、D两列——“设置单元格格式”——“保护”——“锁定”打上“√”;3、“工具”——“保护”——“保护工作表”——输入密码(或不输入)——确定.

达尔罕茂明安联合旗17211656930： vba中实现某列满足某条件时另一列锁定或解锁 - ？
莱该萘夫： 使用workSheet的selection_change事件.当该事件发生,则 检测是否仅选中一格 是,则进一步检测选中单元格地址是否B列 若是,则进一步检测同行A列的值是否为100% 否,则鼠标焦点移向B列同行的A列单元格

达尔罕茂明安联合旗17211656930： 如何用条件把锁定的单元格保护起来 - ？
莱该萘夫： 选中B列,格式-条件格式,选择公式,并输入公式=A1=＂AAA＂(补充:不知道你说B1=“AAA”,这里的AA是文本还是数值,如果代表数值就改为=A1=AAA) 设置一种特殊格式.这个格式会套用到所有B列 接下来,选择整个工作表-单元格格式-去掉锁定和隐藏标记.然后再B列随便选择一个单元格,编辑-定位-条件格式-相同,就把包含有上面条件格式的单元格定位出来,点单元格格式-加上锁定和隐藏标记.最后一步,保护工作表,设置密码

达尔罕茂明安联合旗17211656930： excel满足条件自动锁定单元格 如B7=3.则整个B列锁定禁止填写？
莱该萘夫： 假设这个工作表是Sheet1,首先选中整个工作表,右键-格式-保护-不要勾选“锁定”-确定,然后选中B列,右键-格式-保护-勾选“锁定”-确定.按Alt+F11,进入VBA模块,双击Sheet1,在右边复制下面宏后粘贴:Private Sub Worksheet_...