Gizport
1 回答
0
Share (facebook)
62
view
全般

エクセル2003で正常に動作していたVBAプログラムが2007で処理...

エクセル2003で正常に動作していたVBAプログラムが2007で処理すると、オートフィルターが誤動作するようです。どこを修正したら良いのでしょうか? 処理内容は、一覧表内で1を入力されたセルの行をオートフィルターで抽出し、抽出された一覧をコピーし、別の処理表Aに転記すると言うものです。
VBAのプログラムは
Range("J10:Q10").Select
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:="1"

Range("B11:H700").Select
Selection.Copy
Sheets("処理表A").Select
Range("B6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

会社で数名で使用していますが、エクセル2007のバージョンのパソコンのみオートフィルターが機能せず、殆ど全部転記されてしまいます。
Yahoo!知恵袋 6023日前
コメントする
お気に入り
1
質問者が選んだベストソリューション
エクセル2007は手元にないのですが
Range("B11:H700").Select
Selection.Copy
のところを、下記のようにしたら動かないでしょうか?
Range("B11:H700").SpecialCells(xlCellTypeVisible).Select
Selection.Copy

追記:
上記はマクロ記録をとった結果です。
オートフィルターをかけたあと
Range("B11:H700")を選択して、
F5 セル選択、可視セルにチェック、OK
のコードです。
EXCEL2000,2002,2003でもこちらのほうがよいと思います。
------------------------------------------
追記:スミマセン。見落としていました。my_offiseさんのかかれているとおり、
オートフィルタの選択範囲がタイトル行のみになっていました。

Sub Macro1()
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
Range("J10:Q700").AutoFilter Field:=2, Criteria1:="1"

Range("B11:H700").SpecialCells(xlCellTypeVisible).Copy
Sheets("処理表A").Range("B6").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

'オートフィルタ解除
Range("J10:Q700").AutoFilter
Application.CutCopyMode = False
End Sub
Yahoo!知恵袋 6020日前
シェア
 
コメントする
 

参考になったと評価
  このQ&Aは参考になりましたか?

Share (facebook)
その他の解決方法を知っていますか?
回答する
全般
66
Views
質問者が納得カメラの機種名はK5ですよね? と言うよりK5以外は生産終了してますから。 私も所持してますが非常に良いカメラかと思います。 私は花をよく撮りますがやはりマクロレンズは必須かな。 極端ですがK5ボディーとマクロレンズ(4~6万円)を買う方法もあります。 予算次第ですがね。 時々蘭を撮影しますが個人的には余り良い被写体とは思えません。 撮影自体も他の花に比べて楽しくないし面白くありません(笑) ですから撮影に集中し過ぎて鑑賞が疎か・・・にはならないと思います。
4460日前view66
全般
88
Views
質問者が納得A1:A10セルを選択してコピー B1セルを選択して 右クリック[形式を選択して貼り付け] →[行列を入れ替える]にチェックを入れて[OK] A列を削除 でいいです。
4482日前view88
全般
107
Views
質問者が納得Book1で選択された範囲をBook2のアクティブなシートの同じセル位置にコピーするコード例です。 Sub コード例() Dim sh2 As Worksheet, rng As Range Workbooks("Book2.xls").Activate Set sh2 = ActiveSheet Workbooks("Book1.xls").Activate For Each rng In Selection rng.Copy sh2.Range(rng.Ad...
4490日前view107
全般
78
Views
質問者が納得条件を入力した際に「$A$1」となっていませんか? これだと、どのセルからでもA1セルの状態を見て、書式が変更されます。 もう一度、A1:J10を選択して、条件付き書式の設定ウィンドウを表示させ「$」をすべて削除してみて下さい。
4489日前view78
全般
72
Views
質問者が納得=IF(SUMPRODUCT(G10:G12*J10:J12)/3>150,"A",IF(SUMPRODUCT(G10:G12*J10:J12)/3>50,"B","C")) 三回修正--;
4488日前view72

取扱説明書・マニュアル

871view
http://fujifilm.jp/.../ff_finepixj10_mn_j101.pdf
142 ページ4.05 MB
もっと見る

関連製品のQ&A