nothtodo nothtodo
http://yun.baidu.com/disk/beinvited?uk=3321982838
关注数: 77 粉丝数: 315 发帖数: 1,922 关注贴吧数: 13
求高手帮忙看看这个代码如何优化,运行太慢了 Sub wb() Application.ScreenUpdating = False '禁止屏幕刷新 Application.Calculation = xlCalculationManual '计算模式为手动 Dim URL As String Dim http URL = Range("ab4") Set http = CreateObject("Microsoft.XMLHTTP") http.Open "GET", URL, False http.send "" Range("Ac4") = http.responseText URL = Range("ab5") Set http = CreateObject("Microsoft.XMLHTTP") http.Open "GET", URL, False http.send "" Range("AC5") = http.responseText URL = Range("ab6") Set http = CreateObject("Microsoft.XMLHTTP") http.Open "GET", URL, False http.send "" Range("Ac6") = http.responseText URL = Range("ab7") Set http = CreateObject("Microsoft.XMLHTTP") http.Open "GET", URL, False http.send "" Range("Ac7") = http.responseText URL = Range("ab8") Set http = CreateObject("Microsoft.XMLHTTP") http.Open "GET", URL, False http.send "" Range("Ac8") = http.responseText URL = Range("ab9") Set http = CreateObject("Microsoft.XMLHTTP") http.Open "GET", URL, False http.send "" Range("Ac9") = http.responseText URL = Range("ab11") Set http = CreateObject("Microsoft.XMLHTTP") http.Open "GET", URL, False http.send "" Range("Ac11") = http.responseText URL = Range("ab12") Set http = CreateObject("Microsoft.XMLHTTP") http.Open "GET", URL, False http.send "" Range("Ac12") = http.responseText URL = Range("ab13") Set http = CreateObject("Microsoft.XMLHTTP") http.Open "GET", URL, False http.send "" Range("Ac13") = http.responseText URL = Range("ab14") Set http = CreateObject("Microsoft.XMLHTTP") http.Open "GET", URL, False http.send "" Range("Ac14") = http.responseText URL = Range("ab15") Set http = CreateObject("Microsoft.XMLHTTP") http.Open "GET", URL, False http.send "" Range("Ac15") = http.responseText URL = Range("ab16") Set http = CreateObject("Microsoft.XMLHTTP") http.Open "GET", URL, False http.send "" Range("Ac16") = http.responseText URL = Range("ai4") Set http = CreateObject("Microsoft.XMLHTTP") http.Open "GET", URL, False http.send "" Range("Aj4") = http.responseText URL = Range("ai5") Set http = CreateObject("Microsoft.XMLHTTP") http.Open "GET", URL, False http.send "" Range("Aj5") = http.responseText URL = Range("ai6") Set http = CreateObject("Microsoft.XMLHTTP") http.Open "GET", URL, False http.send "" Range("Aj6") = http.responseText URL = Range("ai7") Set http = CreateObject("Microsoft.XMLHTTP") http.Open "GET", URL, False http.send "" Range("Aj7") = http.responseText URL = Range("ai8") Set http = CreateObject("Microsoft.XMLHTTP") http.Open "GET", URL, False http.send "" Range("Aj8") = http.responseText URL = Range("ai9") Set http = CreateObject("Microsoft.XMLHTTP") http.Open "GET", URL, False http.send "" Range("Aj9") = http.responseText URL = Range("ai11") Set http = CreateObject("Microsoft.XMLHTTP") http.Open "GET", URL, False http.send "" Range("Aj11") = http.responseText URL = Range("ai12") Set http = CreateObject("Microsoft.XMLHTTP") http.Open "GET", URL, False http.send "" Range("Aj12") = http.responseText URL = Range("ai13") Set http = CreateObject("Microsoft.XMLHTTP") http.Open "GET", URL, False http.send "" Range("Aj13") = http.responseText URL = Range("ai14") Set http = CreateObject("Microsoft.XMLHTTP") http.Open "GET", URL, False http.send "" Range("Aj14") = http.responseText URL = Range("ai15") Set http = CreateObject("Microsoft.XMLHTTP") http.Open "GET", URL, False http.send "" Range("Aj15") = http.responseText URL = Range("ai16") Set http = CreateObject("Microsoft.XMLHTTP") http.Open "GET", URL, False http.send "" Range("Aj16") = http.responseText Range("U1").Select Selection.Delete Shift:=xlToLeft Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True End Sub
还拿惨案说事的人,你知道什么叫惨案么? 虽然对现在媒体的节操一直不报什么希望,但仍然没想到会下作到这种程度。输球固然恼火,尤其是这种窝囊的输法,但媒体的兴灾乐祸更让人恶心。我们自己的球迷也跟着瞎起哄,惨案惨案的乱骂,把些陈年旧帐也翻出来,至于吗? 大比分本身就是足球比赛的一部分。足球是攻守平衡的游戏,当你想压上进攻的时候,必然会以牺牲防守为代价,少输当赢,保平争胜,这些中国足球史上著名的笑话还没看够?如果我们也满足0:1的小负,避免惨案就能皆大欢喜,大家就满意了? 都知道鲁能怕身后球,别的队怎么不怕?好多队身后根本都没空间。想想曼联1:6时弗爵爷那颤动的手吧。玩了这么多年FM,一直是LLM玩家,常年处在弱队位置上,习惯了反击心态开局,能偷一个,万事大吉,常常会是一场大胜(好像14里有所调整,不太灵了),被人打一个,通常就是最煎熬的时候,压上进攻,可能扳平,更可能就是一场大败,这时的抉择,本身就是一种赌博。足球是计分的游戏,同样是0分,0:1和0:5很多时候差别不大的。正如传说中的图大神曾经说过的,一个1:5比5个0:1要好的多。 千万别听媒体煽乎,看他们这几天围绕文章他们的骚B烂屌忙乎的兴奋劲,就该知道都是些什么玩意了。说起来这个2:4和前些天某队的1:3几乎如出一辙,连过程都差不多,人家就是惜败,顶多说个爆冷,到咱这就是惨案,连这也有人听,人家挣钱咱生气,有必要么? 真当我们输一个球不着急,继续稳稳当当防守反击的时候,也许才是真正的惨案了。
常用简称(转) 主要是为了找个地方记下来欢迎更正补充 大概写了点常用的,其他有些很容易理解的,或者缩写本身能作为关键词直接能在市场搜索到的,就没有写上。如有不足,欢迎补充 A 艾玛 C加达里 G盖伦特 T 是M 米玛塔尔 舰船: AHAC 甲抗重突守卫队 隐轰:隐形轰炸舰 TT泰坦 大蘑菇(大囧脸):A族TT 大鸡腿:G族TT 大母鸡、小母鸡:航空母舰,超级航空母舰 大鲸鱼:长须鲸 小鲸鱼:逆戟鲸 A货:A族货舰(以此类推C G M) 小麦:麦基诺 跳货:战略货舰 POS: 切JJ :帝国海军切割机 末日:末日沙场 海末日:末日沙场级海军型(以此类推海XX) 永龟:永灭 圣捞:圣卒 PLD:帕拉丁 小托:托勒克斯 小布:布鲁提克斯 小米:米尔弥顿……这个不确认,太拗口 TLS:塔洛斯 YST:伊什塔 WW:万王宝座 龙神:亥伯龙神 奥内罗:奥内罗斯 小克:克洛诺斯 ALZ:埃拉兹 DMS:戴莫斯 鸡棚:金鹏 U龙:幼龙 小希:希尔博拉斯 飞不起来:乌鸦级 海鸟(海飞不起来):乌鸦级海军型 蝎子:毒蝎 火车头(用的不多):鲲鹏(还是鹏鲲) 冠希:皇冠蜥 美洲喵、剑齿喵:美洲虎,剑齿虎 舰刺:刺客级舰队型 舰暴、舰队暴风:暴风级舰队型 小马:马克瑞 蛇、香味蛇:响尾蛇 BUG龙:巴戈龙级 ASM:阿什姆 SNB:塞纳博 装备(只注明T1装备名称) 高槽: 超光:超光速粒子集束激光器 超脉:超级脉冲激光器 中子:中子疾速加农炮 425:425mm磁轨炮 800炮:800mm频射火炮 1400:1400mm榴弹炮 吸电:掠能器 毁电:能量中和器 泡泡:跃迁扰断力场发生器 传电:能量转移阵列 传盾:护盾转移装置 中槽: 反跳:跃迁扰断器 2点反跳,扰频:跃迁扰频器 网子:停滞缠绕光束 帽子:感应抑阻 推子、微曲:微型跃迁推进器 跳刀:微型跳跃引擎 盾扩:护盾扩展装置 盾提:护盾回充增量增效器 修盾:护盾回充增亮器 低槽: 损控:损伤控制 钢板:装甲附甲板 武器升级装备:散热槽、磁性力场稳定器,回转稳定器,无人机伤害增效装置 修甲:装甲维修器 注甲:辅助装甲维修器 补:三角插:三角装甲聚合器盾扩插:核心防御力场扩张装置 AHAC的意思就是甲抗重型突击舰。。抗重型突击舰。。。重型突击舰。。型突击舰。。。突击舰。。。击舰。。。舰。。。 DF will 就是大神,大神降临,速度膜拜
1 下一页