日记首页  | 列表 | 添加日记  | 管理登陆  | 搜索 | 退出 直达底部 
****************************************
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《文档下载（百度，豆丁）》
文档下载网址：（百度文库，豆丁）

密码重置成功， 新密码为：239a34
****************************************
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.请幼儿园和看护点结合各自实际情况，认真填表。于明天早上十点前发到群里。不用回复，以免覆盖。
****************************************
2019/3/18《文档下载网址》

文档下载网址：（百度文库，豆丁）

http://www.18wk.com/

 
****************************************
2019/2/22《iPhone ID》
iPhone id
670259@qq.com
Su72***9
****************************************
2019/1/23《vba 求和 SUM》

     Cells(k, 10).Value = Application.WorksheetFunction.Sum(Range(Cells(k, 3), Cells(k, 8)))               '行汇总。10列的k行为统计k行3列到8列，求和。

     Cells(ii, j).Value = Application.WorksheetFunction.Sum(Range(Cells(2, j), Cells(iii, j)))                '列汇总。

Sub 合计()
  Application.ScreenUpdating = False
     Sheet1.Activate
     Dim x As Long
         x = Sheet1.Range("A65536").End(xlUp).Row + 1
     Cells(x, 13).Value = "=SUM(c1:h1000）"
     Cells(x, 12).Value = "总计："
         'MsgBox "合计完成！"
         Cells(x, 12).Font.Color = vbRed   '设置字体颜色
       Cells(x, 12).Font.Bold = True   '加粗字体
          Cells(x, 13).Font.Color = vbRed   '设置字体颜色
       Cells(x, 13).Font.Bold = True   '加粗字体

  Application.ScreenUpdating = True
End Sub

Sub 求和()
Application.ScreenUpdating = False
   
   k = Range("a65536").End(xlUp).Row()     '定位到A列最后一行，iii
     Cells(k, 10).Value = Application.WorksheetFunction.Sum(Range(Cells(k, 3), Cells(k, 8)))               '行汇总
              Cells(k, 10).Font.Color = vbRed   '设置字体颜色
  '     Cells(k, 10).Font.Bold = True   '加粗字体
Application.ScreenUpdating = True
End Sub
  共有日记407篇，每页10篇，分27/41页   9首页 3上页 下页4 尾页:  转到：