
2:如果单元格区域不规则可以用下面代码:
Private Sub AddCheckBoxesInRange()
On Error Resume Next
Dim cell As Range
Dim CurrentRange As Range
Set CurrentRange = Selection
CurrentRange.NumberFormatLocal = ""
Application.ScreenUpdating = False
For Each cell In CurrentRange
ActiveSheet.CheckBoxes.Add(cell.Left, cell.Top, cell.Height, cell.Height).Select
With Selection
.Value = xlOff
.LinkedCell = cell.Address
.Display3DShading = False
.Characters.Text = ""
End With
Next
CurrentRange.Select
Application.ScreenUpdating = True
Set cell = Nothing
End Sub
excel加边框步骤如下:1、首先打开Excel表格之后,先选中Excel中的一些表格。
2、然后点击上面菜单里面的田字格,在开始选项下位置。
3、接着在d出来的边框格式里面可以选择您要添加的边框线的位置。
4、或者选中表格的时候可以右击选择设置单元格格式。
5、接下来选择边框这个选项。
6、最后在边框的里面有外部边框、内部边框、对角边框等等样式可以选择。
解决的方法如下:1、打开excel新建一个工作表,单击选择excel菜单栏中的“数据”选项卡,选择“自文本”,在d出的对话框中找到需要导入的文本文件,点击“确定”。
2、在d出的“文本导入向导”对话框中,选择“分隔符号”,然后点击“下一步”。
3、可以选择不同的分隔符号,并能实时预览分隔效果。因为文本文件是用空格来分列的,所以选择“空格”作为分隔符号。然后点击“下一步”。
4、对导入的文本文件进行列数据格式设置,还可以不导入某些数据。选择好了之后,单击“完成”按钮,d出“导入数据”对话框,选择数据的放置位置,在这里选择“现有工作表”,然后单击“确定”,想要的数据已经导入到工作表中了。
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)