区切り文字指定が可能なセル文字列連結関数

Function join(r As Range, sep As String) As String
    
    Dim result As String
    
    Dim c As Range
    For Each c In r
        If c.Value <> "" Then
            result = result & c.Value & sep
        End If
    Next c
    
    If Len(result) = 0 Then
        join = ""
    Else
        join = Left(result, Len(result) - Len(sep))
    End If

End Function

指定した文字列を含むセルを検索する関数

Function FINDCELL(r As Range, str As String) As Object

    Dim theCell As Object
    Set theCell = r.Cells.Find(str, LookAt:=xlPart)
    If theCell Is Nothing Then
        Set FINDCELL = Nothing
    Else
        Set FINDCELL = theCell
    End If
    
End Function

match

vlookupの列指定を数値でやってしまうと、列の順序を変えられなくなって困るので、match関数でヘッダから列名を検索することにした。その代わり列名は固定。

vlookup無双

エクセルで各シートをテーブルに見立ててvlookupで参照．
vlookup無双である．

.bat, .wsh, .vbs

vbsだけ使えることがわかった．

しごと

空間がゆがんでいるが，現在の職場机はこんな感じ．「しごと」って書いてるのが積み上がっている紙の束．1つの単位仕事ごとにバインダーに留められている．今日は２回崩れたｗ URL

2011-05-24 00:12:06 via Twitpic

転勤

4月末に転勤になりました．

今までは地下鉄車両の整備をやってましたが，新しい職場では事務をしてます．
整備員のときに「あれが欲しいこれが欲しい」と要求することがあったのですが，今度はその要求を聞く側です．
まあそれはともかく．
以下，愚痴．