月別: 2020年9月

Sub Macro0504()
Dim rng As Range
For Each rng In Selection
rng.Value = rng.Value & “様”
Next rng
End Sub

Sub Macro0503()
Dim MyArray() As Variant
MyArray = Range(“A1:C3”).Formula
MsgBox MyArray(2, 2)
End Sub

Sub Macro0502()
Dim myData(1, 1) As Variant
myData(0, 0) = “A社”
myData(0, 1) = “B社”
myData(1, 0) = 50
myData(1, 1) = 100
Range(“B2:C3”).Value = myData
End Sub

 

Sub SampleStatement()
Range(“A1:D1”).Value = Array(18, “A”, 37, “=SUM(A1:C1)”)
End Sub

Sub SampleStatement()
Selection.Value = Selection.Value
End Sub

Sub SampleStatement()
Range(“C1”).Value = “=SUM(A1:A7)”
Range(“C3”).Formula = “=SUM(A$1:A$7)”
Range(“C5”) = “=SUM($A$1:$A$7)”
End Sub

Sub SampleStatement()
Range(“A1”).Value = “ABC”
Range(“A3”).Formula = 123
Range(“A5”).FormulaR1C1 = “あいうえお”
Range(“A7”) = 456
End Sub

Sub SampleStatement()
ActiveCell.EntireColumn.Select
End Sub

行全体

ActiveCell.EntireRow.Select

Sub SampleStatement()
ActiveSheet.UsedRange.Select
End Sub