日本風台灣鐵路圖

-
今天又看到了一個台灣鐵路路線圖，由鄰國日本製作，應該是屬於高湯等級，集精華於一身，直覺、免思考、免傷神，值得從中學習視覺化的技巧。

地圖特色大致上是：
    貫通南北
    環繞全島
    有鐵路
    含捷運(北捷、高捷，機場線)
    一張搞定

本人的日本語除了糟糕，大概就只能排到文盲等級了，好在「台灣」、「Taiwan」、「中華民國」還是認得出來的，這個圖居然是、出自歪國人、3月更新的、熱呼呼的~~台灣鐵路路線圖

以下可以欣貰一下轉載來自



Himawari Design Laboratory





From
URL: http://www.47rail.jp/
サイト名: 47都道府県鉄道路線図

位置： 台灣 Taiwan

留言

張貼留言

這個網誌中的熱門文章

使用 Excel 計算2個地點之間的直線距離

-
如果想知道地圖上2個點的直線距離，通常直覺就上 google map 之類的網路地圖，使用尺規之類的工具(通常圖示是一把尺，拖、拉、放之後，網站就會告訴你這2點之間的距離，But........... 如果沒有網路，知道一大堆點的經度和緯度，想要知道這些點，和另一個指定的點之間的直線距離，應該不太可能會在這個時候才想探就 GIS 的基礎理論，知道其實地球是球形的，再去複習一下高中數學(圓周、三角函數…)，以便計算球面上的2個點之間的距離，或是有人會說，用 google map api，寫個小程式，馬上就知道了，還可以知道行經路徑(迷之音：再次提醒你，沒有網路，沒有網路，沒有網路.................)；大部份的人應該會說，釣竿留給你，魚直接給我吧........... 知道點位的經緯度(小數格式)，恭喜你，打開 Excel 吧，假設你的所在點是經度 121.587753，緯度是 25.286747，把要試算的另一個點的緯度放在 Excel 的 E2 欄位，經度放在 F2 欄位，然後把下面的函式貼到你要求解距離的欄位，你就知道2點之間的距離有多遠了： 如果你是在台灣： E2 = 緯度(約24) F2 = 經度(約120) 函式： =6371 *ACOS( COS( RADIANS( 25.286747 ) ) * COS( RADIANS( E2 ) ) * COS( RADIANS( F2 ) - RADIANS(121.587753 ) ) + SIN( RADIANS( 25.286747 ) ) * SIN( RADIANS(E2 ) ) ) 單位：公里
閱讀完整內容

LINE 儲存的檔案傳到 email 不方便 很不方便 非常不方便 但是有解的筆記

-
用了這麼久的免費軟體，當然可以理解這些提供免費軟體的廠商要擴大使用群組的苦心，儘管如此，使用者需求不可能因此改變，這次想做的事情，是使用 Nxxxx 公司的 LINE ，把裏面儲存的檔案轉用 email 寄出，是的，這個收件者一定還沒在使用者的 LINE 名單當中，不然就不會苦手了。 難道就不能長按就傳 email 嗎？ 難道就不能長按就傳 email 嗎？ 難道就不能長按就傳 email 嗎？ 作業環境︰ Axxx zxxxxxx2 laser 己經預設優先安裝 App 在 SDcard   App︰   LINE   Axxx 內建 檔案管理員   gmail 檔案存檔的地方︰ 需要檔案管理員之類的App來找到這些檔案，如果是文件檔，大多是記不得名字的，可以用副檔名（doc, xls, pdf....）搜尋之後再來找，有時侯會快一點。 手機傳送的相片位置在Pictures/NAVER_LINE 電腦傳送的原始檔案圖片或者doc、pdf等等的檔案位置在 Android/data/jp.naver.line.android /storage/mo下的亂數資料夾名稱內 找到之後用3個點點點的按鈕，也就是功能鍵 》 分享 》 Gmail，你的檔案就會在附件中，把收件者的 email 打上就可以傳出。 終於解決了 發現手機和我真的很不熟 @@" …… 不過又熟了一些 開心 XD 收工
閱讀完整內容

Excel 巨集合併多個 Excel 檔案

-
上次遇到了同一個檔案中多個工作表合併到一個工作表裏，這次因為工作的關係又去找了多個不同的檔案，所有的工作表合併到同一個檔案中。 工作環境︰ Windows 10 M$ Office 2010 Sub CombineSheets() '活頁簿存放路徑，可自行修改存放路徑 Path = "D:\資料夾名稱\" Filename = Dir(Path & "*.xl*") '避免工作表名字相同，重新命名 i = 1 Do While Filename <> "" Workbooks.Open Filename:=Path & Filename, ReadOnly:=True For Each Sheet In ActiveWorkbook.Sheets Sheet.Copy After:=ThisWorkbook.Sheets(1) ActiveSheet.Name = i i = i + 1 Next Sheet Workbooks(Filename).Close Filename = Dir() Loop End Sub 收工！
閱讀完整內容