摘要：
Case语法 CASE WHEN condition1 THEN result1 WHEN condition2 THEN result2 WHEN conditionN THEN resultN ELSE result END; 预制数据 mysql> select * from person; 阅读全文
摘要：
Sub ttt() t = Timer Application.DisplayAlerts = False '清空数据 Sheets("买卖4").Select Range("B2:K15").Select Selection.ClearContents Sheets("买卖M").Select Range("B2:K15").Select Selection.ClearContents She... 阅读全文
摘要：
Sub shishi() Range("e2") = Split(Range("e1"), "-")(0) '用短横线分隔后取第1个值 End Sub ---------------- Sub shishi() Dim arr(1 To 5) '声明数组 For i = 1 To 5 arr(i) = Range("b" & i + 1) * Range("c" & i + 1) Next... 阅读全文
摘要：
Sub shishi() '执行时间 t = Timer msgBox format(Timer -t,"0.00000") End Sub 阅读全文
摘要：
Sub 改格式() ActiveWorkbook.activesheet.Select For Each Rng In ActiveSheet.UsedRange With Rng .NumberFormatLocal = "G/通用格式" .Value = .Value End With Next Rng End Sub 阅读全文
摘要：
Sub 分拆工作薄() '分拆工作薄到当前文件夹 Dim sht As Worksheet Dim MyBook As Workbook Application.DisplayAlerts = False '表示不显示警告 Set MyBook = ActiveWorkbook For Each sht In MyBook.Sheets sht.Copy ActiveWorkbook.S... 阅读全文
摘要：
'合并多个工作薄，并以工作薄的名字给sheet表命名(每个工作薄只有一张表) Sub test() Dim str As String Dim wb As Workbook str = Dir("C:\Users\Administrator\Desktop\6.3_6.7\*.xls*") For i = 1 To 100 Set wb = Workbooks.Open("C:\User... 阅读全文
摘要：
我修改编码为GBK之后，选择导入部分字段，如下： 这样就不会出现之前的问题了，完美 但是出现一个问题，我数据库里的数据格式是utf8的格式，导入数据使用的是GBK的格式，查询之后没有出现乱码，是为何？？？？？？？？？？ 阅读全文
摘要：
链接：https://pan.baidu.com/s/1G4FJbLbN0oXAu61syWxCOA 提取码：noyz 阅读全文
摘要：
使用SQLCel高效率（速度快，数据完整）的解决了我领导提的问题 “如何更新数据库中原有的数据并插入新的订单数据” 过程如下： 思路：使用字段匹配和修改字段即可解决问题，用时3分钟左右吧，在表已经建好的基础上。 旧数据： 将新数据插入已经建好的表中，如下： 使用SQLCel的字段匹配： 这样去匹配， 阅读全文