折り返しWrapText
日曜日, 8月 25th, 2019Sub r折り返し()
If ActiveCell.WrapText = False Then
Selection.WrapText = True
Selection.EntireRow.AutoFit
Else
Selection.WrapText = False
End If
End Sub
Sub r折り返し()
If ActiveCell.WrapText = False Then
Selection.WrapText = True
Selection.EntireRow.AutoFit
Else
Selection.WrapText = False
End If
End Sub
A1形式で数式の設定/取得
ActiveCell.Formula = “=A1+B1”
R1C1形式で数式の設定/取得
絶対参照
ActiveCell.FormulaR1C1 = “=R1C1+R1C2”
相対参照
ActiveCell.FormulaR1C1 = “=RC[-2]+RC[-1]”
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は使えない
イベントを一旦停止して、値を書き換えた後にイベントを発生を有効にするといいサァ
Application.EnableEvents = False
Cell値代入
Application.EnableEvents = True
MsgBox Format(ActiveCell,”0000″)