[已解决]如何在小方格里面打钩？

chenminqee

如题。
此问题一直未解决。

最佳答案

月排行榜 / 总排行榜

zjdh

2012-12-20 18:23

chenminqee 发表于 2012-12-20 17:54
但是那个边框有几个字去不掉啊，那还不是一样会遮挡掉我原本的内容了吗/

跳转到最佳答案楼层

hvail

开发工具——插入——复选框

水吉果果

给你推荐个帖子http://www.excelpx.com/forum.php?mod=viewthread&tid=146677
两种方法：1.复选框方法，如2楼所示；
                  2.特殊字符方法，如3楼所示；

chenminqee

水吉果果 发表于 2012-12-20 17:22
给你推荐个帖子http://www.excelpx.com/forum.php?mod=viewthread&tid=146677
两种方法：1.复选框方法，如 ...

但是那个边框有几个字去不掉啊，那还不是一样会遮挡掉我原本的内容了吗/

zjdh

chenminqee 发表于 2012-12-20 17:54
但是那个边框有几个字去不掉啊，那还不是一样会遮挡掉我原本的内容了吗/

BAIXINGR

你可以编辑复选框，把自删除不就行了

无聊的疯子

可以这样


代码如下

1. 
   
2. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
3. Dim S As String
   
4. With Target
   
5.   If .Count > 1 Then Exit Sub     '选择的单元格个数大于 1 则退出
   
6.   If Len(.Value) = 0 Then Exit Sub  '选择的单元格中没内容 则退出
   
7.   If Intersect(Range("A3:A10"), Target) Is Nothing Then Exit Sub
   
8.   '选择的单元格地址不在 A3:A10 中,则退出
   
9.   
   
10.   If .Characters(1, 1).Font.Name = "宋体" Then    '如果第一个字 的字体名字是 宋体 ,则执行下面的代码
    
11.      .Value = Replace(.Value, "□", "R", 1)       '将 方框 替换为 R
    
12.     .Characters(1, 1).Font.Name = "Wingdings 2"   '设置第一个字字体为 "Wingdings 2
    
13.     .Characters(2, Len(.Value) - 1).Font.Name = "宋体"    '设置其它字字体为 宋体
    
14.   Else
    
15.     .Value = Replace(.Value, "R", "□", 1)      '将 R 替换为 方框
    
16.     .Characters(1, Len(.Value)).Font.Name = "宋体"  '设置第一个字字体为 宋体
    
17.   End If
    
18. End With
    
19. End Sub
    
20. Sub 生成空方框()
    
21. Dim Rg As Range
    
22.   For Each Rg In Range("A3:A10")    '指定生成区域
    
23.     Rg.Value = "□" & Rg.Value      '在内容前添加  方框
    
24.   Next
    
25. End Sub
    

复制代码