|
|
|
|
| ****************************************
| | 2018/12/7 | | | 华东销售额：删除空白列代码，汇总变量J列元 |
|
Sub 删除空白列代码()
Application.ScreenUpdating = False
For i = 1 To 50 '删除第一行“剩余课时”列
If Cells(1, i) = "剩余课时" Then
Columns(i).Delete
End If
Next '删除“剩余课时列代码结束
Dim iC&, x&
iC = Cells(1, 256).End(xlToLeft).Column
For x = iC To 1 Step -1
If Cells(3, x) = "" And Cells(4, x) = "" And Cells(5, x) = "" And Cells(6, x) = "" And Cells(7, x) = "" And Cells(4, x) = "" And Cells(5, x) = "" And Cells(8, x) = "" And Cells(9, x) = "" And Cells(10, x) = "" And Cells(11, x) = "" And Cells(12, x) = "" And Cells(13, x) = "" And Cells(14, x) = "" And Cells(15, x) = "" And Cells(16, x) = "" And Cells(17, x) = "" And Cells(18, x) = "" Then Columns(x).Delete Next x For j = 1 To 40 '寻找“已上课时”列的循环
If Cells(1, j) = "已上课时" Then
ii = Range("A65536").End(xlUp).Row() + 1 '定位到A列最后一行的下一行，ii
For iii = 3 To Range("A65536").End(xlUp).Row()
Cells(ii, j - 1) = "合计："
Cells(ii, j).Value = Application.WorksheetFunction.Sum(Range(Cells(2, j), Cells(iii, j))) '列汇总
Next
End If
Next
Application.ScreenUpdating = True
End Sub
Cells(ii, j).Value = Application.WorksheetFunction.Sum(Range(Cells(2, j), Cells(iii, j))) '列汇总 这句是汇总变量J列的代码，也要给iii赋值： For iii = 3 To Range("A65536").End(xlUp).Row()
|
|
|
|
|
|
|
|
|
|
| ****************************************
| | 2018/12/5 | | | 华东销售额：win10邮箱设置元 |
|
win10邮箱设置： 最重要的是密码不是邮箱登录密码，而是认证密码 4269259hjt |
|
|
|
|
|
|
|
|
|
| ****************************************
| | 2018/12/5 | | | 华东销售额：上网账号和密码及路由IP元 |
|
宽带上网账号和密码： 宽带账号：02982294898密码：a123456
移动路由IP：192.168.1.25 阿里路由IP：192.168.3.20
wifi密码：13609192500hjt |
|
|
|
|
|
|
|
|
|
| ****************************************
| | 2018/12/3 | | | 华东销售额：VBA变量类型缩写元 |
VBA变量类型缩写，这样记忆就太简单了！ 2018-01-18 07:45 来源:Excel之家ExcelHome 原标题：VBA变量类型缩写，这样记忆就太简单了！ 在VBA代码编写过程中，经常可见&@#$之类的符号，这些符号便是变量的简写…… 作为初学者来说，对此往往一头雾水，搞不懂这些简写符号所代表的变量所指…… SO，VBA变量简写如何记忆才简单快速？ 1，$ = String 文本字符串 String第1个字母是 S， 所以请记住，美元s=String 【文本字符串】。 2，& = Long 整数 & 可以看做是Long首字母L的花体字 所以请记住为【长整型数值】。 3，% = Integer 整数 % 是百分比符号，我们可以把它联想为较少的整数【整型数值】。 4，! = Single 单精度小数 ! 笔画只是1竖单笔画，所以请记住为【单精度】。 5，# = Double 双精度小数 # 笔画是2横2竖，所以请记住为【双精度】 6，@ = Currency 货币型4位小数 现实中人们也常用@符号代表价格、单价，所以请记住为【货币型小数】 这样记忆是不是简单多了呢？ |
|
|
|
|
|
|
|
|
|
| ****************************************
| | 2018/12/3 | | | 华东销售额：vba，最后一行，写入单元格元 |
如何使用vba命令定位到最后一行有内容单元格的下一行。
i=range("A65536").end(xlup).row()+1
这个i就是A列你要的行号
此代码只适用于excel 2003
如果是07以上
65536修改为1048576
追答：不懂你的定位是什么概念。
sub aa()
i=range("A65536").end(xlup).row()+1
range("A" & i).Select
msgbox "你需要的是A"& i
end sub
Sub 删除空白列代码()
Application.ScreenUpdating = False
For i = 1 To 50 '删除第一行“剩余课时”列
If Cells(1, i) = "剩余课时" Then
Columns(i).Delete
End If
Next '删除“剩余课时列代码结束 Dim iC&, x&
'Columns("Am").Delete
iC = Cells(1, 256).End(xlToLeft).Column
For x = iC To 1 Step -1
'If Cells(3, x) And Cells(4, x) And Cells(5, x) And Cells(6, x) And Cells(7, x) = "" Then Columns(x).Delete
If Cells(3, x) = "" And Cells(4, x) = "" And Cells(5, x) = "" Then Columns(x).Delete Next x For j = 1 To 40 '寻找“已上课时”列的循环
If Cells(1, j) = "已上课时" Then
ii = Range("A65536").End(xlUp).Row() + 1 '定位到A列最后一行的下一行，ii
Cells(ii, j - 1) = "合计：" End If
Next '删除“剩余课时列代码结束 Application.ScreenUpdating = True
End Sub |
|
|
|
|
|
|
|
|
|
| ****************************************
| | 2018/11/30 | | | 华东销售额：下拉菜单中，关于sheet元 |
|
vba，下拉菜单，去掉sheet后代码： Private Sub UserForm_Initialize()
Dim Myr&, i&
Dim brr, d, k
Set d = CreateObject("Scripting.Dictionary")
Myr = Range("d65536").End(xlUp).Row
brr = Range("c2:c" & Myr)
For i = 1 To UBound(brr)
If brr(i, 1) <> "" Then '加上这一句防止中间有空值
d(brr(i, 1)) = ""
End If
Next
k = d.keys
ComboBox1.List = k
Set d = Nothing End Sub
下拉菜单，指定sheet代码： Private Sub UserForm_Initialize()
Dim Myr&, i&, nL% '下拉菜单部分（姓名，星期，时间）
Dim brr, k
Set d = CreateObject("Scripting.Dictionary")
Myr = Range("v65536").End(xlUp).Row '名字循环
brr = Range("v3:v" & Myr).Value '名字循环
'brr = Sheets("Sheet1").Range("V3:V30").Value
Me.ComboBox2.List = brr
With Sheets("Sheet1") '星期循环
nL = .Range("xfd2").End(xlToLeft).Column
brr = .Range("a2").Resize(1, nL).Value
For i = 2 To 20
If brr(1, i) <> "" Then
Me.ComboBox3.AddItem brr(1, i)
d(brr(1, i)) = i
End If
Next
Myr = .Range("a65536").End(xlUp).Row '时间循环
brr = .Range("a1:a" & Myr).Value
For i = 3 To 22
If brr(i, 1) <> "" Then '加上这一句防止中间有空值
d(brr(i, 1)) = i
Me.ComboBox1.AddItem brr(i, 1)
End If
Next End With ' Set d = Nothing End Sub
|
|
|
|
|
|
|
|
|
|
| ****************************************
| | 2018/11/30 | | | 华东销售额：在查询课时时，删除掉其他行列元 |
|
1. vba，在查询课时时，删除掉其他行列，需要复原，如何实现 2. 现在用2套窗口（学生和老师），合并它 3. 在最后增加合计 4. 去掉sheet10,（不指定sheet，每页都可以用） |
|
|
|
|
|
|
|
|
|
| ****************************************
| | 2018/11/29 | | | 华东销售额：vba问题查改：课程（记录-已确认）元 |
|
课程（记录-已确认）中，月输出无法正确写入，经查：在sheet1中V列W列发生变动，更改OK。 还要注意29行（日期） |
|
|
|
|
|
|
|
|
|
| ****************************************
| | 2018/11/23 | | | 华东销售额：自动生成所有文件名元 |
|
一次性自动生成所有文件名清单的方法
要生成一个文件夹里边所有文件名的清单，其实也十分简单，我们只需要自制一个at批处理命令来生成文件名清单即可。操作方法步骤如下：
一、在其目录里新建一个txt文本文件；
二、然后我们打开这个新建的记事本，然后在里边键入以下代码（大家可以直接复制下面的）； 第一种：
@ECHO OFF
tree /F > Ŀ¼.txt 第二种:
@echo off
dir /b /on >list.txt
三、将以上代码键入或者粘贴到记事本之后，保存为.bat格式；
四、完成之后，我们再点击“演示.bat”即可看到会新生成一个list.txt记事本文件，我们双击打开即可看到该文件夹下所有的文件名清单了
|
|
|
|
|
|
|