配列をDataGridViewに入れるプログラムを出して

Imports System.Data
Imports System.Windows.Forms

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' DataGridViewに表示するデータを含む配列を作成します
        Dim data As String(,) = {
            {"John", "Doe", "30"},
            {"Jane", "Smith", "25"},
            {"Bob", "Johnson", "35"}
        }

        ' DataTableを作成し、列を追加します
        Dim dataTable As New DataTable()
        dataTable.Columns.Add("First Name", GetType(String))
        dataTable.Columns.Add("Last Name", GetType(String))
        dataTable.Columns.Add("Age", GetType(Integer))

        ' 配列のデータをDataTableに追加します
        For Each row As String() In data
            dataTable.Rows.Add(row)
        Next

        ' DataGridViewにDataTableをバインドします
        DataGridView1.DataSource = dataTable
    End Sub
End Class

vb.netで指定フォルダ内の複数のcsvファイルを取得し、その中から指定ファイルの内容を配列に格納するプログラム

    Sub file_get()
        Dim folderPath As String = "C:\Users\sannp\Desktop\指定フォルダ" ' 指定フォルダのパスを設定
        Dim csvFiles() As String = Directory.GetFiles(folderPath, "*.csv")
        Dim targetFileName As String = "Book1.csv"
        Dim targetData As New List(Of String)() ' データを格納するリスト
        Dim i As Integer

        For Each csvFile As String In csvFiles
            If Path.GetFileName(csvFile) = targetFileName Then
                ' 対象のCSVファイルを見つけた場合
                Using reader As New StreamReader(csvFile)
                    While Not reader.EndOfStream
                        Dim line As String = reader.ReadLine()

                        ' データをリストに追加
                        targetData.Add(line)
                        i = i + 1
                    End While
                End Using
            End If
        Next

        ' データを配列に変換
        Dim dataArray As String() = targetData.ToArray()

        TextBox1.Text = dataArray(1)

    End Sub

vb.netでchartをマウスホイールでズームしたい

    Private Sub Chart1_MouseWheel(sender As Object, e As MouseEventArgs) Handles Chart1.MouseWheel

        Dim yMax As Double = Chart1.ChartAreas(0).AxisY.Maximum
        Dim yMin As Double = Chart1.ChartAreas(0).AxisY.Minimum
        Dim yChange As Double = 1

        If e.Delta > 0 Then
            ' マウスホイールを上に回すとズームイン
            'Chart1.ChartAreas(0).AxisY.ScaleView.Zoom(Chart1.ChartAreas(0).AxisY.ScaleView.ViewMinimum * 0.9, Chart1.ChartAreas(0).AxisY.ScaleView.ViewMaximum * 0.9)
            Chart1.ChartAreas(0).AxisY.Minimum = yMin + yChange
            Chart1.ChartAreas(0).AxisY.Maximum = yMax - yChange
        ElseIf e.Delta < 0 Then
            ' マウスホイールを下に回すとズームアウト
            'Chart1.ChartAreas(0).AxisY.ScaleView.Zoom(Chart1.ChartAreas(0).AxisY.ScaleView.ViewMinimum * 1.1, Chart1.ChartAreas(0).AxisY.ScaleView.ViewMaximum * 1.1)
            Chart1.ChartAreas(0).AxisY.Minimum = yMin - yChange
            Chart1.ChartAreas(0).AxisY.Maximum = yMax + yChange
        End If
    End Sub

vbaで配列に他の配列を加算して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 = 1 To 31 Step 1
        array2(i) = "7月"
    Next
    
    ' 結合後の配列の長さを計算する
    totalLength = UBound(array1) - LBound(array1) + 1 + UBound(array2) - LBound(array2) + 1
    
    ' 結合後の配列を作成する
    ReDim combinedArray(1 To totalLength)
    
    ' array1を結合後の配列にコピーする
    For i = LBound(array1) To UBound(array1)
        combinedArray(i) = array1(i)
    Next i
    
    ' array2を結合後の配列にコピーする
    For i = LBound(array2) To UBound(array2)
        combinedArray(UBound(array1) + i) = array2(i)
    Next i
    
    ' 結合後の配列を1行に書き込む
    Range("A10").Resize(1, totalLength).Value = combinedArray
End Sub

vbaで3行のうち、1行目と3行目を選択してグラフ化したい

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.Range("A1:J3") ' データが含まれる範囲
    
    ' 1行目と3行目のデータを選択する
    Set rng1 = rngData.Rows(1)
    Set rng3 = rngData.Rows(3)
    
    ' グラフを作成する
    Set cht = ws.ChartObjects.Add(Left:=100, Top:=100, Width:=400, Height:=300) ' グラフの位置とサイズを指定する
    With cht.chart
        .ChartType = xlLine ' ライングラフを使用する場合
        .SetSourceData Source:=Union(rng1, rng3) ' 選択したデータをグラフのデータとして設定する
        ' グラフの設定や書式を行う場合は、ここに追加のコードを記述する
    End With
End Sub

VBAで2つのデータ範囲を配列に格納し、折れ線のグラフを出し、タイトルと下部に系統名を入れよ

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 ' 適切な範囲を指定してください

    ' Y軸のデータを設定
    yData = Sheets("Sheet1").Range("A2:J2").Value ' 適切な範囲を指定してください

    ' グラフ作成
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets.Add ' 新しいシートを追加

    Dim chart As ChartObject
    Set chart = ws.ChartObjects.Add(Left:=10, Top:=10, Width:=400, Height:=300) ' チャートオブジェクトを作成

    With chart.chart
        .ChartType = xlLine ' 折れ線グラフを設定
        .SetSourceData Source:=ws.Range("A1:B10") ' データ範囲を指定してデータを設定
        
        ' X軸の設定
        .SeriesCollection(1).XValues = xData
        ' Y軸の設定
        .SeriesCollection(1).Values = yData
        .SeriesCollection(1).Name = "Series 1" ' 系列1の名前を設定
    
'        .SeriesCollection.NewSeries ' 新しい系列を追加
'        .SeriesCollection(2).Values = yData2
'        .SeriesCollection(2).Name = "Series 2" ' 系列2の名前を設定
    
        ' グラフのタイトルを設定
        .HasTitle = True
        .ChartTitle.Text = "折れ線グラフのタイトル"
        
        ' グラフの凡例を表示
        .HasLegend = True
        .Legend.Position = xlLegendPositionBottom ' 凡例を下部に表示
        
    End With
End Sub

VBAで指定シート上の3つのデータ範囲を1つの配列に格納する方法を出して

Sub StoreRangesOnSheetToArray()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1") ' シート名を適宜変更してください

    ' データ範囲1を指定
    Dim range1 As Range
    Set range1 = ws.Range("A1:A5") ' データ範囲を適宜変更してください

    ' データ範囲2を指定
    Dim range2 As Range
    Set range2 = ws.Range("B1:B5") ' データ範囲を適宜変更してください

    ' データ範囲3を指定
    Dim range3 As Range
    Set range3 = ws.Range("C1:C5") ' データ範囲を適宜変更してください

    ' 3つのデータ範囲を結合して1つの範囲にする
    Dim combinedRange As Range
    Set combinedRange = Union(range1, range2, range3)

    ' 結合した範囲の値を配列に格納
    Dim dataArray As Variant
    dataArray = combinedRange.Value

    ' 配列のデータを表示
    Dim i As Long
    For i = LBound(dataArray) To UBound(dataArray)
        Debug.Print dataArray(i, 1)
    Next i
End Sub