2021-05-26から1日間の記事一覧
SSMSの結果と同じ Range("B1").CopyFromRecordset Data:=rs 縦横入れ替え Range("B1:F2").Value = rs.GetRows
` Dim r As Long ' グラフを削除 With ActiveSheet For r = .ChartObjects.Count To 1 Step -1 .ChartObjects(r).Delete Next r End With `
```配列を格納 Dim MyArray1 MyArray11 = Range("C5:C14").Value ``` ```配列に出力 Range("F5:F14").Value = MyArray12 ```