[已解决]求助：把A列单元格输入框的黑边取消。如何设置？

清华

求助：把A列单元格输入框的黑边取消。如何设置？

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. If Target.Count = 1 And Target.Column = 1 Then
   
3. With TextBox1
   
4. .Left = Target.Left
   
5. .Top = Target.Top
   
6. .Width = Target.Width + 1
   
7. .Height = Target.Height + 1
   
8. .Visible = True
   
9. .Text = ""
   
10. .Activate
    
11. End With
    
12. End If
    
13. End Sub

复制代码

最佳答案

月排行榜 / 总排行榜

zjdh

2012-3-11 10:36

用这语句：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count = 1 And Target.Column = 1 Then
        With TextBox1
            .Left = Target.Left
            .Top = Target.Top + 1
            .Width = Target.Width
            .Height = Target.Height - 1
            .Visible = True
            .Text = ""
            .Activate
        End With
    End If
End Sub
根据情况调整红色数据

跳转到最佳答案楼层

zjdh

把A列单元格输入框的黑边取消.rar (13.11 KB, 下载次数: 18)

2012-3-11 08:13 上传

点击文件名下载附件

zjdh

清华

zjdh 发表于 2012-3-11 08:13

很好　谢谢你的帮助

清华

zjdh 发表于 2012-3-11 08:18

单元格下面的线不显示？

zjdh

清华 发表于 2012-3-11 08:35
单元格下面的线不显示？

看我的2楼附件语句。

627941227

挺好，学习到了，谢谢分享……………………

清华

zjdh 发表于 2012-3-11 08:40
看我的2楼附件语句。

我设置不明白了，请帮助我设置一下。

zjdh

清华 发表于 2012-3-11 09:08
我设置不明白了，请帮助我设置一下。

还要如何设置？直接用我2楼的附件！

清华

zjdh 发表于 2012-3-11 09:44
还要如何设置？直接用我2楼的附件！

请看图片　我说不明白