Excel 下面的代码改为点击B5:B65536才出现这种效果,如何改?

[复制链接]
查看11 | 回复1 | 2011-3-15 21:04:17 | 显示全部楼层 |阅读模式
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row > 4 And Target.Column=2And Target.Count = 1 Then
If Range("B2") = "进货" Then
With Sheets("sheet2")
.Range("C5") = Target.Value
.Select
End With
ElseIf Range("B2") = "出货" ...
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行