DrawGraphMacro001

Draw6Test.Show (modaless)

This macro shows IV step by step

Sub UserForm_Initialize()

Dim k As Long

Dim i0 As Long, j0 As Long

Dim rg As Range

Dim ws1 As Worksheet, ws2 As Worksheet, ws3 As Worksheet, wb As Workbook

Dim flg As Long

Height = 100

Width = 200

Top = 0

Left = 0

For Each wb In Workbooks

Call GetExcelDataWorkBook6(ws1, ws2, ws3, wb, flg)

'ws1 = "amc_......

'ws2 = "list_.

'ws3 = "newgraph.

'MsgBox "ta"

If flg >= 3 Then

ws3.Activate

Application.WindowState = xlNormal

'Application.Windows(wb.Name).Activate

'CheckBox1.Value = False

ActiveWindow.Top = 0

ActiveWindow.Left = 0

ActiveWindow.Height = 600

ActiveWindow.Width = 800

Application.Goto ws3.Range("A1")

'MsgBox ws3.Name

maxnum = 0

Call コマ送り最大値最小値(ws1, ws2, ws3)

If パラメータリストを探す2("最大コマ番号=", ws3, rg) > 0 Then

maxnum = rg.Value

End If

'MsgBox maxnum

If ws3.Cells.Find("FigureNumber=") Is Nothing Then

k = 1

Else

Set rg = ws3.Cells.Find("FigureNumber=")

Set rg = rg.Cells(1, 2)

k = rg.Value

If k < maxnum Then k = maxnum

rgname.Text = rg.Address

wsname.Text = rg.Parent.Name

wbname.Text = rg.Parent.Parent.Name

CheckBox1.Value = True

End If

TextBox1.Text = Format(k, "0")

End If

Next wb

End Sub