[追病毒週記]十月9日週五/英國防疫禁令第200天
高潮迭起的一週,先說我一向最關心的旅行禁令
訂正版,誤植義大利感謝網友校訂:
📍上週波蘭、土耳其以及荷屬加勒比海小島Bonaire/St Eustatius/Saba旅客列入隔離清單
#沒關係波蘭伏特加準備好喝起來
本週沒有、沒有、沒有任何一個國家列入隔離清單
#因為別的國家疫情都比英國安全
相反的,希臘五個小島回到空中走廊清單
#還是可以把希臘茴香酒開起來
而已在互惠清單上的義大利加碼新規定,英國入境旅客要提出三天內的陰性檢驗證明。
#可以怒喝義大利Prosecco 😆
延續上週新生入學集體感染的話題熱度,#這週更熱了
更新版(感謝網友訂正):
📍新堡大學隔壁的諾桑比亞大學上週末已知有大約700名師生感染,
如果學校不停實體教學,教職員打算罷工抗議
(後來呢...我還沒空查,有請當地達人來補充)。
新堡大學從上週100人飆到1000人,我查一下師生人數,估計兩萬七千人左右,感染率約2.5%。
📍曼城上週末集體隔離1700名住宿生,但是本週發現感染人數也是超過1000名。人數之多,他們還偷開「僅限感染者參加」的派對。
曼大有四萬名師生,等於是2.5%的感染率,和新堡大學比率差不多。
新數據顯示在曼城某個學生區域,感染率占當地人口5%,等於每十萬人有五千人感染,比英國感染率最高的城鎮高七倍。
#年輕人替大家實驗群體免疫理論
📍目前英國有80所大學校園傳出大規模的學生感染,總數大約5000人。
新傳出宿舍集體隔離的校園是布魯斯托大學,40人傳出感染,大約300名住宿生隔離中。
#突然覺得小case了 #小case也是要謹慎
📍因為感染人數大量集中在年輕族群,而禁止商業活動的防疫措施嚴重影響經濟發展,有一派的科學家提議把讓危弱族群去閉關,讓其他人生活恢復常態
#這一派是希望晚上去可以去上酒吧的
📍本週最熱的話題應該是,10月2日新增感染人數突然飆高超過兩萬人
英國公衛部表示,是電腦程式出錯,有些資料當日沒有匯入公衛部的資料庫
發現這個錯誤後,把一週來漏列的一萬多筆資料一起補上。
這不是公衛部第一次數據急轉彎,八月時他們說大約3萬筆資料重複計算了,
某天的累積感染人數數據就直接減去之前重複的
#資料格式不統ㄧ做研究的人覺得心很累
電腦資料為何會出錯呢?#陰謀論者可以跳過以下
外包的商業檢驗所給公衛部的檔案是用csv格式,可自動匯入公衛部的excel表格
但公衛部誤用了舊版的XLS格式,最多只能匯入6萬5千行資料,
而不是XLSX,可以處理一百萬行。
由於每筆個案資料占好幾行,於是每個檔案只能讀到1400筆資料
「多餘」的資料就沒有顯示在資料庫裡。
#XLS早在1987年已升級啊公衛部你真懷舊
#電腦阿宅表示是個非常低級的錯誤
雖然檢驗所有通知個別受檢者檢驗結果,
但疫調中心從資料庫只讀取到75%的感染者資料,
估計有5萬名曾與感染者接觸過的人沒有被即時通知到
這個錯誤造成的最大危機。
新聞爆發的第一時間看到網路上有些人說:英國政府蓋牌、數據不可信、實際人數一定更高...
這些是廢話吧。實際數字更高是當然的,不是每個有症狀的人都去檢驗,無症狀的人更不會想到要去檢驗。
如果政府存心低報數字,可以根本不用提這些沒進入資料庫的人數
#尤其還是這麼蠢的錯誤
#衛報也分析這個電腦錯誤小報也沒質疑蓋牌陰謀
想知道大概的感染人數也可以參考統計局的抽樣調查
#但是等他們統計完再公布都是兩三週前的歷史
#抽樣是否具代表性是另一個題目
📍其他直得關心的事呢,蘇格蘭祭出更進一步的防疫禁令
中央蘇格蘭地區(包括哥拉斯哥、愛丁堡這些重點城市)
賣酒的場所禁止營業16天
沒賣酒的cafe可以營業到六點,外送店可以營業。
蘇格蘭其他地區可以營業到晚上10點,但是只能在戶外喝酒
#酒鬼禁令
📍英格蘭的感染率各區幾乎都是增加中,新增熱點是諾丁漢市和諾丁漢郡,#羅賓漢的故鄉
感染率高過已在加強禁令的地區,地方政府先呼籲居民暫停串門子。
#剉著等中央禁令
📍下週強森將宣布新的防疫禁令,很可能把英格蘭🏴分為紅黃綠三區🚦,
有不同程度的新禁令,
#唐寧街小強可能會抄蘇格蘭鱘魚同學的作業嗎
📍如果疫情紅燈區🚦是每十萬人有50人感染,大倫敦幾乎都淪陷了(地圖橘色就是50人以上)
倫敦的Tower Hamlet 地區(紅磚巷、Queen Marry 大學所在地)
正火紅,地方政府上週已呼籲居民不要串門子。
一向被視為富人區的里奇蒙,本週疫情也高漲,名列第一。
#就說病毒沒有歧視
這呼應了統計局上個月公布的分析顯示,疫情在富裕、白人、35歲以下族群之間以兩倍的速度成長。
這樣下去聖誕節有沒有希望取消「六人禁令」呢?
火雞農覺得希望很小,只有六人圍爐,
估計大隻的火雞不好賣,已經先讓火雞節食瘦身
#火雞表示反對身材歧視
「csv轉xlsx」的推薦目錄:
- 關於csv轉xlsx 在 觀光客不知道的倫敦 Facebook 的最讚貼文
- 關於csv轉xlsx 在 吳老師excel函數與vba大數據教學 Facebook 的最佳解答
- 關於csv轉xlsx 在 吳老師excel函數與vba大數據教學 Facebook 的最讚貼文
- 關於csv轉xlsx 在 [問題] 請問excel 批次把xlsx 轉CSV - 看板Office - 批踢踢實業坊 的評價
- 關於csv轉xlsx 在 csv2xlsx CSV 轉Excel 方法| 程式狂想筆記 的評價
- 關於csv轉xlsx 在 使用Office Excel 載入CSV 檔案的陷阱與技巧 - YouTube 的評價
csv轉xlsx 在 吳老師excel函數與vba大數據教學 Facebook 的最佳解答
如何用EXCEL VBA批次轉PDF檔
預覽:
這是在我的教學論壇有網路學員提的問題:
[問題詢問]如何修改VBA讓EXCEL自動轉存成PDF時不會出現副檔名 [連結]
先學會如何用EXCEL VBA批次另存成2003與CSV等格式 [連結]
與如何用EXCEL VBA自動批次匯入圖片與超連結 [連結]
與如何增加EXCEL VBA按鈕 [連結]
本範例主要是利用VBA的Workbooks物件的ExportAsFixedFormat方法,
可以一鍵就可以批次將EXCEL檔案批次匯出成PDF或其他格式,
這個範例主要是延續之前進階課裡提到的檔案自動匯出的觀念而來的,
如果沒有這方面概念者,建議還是要完整有系統學習為好,
比較重要的幾個簡易技巧有:
1.Application物件的FileDialog屬性,可以取得檔案或資料夾,回傳為字串。
2.用Dir函數,可以得知並列舉某資料夾中的所有檔案,直到找不到為止。
3.配合Do While迴圈,可以不斷列舉檔案,直到找不到檔案為止。
最後,配合Left與Len函數,可以將PDF檔名去除舊的xlsx附檔名訊息,
這是入門可成有教過的應用。
大數時代來臨如果不懂得裡用自動化方式處理資料,
處理資料將非常沒有效率,
至於處理大數據的方案很多,
但最通行也沒有額外費用的大概只剩VBA了。
而且開啟EXCEL就包含VBA,除了在Windows外,
MAC蘋果電腦一樣也有EXCEL,
VBA也可以沿用以前VB的資源,這樣看來VBA處理大數據應該沒有什麼對手了。
範例連結 [下載]
結果畫面:
上課內容:
01_轉檔結果畫面
02_操作介面
03_程式撰寫畫面
04_轉換成PDF檔多了附檔名
05_修改輸出時檔名的後5個字
06_修改結果沒有副檔名
程式碼:
csv轉xlsx 在 吳老師excel函數與vba大數據教學 Facebook 的最讚貼文
如何用EXCEL VBA批次轉PDF檔
完整連結:http://terry55wu.blogspot.tw/2015/08/excel-vbapdf.html
這是在我的教學論壇有網路學員提的問題:
[問題詢問]如何修改VBA讓EXCEL自動轉存成PDF時不會出現副檔名 [連結]
先學會如何用EXCEL VBA批次另存成2003與CSV等格式 [連結]
與如何用EXCEL VBA自動批次匯入圖片與超連結 [連結]
與如何增加EXCEL VBA按鈕 [連結]
本範例主要是利用VBA的Workbooks物件的ExportAsFixedFormat方法,
可以一鍵就可以批次將EXCEL檔案批次匯出成PDF或其他格式,
這個範例主要是延續之前進階課裡提到的檔案自動匯出的觀念而來的,
如果沒有這方面概念者,建議還是要完整有系統學習為好,
比較重要的幾個簡易技巧有:
1.Application物件的FileDialog屬性,可以取得檔案或資料夾,回傳為字串。
2.用Dir函數,可以得知並列舉某資料夾中的所有檔案,直到找不到為止。
3.配合Do While迴圈,可以不斷列舉檔案,直到找不到檔案為止。
最後,配合Left與Len函數,可以將PDF檔名去除舊的xlsx附檔名訊息,
這是入門可成有教過的應用。
大數時代來臨如果不懂得裡用自動化方式處理資料,
處理資料將非常沒有效率,
至於處理大數據的方案很多,
但最通行也沒有額外費用的大概只剩VBA了。
而且開啟EXCEL就包含VBA,除了在Windows外,
MAC蘋果電腦一樣也有EXCEL,
VBA也可以沿用以前VB的資源,這樣看來VBA處理大數據應該沒有什麼對手了。
範例連結 [下載]
csv轉xlsx 在 csv2xlsx CSV 轉Excel 方法| 程式狂想筆記 的推薦與評價
最近查詢報表用SQL 查詢MySQL 資料,產生出csv 檔案但是在Excel 直接 ... tealeg/csv2xlsx: A simple program to convert CSV files into XLSX files. ... <看更多>
csv轉xlsx 在 [問題] 請問excel 批次把xlsx 轉CSV - 看板Office - 批踢踢實業坊 的推薦與評價
(若是和其他不同軟體互動之問題 請記得一併填寫)
軟體: Excel
版本: 2016,企業版
不好意思, 因為需要大量把xlsx檔案轉成csv (但是之前沒碰過VB)
在參考了板上的文章 https://www.ptt.cc/bbs/Office/M.1241585891.A.45C.html
試著稍微修改, 不曉得為何轉檔出來的檔案, 檔名一樣為*.xlsx,
而且會出現,
"Excel 無法開啟檔案,因為檔案格式或副檔名無效,請確認檔案沒有毀損,
且副檔名符合檔案的格式。"
大大感謝~
---我修改的code如下--
Sub Macro1()
Dim path As String
Dim obApp As New Excel.Application
Dim myFso: Set myFso = CreateObject("Scripting.FileSystemObject")
Dim wbnew
'要處理的目錄
path_IN = "C:\Users\Desktop\temp2\test\"
path_OUT = "C:\Users\Desktop\temp2\csv\"
obApp.DisplayAlerts = False
obApp.ScreenUpdating = False
Dim myfiles: Set myfiles = myFso.GetFolder(path_IN).Files
For Each myFile In myfiles
Set wbnew = obApp.Workbooks.Open(path_IN & myFile.Name)
With wbnew.Worksheets(1)
End With
'存檔並改成 excel 格式
wbnew.SaveAs Filename:=path_OUT & myFile.Name, FileFormat:=xlCSV
wbnew.Close
Set wbnew = Nothing
Next
obApp.ScreenUpdating = True
obApp.DisplayAlerts = True
Set obApp = Nothing
MsgBox ("完成!")
End Sub
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 220.136.158.53
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1500395482.A.3E1.html
... <看更多>