（已解决）双击单元格，自动显示文字

shewoyu

双击单元格，自动显示预想内容，怎么写，求大虾出手
比如列
双击A1，显示出货
双击B2，显示收货
双击C3，显示废弃


谢谢！！

shewoyu

在线等，谢谢！！在论坛搜不到！！

skyzxh

显示在哪里？谁知道你预想了什么？

shewoyu

skyzxh 发表于 2014-4-12 14:48
显示在哪里？谁知道你预想了什么？

在双击的单元格里

skyzxh

1. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   
2. If Target.Address = "$A$1" Then
   
3.     Target = "出货"
   
4. End If
   
5. If Target.Address = "$B$2" Then
   
6.     Target = "收货"
   
7. End If
   
8. If Target.Address = "$C$3" Then
   
9.     Target = "废弃"
   
10. End If
    
11. End Sub
    

复制代码

changxuegu

用vba做的，请测试

1. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   
2.     If Target.Count > 1 Then Exit Sub
   
3.     If Not (Target.Address = "$A$1" Or Target.Address = "$B$2" Or Target.Address = "$C$3") Then Exit Sub
   
4.     Dim m As String
   
5.     Select Case Target.Address
   
6.         Case "$A$1"
   
7.             m = "出货"
   
8.         Case "$B$2"
   
9.             m = "收货"
   
10.         Case "$C$3"
    
11.             m = "放弃"
    
12.     End Select
    
13.     If Target.Value = "" Then Target.Value = m
    
14. End Sub

复制代码

shewoyu

skyzxh 发表于 2014-4-12 14:59

要求整列的，那从A3:A怎么写

skyzxh

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 1 Then
    Target = "出货"
End If
If Target.Column = 2 Then
    Target = "收货"
End If
If Target.Column = 3 Then
    Target = "废弃"
End If
End Sub

shewoyu

谢谢，正是我想要的

jjmsxr

skyzxh 发表于 2014-4-12 15:16
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column  ...

老师，双击单元格中本来就有内容，双击添加的加在原内容后面，怎么解决？？？？