標準のFindNextでは検索できない「取消線の入ったセル」を検索するためのクラスです。「」の部分は簡単にカスタマイズできるので、簡単に任意の条件で検索する機能を作ることができます。 CellFinder アクティブセルから「前へ」「次へ」を検索するクラスで…

Excelで指定したフォルダ内のファイルをピックアップする処理を書くときに使うクラスです。 FileFinder Option Explicit ' ------------------------------------------------------------------------------- ' FileFinder クラス ' 指定フォルダ内のファイ…

UserFormにListBoxとSpinButtonをポトリペタして以下のコードを貼り付けます。 Option Explicit Private Sub UserForm_Initialize() ListBox1.MultiSelect = fmMultiSelectExtended Dim i As Long For i = 1 To 10 ListBox1.AddItem "hoge:" & i Next End Su…

' Similar(refs as 検索範囲, ref as 検索対象, deg as 類似度) Function Similar(refs As Range, ref As Range, deg As Long) As Boolean Dim r As Range For Each r In refs If (r.Address <> ref.Address) And (Len(r.Value) > 0) Then If SimilarStrings…

Function 式(c As Range) As String Dim s As String, a As String, i As Long, j As Long, r As Range s = c.Formula For i = 2 To Len(c.Formula) 'i:Midの開始位置 1文字目の「=」は飛ばす For j = Len(c.Formula) - i + 1 To 1 Step -1 'j:Midの文字数 a…

VERSION 1.0 CLASS BEGIN MultiUse = -1 ' True END Attribute VB_Name = "Node" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = False Attribute VB_Exposed = False Option Explicit Dim m_Name As S…

Sub Export(ws As Worksheet) Dim f As Variant f = Application.GetSaveAsFilename(ws.Name & ".txt", "テキストファイル (*.txt), *.txt") If f = False Then Exit Sub Open f For Output As #1 Const topx = 2 Const topy = 5 Dim endx As Long Dim endy …