[已解决]工作表事件问题

yjwdjfqb

利用工作表事件，自动加字符


当B2：B900　　C3：H100　　I10：I20　这些区域的单元格，填写数据时，就自动在填写的数据前加上　测试　二个字在前面，在后面加上二个　数据　二个字在后面。

比如：　　我在C25　中输入　年度报表　　那么最后　C25单元格的数据就是　　测试年度报表数据

请朋友们帮帮写下这个工作表事件，谢谢大家了！

最佳答案

月排行榜 / 总排行榜

qh8600

2014-4-5 14:36

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. Dim a, b, c
   
3. If (Target.Column = 2 And Target.Row >= 2 And Target.Row <= 900) Or (Target.Column > 2 And Target.Column <= 8 And Target.Row >= 3 And Target.Row <= 100) Or (Target.Column = 9 And Target.Row >= 10 And Target.Row <= 20) Then
   
4. a = Target.Value
   
5. b = Left(a, 2)
   
6. c = Right(a, 2)
   
7. If b <> "测试" And c <> "数据" Then Target = "测试" & a & "数据"
   
8. End If
   
9. End Sub

复制代码

跳转到最佳答案楼层

FnG

自定义格式就可以了，别写代码那么麻烦了
选中你的那些单元格区域，Ctrl+1设置单元格格式，数字选项卡下选自定义，右边粘贴下面代码：

1. "测试"@"数据"

复制代码

确定后即生效

qh8600

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. Dim a, b, c
   
3. If (Target.Column = 2 And Target.Row >= 2 And Target.Row <= 900) Or (Target.Column > 2 And Target.Column <= 8 And Target.Row >= 3 And Target.Row <= 100) Or (Target.Column = 9 And Target.Row >= 10 And Target.Row <= 20) Then
   
4. a = Target.Value
   
5. b = Left(a, 2)
   
6. c = Right(a, 2)
   
7. If b <> "测试" And c <> "数据" Then Target = "测试" & a & "数据"
   
8. End If
   
9. End Sub

复制代码