Embedded Files
Hello
Private Sub TextBox1_Change()
Dim k As Long
Dim rg As Range
Dim ws As Worksheet
Dim adss As String
Dim n As Long
Dim i As Long, i0 As Long, j0 As Long
Dim ser As Series
Dim cht As Chart
Dim s As String
Set ws = Workbooks(wbname.Text).Worksheets(wsname.Text)
k = CLng(TextBox1.Text)
If CheckBox1 Then
ws.Range(rgname.Text).Value = k
End If
Call DrawGraph6(k)
If CheckBox2 Then
TextBox2.Text = ws.Range("$A$3").Value
TextBox3.Text = ws.Range("$R$12").Value
TextBox4.Text = ws.Range("$A$17").Value
TextBox5.Text = Workbooks(wbname.Text).Worksheets("ReadMe").Range("$F$21").Value
If CheckBox3 Then
ws.Activate
Set cht = Workbooks(wbname.Text).Worksheets(wsname.Text).ChartObjects(1).Chart
If パラメータリストを探す2("SerData=", ws, rg) > 0 Then
i0 = rg.Row
j0 = rg.Column - 1
ws.Cells(i0, j0 + 3).Value = TextBox2.Text
ws.Cells(i0, j0 + 4).Value = TextBox3.Text
ws.Cells(i0, j0 + 5).Value = TextBox4.Text
ws.Cells(i0, j0 + 6).Value = TextBox5.Text
j = j0 + 8
For Each ser In cht.FullSeriesCollection
ws.Cells(i0, j).Value = ser.Name
ser.Name = ser.Name + "(" + TextBox2.Text + ")"
s = ser.FormulaR1C1Local
s = Right(s, -1 + Len(s))
s = Left(s, -2 + Len(s)) + "☆)"
ws.Cells(i0, j + 1).Value = s
s = ser.FormulaLocal
s = Right(s, -1 + Len(s))
s = Left(s, -2 + Len(s)) + "☆)"
ws.Cells(i0, j + 2).Value = s
j = j + 4
ser.Name = ws.Cells(i0, j).Value
Next ser
ws.Cells(i0 + 1, j0).Value = ws.Cells(i0, j0).Value
ws.Cells(i0, j0).Value = ""
End If
End If
End If
End Sub
Private Sub TextBox1_Change()
Dim k As Long
Dim rg As Range
Dim ws As Worksheet
Dim adss As String
Dim n As Long
Dim i As Long, i0 As Long, j0 As Long
Dim ser As Series
Dim cht As Chart
Dim s As String
Set ws = Workbooks(wbname.Text).Worksheets(wsname.Text)
k = CLng(TextBox1.Text)
If CheckBox1 Then
ws.Range(rgname.Text).Value = k
End If
Call DrawGraph6(k)
If CheckBox2 Then
TextBox2.Text = ws.Range("$A$3").Value
TextBox3.Text = ws.Range("$R$12").Value
TextBox4.Text = ws.Range("$A$17").Value
TextBox5.Text = Workbooks(wbname.Text).Worksheets("ReadMe").Range("$F$21").Value
If CheckBox3 Then
ws.Activate
Set cht = Workbooks(wbname.Text).Worksheets(wsname.Text).ChartObjects(1).Chart
If パラメータリストを探す2("SerData=", ws, rg) > 0 Then
i0 = rg.Row
j0 = rg.Column - 1
ws.Cells(i0, j0 + 3).Value = TextBox2.Text
ws.Cells(i0, j0 + 4).Value = TextBox3.Text
ws.Cells(i0, j0 + 5).Value = TextBox4.Text
ws.Cells(i0, j0 + 6).Value = TextBox5.Text
j = j0 + 8
For Each ser In cht.FullSeriesCollection
ws.Cells(i0, j).Value = ser.Name
ser.Name = ser.Name + "(" + TextBox2.Text + ")"
s = ser.FormulaR1C1Local
s = Right(s, -1 + Len(s))
s = Left(s, -2 + Len(s)) + "☆)"
ws.Cells(i0, j + 1).Value = s
s = ser.FormulaLocal
s = Right(s, -1 + Len(s))
s = Left(s, -2 + Len(s)) + "☆)"
ws.Cells(i0, j + 2).Value = s
j = j + 4
ser.Name = ws.Cells(i0, j).Value
Next ser
ws.Cells(i0 + 1, j0).Value = ws.Cells(i0, j0).Value
ws.Cells(i0, j0).Value = ""
End If
End If
End If
End Sub
Google Sites
Report abuse