查看: 885|回复: 5
特定区域的单元格内容修改后，该单元格所在区域内的整行改变颜色，如何用VBA实现？
阅读权限10
在线时间 小时
各位VBA高手，我遇到一个问题，比如EXCEL中A1：E5区域内某一单元格内容发生变化或修改，如B2单元格，则将该B2所在区域内的整行改变成红色，如何通过EXCEL VBA来实现？请各位高手不吝指教，谢谢！
阅读权限10
在线时间 小时
补充：我需要的是一旦B2修改了，就将B1：B5这一行变红，而在A1：E5区域外的任意单元格修改则不改变颜色？其中A1：E5区域是根据需要不断变化的动态区域，请各位高手帮帮我！
阅读权限50
在线时间 小时
A1：E5区域是根据需要不断变化的动态区域
评：不知所言！
阅读权限10
在线时间 小时
jbjbzjb 发表于
A1：E5区域是根据需要不断变化的动态区域
评：不知所言！
就是说，这次使用A1：E5区域，下次可能使用C8：M16，你可以就以A1：E5区域为例。下次需要修改时，我自己再改就可以了，谢谢！
阅读权限50
在线时间 小时
本帖最后由 jbjbzjb 于
15:16 编辑
代码删除。
胡乱重复发贴，不给了。
阅读权限10
在线时间 小时
怎么就没有人帮我呢？
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师查看: 1892|回复: 15
指定单元格的值改变触发代码怎么编写
阅读权限20
在线时间 小时
本帖最后由 scsgd 于
09:00 编辑
我简单地写了一个代码:
Private Sub Worksheet_Change(ByVal Target As Range) [a2] = [a1] + 1
然后在工作表中的任何编辑动作都将立即计算A2=A1+1,而且窗口会立即关闭,我猜想是如果程序不自动关闭,将无限执行A2=A1+1.
问题:如何写代码才能使得在指定单元格(上面就是A1了)的值改变时才执行该代码?
阅读权限100
在线时间 小时
Private Sub Worksheet_Change(ByVal Target As Range)
& & If Target.Address && &$A$2& Then Exit Sub
& & Application.EnableEvents = False
& & [A1] = [A2] + 1
& & Application.EnableEvents = True
End Sub
复制代码
阅读权限30
在线时间 小时
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = &$A$1& Then '当A1的值有变动才会触发以下代码的执行
& & [a2] = [a1] + 1
End If
End Sub
复制代码
阅读权限20
在线时间 小时
本帖最后由 scsgd 于
11:53 编辑
jsxjd 发表于
谢谢.请问if条件中的&$A$2&是不是一定要是大写的A,我用小写的a不行?Excel一般不是不区分大小写的吗?
阅读权限30
在线时间 小时
VBA 不区分大小写
阅读权限20
在线时间 小时
浮华、缠绕指尖 发表于
亲,你这个代码容易理解.但&$A$1&中的A一定要是大写才行,小写的a没反应,这个正常吗?
阅读权限20
在线时间 小时
liuxingcsu 发表于
VBA 不区分大小写
我这里换成小写的$a$1确实不能运行代码了($A$1可以),要不请你也复制代码并改成$a$1试一下
阅读权限100
在线时间 小时
scsgd 发表于
谢谢.请问if条件中的&$A$2&是不是一定要是大写的A,我用小写的a不行?Excel一般不是不区分大小写的吗?
VBA 区分的
阅读权限20
在线时间 小时
& & & & & & & &
jsxjd 发表于
VBA 区分的
我也有类似的问题想请教一下：我的是两个固定单元格里的数值改变时，触发宏运行。要满足两个单元格数值都改变时才触发。应该怎么样写？另外两个单元格的数值的改变是通过单元格的数据有效性进行变动的，不是直接输入。
阅读权限30
在线时间 小时
raku 发表于
我也有类似的问题想请教一下：我的是两个固定单元格里的数值改变时，触发宏运行。要满足两个单元格数值都 ...
没有这样的事件，你可以添加一个辅助单格对值进行判断来实现
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师查看: 445|回复: 6
单元格格式转换问题，请高手修改一下代码！
阅读权限20
在线时间 小时
随文所附数据为由.CSV文件转过来的数据，但发现此单元格中相关数值型的单元格后面，有一个看不到的东东，想将此类单元络转化为数值格式，结果怎么也不行，请高手修改一下代码，谢谢！
本人做的一点错码！
' 将单元格中可见的数据，一次性遍历转换成EXCEL可计算、统计的数据格式
Dim rng As Range
& &&&Dim myRng As Range
& &&&Dim rrow
& &&&rrow = ActiveSheet.UsedRange.Row
& &&&Set myRng = ActiveSheet.Range(Cells(6, 7), Cells(rrow, 9))
& && &For Each rng In myRng
& &rng.Value = Application.WorksheetFunction.Value(Application.WorksheetFunction.Mid(rng.Value, 1, Application.WorksheetFunction.Len(rng.Value) - 1))
17:45 上传
点击文件名下载附件
14.6 KB, 下载次数: 2
需要转化的样例！
阅读权限30
在线时间 小时
& & & & & & & &
rng.value=val(rng.value)可不可以
阅读权限20
在线时间 小时
请给一下修改好的代码可否，要不就原样表文件测试一下，谢谢！我做不来！
阅读权限20
在线时间 小时
这种单元格中有一个特殊的字符，看不到，但求合不了，转化后就报错！
阅读权限20
在线时间 小时
& & & & & & & &
在单元格中手工公式录入转换时，是错的！无法用！
阅读权限30
在线时间 小时
最关键是这句错了，rrow = ActiveSheet.UsedRange.Row，它得到的是区域中的第一行的行号，而你其实想得到的是最后的行号。应该，rrow = ActiveSheet.UsedRange.RowS.COUNT + 上边空白行的行数。
' 将单元格中可见的数据，一次性遍历转换成EXCEL可计算、统计的数据格式
Dim rng As Range
& &&&Dim myRng As Range
& &&&Dim rrow
& &&&rrow = ActiveSheet.UsedRange.Rows.Count + 4
& &&&Set myRng = ActiveSheet.Range(Cells(6, 7), Cells(rrow, 9))
& && &For Each rng In myRng
& && &rng.Value = Val(rng.Value)
阅读权限20
在线时间 小时
& & & & & & & &
问题是单元格中有怪字符，肉眼看不到，但确实存在，图片中的此单元格，数值为0.00，长度应为4个字节，但实际为5个，可以用LEN（）函数看到！在ＶＢＡ中，我取了个值的图，请看一下，不然，使用rng.Value = Val(rng.Value)这个转成数值一点问题都没有，但有这之后，是转不成功的！请再看一下！谢谢！
(1.2 KB, 下载次数: 0)
15:54 上传
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师查看: 1676|回复: 7
菜鸟求助：如何做到某一列单元格输入后锁定，更改时需要密码
阅读权限10
在线时间 小时
本帖最后由
19:20 编辑
如题，A——L列都有数据，但是只有E、I、K、L，输入数据后自动锁定，更改时需要密码，其余单元格不受影响。
麻烦老师能给个附件，万分感谢~~
19:20 上传
点击文件名下载附件
6.67 KB, 下载次数: 28
阅读权限20
在线时间 小时
使用事件，密码是：doudou
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
With Target
& &&&If .Value && && Then
& && &&&If (Trim(InputBox(&请输入密码：&, &请输入修改内容的密码：&)) = &doudou&) Then
& && &Else
& & Target.Offset(1, 1).Select
& & End If
& &&&End If
End With
End Sub
复制代码
阅读权限10
在线时间 小时
使用事件，密码是：doudou
谢谢老师提供帮助！
如果我要增加I、K、L，3列单元格锁定，在代码中该如何更改
阅读权限10
在线时间 小时
使用事件，密码是：doudou
似乎代码有点问题，我需要指定几列单元格锁定，但是这代码锁定是整张工作表
阅读权限20
在线时间 小时
& & & & & & & &
似乎代码有点问题，我需要指定几列单元格锁定，但是这代码锁定是整张工作表
加一个判断语句的就可以了，
阅读权限10
在线时间 小时
加一个判断语句的就可以了，
要怎么加判断语句，我已经上传了附件，老师可以帮忙编码嘛
阅读权限20
在线时间 小时
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim K As Long
On Error Resume Next
K = Target.Column
If K = 5 Or K = 9 Or K = 11 Or K = 12 Then
& && &With Target
& && && &&&If .Value && && Then
& && && && &&&If (Trim(InputBox(&请输入密码：&, &请输入修改内容的密码：&)) = &doudou&) Then
& && && && &Else
& && && & Target.Offset(1, 1).Select
& && && & End If
& && && &&&End If
& && &End With
End If
End Sub
复制代码
阅读权限10
在线时间 小时
本帖最后由
19:17 编辑
谢谢老师帮助，代码默认合并单元格也是锁定的，怎么取消呢。我上传的附件中I、K这两列是合并单元格的，没有密码无法输入数据
而且有个BUG，如果整行清除单元格内容，锁定的单元格完全没用
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师查看: 3232|回复: 9
修改单元格并打上底色
阅读权限30
在线时间 小时
在原有某一例或行上有很多数据，在修改某一单元格后是否能给修改后的单元格打上底色，没有修改的保持不变。
阅读权限95
在线时间 小时
'代码放在 ThisWorkbook 的代码区
& && &'撰写:老朽
& && &'网址:
& && &'日期: 下午 05:30:51
Private Sub Workbook_SheetChange(ByVal Sh As Object , ByVal Target As Range )
& & Target.Interior.Color = vbCyan
阅读权限30
在线时间 小时
& & & & & & & &
功能实现，能否定义一列或行
在帮帮忙好吗
[ 本帖最后由 qygds 于
17:54 编辑 ]
阅读权限95
在线时间 小时
& && &'撰写:老朽
& && &'网址:
& && &'日期: 下午 06:05:29
Private Sub Workbook_SheetChange(ByVal Sh As Object , ByVal Target As Range )
Target.EntireRow.Interior.Color = vbCyan&&'整行
Target.EntireColumn.Interior.Color = vbYellow '整列
阅读权限30
在线时间 小时
感谢您的帮忙
[ 本帖最后由 qygds 于
18:40 编辑 ]
阅读权限30
在线时间 小时
原帖由 zldccmx 于
17:31 发表
'代码放在 ThisWorkbook 的代码区
& && &'撰写:老朽
& && &'网址:
& && &'日期: 下午 05:30:51
Private Sub Workbook_SheetChange(ByVal Sh As Object , ByVal Target As&&...
在线的帮帮忙了，只定义在F列起作用
阅读权限95
在线时间 小时
& && &'撰写:老朽
& && &'网址:
& && &'日期: 下午 06:05:29
Private Sub Workbook_SheetChange(ByVal Sh As Object , ByVal Target As Range )
if&&Target.Column &&6 then exit sub
Target.EntireRow.Interior.Color = vbCyan&&'整行
Target.EntireColumn.Interior.Color = vbYellow '整列
阅读权限95
在线时间 小时
& && &'撰写:老朽
& && &'网址:
& && &'日期: 下午 09:17:55
Private Sub Workbook_SheetChange(ByVal Sh As Object , ByVal Target As Range )
& & If Target.Column && 6 Then Exit Sub
& & Target.EntireRow.Interior.Color = vbCyan&&'整行
'& & Target.EntireColumn.Interior.Color = vbYellow& & '整列
阅读权限30
在线时间 小时
是我没有表达明白了
& && &'网址:
& && &'日期: 下午 06:05:29
Private Sub Workbook_SheetChange(ByVal Sh As Object , ByVal Target As Range )
if&&Target.Column &&6 then exit sub
Target.Interior.Color = vbCyan
谢谢您的帮助太感谢了
阅读权限30
在线时间 小时
有用条件格式设底色，原来的颜色才不会去除。‘俺是老朽’大师高人！
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师