|
|
|
|
| ****************************************
| | 2019/9/11 | 《VBA 复制，保留格式》 |
|
2者的区别是：1.复制后清除格式。2.复制，保留原格式
Call E8数据查询8月 k8 = Sheets("汇总").Range("A65536").End(xlUp).Row() + 5 Sheets("汇总").Range("a" & k8 & ":ay200").Value = Sheets("草稿").Range("A1:ay200").Value Call E8数据查询5月 Sheets("草稿").Range("A1:ay200").Copy Destination:=Sheets("汇总").Range("a" & k8)
|
|
|
|
|
|
|
|
|
|
| ****************************************
| | 2019/9/11 | 《VBA如何自动调整列宽》 |
|
Range("A1:ay60").Columns.AutoFit
|
|
|
|
|
|
|
|
|
|
| ****************************************
| | 2019/9/11 | 《vba中怎么清空工作表中的数据》 |
比如你要清空A1：B16单元格数据，用 Range("A1:B16").ClearContents
比如你要清空整个工作表数据用 Cells.ClearContents
既要清空数据，又要清除格式 把 ClearContents 改成 Clear
|
|
|
|
|
|
|
|
|
|
| ****************************************
| | 2019/9/4 | 《利用VBA代码进行替换单元格内字符串的操作方法实例》 |
|
利用VBA代码进行替换单元格内字符串的操作方法实例
Sub MyReplace()
Range("A1:Ay15").Replace "1", "语文"
Range("A1:Ay15").Replace "2", "数学"
Range("A1:Ay15").Replace "3", "英语"
Range("A1:Ay15").Replace "4", "典范"
Range("A1:Ay15").Replace "5", "科学"
Range("A1:Ay15").Replace "6", "政治"
End Sub
|
|
|
|
|
|
|
|
|
|
| ****************************************
| | 2019/8/30 | 《POP3/SMTP服务》 |
|
请在客户端密码框输入授权码，此授权码只显示一次。 授权码: 4269259hjt
已删除，重新设置
|
|
|
|
|
|
|
|
|
|
| ****************************************
| | 2019/8/27 | 《微信随风的电话号+iPad mini ID账号密码》 |
|
微信随风，18092509970. iPad mini.账号：lk2lklk@163.com 密码：Sy721029
|
|
|
|
|
|
|
|
|
|
| ****************************************
| | 2019/8/27 | 《微信，随风，账号密码》 |
- 微信号：sufen126
- 密码：42***59hjt
- 随风
|
|
|
|
|
|
|
|
|
|
| ****************************************
| | 2019/7/22 | 《Kindle转换格式》 |
教程：
以下是目前国内最简单的电子书转换文本格式的方法 无需任何软件,直接在浏览器里就能把事办了！ txt书籍可以自动划分章节目录
用到的工具是http://lebook.me |
|
|
|
|
|
|
|
|
|
|
| ****************************************
| | 2019/7/21 | 《txt转换格式》 |
|
txt转换格式：
http://cn.epubee.com/
|
|
|
|
|
|
|