[已解决]请大家帮忙如何实现单元格赋值？

cliff118 · 发表于 2011-4-7 13:22

本帖最后由 cliff118 于 2011-4-7 13:25 编辑

不用数据有效性的序列来实现！

最佳答案

mn860429

2011-4-7 13:49

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = 1 And Target.Row > 1 And Target.Row < 6 And Target.Column = 6 Then
[a3] = Target.Value
ElseIf Target.Count = 1 And Target.Row > 1 And Target.Row < 4 And Target.Column = 7 Then
[b3] = Target.Value
End If
End Sub

复制代码

555.zip (6.49 KB, 下载次数: 5)

mn860429 · 发表于 2011-4-7 13:28

需要vba[em04]

cliff118 · 发表于 2011-4-7 13:35

请问用VBA如何实现？谢谢

飞天小猪 · 发表于 2011-4-7 13:37

VBA还真不懂，期望达人解决

徐淑颖 · 发表于 2011-4-7 13:44

VBA真的不懂！{:111:}

mn860429 · 发表于 2011-4-7 13:49

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = 1 And Target.Row > 1 And Target.Row < 6 And Target.Column = 6 Then
[a3] = Target.Value
ElseIf Target.Count = 1 And Target.Row > 1 And Target.Row < 4 And Target.Column = 7 Then
[b3] = Target.Value
End If
End Sub

复制代码

555.zip (6.49 KB, 下载次数: 5)

cliff118 · 发表于 2011-4-7 13:53

谢谢“mn860429”。

cliff118 · 发表于 2011-4-7 13:59

再请问一下，A列要输入多个人名的时候，能实现吗？最好是鼠标放在哪个位置，点人名或性别时，单元格上就输入甲、乙。。和男、女

wangxiangru · 发表于 2011-4-7 20:20

高手多学习了

		自动登录	找回密码
密码			注册