| |
「要確認」というセルを含む行があれば、その行を「要確認一覧」という別シートにコピーする方法で考え中ですがエラーが発生してしまいます。
また、検査範囲は数行にわたるのですが、同じ事を行数分繰り返すしかないのでしょうか・・
Sub Macro1()
'
' Macro1 Macro
' マクロ記録日 : 2012/1/13 ユーザー名 :
Range("H22").Select
For i = 1 To 7
a = ActiveCell.Value
If a = "要確認" Then
c = ActiveCell.Row
ActiveCell.FormulaR1C1 = c
Exit For
End If
ActiveCell.Offset(0, 1).Activate
Next i
Rows(CStr(c)).Copy Sheets("要確認一覧").Range("B4")←この行が黄色くなります
End Sub
>マクロ初心者でどうしたらよいかわかりません。。
>契約者の工程管理で次のような機能をもたせたいのですがどのようにしたらいいでしょうか。
>名前 作業１ 作業2 作業３ ・・ 備考
> 作業予定日 作業日 作業日 作業予定日 作業日
>山田 1/1 2/1 2/5 3/5 3/10
>鈴木 2/1 2/5 6/5 7/1 7/5
>
>このような表があるとします。
>各作業には作業予定日があるものとないものがあります。作業予定日は日付（実際は西暦も表示）が入力されていて、作業をしたら作業日に入力していきます。
>このとき、「作業予定日を過ぎているのに作業日が空欄の人」が別のシートに自動でｺﾋﾟｰされる、ということは可能でしょうか。
>また、上のようなシートが３つ（例えばABC）あり、貼り付け先のシートは１つで、ABCごとに貼り付ける場所は固めたいのです。
>
>苦し紛れに、今は、作業予定日が過ぎたら「作業日」に「確認」という文字がでるようにIF関数を入れてあります。「確認」という字がある行をｺﾋﾟｰする というやり方になるのでしょうか。それともそのようなことをしなくてもマクロで可能なのでしょうか。
>わかるかたがいらっしゃいましたらよろしくお願い致します。
|
|
fuji
- 12/1/24(火) 12:27 -
