[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『マクロ式について』(あこ)
下記マクロ式をサイトからお借りして使用していますが、
このマクロ式に続けて式をいれたいのですが、続けて式を入れ実行してもエラーは出ないものの下記式のまま計算が止まってしまいます。
sheet2のA1セルに数値を入力。sheet1のA列にsheet2/A1と同じ数値のある行を行ごと
sheet2の3列目にコピペ で探し使用した式↓
−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
Set Cs = ActiveSheet
For Each Ws In Worksheets
If Ws.Name <> Cs.Name Then
Set Fr = Ws.Columns(1).Find(what:=Range("A1").Value, lookat:=xlWhole)
If Not Fr Is Nothing Then Rows(3).Value = Ws.Rows(Fr.Row).Value: Exit Sub
End If
Next
−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
この後、シート2の2〜3行目を
Range("A2:A3").Select Range(Selection, Selection.End(xlToRight)).Select
A4セルへ縦並びに変換して貼付けをしたいのですが
Range("A4").Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=True
方法を教えてください。
よろしくお願いいたします。
< 使用 Excel:Excel2010、使用 OS:Windows7 >
> Exit Sub はそのプロシージャを終わらせる。 Exit Loop にしてはどうか?
(ねむねむ) 2014/11/27(木) 15:12
ありがとうございます。
Exit Sub はプロシージャを終わらせる意味のものだったんですね。
知らないで使用していたのでとても参考になりました。
Exit Loopにしてみたらエラーになり、Exit For にしてみたら 解決しました。
ありがとうございました。
(あこ) 2014/11/27(木) 22:47
きちんと確認してなくてすまない。 LoopはDoに対するものでさらにDoに対応するExitはExit Doと二重に間違えていた。 (ねむねむ) 2014/11/28(金) 09:23
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.