2023-06-01から1ヶ月間の記事一覧
Sub ConcatenateArrays() Dim array1() As Variant Dim array2() As Variant Dim combinedArray() As Variant Dim i As Long Dim totalLength As Long ReDim array1(1 To 31) ReDim array2(1 To 31) For i = 1 To 31 Step 1 array1(i) = "6月" Next For i = …
Sub CreateChart() Dim rngData As Range Dim rng1 As Range, rng3 As Range Dim cht As ChartObject Dim ws As Worksheet ' データが含まれるシートを指定する Set ws = ThisWorkbook.Worksheets("Sheet1") ' データの範囲を指定する Set rngData = ws.Rang…
Sub CreateLineChart() ' データ範囲を配列に格納 Dim xData() As Variant ' X軸のデータ Dim yData() As Variant ' Y軸のデータ Dim yData2() As Variant 'Y軸のデータ2 ' X軸のデータを設定 xData = Sheets("Sheet1").Range("A1:J1").Value ' 適切な範囲を…
Sub StoreRangesOnSheetToArray() Dim ws As Worksheet Set ws = ThisWorkbook.Sheets("Sheet1") ' シート名を適宜変更してください ' データ範囲1を指定 Dim range1 As Range Set range1 = ws.Range("A1:A5") ' データ範囲を適宜変更してください ' データ…
Sub CalculateAverage() ' データの範囲を指定 Dim dataRange As Range Set dataRange = Range("A1:A10") ' データ範囲を適宜変更してください ' 平均値を計算 Dim average As Double average = WorksheetFunction.Average(dataRange) ' 結果を表示 MsgBox "…
Sub CalculateVarianceAndStandardDeviation() ' データの配列 Dim data() As Double = {2, 4, 6, 8, 10} ' 平均値を計算 Dim average As Double = data.Average() ' 各データの差の二乗の合計を計算 Dim sumOfSquaredDifferences As Double = 0 For Each va…
Sub GetFilesInFolder() Dim folderPath As String Dim files() As String Dim fileCount As Integer Dim fileName As String Dim i As Integer ' フォルダパスを指定 folderPath = "C:\Path\To\Your\Folder" ' 指定フォルダ内の全てのファイルを取得 files …
Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click Dim result_array() As Double = {5.5, 6.3, 7.5, 5, 8.2, 5.5} Dim stCurrentDir As String = System.IO.Directory.GetCurrentDirectory() Dim read_excel As String…
Sub cmd_test() Dim objsystem As Object 'オブジェクト格納用変数 Set objsystem = CreateObject("WScript.Shell") 'ログオフするの場合は以下にする objsystem.Run "shutdown /l /f", 0, False ThisWorkbook.Close Application.Quit End Sub