Excel 鎖定表格的標題

-
有的時侯，表格很大，所謂的很大是指，水平方向很多欄位或是垂直方向很多品項，或是兩者都有，如果移動游標的話，視野會跟著移動，所以就看不到最上方或是最左邊的標題欄、或是標題列，如果能鎖定標題的話，操作資料時比較方便，不容易改錯，這時侯你需要的是「凍結窗格」，如此，指定欄位上方以及指定欄位左方所有欄列不會因為資料區視野移動而而變動。

工作環境：
Excel 凍結窗格功能


指定做為資料區(可任意移動的視野範圍)最左上方的欄位


凍結窗格，通常選第一個就行(不限欄、列數)，如果是只要凍結最上方列選第二個，只要凍結最左方欄選第三個

留言

張貼留言

這個網誌中的熱門文章

使用 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 收工！
閱讀完整內容