销售日记V1.0


	销售日记 \| 管理登陆

****************************************

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

****************************************
2019/1/23			华东销售额：vba中的颜色元
1、vb中可以使用的颜色常数不多： vbBlack，0x0，黑色 vbRed，0xFF，红色 vbGreen，0xFF00，绿色 vbYellow，0xFFFF，黄色 vbBlue，0xFF0000，蓝色 vbMagenta，0xFF00FF，紫红色 vbCyan，0xFFFF00，青色 vbWhite，0xFFFFFF，白色 2、另外，还有Windows里面设置的一些系统颜色，这个稍微多一点，但英语对我们就呵呵了 vbScrollBars，0x80000000，滚动条颜色 vbDesktop，0x80000001，桌面颜色 vbActiveTitleBar，0x80000002，活动窗口的标题栏颜色 vbInactiveTitleBar，0x80000003，非活动窗口的标题栏颜色 vbMenuBar，0x80000004，菜单背景色 vbWindowBackground，0x80000005，窗口背景色 vbWindowFrame，0x80000006，窗口框架颜色 vbMenuText，0x80000007，菜单文本颜色 vbWindowText，0x80000008，窗口文本颜色 vbTitleBarText，0x80000009，标题、调整框和滚动箭头的文本颜色 vbActiveBorder，0x8000000A，活动窗口边框颜色 vbInactiveBorder，0x8000000B，非活动窗口边框颜色 vbApplicationWorkspace，0x8000000C，多文档界面 (MDI) 应用程序的背景色 vbHighlight，0x8000000D，控件中选中项目的背景色 vbHighlightText，0x8000000E，控件中选中项目的文本颜色 vbButtonFace，0x8000000F，命令按钮表面阴影颜色 vbButtonShadow，0x80000010，命令按钮边缘阴影颜色 vbGrayText，0x80000011，灰色（无效）文本 vbButtonText，0x80000012，下压按钮文本颜色 vbInactiveCaptionText，0x80000013，非活动标题文本颜色 vb3DHighlight，0x80000014，3-D 显示元素的突出显示颜色 vb3DDKShadow，0x80000015，3-D 显示元素的最深阴影颜色 vb3DLight，0x80000016，vb3Dhighlight 之外最亮的 3-D 颜色 vbInfoText，0x80000017，工具提示文本颜色 vbInfoBackground，0x80000018，工具提示背景色 3、在html语言中可用的颜色常熟就要发放的多，下面给你几个例子

****************************************
2019/1/15			华东销售额：几何画板元
链接：https://pan.baidu.com/s/10bmrGc9NZBZLtEq-QPhlgw 提取码：do6L 几何画板5.06

****************************************
2019/1/15			华东销售额：几何画板元
链接：https://pan.baidu.com/s/10bmrGc9NZBZLtEq-QPhlgw 提取码：do6L 几何画板5.06

****************************************

2019/1/2

华东销售额：vba，查询，出错元

vba，查询，出错原因：

A列，不是最后一行

x = Range("a65536").End(xlUp).Row

改为：

x = Range("b65536").End(xlUp).Row

B列，(姓名)列


	共有日记243篇，每页10篇，分11/25页 9首页 3上页下页4 尾页: