说明: 这里是一段准备加密的内容 Private Sub MiDu_Change() On Error Resume Next 防错,这个只要这一句就行了,放在最前面 If MiDu.Text > 255 Then MiDu.Text = MiDu.Text Mod 256 End Sub <weixin_45263359> 在 上传 | 大小:7168
说明: 文件类型_Excel xls例子 For i = 1 To xlBook.Worksheets("Sheet1").UsedRange.Rows.Count Sheet1 的总行数 For n = 1 To xlBook.Worksheets("Sheet1").UsedRange.Columns.Count Sheet1 的总列数 <weixin_45263359> 在 上传 | 大小:8192