<a name=▲このページのトップに戻る
387519エクセルマクロ <>記号の使い方が分かりませんエクセル初心者君 2006/12/23-19:07

メーカー名:NEC 日本電気
OS名:WindowsXp HomeEdition
パソコン名:78123456
トラブル現象:ソフトの使い方がわからない
ソフト関連:表計算Excel
使用回線:ダイヤルアップ
--
エクセルマクロのプログラムを組んでいますが3行目の記号<>の表現方法がわかりません。
セルA1以外を検索し削除しA1の文字列を残すというプログラムですがエラーが出てしまいます。
どなたかアドバイスをお願いします。

Selection.AutoFilter Field:=1
Cells.Select
Selection.AutoFilter Field:=1, Criteria1:=[<>Range("A1")], Operator:=xlAnd
Cells.Select
Selection.Delete Shift:=xlUp
Range("B9").Select
ChDir "D:\エクセル\練習用"
ActiveWorkbook.SaveAs Filename:="D:\エクセル\練習用\サンプルend.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
End Sub

hed_" BORDER="0" WIDTH="88" HEIGHT="31">
 ◇-?エクセルマクロ <>記号の使い方が分かりません-エクセル初心者君-12/23-19:07(147)-No.387519

▲このページのトップに戻る
387519エクセルマクロ <>記号の使い方が分かりませんエクセル初心者君 2006/12/23-19:07

メーカー名:NEC 日本電気
OS名:WindowsXp HomeEdition
パソコン名:78123456
トラブル現象:ソフトの使い方がわからない
ソフト関連:表計算Excel
使用回線:ダイヤルアップ
--
エクセルマクロのプログラムを組んでいますが3行目の記号<>の表現方法がわかりません。
セルA1以外を検索し削除しA1の文字列を残すというプログラムですがエラーが出てしまいます。
どなたかアドバイスをお願いします。

Selection.AutoFilter Field:=1
Cells.Select
Selection.AutoFilter Field:=1, Criteria1:=[<>Range("A1")], Operator:=xlAnd
Cells.Select
Selection.Delete Shift:=xlUp
Range("B9").Select
ChDir "D:\エクセル\練習用"
ActiveWorkbook.SaveAs Filename:="D:\エクセル\練習用\サンプルend.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
End Sub