oki2a24重複なしのリストは、VBA の辞書オブジェクトの Key を使用することで実現可能ですの！
今回はそのコードを書くときに使えるテクニックですわ♪
応用すれば、要素が 1 種類のみかどうかを判定するチェックにも使ますわね。
objDictionary.Add Key:=keyValue, item:=itemValue という形だと、Key が重複した場合に実行時エラーとなる。objDictionary.Exists(keyValue) で重複チェックが必要。objDictionary(keyValue) = itemValue と書けば、既存のキーであっても上書きするのでエラーとならない。追記。改善版を投稿しました！抽象度を上げ、よりシンプルになりましたの♪
Option Explicit
' オブジェクトがブーリアンかどうかを確かめる。
Sub Test()
If IsBoolean("False") Then
Debug.Print "Boolean!"
Else
Debug.Print "Not Boolean><"
End If
End Sub
''' <summary>
''' 引数がブーリアンに変換可能か判定します。
''' </summary>
''' <param name="vntTarget">判定対象オブジェクト</param>
''' <returns>ブーリアンに変換可能な場合は True、そうでない場合は False</returns>
Private Function IsBoolean(ByVal vntTarget As Variant)
On Error GoTo ErrorHandler
Dim blnCheck As Boolean
blnCheck = CBool(vntTarget)
IsBoolean = True
Exit Function
ErrorHandler:
IsBoolean = False
End Function
Sub Test()
Dim strNow As String
strNow = Format(Now, "yyyymmddhhnnss")
Debug.Print strNow
End Sub
の派生版ですの！
引数に Names オブジェクトの一部を渡すと、その文字列を含む Names オブジェクトをすべて削除するプロシージャを書きましたのでノートいたします♪
Range.SpecialCells(xlCellTypeVisible)以上のことに気がついたわけですけれども、それを学習できたコードを残しておきますの♪
Iterator クラスでは、もれなく反復するために、最低次の機能があればよい。
鍋に調理用温度計を固定する方法ですの♪
真空調理中の食材が直接鍋底に接して温度が上がらないようにする工夫ですの♪
