[已解决]快速输入问题

本拉灯

基础输入金额，在表一相应数据前面自动打钩。
工作表.rar (7.52 KB, 下载次数: 17)

2017-7-2 12:33 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

superslow

2017-7-13 16:01

确实那个勾选的是用字体控制的，不太好，换个别的吧，我这用*代替了，偷个懒在D\E列添加了辅助单元格，你看看附件能用不？

跳转到最佳答案楼层

本拉灯

不要沉

大灰狼1976

你那个þ不是常用字符，代码里面不会被正确识别。
建议用复选框来表示，比较容易实现。

大灰狼1976

附件请测试

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Count > 1 Then Exit Sub
   
3. If Target.Address <> [c12].Address Then Exit Sub
   
4. Dim i&, n&, m&
   
5. For i = 1 To 4
   
6.   Sheets(2).CheckBoxes("Check Box " & i).Value = False
   
7. Next i
   
8. If Target = "" Then Exit Sub
   
9. m = Target
   
10. Select Case m
    
11.   Case 9 To 12
    
12.     n = 4
    
13.   Case 6 To 9
    
14.     n = 3
    
15.   Case 3 To 6
    
16.     n = 2
    
17.   Case 1 To 3
    
18.     n = 1
    
19. End Select
    
20. Sheets(2).CheckBoxes("Check Box " & n).Value = True
    
21. End Sub

复制代码

superslow

确实那个勾选的是用字体控制的，不太好，换个别的吧，我这用*代替了，偷个懒在D\E列添加了辅助单元格，你看看附件能用不？