[已解决]可以将单元格作为按钮，用于录入吗？

superle!

有办法可以实现?
B2是要输入的内容。点击B2单元格后，再用鼠标点击K1，Q1，J1。B2单元格就出现五甲四了
G1:P1 就是快捷快捷输入按钮

最佳答案

月排行榜 / 总排行榜

grf1973

2016-3-24 13:39

请看附件。

跳转到最佳答案楼层

grf1973

1. Dim xRng As Range
   
2. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
3.     If Intersect(Target, [g1:r1]) Is Nothing Then
   
4.         Set xRng = Target
   
5.     ElseIf xRng.Column = 2 And xRng.Row > 1 Then
   
6.         xRng.Value = xRng.Value & Target.Value
   
7.     End If
   
8. End Sub
   

复制代码

superle!

grf1973 发表于 2016-3-24 11:29

再帮我看看，谢谢

grf1973

请看附件。

冬日夏雨

试试看