Pages

▼
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...
2019-07-31

〔VBA〕FileSystemObject-資料夾不存在則新增--v023

›
【判斷資料夾是否存在，若資料夾不存在，則新增】 Dim fs as Object Set fs = CreateObject("Scripting.FileSystemObject") If fs.FolderExists( 資料夾完整路徑 ) = ...

〔VBA〕FileSystemObject-檢查資料夾是否存在--v022

›
【使用FileSystemObject函數判定路徑下資料夾是否存在】 Dim fs as Object Set fs = CreateObject("Scripting.FileSystemObject") If fs.FolderExists(  ...

〔EXCEL〕篩選-用顏色來篩選--h006

›
【用顏色來篩選】 其實就算再經常使用 Excel ，也容易因過度習慣，而忽略了就在眼前的功能。 不用懷疑，我就是。 這個功能是為了解決一個學員的問題，而想到「不能用顏色篩選嗎 ?? 」 點進去看，耶 ~~~ 還真的有耶… 有時解法就在眼前，所以程式...
2019-07-30

〔EXCEL〕如何Highlight重覆資料--h005

›
【設定格式化的條件，配合 COUNTIF 標示重覆的資料】 上次有利用 COUNTIF 來帶出重覆資料的筆數 〔 EXCEL 〕 COUNTIF 抓出重覆的資料 --h004 這次加入格式化的條件，來些變型的應用… 之前其實有在小講堂 FB 分享過，現...