精华内容
下载资源
问答
  • 一、原始数据如下(sheet页名称为:数据源),需要根据B列人员所属组织拆分成每组织一工作。 二、进入VBE编辑页面 三、插入一新的模块。 四、在模块1窗口粘入如下代码 ,保存 、通过【开发者工具】...

    目录

    一、原始数据表如下(sheet页名称为:数据源),需要根据B列人员所属组织拆分成每个组织一个工作表。

    二、进入VBE编辑页面

    三、插入一个新的模块。

    四、在模块1窗口粘入如下代码 ,并保存

    五、通过【开发者工具】,插入窗口按钮

     六、点击【按钮】,选择第一行,继续选择【组织】单元格即可

    七、在第四部粘贴代码进去后,直接点击​ 运行也可以,按提示选择行和单元格,效果一样。

     八、将多个sheet表拆分为独立表格


     

    一、原始数据表如下(sheet页名称为:数据源),需要根据B列人员所属组织拆分成每个组织一个工作表。

     二、进入VBE编辑页面

    1. 通过【开发工具】>>【查看代码】进入编辑页面
    2. 通过【右击】sheet页名称,选择【查看代码】进入编辑页面
    3. 通过ALT+F11进入编辑页

     

    三、插入一个新的模块。

    四、在模块1窗口粘入如下代码 ,并保存

    Sub CFGZB()
        Dim myRange As Variant
        Dim myArray
        Dim titleRange As Range
        Dim title As Variant
        Dim columnNum As Integer
        myRange = Application.InputBox(prompt:="请选择标题行:", Type:=8)
        myArray = WorksheetFunction.Transpose(myRange)
        Set titleRange = Application.InputBox(prompt:="请选择拆分的表头,必须是第一行,且为一个单元格,如:“组织”", Type:=8)
        title = titleRange.Value
        columnNum = titleRange.Column
        Application.ScreenUpdating = False
        Application.DisplayAlerts = False
        Dim i&, Myr&, Arr, num&
        Dim d, k
        For i = Sheets.Count To 1 Step -1
            If Sheets(i).Name <> "数据源" Then
              
            End If
        Next i
        Set d = CreateObject("Scripting.Dictionary")
        Myr = Worksheets("数据源").UsedRange.Rows.Count
        Arr = Worksheets("数据源").Range(Cells(2, columnNum), Cells(Myr, columnNum))
        For i = 1 To UBound(Arr)
            d(Arr(i, 1)) = ""
        Next
        k = d.keys
        For i = 0 To UBound(k)
            Set conn = CreateObject("adodb.connection")
            conn.Open "provider=Microsoft.ACE.OLEDB.12.0;extended properties=Excel 12.0;Data Source=" & ThisWorkbook.FullName
            Sql = "select * from [数据源$] where " & title & " = '" & k(i) & "'"
            Worksheets.Add after:=Sheets(Sheets.Count)
            With ActiveSheet
                .Name = k(i)
                For num = 1 To UBound(myArray)
                    .Cells(1, num) = myArray(num, 1)
                Next num
                .Range("A2").CopyFromRecordset conn.Execute(Sql)
            End With
            Sheets(1).Select
            Sheets(1).Cells.Select
            Selection.Copy
            Worksheets(Sheets.Count).Activate
            ActiveSheet.Cells.Select
            Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
            Application.CutCopyMode = False
        Next i
        conn.Close
        Set conn = Nothing
        Application.DisplayAlerts = True
        Application.ScreenUpdating = True
    End Sub
    

    五、通过【开发者工具】,插入窗口按钮

     六、点击【按钮】,选择第一行,继续选择【组织】单元格即可

     

    七、在第四部粘贴代码进去后,直接点击 运行也可以,按提示选择行和单元格,效果一样。

     八、将多个sheet表拆分为独立表格

    1. 如果要将已经拆分为多个sheet页的excel表格中的sheet页拆分为多个独立的表格,只需要在编辑其中新增模块,粘贴如下代码并执行,等待片刻即可
    Private Sub 分拆工作表()
    Dim sht As Worksheet
    Dim MyBook As Workbook
    Set MyBook = ActiveWorkbook
    For Each sht In MyBook.Sheets
    sht.Copy
    ActiveWorkbook.SaveAs Filename:=MyBook.Path & "\" & sht.Name, FileFormat:=xlNormal '将工作簿另存为EXCEL默认格式
    ActiveWorkbook.Close
    Next
    MsgBox "文件已经被分拆完毕!"
    End Sub

     

    展开全文
  • MySQL数据中带OR的多条件查询 OR关键字可以联合多个条件进行查询。使用OR关键字时: 条件 1)只要符合这几查询条件的其中一个条件,这样的记录就会被查询出来。 2)如果不符合这些查询条件中的任何一条,这样的...

    MySQL数据表中带OR的多条件查询

     

    OR关键字可以联合多个条件进行查询。使用OR关键字时:

    条件

    1) 只要符合这几个查询条件的其中一个条件,这样的记录就会被查询出来。

    2) 如果不符合这些查询条件中的任何一条,这样的记录将被排除掉。

    语法格式

    OR关键字的基本语法格式如下:

    条件表达式1 OR 条件表达式2 [...OR 条件表达式n]

    OR可以连接两个条件表达式,同时可以使用多个OR关键字,以连接更多的条件表达式。

    实例

    实例1

    使用OR关键字查询employee表中d_id为1001,或者sex为'男'的记录。SELECT语句的代码如下:

    SELECT * FROM employee WHERE d_id=1001 OR sex LIKE '男';

    可将d_id为1001的记录被查询了出来,同时,sex为'男'的记录也被查询了出来。

    这说明,使用OR关键字时,只要符合多个条件中的任意一个条件,就可以被查询出来。

    实例2

    使用OR关键字查询employee表中的记录。查询条件为num取值在(1,2,3)集合中,或者age的范围为24~26,或者homeaddress的取值中包含“厦门市”。SELECT语句的代码如下:

    SELECT * FROM employee WHERE

             num IN(1,2,3) OR age BETWEEN 24 AND 26

             OR homeaddress LIK '%厦门市%';

    结果显示,只要符合这3个条件表达式中的任意一个条件,这样的记录就会被查询出来。

     

    OR可以和AND一起使用。当两者一起使用时,AND要比OR先运算。

    实例3

    使用OR和AND关键字查询employee表中的记录。SELECT语句的代码如下:

     

    SELECT * FROM employee WHERE num IN(1,3,4) AND age=25 OR sex='女';

    结果显示,只要符合num IN(1,3,4) AND age=25的记录或者符合sex='女'的记录都被显示了出来。

    如果将条件的顺序换一下,将SELECT语句变成下面的情况:

    SELECT * FROM employee WHERE sex='女' OR num IN(1,3,4) AND age=25;

    结果显示,与前面的SELECT语句的执行结果是一样的。

    这说明,AND关键字前后的条件先结合,然后再与OR关键字的条件相结合。也就是说,AND要比OR先运算。

    提示

    AND和OR关键字可以连接条件表达式。这些条件表达式中可以使用“=”、“>”等操作符,也可以使用IN、BETWEEN AND和LIKE等关键字,而且,LIKE关键字匹配字符串时可以使用“%”和“_”等通配符。

    展开全文
  • 今天写项目遇到一问题,就是有两张A,B,还有一张A-B关系,两张的关系是通过A-B关系一一对应的,现在我有需求就是,我现在从A出发,条件查询出来A中跟B关联的数据, 直接上SQL语句 SELECT ...

    今天写项目遇到一个问题,就是有两张表A表,B表,还有一张A-B关系表,两张表的关系是通过A-B关系表一一对应的,现在我有个需求就是,我现在从A表出发,条件查询出来A表中跟B表关联的数据,

    直接上SQL语句

    SELECT 
    	di.id,
    	di.CODE,
    	di.device_name,
    	di.camera_type,
    	di.decive_contour,
    	di.rg_group_id,
    	di.create_time
    	FROM
    	device_info di
    WHERE
    	di.is_del = 0 and ( SELECT count(TRAFFIC_LIGHT_ID) FROM rg_light_camera_link WHERE di.ID=CAMERA_ID ) = 0
    ORDER BY
    	di.create_time DESC 
    	LIMIT 0,
    100

    首先用子查询,最后再用子查询作为判断条件。

    展开全文
  • 本例介绍在excel中如何将一工作根据条件拆分成多工作。 注意:很多朋友反映sheets(i).delete这句代码出错,要注意下面第一步骤,要拆分的数据工作名称为“数据源”,而不是你新建工作簿时的sheet1...

    本例介绍在excel中如何将一个工作表根据条件拆分成多个工作表。

    注意:很多朋友反映sheets(i).delete这句代码出错,要注意下面第一个步骤,要拆分的数据工作表名称为“数据源”,而不是你新建工作簿时的sheet1这种。手动改成“数据源”即可。

    操作步骤:

    原始数据表如下(名称为:数据源),需要根据B列人员姓名拆分成每个人一个工作表。

    点击【开发工具】-【Visual Basic】或者Alt+F11的快捷键进入VBE编辑界面。

    如下图所示插入一个新的模块。

    如下图,粘贴下列代码在模块中:

    复制内容到剪贴板
    1. Sub CFGZB()   
    2.   
    3.     Dim myRange As Variant   
    4.   
    5.     Dim myArray   
    6.   
    7.     Dim titleRange As Range   
    8.   
    9.     Dim title As String   
    10.   
    11.     Dim columnNum As Integer   
    12.   
    13.     myRange = Application.InputBox(prompt:="请选择标题行:", Type:=8)   
    14.   
    15.     myArray = WorksheetFunction.Transpose(myRange)   
    16.   
    17.     Set titleRange = Application.InputBox(prompt:="请选择拆分的表头,必须是第一行,且为一个单元格,如:“姓名”", Type:=8)   
    18.   
    19.     title = titleRange.Value   
    20.   
    21.     columnNum = titleRange.Column   
    22.   
    23.     Application.ScreenUpdating = False   
    24.   
    25.     Application.DisplayAlerts = False   
    26.   
    27.     Dim i&, Myr&, Arr, num&   
    28.   
    29.     Dim d, k   
    30.   
    31.     For i = Sheets.Count To 1 Step -1   
    32.   
    33.         If Sheets(i).Name <> "数据源" Then   
    34.   
    35.             Sheets(i).Delete   
    36.   
    37.         End If   
    38.   
    39.     Next i   
    40.   
    41.     Set d = CreateObject("Scripting.Dictionary")   
    42.   
    43.     Myr = Worksheets("数据源").UsedRange.Rows.Count   
    44.   
    45.     Arr = Worksheets("数据源").Range(Cells(2, columnNum), Cells(Myr, columnNum))   
    46.   
    47.     For i = 1 To UBound(Arr)   
    48.   
    49.         d(Arr(i, 1)) = ""  
    50.   
    51.     Next   
    52.   
    53.     k = d.keys   
    54.   
    55.     For i = 0 To UBound(k)   
    56.   
    57.         Set conn = CreateObject("adodb.connection")   
    58.   
    59.         conn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName   
    60.   
    61.         Sql = "select * from [数据源$] where " & title & " = '" & k(i) & "'"  
    62.   
    63.         Worksheets.Add after:=Sheets(Sheets.Count)   
    64.   
    65.         With ActiveSheet   
    66.   
    67.             .Name = k(i)   
    68.   
    69.             For num = 1 To UBound(myArray)   
    70.   
    71.                 .Cells(1, num) = myArray(num, 1)   
    72.   
    73.             Next num   
    74.   
    75.             .Range("A2").CopyFromRecordset conn.Execute(Sql)   
    76.   
    77.         End With   
    78.   
    79.         Sheets(1).Select   
    80.   
    81.         Sheets(1).Cells.Select   
    82.   
    83.         Selection.Copy   
    84.   
    85.         Worksheets(Sheets.Count).Activate   
    86.   
    87.         ActiveSheet.Cells.Select   
    88.   
    89.         Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _   
    90.   
    91.                                SkipBlanks:=False, Transpose:=False   
    92.   
    93.         Application.CutCopyMode = False   
    94.   
    95.     Next i   
    96.   
    97.     conn.Close   
    98.   
    99.     Set conn = Nothing   
    100.   
    101.     Application.DisplayAlerts = True   
    102.   
    103.     Application.ScreenUpdating = True   
    104.   
    105. End Sub   
    106.   

    5、如下图所示,插入一个控件按钮,并指定宏到刚才插入的模块代码。

    6、点击插入的按钮控件,根据提示选择标题行和要拆分的列字段,本例选择“姓名”字段拆分,当然也可以选择C列的“名称”进行拆分,看实际需求。

    7、代码运行完毕后在工作簿后面会出现很多工作表,每个工作表都是单独一个人的数据。具体如下图所示:

    8、注意:

    1)原始数据表要从第一行开始有数据,并且不能有合并单元格;

    2)打开工作簿时需要开启宏,否则将无法运行代码。

    以上就是excel将一个工作表根据条件拆分成多个工作表图文教程,希望能对大家有所帮助!

    展开全文
  • spring data jpa 多条件查询

    万次阅读 2017-01-24 09:32:49
    spring data jpa 多条件查询
  • 分页查询是后台项目中最常见的一种操作,在一对多(one to many)的关系中,如何根据主进行分页是一较为棘手的问题,尤其是查询条件既包含主又包含从/关联的。一般情况下,不是查询结果条数不正确,就是一...
  • 张表,传入一ID,从第一张表开始查询跟这数据相同的,然后根据查询到的数据在去别的中查询,最后只输出一张从Id开始查询的有关的的数据,该怎写啊! 我写了两种写法,都不对,请问该怎写啊!![图片说明]...
  • 数据库中的约束条件

    千次阅读 2018-07-04 15:50:25
    的约束条件(CONSTRAINT)1)主键约束 主键(Primary Key,简称PK) 特征: 主键约束=不能重复+不能为空 一张中只能存在一主键,主键可以是一列,也可以是多列组合(联合主键)。 主键约束定义方式有两种: 列级...
  • 个表是通过id来关联的,我需要通过B里面的条件来找到A里面的符合条件的id来更新A里面的c字段内容。 假设B里面的d=5来做为选择id的条件。 请问如何实现?查询的语句我知道,但是UPDATE我不知道。 查询...
  • 查询数据指从数据库中获取所需要的数据。查询数据是数据库操作中最常用,也是最重要的操作。用户可以根据自己对数据的需求,使用不同的查询方式。通过不同的查询方式,可以获得不同的数据。...2、在单上查询数据
  • 转速为0,并且上传数据间隔大于5分钟 case when round (( UNIX_TIMESTAMP ( NOW ()) - UNIX_TIMESTAMP ( t_location.update_time )) / 60 ) > 5 and t_location.tachometer != 0 then 2 else 1 end as '...
  • 今天看了一下匿名块、函数、过程等,想起原来用过光标cursor及fetch,也是快忘得差不多了,那今天就来试试把一个表里面的数据拷贝到另外一结构完全相同的里面,不过,有一个条件就是原的ID必须为5的倍数的才...
  • 有a b c d e 五个表 a有id name address三字段, b c d e都拥有相同的字段 id name acore 查询的时候 我需要显示出来id name address 以及b c d e四个表的acore数据 然后还要对四个表的acore字段里的数据求和...
  • Sql Server 中将由逗号“,”分割的一字符串,转换为一个表应用与 in 条件 select * from tablenmae where id in(1,2,3)这样的语句和常用,但是如果in 后面的 1,2,3是变量怎么办呢,一般会用字符串连接的...
  • 5.直接把一个表从一台服务器到另一台服务器,根据条件更新另一台服务器 https://blog.csdn.net/xiaohe6688/article/details/78952909 如果要通过慢速网络从远程计算机复制数据库,则可以使用以下命令: --...
  • 查询班级下面所有符合条件的学生: 结构: 班级: 学生: 1、长写错误SQL:select c.*,s.* from class c left join student s on c.id = s.class_id where c.deleted = 0 and s.deleted =0 返回结果: ...
  • 团队中每成员都有不同的工作安排,为了方便管理,对不同成员进行单独的AP管理固然重要,但是当AP积累到一定程度时,每天去AP中查询时就会很耗费时间,并且容易遗漏一些AP。那么能不能实现既可以对每成员的AP...
  • 条件是 A和D联合查询 条件是 DTypeNo等于传进来的TypeNo And A 的 Count != (C Status = 0 的B子集合(B子RequisitionDetailId=AID)B Count字段统计和 加上 C Status = 1 的B子集合(B子...
  • TS科普17 有条件访问

    万次阅读 2015-12-03 21:16:33
    条件访问(CA)提供一或多CA 系统及其EMM 流之间的关系以及任何与它们有关的特殊参数。 该在一或多具有以下句法的分段中包含。它可以被分割占用多分段。
  • 当然原生sql 直接写就行了 select * from user where id > score
  • 效果预览(右侧对比 =MIN(X1:X2)) 实现: 1、选中数据首行点击条件格式——新建...5、成功,跟同事装逼 公式为什么这样写我也不太清楚,官网也没找到对这各种公式的详解,工作繁忙,功能实现了,先这么...
  • MySQL创建和约束条件(四)

    千次阅读 2019-11-15 14:09:16
    上一章时,我们学习了 MySQL的数据类型, 就像Java 知道了 int,string 之后,就该学习类了, 现在,我们知道了数据类型,就该去学习 Table了。 在创建时,一定要在 database 里面进行创建, 既先使用 use ...
  • 关系模型中设计时的约束条件

    千次阅读 2019-02-26 15:27:19
    设计时,可对表中的一字段或多字段的组合设置约束条件,不满足约束条件的数据将被数据库管理系统拒绝录入。约束分为级约束和字段级约束,级约束是对表中几字段的约束,字段级约束是对表中一字段的约.....
  • Oracle中left join中右的限制条件

    千次阅读 2016-10-19 21:58:19
    Oracle中left join中右的限制条件
  • 最近项目中有需求,H5页面:h5和组织的关联关系= 1:n 如果有多绑定关系时取关联id最小的关联关系,要求写出支持按组织名称或页面名称过滤的分页查询SQL h5页面 CREATE TABLE `h5page` ( `Id` ...
  • 使用版本Oracle 12c试验:学生信息 student(学号、姓名、性别、出生日期、家庭住址)一、建立create table table_name(column_name datatype,column datatype......);datatype(数据类型)字符类型:char类型...
  • ,多条件查询之if else 语句

    千次阅读 2012-03-26 10:57:13
    如果是从一个表中按多个条件进行查询,会选择怎样的if else 语句呢? 最容易想的是层层嵌套,地毯式搜索,在两个条件的情况下也许这种方法是行的通的,但是条件增加到五个以上就得n!种情况,此时,光if else ...
  • 数据库多联查 Db::table('think_artist') -&amp;gt;alias('a') // alias 表示命名数据库的别称为a -&amp;gt;join('think_work w','a.id = w.artist_id') -&amp;gt;join('think_card c','a.card_id = ...
  • 标识都有一条记录 每条记录如下: a-->1 a-->2 a-->3 a-->4 a-->5 a-->6 b-->3 b-->5 b-->6 c-->4 c-->5 c-->6 那么我现在要收索同时拥有标识有4,5,6的商店:搜出来的...
  • 比如我现在有两个表A和B,A中有字段 a b 。B中有字段 c d。那么我现在想查询这样的内容。A中字段a=2的所有内容,和B中字段c=5的内容。请问我应该怎样写成一条查询语句。求大神。。。。

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 1,149,631
精华内容 459,852
关键字:

并表的5个条件