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