请高人为小儿断八字,取名字。(初为人父,不胜感谢!)
把两个宏整合到一起后,代码如下:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim m As Range,str As String,isFind As Boolean
Application.EnableEvents=False
isFind=False
str=Target.Text
If str<>""Then
For Each m In Range(Range("A1"),ActiveCell.SpecialCells(xlLastCell))
If Not(m.Row()=Target.Row()And m.Column()=Target.Column())And m.Text=str Then
m.EntireRow.ClearContents
Target.EntireRow.ClearContents
If m.Row()()Then Cells(m.Row(),1).Select Else Cells(Target.Row(),1).Select
isFind=True
Exit For
End If
Next m
If Not isFind Then
If Target.Column()=1 Then
Cells(Target.Row(),4).Select
ElseIf Target.Column()=4 Then
Cells(Target.Row()+1,1).Select
End If
End If
End If
Application.EnableEvents=True
End Sub
注意,这里的检查是区分大小写的!另,对于楼主所说的自动保存,其实在你每扫描一**输入一个单元格数据时,按默认设置(自动刷新),Excel都会刷新一次,无需任何额外的操作。或者你可以通过修改Excel本身的保存设置中的时间间隔来缩短自动保存时间。这个自动刷新呢,如果一定要自己写代码,也不是不可以写,只是它会占用较大的系统资源,可能会严重影响电脑的使用。(其实如果你没有输入/修改任何数据,多次刷新也没有意义呀,在你输入时Excel已经会自动刷新了,所以没必要再弄定时刷新功能)
GoodLuck!
Private Sub Worksheet_Change(ByVal Target As Range)
Dim m As Range,str As String,isFind As Boolean
Application.EnableEvents=False
isFind=False
str=Target.Text
If str<>""Then
For Each m In Range(Range("A1"),ActiveCell.SpecialCells(xlLastCell))
If Not(m.Row()=Target.Row()And m.Column()=Target.Column())And m.Text=str Then
m.EntireRow.ClearContents
Target.EntireRow.ClearContents
If m.Row()()Then Cells(m.Row(),1).Select Else Cells(Target.Row(),1).Select
isFind=True
Exit For
End If
Next m
If Not isFind Then
If Target.Column()=1 Then
Cells(Target.Row(),4).Select
ElseIf Target.Column()=4 Then
Cells(Target.Row()+1,1).Select
End If
End If
End If
Application.EnableEvents=True
End Sub
注意,这里的检查是区分大小写的!另,对于楼主所说的自动保存,其实在你每扫描一**输入一个单元格数据时,按默认设置(自动刷新),Excel都会刷新一次,无需任何额外的操作。或者你可以通过修改Excel本身的保存设置中的时间间隔来缩短自动保存时间。这个自动刷新呢,如果一定要自己写代码,也不是不可以写,只是它会占用较大的系统资源,可能会严重影响电脑的使用。(其实如果你没有输入/修改任何数据,多次刷新也没有意义呀,在你输入时Excel已经会自动刷新了,所以没必要再弄定时刷新功能)
GoodLuck!
佚名
2024-05-25 06:33:38
类似问题(10)
-
佚名2024-05-25 14:37:21
问诚求高人为我女儿取名,急求好名,不胜感激!!!!!
答出生地:山东省-荷泽,经度:115度24分,纬度:35度12分。出生公历:2008年12月7日16时19分(天文时间)。出生农历:戊子年 十一月 初十日 申时。...
-
佚名2024-05-25 23:07:17
问请高人给小女取名,不胜感激
答唐影农历4月22日 日子不错五行缺水 影正补
-
佚名2024-05-25 14:32:21
问恳请大师为我宝贝女儿起名,父亲姓陈,以下是女儿的生辰八字,本人不胜感激!
答陈子萱陈晓楠陈文欣陈焕可
-
佚名2024-05-25 17:11:04
问请高人帮忙取名,不胜感激!
答真要喜欢那个名字,改为:研清 可能会好一点。单名:旅 可能更好,仅供参考
-
佚名2024-05-25 08:54:11
问请高人为小女起名,不胜感激!
答嘉凝 嘉宁 嘉灏 嘉彤 嘉玮 嘉嘉 嘉鸥 嘉陈 嘉辰 嘉昕 嘉禾嘉珏 嘉钰 嘉煜 嘉岚 嘉澜 嘉薰 嘉婉 嘉迅 嘉乐 嘉星...
-
佚名2024-05-25 03:24:21
问请高人用生辰八字为我女儿取名
答公历:2010年1月17日(星期日)8点农历:己丑年十二月初三日辰时春节:2月14日节前:己丑年节后:庚寅年八字:己丑 丁丑 丁卯 甲辰五行:土土 火土 火木 ...
-
佚名2024-05-25 18:24:05
问急求为小儿起名,请高人指点,感激不尽!
答男命: 公元2007年3月14日15时15分出生 二零零七年 一月 二十五日 申时 ...
-
佚名2024-05-25 12:14:51
问拜求高人帮忙,结合八字、五行给小女取个名字,不胜感激,现谢谢了:
答公历:2006年5月21日(星期日)11点30分农历:丙戌年四月廿四日午时春节:1月29日节前:乙酉年节后:丙戌年八字:丙戌 癸巳 庚戌 壬午五行:火土 水火 ...
-
佚名2024-05-25 12:08:44
问请高手根据生辰八字为我的侄女起名 谢谢 不胜感激
答解思琴 解依瑶 解静雯 解思玮
-
佚名2024-05-25 08:00:00
问-----跪求-----请高人为我女儿取个好名字!感谢,天呀!真是好人!
答周子怡 周佳怡
风水
起名
网名
- 1 带咖的网名
- 2 女神范的网名
- 3 cf网名5字的
- 4 带字的三字网名
- 5 峰字昵称网名
- 6 昵称高冷成熟大全集
- 7 一线战斗昵称
- 8 狗贼的炉石昵称
- 9 帮忙找人只有line昵称
- 10 游戏群昵称怎么改名字
说说
- 1 刘玲的个性签名
- 2 有些人与事的个性签名
- 3 冷谈男生的个性签名
- 4 女生霸气个性签名qq
- 5 12月的qq签名
- 6 让心情平静的说说
- 7 旅途中的说说
- 8 伤感说说散文坊
- 9 吵不散骂不走经典说说
- 10 说说虚拟机热迁移原理