Pages

▼
2021-01-03

〔EXCEL〕組合範例-取得工作表名稱--h018

›
【取得工作表名稱】 =MID(@CELL("filename", A1 ),FIND("]",@CELL("filename", A1 ))+1,LEN(@CELL("filename", A1 ...
2020-10-28

〔VBA〕Columns-隱藏或顯示一整欄--v049

›
   【如何隱藏或顯示一整欄】 Columns(" A:B ").EntireColumn.Hidden = True/False 範例應用： 設置一個checkbox，勾選時顯示該欄，不勾選則隱藏 Private Sub chkShow01_Change()...
2020-10-27

〔EXCEL〕樣式-更改預設超連結的格式--h017

›
  【如何一次更改預設的超連結樣式】 有沒有人跟我一樣覺得Excel預設超連結藍字底線很醜>"< 尤其是整個表格字型有調整，色系統規範時，加一個超連結會瞬間覺得無言~ 其實你可以自行設定超連結樣式的… 做法很簡單~~ 1. 先在表內插入一個超連結，記得要先有...
2020-10-26

〔VBA〕FollowHyperlink-範例：點選2下連結外部網站--v048

›
   【】 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)     '確認Double Click的儲存格範圍要求     '連結到外部股票資訊網站...

〔VBA〕AutoFilter-自動篩選指定值(部份符合)--v047

›
   【自動篩選指定值- 部份 符合】 '若工作表有自動篩選，先行移除自動篩選設定 '依據範圍加入自動篩選       If Not ActiveSheet.AutoFilter Is Nothing Then ActiveSheet.AutoFilterMode...

〔VBA〕AutoFilter-自動篩選指定值(完全符合)--v046

›
  【自動篩選指定值-完全符合】 '若工作表有自動篩選，先行移除自動篩選設定 '依據範圍加入自動篩選 #注意範圍【包含篩選的標題列】 If Not ActiveSheet.AutoFilter Is Nothing Then ActiveSheet.AutoFil...

〔VBA〕AutoFilter-如何篩選多個值--v045

›
  【篩選多個值】 '若工作表有自動篩選，先行移除自動篩選設定 '先將篩選條件值塞入arrCT()陣列 '加入自動篩選條件      If Not ActiveSheet.AutoFilter Is Nothing Then ActiveSheet.Aut...

〔VBA〕AutoFilter-篩選儲存格為空白的項目--v044

›
  【篩選儲存格為空白的項目】 '若工作表有自動篩選，先行移除自動篩選設定 '依據範圍加入自動篩選儲存格為空白的項目      If Not ActiveSheet.AutoFilter Is Nothing Then ActiveSheet.AutoFilter...

〔VBA〕AutoFilter-依據顏色進行篩選--v043

›
  【依據儲存格的顏色進行篩選】 '若工作表有自動篩選，先行移除自動篩選設定 '依據範圍加入自動篩選顏色為 黃色     If Not ActiveSheet.AutoFilter Is Nothing Then ActiveSheet.AutoFilterMod...
2020-03-13

〔EXCEL〕SUMPRODUCT/COUNTIF-計算不重覆個數--h016

›
【如何計算一個範圍內不重覆值的個數】 有些公式"講"起來容易，"理解"起來難~ 所以直接留下組合好的公式去套用好了… 若要取A1:A100間不重覆的值 =SUMPRODUCT(1/COUNTIF( 統計範圍 , 統計範圍 ))...

〔VBA〕Protect/Unprotect-保護與解鎖--v042

›
【將工作表進行保護及解鎖】 '單純鎖定工作表(不更改預設鎖定條件) ActiveSheet. Protect '對應解鎖 ActiveSheet. Unprotect '鎖定工作表並加上密碼 ActiveSheet.Protect Pas...

〔VBA〕AutoFilter-取得自動篩選狀態--v041

›
【如何取得自動篩選狀態】 為何要判斷自動篩選狀態? 因為在無自動篩選時，去設定清除篩選選項會出錯呀~ If ActiveSheet.AutoFilter Is Nothing Then     '無自動篩選     '加入自動篩選(篩選王小明) ...
2019-12-18

〔EXCEL〕MATCH/INDEX-依比對的位置傳回指定欄位值--h015

›
【依比對的位置傳回指定欄位值】 又是一個繞口的標題… 這是上一次介紹MATCH的用法後 另一個進階應用 MATCH可以傳回比對到值在指定範圍內的位置 例如:在A10:A19(共10個欄位)，在A15找到，則傳回6(因為是第6個欄位找到) 請參閱  〔EXCEL〕M...
2019-12-04

〔EXCEL〕MATCH-取得某值在表格中的順位--h014

›
【取得某值在表格中排序的位置】 MATCH這個函數雖不算常用，但偶爾還是有需要它的時候~ 它最主要的作用，是可以 『比對』 指定的值是否在另一表格中，並回傳找到第一筆的位置(順序)… 我刻意用 『比對』 這樣的敘述來說明這個函數的用法…是否有學員覺得有些似曾相識?? ...
2019-11-26

〔VBA〕ADO-元件引用項目--v040

›
【使用資料庫連線需加入的引用】 Microsoft ActiveX Data Objects 6.1 Library Microsoft ActiveX Data Recordset 6.0 Library 若不引用上述項目，在宣告元件時，請使用CreateO...

〔VBA〕ADODB.Connection-建立資料庫連線--v039

›
【建立一個資料庫MSSQL連線】 Public Function SCE_GetConn() As ADODB.Connection     Dim Conn As ADODB.Connection     Dim sConnect As String     Dim...
2019-11-25

〔EXCEL〕Countif-用顏色自動標示重覆的資料--h013

›
【運用格式化設定自動標示重覆的資料】 其實這課程先前都已上過，所以今天只是再舉個實際範例來實現這樣的作法~ 找出資料是否重覆的方法有很多 一般很常見的使用比對的方式，例如：Vlookup、Match... 只要能達到目的的都是好方法… 不過方法很多也不用每種都記...
2019-11-21

〔VBA〕ProtectContents-取得工作表保護狀態--v038

›
【如何取得工作表保護(鎖定)狀態】 Private Sub cmdLock_Click()     '鎖定或解鎖     If ActiveSheet.ProtectContents = True Then         ActiveSheet.Unpro...
2019-11-19

〔VBA〕StartUpPosition-指定表單開啟時的位置--v037

›
【指定表單開啟時的位置】 Private Sub UserForm_Initialize()      '右下角     Me.StartUpPosition = 0     Me.Top = Application.Top + Application.Hei...
2019-11-18

〔VBA〕FileDialog-開啟視窗選取資料夾--v036

›
【開啟視窗選取資料夾顯示路徑】     With Application.FileDialog(msoFileDialogFolderPicker) '開啟選取檔案視窗       .InitialFileName = ActiveWorkbook.Path ...

〔EXCEL〕SWITCH-依比對值回傳對應值--h012

›
【依比對值回傳對應值】 老實說，上面的敘述連我都很難理解… 直接用以下的範例來說明好了… 如果你有份資料，是這麼多的數字…不是常用的人是不是一眼很雖以計算這到底是多少$$ 所以我想用C2的單位切換，讓資本額跟著同步變動 例如，設定有上述幾個單位可做...
2019-10-24

〔VBA〕FollowHyperlink-開啟非Excel檔案--v034

›
【以超連結開啟方式打開檔案】 ThisWorkbook.FollowHyperlink  " file:/// C:\ScenicSchool\資料夾或檔案 " ThisWorkbook.FollowHyperlink  " file:///...
2019-10-23

〔VBA〕Shapes.Delete-一次刪除所有圖片/圖形--v035

›
【一次刪除工作表內所有圖片/圖形】 Sub DeleteAllShapes()          Dim shp As Shape     For Each shp In ActiveSheet.Shapes         shp.Delete     Next ...
2019-09-20

〔EXCEL〕DATE-日期加減N年或N月的方法--h011

›
【日期加減N年N月】 「日期」 ，在系統的世界裡，其實是一個 「數字」 … 例如 2019/9/20 ，在Excel中將格式設定為「數值」… 你會發現它就變成 43728 … 而這個，才是它真實的面目…日期格式只是它美麗的外衣而已~(地區化的分別) 即然日期，是個...
2019-09-19

〔EXCEL〕儲存格樣式-更改預設的「超連結」--h010

›
【如何更改預設的超連結格式】 當你在儲存格內，加入超連結時，會發現超連結的字型顏色會"自動"改變~ 而且當你真的點選連結後，它又會變成另一個顏色~ 預設： 超連結 →細明體 / 12pt / 藍色 已瀏覽過 →紫色 如果這個字型及顏色，和...
2019-08-22

〔EXCEL〕自定格式-數字轉換中文大寫(一十一/十一)--h009

›
【如何將數字轉換成中文大寫(含隱藏設定)】 ((先提示，今天的重點在最後一段)) 前一篇分享了用小計功能來做分類縮合選單… 上傳了"經書"的範例…(哈~只不過是我自己剛好在整理使用)… 其中，各章節當然是以中文「第一章」「第二章」…來顯示是最恰...
2019-08-21

〔VBA〕FileDialog-開啟視窗選取檔案--v033

›
【利用FileDialog產生檔案選取視窗】 With Application.FileDialog(msoFileDialogFilePicker) '開啟選取檔案視窗         .InitialFileName = ActiveWorkbook....
2019-08-20

〔EXCEL〕資料小計-資料分類好幫手--h008

›
【運用小計功能來分類資料】 不知有沒有學員使用Excel來 紀錄分類 的資料? 我個人是蠻常使用的，不管是工作上或私人筆記。 例如程式版本清表、資料庫欄位總表…或是網站連結、經書筆記等等… 在整理資料時，希望能以「分類」方式來彙...
2019-08-19

〔VBA〕Desktop-取得桌面路徑--v032

›
【取得目前使用者桌面路徑】 MsgBox "桌面路徑：" &  CreateObject("WScript.Shell").SpecialFolders("Desktop") 相關課程：無。 ...
2019-08-14

〔VBA〕Close-關閉活頁簿--v031

›
【關閉指定活頁簿】 ActiveWorkbook.Close Workbooks(" 目前開啟的檔名.xlsx ").Close 若要避免跳出存檔提示視窗，可暫時將系統提示訊息關閉( 檔案有被修改將不會儲存 ) Application.Displ...

〔VBA〕Open-開啟活頁簿--v030

›
【開啟指定活頁簿】 Workbooks.Open Filename:=" 檔案完整路徑.xlsx ", UpdateLinks:=0 UpdtaeLinks:=0 代表檔案開啟時不會更新外部參照 ReadOnly:=true 代表以唯讀檔案開啟，預...
2019-08-13

〔VBA〕範例：進階版多選動態螢光棒(列變色)--v029

›
【點選儲存格，則該列底色反黃變色-多選版】 繼先前針對單選儲存格，底色動態變色的範例應用後 ( 〔VBA〕範例：動態螢光棒(列變色)的作法[格式化的條件]--v010 ) 我們再進一步針對多選列，來進行底色變色的"實驗吧" ...

〔VBA〕Unload Form-關閉表單--v028

›
【關閉自定義表單】 Unload Form or Unload Me '在表單程式碼程序內Unload Me則 卸載執行物件 章老師的電腦小講堂  https://www.facebook.com/ScenicSchool/ ※※ 本區做為經常...

〔VBA〕Form.Hide-隱藏表單--v027

›
【隱藏自定義表單】 Form.Hide '表單隱藏，且為強制回應 '表單上元件內容不會因此清空或卸載 章老師的電腦小講堂  https://www.facebook.com/ScenicSchool/ ※※ 本區做為經常使用之程式碼複製區，...
2019-08-06

〔EXCEL〕範例-將姓名中間字改成○--h007

›
【如何將姓名中間字改成○】 今天一位學員問我，怎麼快速將大量姓名中間的字換成○? 其實解決問題的方法很多，越白話越簡單越好記… 以下列舉2個方式來解決這個問題：<可使用第2個方式，但不能不熟悉第1個方式，哈哈> 1. 用左邊第1個字 + ○ ...
2019-08-02

〔VBA〕FileSystemObject-檢查檔案是否存在 --v026

›
【使用FileSystemObject判定路徑下檔案是否存在】 Dim fs as Object Set fs = CreateObject("Scripting.FileSystemObject") If fs.fileexists(  完整檔案路徑...

〔VBA〕範例：Outlook批次寄發Email(2/2)--v025

›
【如何替Email掛上附件】 前一篇我們已知道如何產生Email郵件 〔VBA〕範例：Outlook批次寄發Email(1/2)--v024 若要自動掛上附件，要怎麼處理呢? '替Email掛上附件==============================...
2019-08-01

〔VBA〕範例：Outlook批次寄發Email(1/2)--v024

›
【利用預設郵件批次產生Email寄發】 這個功能在工作領域的應用上，可以發揮非常大的作用… 有需要的學員，不妨試一試… 舉例來說： 採購人員每天發單給供應商，可以統整張訂購表 可以利用Excel，從清冊直接轉成一張張的採購單 並另存成PDF檔，自動掛到Email...