[已解决]如何使用按钮在单元格内输入ABCD的组合？标签：单元格赋值

liwenhong

如题，下面的语句实现了使用按钮在当前单元格内输入A或B或C或D，但怎样同样使用按钮输入ABCD的组合，比如ABC呢？请各位高手赐教！（是做选择题用，选择题有单选和多选 ABCD.rar (12.87 KB, 下载次数: 8)

2016-8-27 14:29 上传

点击文件名下载附件 ）

1. Private Sub CommandButton1_Click()
   
2. ActiveCell.Value = "A"
   
3. End Sub
   
4. 
   
5. Private Sub CommandButton2_Click()
   
6. ActiveCell.Value = "B"
   
7. End Sub
   
8. 
   
9. Private Sub CommandButton3_Click()
   
10. ActiveCell.Value = "C"
    
11. End Sub
    
12. 
    
13. Private Sub CommandButton4_Click()
    
14. ActiveCell.Value = "D"
    
15. End Sub

复制代码

最佳答案

月排行榜 / 总排行榜

mathking77

2016-8-27 16:00

1. Private Sub CommandButton1_Click()
   
2. If ActiveCell.Value = "" Then
   
3. ActiveCell.Value = "A"
   
4. ElseIf ActiveCell.Value <> "" Then
   
5. ActiveCell.Value = ActiveCell.Value & "A"
   
6. End If
   
7. End Sub
   
8. 
   
9. Private Sub CommandButton2_Click()
   
10. If ActiveCell.Value = "" Then
    
11. ActiveCell.Value = "B"
    
12. ElseIf ActiveCell.Value <> "" Then
    
13. ActiveCell.Value = ActiveCell.Value & "B"
    
14. End If
    
15. End Sub
    
16. 
    
17. Private Sub CommandButton3_Click()
    
18. If ActiveCell.Value = "" Then
    
19. ActiveCell.Value = "C"
    
20. ElseIf ActiveCell.Value <> "" Then
    
21. ActiveCell.Value = ActiveCell.Value & "C"
    
22. End If
    
23. End Sub
    
24. 
    
25. Private Sub CommandButton4_Click()
    
26. If ActiveCell.Value = "" Then
    
27. ActiveCell.Value = "D"
    
28. ElseIf ActiveCell.Value <> "" Then
    
29. ActiveCell.Value = ActiveCell.Value & "D"
    
30. End If
    
31. End Sub

复制代码

跳转到最佳答案楼层

mathking77

1. Private Sub CommandButton1_Click()
   
2. If ActiveCell.Value = "" Then
   
3. ActiveCell.Value = "A"
   
4. ElseIf ActiveCell.Value <> "" Then
   
5. ActiveCell.Value = ActiveCell.Value & "A"
   
6. End If
   
7. End Sub
   
8. 
   
9. Private Sub CommandButton2_Click()
   
10. If ActiveCell.Value = "" Then
    
11. ActiveCell.Value = "B"
    
12. ElseIf ActiveCell.Value <> "" Then
    
13. ActiveCell.Value = ActiveCell.Value & "B"
    
14. End If
    
15. End Sub
    
16. 
    
17. Private Sub CommandButton3_Click()
    
18. If ActiveCell.Value = "" Then
    
19. ActiveCell.Value = "C"
    
20. ElseIf ActiveCell.Value <> "" Then
    
21. ActiveCell.Value = ActiveCell.Value & "C"
    
22. End If
    
23. End Sub
    
24. 
    
25. Private Sub CommandButton4_Click()
    
26. If ActiveCell.Value = "" Then
    
27. ActiveCell.Value = "D"
    
28. ElseIf ActiveCell.Value <> "" Then
    
29. ActiveCell.Value = ActiveCell.Value & "D"
    
30. End If
    
31. End Sub

复制代码

su45

真行，键盘也不愿意敲了！
加个按钮行么？

ABCD.zip (13.9 KB, 下载次数: 7)

2016-8-27 16:12 上传

点击文件名下载附件

liwenhong

mathking77 发表于 2016-8-27 16:00

非常感谢，经测试使用你提供的代码完全满足要求，但是当增加了“答题后不能修改”的功能后，两个代码冲突了，请您再给看看。再次感谢！
“答题后不能修改”代码：

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. y = ProtectContents
   
3. Unprotect ("123")
   
4. If Target = "" Then
   
5. Target.Locked = False
   
6. Else
   
7. Target.Locked = True
   
8. End If
   
9. If y = True Then
   
10. Protect ("123")
    
11. End If
    
12. End Sub
    

复制代码

附“答题后不能修改”代码起效过程为：
1、选中H列。2、将H列单元格属性设置为“不锁定”。3、保护工作表。

liwenhong

su45 发表于 2016-8-27 16:12
真行，键盘也不愿意敲了！
加个按钮行么？

真抱歉，您的意思我没看懂，我采用了2楼（mathking77）的办法，但由于增加了新功能，新的问题也出现了，请看4楼，麻烦您再次参与！谢谢
采用答题时不用键盘的方法，是因为答题人员为不常用电脑人员，对键盘不熟悉，找ABCD费劲，哈，为他们着想了！

su45

ABCD-2.zip (15.2 KB, 下载次数: 5)

2016-8-27 18:22 上传

点击文件名下载附件

liwenhong

su45 发表于 2016-8-27 18:22

经测试，还是没有达到：答题时，答下一题时，上一题不能修改的要求。但还是十分感谢。我的思路是：在点击“下一题”按钮时，启动“答后不能再修改”代码，但具体我不会操作，麻烦您再费心看看！ ABCD-3.zip (15.02 KB, 下载次数: 1)

2016-8-27 22:23 上传

点击文件名下载附件

su45

另开帖子吧！