2011年2月11日 星期五

Relative humidity外部相對濕度查詢

公司因ISO9001驗證時,機房內之空調管控部分,被外稽單位列入缺失項目,
而公司機房使用之空調系統源頭,同屬大樓中央空調共用冰水主機來源,且又無加濕器設備,
故自行放置一大桶之水箱(將水桶蓋留小縫,傾斜45度,上方用大張硬紙阻擋,周圍以透明膠帶圍住,好讓現有下吹式的空調做為濕氣來源,以提昇機房整體濕度),做為陽春型加濕器,且為確認其效果,
用Excel紀錄,外部相對濕度與現有公司內之環境監控系統溫濕度

Cells(ActiveSheet.UsedRange.Rows.Count + 1, 1).Value = ActiveSheet.UsedRange.Rows.Count
'將目前工作頁面之欄位第1欄中最後一筆資料後,自動寫入本工作頁面總筆數

Cells(LastCell(Sheet2).Row, 1).Value = Cells(1, 6)
'Cells(1,6)為中央氣象局查出之觀測時間Observation time ,由Excel之資料(D) |匯入外部資料(D) | 新增Web查詢(W) |地址(D): 貼上資料查詢之網頁連結

Cells(LastCell(Sheet2).Row, 2).Value = Cells(2, 6)
'Cells(2,6)為中央氣象局查出之觀測時間之外部相對濕度Relative humidity(%)

Cells(LastCell(Sheet2).Row, 3).Value = Cells(3, 6)
'Cells(2,6)為使用Excel之函數 NOW(),捉取系統時間,並 格式(O) | 儲存格(E) | 數值頁面 ,類別(C) ,指定顯示類型(T)


相關資訊:
高雄之外部相對濕度查詢,
BBC 查詢台北1週相關氣象(含濕度及能見度查詢),

相關查詢:
Excel總筆數查詢