利用函數取得『工作表名(Sheet Name)』… 這個需求我個人是常常使用… 當我工作表名是具有"意義"的時候，例如單號、表單名稱、一個物品等等… 而且這個名稱在工作表的某個儲存欄位也存在相同的資料… 這時，懶隋的我就不會想再輸入第二次… 更不用說，若這個名...

 『條件式格式設定』一直都是非常"熱門"的應用… 因為用起來很炫，而且能達到很好的效果… 不是美觀喔!而是可以有效提醒、辨識、顏色管理、作業自動化… 資深學員應該不陌生…這主題談好了幾次… 所以這是一堂複習課程，只是用實際應用範例再次進行說明… 作業自動化，是...

 相隔已久…再次開啟系列課程 這次系列課程以我個人最近因應工作需求建立的表格做為範例 和大家介紹其中有使用到的設定、函數及VBA程式 是屬於有一點點進階的課程 有興趣的學員可以瀏覽觀看學習 初階的學員可以看看Excel能怎麼協助我們日常工作上簡單的作業 至於這門課會有幾堂，我也不...

 程式碼： void BooksStockUpdate(string xWO_No, decimal xWO_Qty) { //表頭           head = Map();           head.put("date", zoho.cur...

    ( 請選擇在Youtube上觀看，以取得較清楚的解析度 ) 章老師的電腦小講堂  https://www.facebook.com/ScenicSchool/

  (請選擇在Youtube上觀看，以取得較清楚的解析度)   scenic.chang@cloud-empowering.com scenic@mqt-co.com 章老師的電腦小講堂  https://www.facebook.com/ScenicSchool/

(請選擇在Youtube上觀看，以取得較清楚的解析度)   scenic.chang@cloud-empowering.com scenic@mqt-co.com 章老師的電腦小講堂  https://www.facebook.com/ScenicSchool/

    【計算年資﹥幾年幾月幾日】 =IF(DATEDIF(到職日,IF(離職日="",TODAY(),離職日+1),"Y")=0,"",DATEDIF(到職日,IF(離職日="",TODAY(),離...

  【複製與貼上-Copy & Paste】 Range("複製").Copy Cells(列, 欄).Copy      Range("貼上").PasteSpecial xlPasteAll Range("貼上值&qu...

        【從非連續的選取區取每個Cell值(Selection.Areas)】 Dim sArea  As Range Dim sCell As Range For Each sArea In Selection.Areas     For Each sCell In s...

         【刪除指定儲存格之格式化條件】 '該儲存格內格式化條件全數刪除 Range(" C4:W33 ").FormatConditions.Delete '該儲存格內格式化條件指定刪除 Range(" C4:W33 &qu...

       【指定儲存格>0紅色<0綠色】 本範例為設定A1公式，若A1>0則字型呈現紅色，<0則呈現綠色     AA.Range(" A1 ").Formula = "=U" & iRow & ...

      【取出ListBox資料】 注意：第1欄的Index=0，第2欄的Index=1, 以此類推… 選取列資料取出 SelectColumn1 = Me.ListBox1.Value SelectColumn2 = Me.ListBox1.Column( 1 ) 相關...

     【 在 VBA 中使用CountIfs函數 】 Application.WorksheetFunction.CountIfs(AA.Range(" G:G "), "條件1" , AA.Range(" AN:AN &qu...

    【寫入多欄ListBox資料】      With ListBox1     .AddItem "第一欄資料"     .List(.ListCount - 1, 1) = "第二欄資料" End With 相關課程： 章老師的電腦...

   【將指定範圍內不重複的資料加入ListBox】     '取得該列之不重複資料     Dim collData As New Collection, cel As Range, itm     On Error Resume Next     For Each c...

  【取消自動篩選，顯示所有資料】 ActiveSheet.AutoFilter.ShowAllData 這動作並不會取消自動篩選。 若要將自動篩選移除，必需使用 ActiveSheet.AutoFilterMode = False ActiveSheet.AutoFilter ...

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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