|
|
|
|
| ****************************************
| | 2019/8/27 | 《微信，随风，账号密码》 |
- 微信号：sufen126
- 密码：42***59hjt
- 随风
|
|
|
|
|
|
|
|
|
|
| ****************************************
| | 2019/7/22 | 《Kindle转换格式》 |
教程：
以下是目前国内最简单的电子书转换文本格式的方法 无需任何软件,直接在浏览器里就能把事办了！ txt书籍可以自动划分章节目录
用到的工具是http://lebook.me |
|
|
|
|
|
|
|
|
|
|
| ****************************************
| | 2019/7/21 | 《txt转换格式》 |
|
txt转换格式：
http://cn.epubee.com/
|
|
|
|
|
|
|
|
|
|
| ****************************************
| | 2019/7/7 | 《ps精简版》 |
|
ps精简版 http://www.downza.cn/soft/27536.html
下载速度：4m/s
|
|
|
|
|
|
|
|
|
|
| ****************************************
| | 2019/6/9 | 《显示乱码的解决方案》 |
微信账单显示乱码的解决方案https://www.zhuoshixiong.com/article/chat-luanma-solution-0514.html
|
|
|
|
|
|
|
|
|
|
| ****************************************
| | 2019/6/7 | 《VBA 单元格，颜色，代码显示》 |
sub tt()
If Selection.Count = 1 Then
MsgBox Selection.Interior.ColorIndex
End If
end sub
单元格，颜色，代码显示
|
|
|
|
|
|
|
|
|
|
| ****************************************
| | 2019/6/5 | 《文档下载（百度，豆丁）》 |
|
文档下载网址：（百度文库，豆丁）
|
|
|
|
|
|
|
|
|
|
| ****************************************
| | 2019/5/6 | 《用VBA 删除指定列名的列》 |
|
sub test11
for j = Cells(Rows.Count, 1).End(xlUp).Row to 1 step -1
if cells(1,j)="列名" then
columns(j).delete
end if
next
end sub |
实例，运用在《查询》中
Sub 删除指定列名列()
For j = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
If Cells(1, j) = "剩余课时" Then
Columns(j).Delete
End If
Next
For k = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
If Cells(1, k) = "结余" Then
Columns(k).Delete
End If
Next
For l = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
If Cells(1, l) = "次数" Then
Columns(l).Delete
End If
Next
End Sub
|
|
|
|
|
|
|
|
|
|
| ****************************************
| | 2019/5/5 | 《列宽全部自适应》 |
假设我有N列数据，我想让这N列的数据，可以自动匹配合适的列宽，应该如何编写程序哦？
只需一句vba，所有的列宽全部自适应
sub AutocolsFit()
Columns.EntireColumn.AutoFit
end sub
|
|
|
|
|
|
|