Excel VBA質問箱 IV

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

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


19 / 13274 ツリー ←次へ | 前へ→

【80639】マクロのコピーペストがうまく行かない モリチャン 19/3/25(月) 20:54 質問[未読]
【80640】Re:マクロのコピーペストがうまく行かない マナ 19/3/25(月) 21:25 発言[未読]
【80641】Re:マクロのコピーペストがうまく行かない マナ 19/3/25(月) 21:43 発言[未読]
【80664】Re:マクロのコピーペストがうまく行かない モリチャン 19/3/29(金) 23:37 お礼[未読]

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

引用なし
パスワード
   電気試験の規格条件を、EXCELデータとし、試験項目の番号の規格条件を信頼性試験のグラフブックの規格表に貼り付け、EXCELでグラフ作成をします。コンセプトは、フォーム上で規格表データを読み込み、グラフ表に規格を貼り付ける事です。フォームのコードは、完全の様で、gfilename,dfilenameはテキストボックスに入っています。
モジュールのロジックは良いと思うのですが、モジュール部をF8で動かせる解析すると、変数Iは、1までしか動かず、D,Data(dfile)に、データが入りません。モジュール部で問題ないでしょか。
1)kは動くが、iが、Len関数が効いていないのか、1以外変化しない。iに対するLenの使い方はこれで良いのでしょうか?
(Cells find以下が動いていなくて、Copyができないようなので)
2)dfilename(1)が入っていないがDataに読み込ませる方法は無いでしょうか?TESTNOも変数宣言してみました。
3)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

【80640】Re:マクロのコピーペストがうまく行かない
発言  マナ  - 19/3/25(月) 21:25 -

引用なし
パスワード
   ▼モリチャン さん:

前回の質問は、解決したのでしょうか?
今回も、同じことをお願いします。

まずは、インデントから
ht tp://kabu-macro.com/word/sa-so/zisage.html

次に、変数宣言
ht tp://officetanaka.net/excel/vba/beginner/11.htm

質問は、それからで。

【80641】Re:マクロのコピーペストがうまく行かない
発言  マナ  - 19/3/25(月) 21:43 -

引用なし
パスワード
   ▼モリチャン さん:

あら、今回も、マルチポストでしたか。
こちらは、必要なさそうですね。

本サイトの基本方針
ht tp://www.vbalab.net/bbspolicy.html

別のサイト(掲示板)にまったく同じ目的の投稿をすることを、一般に「マルチポスト」といいます。当質問箱では、マルチポストは原則認めています。つまり、ほかのサイトで質問したことをこのサイトで質問してもかまわないということです。

しかし、もしマルチポストをするのなら、可能な限り「○○にも同じ質問を出しました」ということを宣言してください。そして、仮に他のサイトで解決したのなら、ここにも必ずその顛末を書いてください。質問しっぱなし、というのはモラルに反します。「解決したからいいや」というのではありません。

また、マルチポストを明示的に禁止しているサイトとのマルチポストをしてはいけません。

【80664】Re:マクロのコピーペストがうまく行かない
お礼  モリチャン  - 19/3/29(金) 23:37 -

引用なし
パスワード
   すみません。期末までにマクロ作れと言うことで、マクロ作成していました。現在までバグが治っていないので、採用しないと言うことになりました。アドバイス有難うございました。

19 / 13274 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free