|
|
|
|
| ****************************************
| | 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
|
|
|
|
|
|
|
|
|
|
| ****************************************
| | 2019/3/26 | 《幼儿园》 |
|
各幼儿园及看护点： 根据市教育局《关于开展2019年幼儿园园长任职资格培训统计工作的通知》（市教办发[2019]61号）要求，现就做好2019年我区幼儿园园长任职资格培训参训学员统计工作通知如下： 一、统计范围 1.尚未参加幼儿园园长任职资格培训的公（民）办园长 2.未取得幼儿园园长任职资格培训合格证书的看护点主要负责人（看护点主要负责人培训将根据市局安排另行通知） 3.已正式退休、未达到退休年龄但退居二线以及调离教育系统人员不在本次统计范围内 二、有关要求 1.请报名参加幼儿园园长任职资格培训人员登录陕西省中小学校长、幼儿园园长培训管理系统完成注册工作（网址：http://xyzpx.sneducloud.com) 。已经完成注册的，无需重复注册。 2.参加任职资格培训的情况将作为幼儿园规范办园行为四级督查机制的主要内容之一和园长任用、晋级、评优、考核的重要依据。 3.请幼儿园和看护点结合各自实际情况，认真填表。于明天早上十点前发到群里。不用回复，以免覆盖。
|
|
|
|
|
|
|