EXCEL VBA将指定表格出现反斜线代码（下图那样）？VBA可以实现让表格不可编辑吗（怎么弄）？

麻烦解释一下vba

EXCEL VBA将指定表格出现反斜线代码(下图那样)?VBA可以实现让表格不可...
Sub Test1() '选定区域单元格添加斜线 Range("A1:C3").Select ‘选中你要加斜线的区域，比如A1:C3 With Selection.Borders(xlDiagonalDown).LineStyle = xlContinuous '线型为实线 .ColorIndex = xlAutomatic '颜色为自动 .TintAndShade = 0 .Weight = xlThin '线宽为默认 End With End Sub --- ...

excel vba 当I列输入值为7,第P、W、AD列对应行出现反斜线(不是\\,如下...
你是要P、W、AD列对应行的单元格出现反斜线？如果是，可以试试下面的 Sub backslash()Dim aline As Integer aline = 1 Do Until Len(Range("i" & aline)) < 1 If Range("i" & aline) = 7 Then Range("q" & aline & ",w" & aline & ",ad" & aline).Select Selection.Borders(...

在excel2003中,怎么将编辑的vba宏保存才能使以后打开的每一张表格都能...
在弹出的对话框里，为你的宏取个名字，设置一个快捷键，并选择保存位置为【个人宏工作薄】（这个是关键），确定后，立即结束录制。然后编辑你刚才录制的这个宏，把代码全部删除，把你需要保存的代码复制过来，保存就可以了。以后，不管你在哪个EXCEL表里，想用这个宏的时候，直接按快捷键就可以了。

excel 如何用vba 实现 某列 限制输入范围
1、打开要处理的excel文档,2、按alt+f11,打开vba编辑窗口,3、双击左侧树中的thissheet,4、在右侧的空白窗口中输入如下的内容:Private Sub Worksheet_Change(ByVal Target As Range)Dim s As StringDim i As Long, j As LongDim LL As StringLL = "D" '需要控制的列Dim cc As RangeFor Each cc In Tar...

excel中如何用vba,让表格所有列不能被删除(复杂)
1、利用SelectChange事件，来捕捉用户选择工作表区域的行为 2、用VBA把系统菜单、快捷菜单中删除列的菜单项都封了，这样他就是选择了也无法调用删除菜单 3、把系统菜单和快捷菜单中的删除行菜单项封了。如果在SelectChange事件中，用户选择的不是第1、2行，重新激活这个菜单项允许他删除，不然仍然保持菜单...

在excel里利用vba怎么对指定单元格,或区域单元格保护
1、打开EXCEL2003，输入并编辑好相关的数据。2、编辑相关的统计公式，如在原始数据最后一列增加总分列，并在K4单元格输入：=SUM(D4:J4)，然后往下拖拉填充公式。3、点击EXCEL工作薄的工具——宏 4、在弹出的界面选择保护公式，点击执行。5、最后按Alt+F11在弹出的界面输入密码即可。注意事项：为了避免...

OFFICE excel表格 中VBA函数,请教大神,如何实现锁定不可点击?
不可点击不用VBA就行。保护工作表时，选定锁定单元格勾选取消就行了。

excel表如何设置指定日期之后不可编辑?
数据验证+工作表保护就可以了 ctrl+A选中整个工作表单元格；ctrl+1打开单元格格式设置对话框，点击“保护”选项卡，将“锁定”前的√去掉；4.请点击输入图片描述 请点击输入图片描述 数据验证，选择自定义，其公式为：=TODAY()<--"2020-01-01"最后保护工作表就行。

如何让下列EXCEL的VBA代码,只在名为提示单个表格运行,
For Each Ra In Range("c2:c" & Range("C65536").End(xlUp).Row) 修改为：For Each Ra In worksheets("提示").Range("c2:c" & worksheets("提示").Range("C65536").End(xlUp).Row)

使用VBA在Excel按条件查找,怎么让查找的两个结果显示在一个表格中?
下载文件：excel(成绩).xls|按你的意思编了一个简单的VBA程序，利用循环语句FOR……NEXT的嵌套就能轻松实现想要的结果，其代码如下：Public Sub ppp()Dim a As Integer a = [a65536].End(xlUp).Row For k = 2 To a Cells(k, "I") = Cells(k, "A")j = 0 u = 0 For b = 2 To...