Archives by date

You are browsing the site archives by date.

【Excel】ユーザー定義関数を作成する。

メモ。

1, 「Alt + F11」を押してVBAエディタを開く。

2, 左側のプロジェクト一覧のところで右クリックし、そのメニューから「挿入(N)」→「標準モジュール(M)」を選択する。

1

3, あとは出てきたエディタに関数を記述してやれば、各シートから利用することが出来る。

2

 

【Excel】文字列連結を範囲指定で行う。

concatenate関数を範囲指定で行えないかと考えていたらよさげな関数が落ちていたのでメモ。

Function CONCATENATERANGE(ParamArray Elements())
    Dim c, ub As Long
    Dim t As String
    Dim rng, rngs As Range
    ub = UBound(Elements())
    t = ""
    For c = 0 To ub
        Set rngs = Elements(c)
        For Each rng In rngs
            If Not IsEmpty(rng.Value) Then
                t = t & rng.Value
            End If
        Next
    Next c
    CONCATENATERANGE = t
End Function

使用方法は下記の通り。

CONCATENATERANGE([範囲])

これはくっそ便利