Archive for the ‘Office’ Category

折り返しWrapText

日曜日, 8月 25th, 2019
Sub r折り返し()

    If ActiveCell.WrapText = False Then
        Selection.WrapText = True
        Selection.EntireRow.AutoFit
    Else
        Selection.WrapText = False
    End If

End Sub

数式の代入/取得

月曜日, 7月 22nd, 2019

A1形式で数式の設定/取得
ActiveCell.Formula = “=A1+B1”

R1C1形式で数式の設定/取得
絶対参照
ActiveCell.FormulaR1C1 = “=R1C1+R1C2”
相対参照
ActiveCell.FormulaR1C1 = “=RC[-2]+RC[-1]”

引数が可変(ParamArray)

日曜日, 7月 21st, 2019
Function jointText(ParamArray 範囲())
    
    Dim i As Long
    Dim cell As Range
    Const 区切り文字 As String = "-"
    
    For i = 0 To UBound(範囲)
        If 範囲(i).Count > 1 Then
            For Each cell In 範囲(i)
                jointText = jointText & 区切り文字 & cell
            Next cell
        Else
            jointText = jointText & 区切り文字 & 範囲(i)  '2個目以降
        End If
    Next i
    jointText = Right(jointText, Len(jointText) - Len(区切り文字))
    
End Function

※省略可能なOptionalは使えない

Select Case 条件式

日曜日, 7月 21st, 2019

Case Is <

worksheet_changeで無限ループ(EnableEvents)

日曜日, 7月 21st, 2019

イベントを一旦停止して、値を書き換えた後にイベントを発生を有効にするといいサァ
Application.EnableEvents = False
Cell値代入
Application.EnableEvents = True

0埋め(Format)

日曜日, 7月 21st, 2019

MsgBox Format(ActiveCell,”0000″)

型を調べる

日曜日, 7月 21st, 2019

msgbox VarType(ActiveCell)