|
こんにちは。かみちゃん です。
全体のシート内容がよくわからないのですが、
>1.AutoFilterのCriterialが支給月のたびに(賞与支給月の前月分)変わるので、変数mykeyで取り込もうとしましたが、うまくいきません。VBAに直接"H22.03.26"と記述して実行するとうまくできるのですが、mykeyにするとうまくいきません。mykey自体が空なのか、日付型として認識せずにAutoFilterできないのか?、解決策をご教示ください。
格納庫.xls - Sheet("平成22年")
のシートレイアウトを教えてください。
特に
Selection.Autofilter Field:=1,Criterial:=mykey
に対応する列は、
2010/3/26 という日付型(シリアル値)ではなく、
H22.3.26 という文字列 なのか?
次に、
賞与処理.xls - Sheet("賞与メニュー")
の P14 セルはどのような値が入っているのか教えてください。
mykey = Range("p14").Value
というコードになっていますが、
2010/3/26 という日付型(シリアル値)ではなく、
H22.3.26 という文字列 なのか?
それとも、表示形式で設定しているのか、
mykey = Range("p14").Text
とするとどのような値が myKey に入るのか?
>2.Application.DisPlayAlerts=Falseを記述しないと「クリップボードに大きな情報があります。・・・」と表示され、「はい」を選択しないと先に進みません。Application.DisPlayAlerts=Falseと記述しておけばよいのですが、クリップボードを経由しないですむ記述をご教示ください。
どこのコードでそのメッセージが出るのかは把握されていますか?
> Rows("2:200").Select '抽出後、抽出データをsheet"前月分"に行複写するため
> Selection.Copy
> Range("a2").Select '黒く反転部分する部分を解除するため
>
> Application.WindowState=xlNormal
> Windows.Arrange ArrangeStyle:=xlvertical
>'sheet"平成22年"が表示されているので、Sheet"前月分"を前面に表示させるため
> Windows("賞与処理.xls").Activate
> Worksheets("前月分").Activate
> Range("a1").Select '抽出データのコピー先セル
の部分は
Rows("2:200").Copy Workbooks("賞与処理.xls").Worksheets("前月分").Range("A1")
という1行にまとめられ、クリップボードを経由しません。
>3.ActiveWindow.WindowState=xLMaximized
> Application.Windowstate=xLMaximized と記述しないと、画面が最小のままで、そのwindowに左右並列表示の片割れ状態で表示されたままになってしまうため、この記述をしています。このまま記述しておいてもよいのですが、解決策はありませんか?
まったく確認していませんが、
必要ないのではないでしょうか?
|
|