| |
電気試験の規格条件を、EXCELデータとし、試験項目の番号の規格条件を信頼性試験のグラフブックの規格表に貼り付け、EXCELでグラフ作成をします。コンセプトは、フォーム上で規格表データを読み込み、グラフ表に規格を貼り付ける事です。フォームのコードは、完全の様で、gfilename,dfilenameはテキストボックスに入っています。
モジュールのロジックは良いと思うのですが、モジュール部をF8で動かせる解析すると、変数Iは、1までしか動かず、D,Data（ｄfile)に、データが入りません。モジュール部で問題ないでしょか。
１）kは動くが、iが、Len関数が効いていないのか、1以外変化しない。iに対するLenの使い方はこれで良いのでしょうか？
（Cells find以下が動いていなくて、Copyができないようなので）
２）ｄfilename（１）が入っていないがDataに読み込ませる方法は無いでしょうか？TESTNOも変数宣言してみました。
３）D=Val(mid）関数だが、これで動くのでしょうか？
規格転送は、オブジェクト名です。
Sub dialog_show()
規格転送.規格ﾌｧｲﾙ = ""
規格転送.送られ側 = ""
規格転送.Show
If Button = "ok" Then Call main
End Sub
Sub main()
Dim sinn
Dim i
Dim k
Dim Data
Dim D
Workbooks.Open Filename:=gfilename(1)
sinn = ActiveWorkbook.Name
Sheets("規格値").Select
Range("E10").Select
ActiveCell.Offset(0, 0).Range(Cells(1, 1), Cells(15, 7)).Select
Selection.ClearContents
For k = 1 To 7
For i = 1 To i = Len(TESTNO) / 2 'Test項目数
Workbooks.Open Filename:=dfilename(1)
Data = ActiveWorkbook.Name
Windows(sinn).Activate
Range("E10").Select
ActiveCell.Offset(k - 1, i - 1).Select
Windows(Data).Activate
D = Val(Mid(TESTNO, (i - 1) * 2 + 1, 2)) 'Test項目の番号
Cells.Find(What:="D", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
.Activate
ActiveCell.Offset(k - 1, 0).Copy
Windows(sinn).Activate
Selection.PasteSpecial Paste:=xlFormula
Next i
Next k
ActiveWindow.Close
If k = 7 Then
Application.ScreenUpdating = True
MsgBox ("終了しました")
End If
End Sub
|
|
はじめまして
- 19/3/26(火) 14:06 -
- 19/3/26(火) 11:27 -
マナ
- 19/3/25(月) 21:43 -
ゆうすけ
- 19/3/25(月) 14:29 -
ピンク
- 19/3/22(金) 15:09 -
