Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

1740 / 76734

←次へ　｜　前へ→


	【80639】マクロのコピーペストがうまく行かない

モリチャン

- 19/3/25(月) 20:54 -


	引用なし

	パスワード

電気試験の規格条件を、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

7 hits

▼

【80639】マクロのコピーペストがうまく行かない モリチャン 19/3/25(月) 20:54