ライブラリ

fRange_Union

***************************************************************
Rangeを結合させる
※Union関数がNothingに対応していないので対応

【引数】Range1 :レンジ
              Range2 :レンジ
***************************************************************

Public Function fRange_Union(Range1 As Range, Range2 As Range) As Range
'- Unionする
    
    If Range1 Is Nothing Then
        
        Set fRange_Union = Range2
        
    ElseIf Range2 Is Nothing Then
        
        Set fRange_Union = Range1
            
    Else
            
        Set fRange_Union = Union(Range1, Range2)
        
    End If
       
End Function

Range   2017/11/21   shono

この記事へのコメント

コメントを送る

 
※ メールは公開されません
Loading...
 画像の文字を入力してください