2021-05-01から1ヶ月間の記事一覧

vba：課題

新規ブックのsheet1に張り付ける Sub SetData() ' 画面を初期化 Rows("1:19").Select Selection.Delete Shift:=xlUp ' 列の選択状態を解除 Sheet1.Range("A1").Select ' 実行ボタンを生成 With ActiveSheet.Buttons.Add(Range("B5").Left, _ Range("B5").Top…

#vba #課題

vba：SQLの結果をExcelに出力

SSMSの結果と同じ Range("B1").CopyFromRecordset Data:=rs 縦横入れ替え Range("B1:F2").Value = rs.GetRows

vba：グラフ削除

` Dim r As Long ' グラフを削除 With ActiveSheet For r = .ChartObjects.Count To 1 Step -1 .ChartObjects(r).Delete Next r End With `

vba：配列に格納と配列をExcelに出力

```配列を格納 Dim MyArray1 MyArray11 = Range("C5:C14").Value ``` ```配列に出力 Range("F5:F14").Value = MyArray12 ```

#VBA #vba