销售日记 | 管理登陆
****************************************
2002/1/1晴天华东销售额：VBA查询改进元
                     If xm <> "" Then
                        If d.Exists(xm) Then
                            m = d(xm)
                            arr(3, 1) = xm
                            arr(3, j) = brr(m, ncm + 2)
                        Else
                            arr(3, j) = " /"
                        End If
改成 arr(3, j) = "  "，效果：没有从显示/，为空白。
****************************************
2002/1/1晴天华东销售额：iis搭建网站中碰到的问题元
搭建网站中碰到的问题：
1.安装iis时出错，要安装iis5.1，为了防止下一次出错，把有问题删除。
2.如果gosht系统有问题，安装E盘的，D盘是原始的。
3.安装好iis，并设置指向D盘ASP文件夹，打不开。ping，ip不通，解决方法：执行，开始→程序→装机人员工具→解决局域网共享→开通共享，ping，ip，ok。但是还是打不开网页。
4.关闭防火墙解决了。
5.主页能打开了，但asp程序打不开（403.1禁止访问）。
解决方法：打开“管理工具”的“Internet 信息服务”，右键选择“WEB站点属性”的“主目录”选项卡，把“执行许可”的选项从“无”改为“纯脚本”就好了。 
6.asp打开乱码。允许执行falsh，好了。
****************************************
2002/1/19晴天华东销售额：怎么标注备份元
  1. 怎么标注备份
  2. 现有查询代码繁琐，改进参考，海尔--桌面--窗口系统--多条件查询
****************************************
2002/1/19晴天华东销售额：移动查询完成元

查询时，先运行完代码，要最后出现查询完成。作如下改动：

模块x数据查询
Sheet1.Activate
   [A2:E1000] = ""
   t = UBound(arr1)
    Range("A2:G7").Resize(t) = arr1          '("A2:E18")中的18是指第18列
    UserForm2.TextBox1.Value = ""
   '   从这里移到下面
  Call 删除重复行
    Application.ScreenUpdating = True
     MsgBox "查询完成"
End Sub
****************************************
2002/1/18晴天华东销售额：日期格式统一元

经过网上咨询，解决了日期格式统一问题

http://club.excelhome.net/forum.php?mod=viewthread&tid=1412029&page=1#pid9503748
****************************************
2002/1/12晴天华东销售额：搜索-筛选代码元

Public Sub MySelRows()
Dim cnn, SQL$   '定义数据库连接和SQL语句
Set cnn = CreateObject("adodb.connection")  '创建数据库连接
Set rs = CreateObject("adodb.recordset")   '创建一个数据集保存数据
cnn.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;HDR=yes;IMEX=2';data source=" & ThisWorkbook.FullName
SQL = "select * from  [sheet1$]  where 受理人 Like '%zuoxi%' Or 受理人 Like '&dudao%'"
Set rs = cnn.Execute(SQL)
Range("A2").CopyFromRecordset rs
Set cnn = Nothing
Set rs = Nothing

End Sub
Public Sub tt()
Set cnn = Nothing
Set rs = Nothing
End Sub






Sub 删除行() '数组
    Dim nRow&, m&, Arr(), Brr()
    With Sheet1
        nRow = .Range("a65536").End(xlUp).Row
        Arr = .Range("a2:g" & nRow).Value        '共有G列
        ReDim Brr(1 To nRow, 1 To 7)
        For i = 1 To nRow - 1
            If Arr(i, 5) Like "*zuoxi*" Or Arr(i, 5) Like "*dudao*" Then      '第*列筛选"zuoxi*" Or Arr(i, 5) Like "dudao*"
                m = m + 1
                For j = 1 To 7
                    Brr(m, j) = Arr(i, j)
                Next
            End If
        Next
        .Range("a2:g" & nRow).Value = Brr
    End With
End Sub
'忽略了大写


Sub 删除行2()
Dim c%, i%
c = Cells(Rows.Count, 5).End(3).Row     '取第*列第一次出现的非空单元格的行号
For i = c To 1 Step -1
If Cells(i, 5) Like "*否*" Then
Rows(i).Delete
End If
Next
End Sub
****************************************
2002/1/12晴天华东销售额：思路元

原来一直考虑：筛选出没有字符串（已完成）的数据。

突然想到：筛选出字符串（已完成）的数据，删除此行。


一下豁然开朗，有时要逆向思维，更要考虑更好的方案
****************************************
2002/1/9晴天华东销售额：工作计划完成表元

1. 苏媛的工作计划完成表，要设计VBA。实现查询

  • 把个人的汇总成一个文件  @---完成
  • 每个人一个文件夹，汇总时分别提取指定文件夹里的表格，然后重复下一个文件夹，以实现汇总所有  @---完成

2. 查询：

  • 日期查询（某一天所有人的）
  • 按人名查询（某人所有的）  @---完成
  • 按完成
  • 按未完成（所有的） @---完成
  • 指定时间（某天，某人）
  • 指定时间（某段）
  • 按未完成（某人的）
  • 按未完成（时间段）
  • 单元格完整显示（回车）

 
****************************************
2002/1/8晴天华东销售额：几个问题元

1.网页要修改：名称（华东销售额）

2.自动添加星期

3.搜索功能
****************************************
2018/4/18晴天华东销售额：查询所有人问题元

查询所有，单选任意年级，都ok，但要注意文件名顺序，否则错位。

组选出错。

组选初一、初二：初一无数据，初二显示正常；

组选初一、初三：初一无数据，初三语文显示历史数据（文件名称顺序）；

组选初二、初三：初二无数据，初三显示正常；
  共有日记243篇，每页10篇，分24/25页   9首页 3上页 下页4 尾页: