[已解决]关于自动录入的问题

nior

比如在A1输入+，B1自动录入-；要是在A1输入-，B1自动录入+。并且在B1输入时，A1同样会自动录入相反的运算符号

target参数怎么用？

最佳答案

月排行榜 / 总排行榜

qh8600

2014-4-6 10:16

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Column = 1 Then
   
3. If Target.Value = "+" Then Target.Cells(1, 2) = "-"
   
4. If Target.Value = "-" Then Target.Cells(1, 2) = "+"
   
5. Else
   
6. If Target.Column = 2 Then
   
7. If Target.Value = "+" Then Target.Cells(1, 0) = "-"
   
8. If Target.Value = "-" Then Target.Cells(1, 0) = "+"
   
9. End If
   
10. End If
    
11. End Sub
    

复制代码

输入“+”和“-”前面要加‘

跳转到最佳答案楼层

qh8600

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Column = 1 Then
   
3. If Target.Value = "+" Then Target.Cells(1, 2) = "-"
   
4. If Target.Value = "-" Then Target.Cells(1, 2) = "+"
   
5. Else
   
6. If Target.Column = 2 Then
   
7. If Target.Value = "+" Then Target.Cells(1, 0) = "-"
   
8. If Target.Value = "-" Then Target.Cells(1, 0) = "+"
   
9. End If
   
10. End If
    
11. End Sub
    

复制代码

输入“+”和“-”前面要加‘

冠军欧洲2010

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. Application.EnableEvents = False
   
3.     If Target.Address = "$A$1" Then
   
4.         Select Case Target
   
5.         Case "+": Target.Offset(0, 1) = "-"
   
6.         Case "-": Target.Offset(0, 1) = "+"
   
7.         End Select
   
8.     End If
   
9.     If Target.Address = "$B$1" Then
   
10.         Select Case Target
    
11.         Case "+": Target.Offset(0, -1) = "-"
    
12.         Case "-": Target.Offset(0, -1) = "+"
    
13.         End Select
    
14.     End If
    
15.     Application.EnableEvents = True
    
16. End Sub
    
17. 
    

复制代码

dsmch

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Column < 3 Then
   
3.     x = Target.Column
   
4.     y = IIf(x = 1, 1, -1)
   
5.     If Target = "+" Then Target.Offset(0, y) = "-"
   
6.     If Target = "-" Then Target.Offset(0, y) = "+"
   
7. End If
   
8. End Sub
   

复制代码

nior

冠军欧洲2010 发表于 2014-4-6 10:19

老师，第2行和第15行的那个让事件失效生效能解释下吗，不太懂

为什么我的sheet中没有Option Explicit这个呢

冠军欧洲2010

1、这两句代码，就是禁止事件程序，和启用事件程序啊。
2、Visual Basic编辑器，工具，选项，要求变量声明前的勾打上就有了。

nior

qh8600 发表于 2014-4-6 10:16
输入“+”和“-”前面要加‘

我刚试了，这对整个AB列内输入都可以，不过当是第二列是为什么cells是(1,0)呢，cells(a,b)是相对引用还是绝对？

nior

dsmch 发表于 2014-4-6 10:33

嗯，学习了，谢谢！

qh8600

nior 发表于 2014-4-6 10:54
我刚试了，这对整个AB列内输入都可以，不过当是第二列是为什么cells是(1,0)呢，cells(a,b)是相对引用还是 ...

Target.Column .cells(1.1)就是产生事件的单元格
cells(1,1)就是相对于产生事件单元格的位置
向上1行就是减1向下就是加1
向左就是减1，向右就是加1
比如target.cells(1,0)就是产生事件的单元格为基点，行不变，列向右移动1列的单元格
如果只在第1行产生事件
判断加上Target.row=1

nior

qh8600 发表于 2014-4-6 11:21
Target.Column  .cells(1.1)就是产生事件的单元格
cells(1,1)就是相对于产生事件单元格的位置
向上1行就 ...

嗯，终于理解了，+1，-1是在cells(1,1)的基础上吧，比如target.cells(1,2)是向右移动一列，target.cells(1,0)是向左移动一列，target.cells(2,1)是向下移动一行，target.cells(0,1)是向上移动一行