Logbook of Martin

 Mid為擷取指定位置&長度的部分字串, 其起始位置start param.起始值為1, 非0開始 start param.=0, failure “Run-Time Error '5': Invalid Procedure Call or Argument” start param.=1, successful ref

 近期使用Format函數補齊Hex的位數, 在0xA-0xF區間遇到無法補0的問題 改用Right函數即可 Ref: Format function (Visual Basic for Applications) | Microsoft Docs Right function (Visual Basic for Applications) | Microsoft Docs

使用 For Each 迴圈將 Split Func. 回傳的陣列傳入 Collection Object Dim tmp, x Dim buf As New Collection tmp = ListFiles(ActiveWorkbook.Path & "\config\", "*.txt") ' Split Function tmp = Split(tmp, "|") ' Assign to Collection Object For Each x In tmp buf.Add x Next x ' Print For Each x In buf Debug.Print x Next x

https://support.microsoft.com/zh-tw/help/291308/how-to-select-cells-ranges-by-using-visual-basic-procedures-in-excel Microsoft 僅提供示範性的程式設計範例，不做任何明示或默示的保證。 其中包括 (但不限於) 其適售性與適合某特定用途之默示擔保。 本文將假設您已相當熟悉示範所使用的程式設計語言，以及用於建立和偵錯程序的工具。 Microsoft 技術支援工程師可以協助說明特定程序的功能，但無法修改這些範例以提供附加功能或建構程序來滿足您的特定需求。  本文中的範例會使用下表中所列的 Visual Basic 方法。 方法 引數 ------------------------------------------ Activate none Cells rowIndex, columnIndex Application.Goto reference, scroll Offset rowOffset, columnOffset Range cell1 cell1, cell2 Resize rowSize, columnSize Select none Sheets index (or sheetName) Workbooks index (or bookName) End direction CurrentRegion none 本文中的範例會使用下表中的屬性。 屬性 用途 --------------------------------------------------------------------- ActiveSheet 指定使用中的工作表 ActiveWorkbook 指定使用中的活頁...