[不指定 2019/03/24 15:04 | by 吕进 ]

逐梦高考,前程似锦

[不指定 2020/07/06 08:29 | by 吕进 | Via 本站原创 ]
点击在新窗口中浏览此图片
2020年高考即将如约而至
厉兵秣马扬斗志
学子踏上新征程
曾经期盼的远方
不知不觉即将抵达
而更大的世界
正逐渐向学子们展现
愿西大附中的高三学子
不忘初心,自信如一
逐梦高考,前程似锦

高考倒计时4天,附中致高三家长们

[不指定 2020/07/03 08:59 | by 吕进 | Via 本站原创 ]
亲爱的各位家长:

你们好!高考是一个特殊的战场,在关键的冲刺阶段,孩子们如何安排饮食、作息,家长们又如何给孩子营造一个宽松舒适的环境呢?今天高2020级年组来为大家一一梳理:


一、心态篇:

考前家长的“忌语”:


别紧张;


好好考;


要对得起爸爸妈妈;


你看人家某某多努力;


考不好就别回来见我;


高考关系到你一辈子的前途……


以上话语一定要尽量避免!


1、平常心对待

CSS:父元素下第一个或最后一个字元素

[不指定 2020/06/27 15:44 | by 吕进 | Via 本站原创 ]
假设有以下html代码——
<div id="zuowen">
<p>1</p>
<p>2</p>
<p>3</p>
<p>4</p>
<p>5</p>
</div>
因P元素与P 元素之间的间距较大,差不多是正常值的2倍;这时候我们需要对div下的第一个P元素和最后一个P元素分别进行设计。
第一个P元素:p:first-child
最后一个P元素:p:last-child【p:last-child 等同于 p:nth-last-child(1)
#zuowen > P{
font-family:"Microsoft YaHei", Helvetica, Arial, sans-serif;  
font-size:1.0em;
line-height:2em;
word-wrap:break-word; /*自动换行*/
word-break:break-all; /*自动换行*/
text-indent:2em;
margin-top:-0.9em;
margin-bottom:-0.9em;
color:#443D44;
padding:0px 2px;
}

#zuowen > p:first-child{  /* div下的第一个P元素 */
margin-top:0px;
}

#zuowen > p:last-child{  /* div下的最后一个P元素 */
margin-bottom:0px;
}
first-child和last-child同样适用于TABLE下在TR,UL元素下的LI等。
Tags: ,

EXCEL宏:用字典代替Vlookup

[不指定 2020/06/18 06:18 | by 吕进 | Via csdn ]
Vlookup,在vba中一般用Application.Vlookup来实现,但总归要通过循环完成,如有不匹配的还报错,感觉效率不高。这里直接上几个用字典替代vlookup的方法。
方法一(经测试,3000行数据匹配,只需0.0156秒):
Sub VLOOKUP_01()
    Dim t As Date
    t = Timer
    Application.ScreenUpdating = False
    Sheets("DD").Range("AE2:AF10000").Clear
    Set ddcl = Sheets("数据源")
    Set dd = Sheets("目标表")
    
    Dim data, temp, arr, brr
    Dim d, v
    Dim i&, k&
    Set d = CreateObject("scripting.dictionary")
    Set v = CreateObject("scripting.dictionary")
    data = ddcl.[a2].CurrentRegion '被索引的数据表,也可以用具体的区域
    'data = ddcl.Range("A1:D65536")
    For i = 2 To UBound(data)
        d(data(i, 1) & "") = data(i, 3) '被取值所在列,如果只匹配一列,就不需v字典了
        v(data(i, 1) & "") = data(i, 4) '被取值所在列
    Next

    ddm = dd.Range("A65536").End(xlUp).Row
    temp = dd.Range("k1:k" & ddm) '索引参照列,注意必须是第一行开始
    ReDim arr(2 To UBound(temp), 1 To 1)
    ReDim brr(2 To UBound(temp), 1 To 1)
    For k = 2 To UBound(temp)
        arr(k, 1) = d(temp(k, 1))
        brr(k, 1) = v(temp(k, 1))
    Next
    dd.[AE2].Resize(UBound(arr) - 1, 1) = arr
    dd.[AF2].Resize(UBound(brr) - 1, 1) = brr
    Set d = Nothing    
    MsgBox "运行" & Format((Timer - t), "0.0000") & "秒"
End Sub
注意:目标表中的索引参照范围,必须从表的第一行开始,或者用dd.[K1].CurrentRegion
Tags: , , , , ,
分页: 1/148 第一页 1 2 3 4 5 6 7 8 9 10 下页 最后页 [ 显示模式: 摘要 | 列表 ]