高考倒计时4天,附中致高三家长们
[
2020/07/03 08:59 | by 吕进 | Via 本站原创 ]

亲爱的各位家长:
一、心态篇:
你们好!高考是一个特殊的战场,在关键的冲刺阶段,孩子们如何安排饮食、作息,家长们又如何给孩子营造一个宽松舒适的环境呢?今天高2020级年组来为大家一一梳理:
考前家长的“忌语”:
别紧张;
好好考;
要对得起爸爸妈妈;
你看人家某某多努力;
考不好就别回来见我;
高考关系到你一辈子的前途……
以上话语一定要尽量避免!
1、平常心对待
CSS:父元素下第一个或最后一个字元素
[
2020/06/27 15:44 | by 吕进 | Via 本站原创 ]

假设有以下html代码——
第一个P元素:p:first-child
最后一个P元素:p:last-child【p:last-child 等同于 p:nth-last-child(1)】
<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>1</p>
<p>2</p>
<p>3</p>
<p>4</p>
<p>5</p>
</div>
第一个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等。
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;
}
Vlookup,在vba中一般用Application.Vlookup来实现,但总归要通过循环完成,如有不匹配的还报错,感觉效率不高。这里直接上几个用字典替代vlookup的方法。
方法一(经测试,3000行数据匹配,只需0.0156秒):
方法一(经测试,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
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
HTML:页面刷新和局部刷新
[
2020/06/02 09:30 | by 吕进 | Via 本站原创 ]

整个页面刷新,有N多种方式,最直接的是点击浏览器上的刷新按钮(手动刷新),这里记录的主要是自动(定时)刷新。
一、直接在<head>区域中添加代码
二、在页面中添加JS代码:
一、直接在<head>区域中添加代码
<meta http-equiv="refresh" content="5">
注意:这里的5,是每5秒刷新一次;相同的代码,如果后面跟有URL地址,则表示5秒以后,自动跳转到新的网址,如<meta http-equiv="refresh" content="5;url="http://lvjin.job.sh">
二、在页面中添加JS代码:
<script language="JavaScript">
function myrefresh(){
window.location.reload();
}
setTimeout('myrefresh()',1000);
</script>
注意:这里的1000,即1000毫秒(1秒),另 window.location.href = window.location.href;可以代替 window.location.reload()使用;
function myrefresh(){
window.location.reload();
}
setTimeout('myrefresh()',1000);
</script>