|
A列B列が品番、品名 C列が予定実績の列、D繰越E入出庫日F入庫数G出庫数H現在庫、Iは備考という
表を作りました。これはアクセスのデータをインポートしたもので、毎回ほぼ15000〜6000件になります。
複数の人がランダムに入れるため、順序がまちまちです。
この表を在庫管理のため並べ替えるマクロを記述でつくりました。
社内LANをはっているので、サーバーに置きました。動作は確認できました。
でも他の端末で使用しようとすると"インデックスが有効範囲にありません"のエラーになってしまいます。
その端末で、マクロを書き直すと動きます。でも数十台の端末を一台一台なおすわけにはいきません。
なにか記述が足りないのでしょうか。
Sub ソート及び空白処理()
'
Range("A2:G15").Select
Selection.Sort Key1:=Range("A3"), Order1:=xlAscending, Key2:=Range("D3") _
, Order2:=xlDescending, Key3:=Range("E3"), Order3:=xlAscending, Header _
:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom _
, SortMethod:=xlPinYin, DataOption1:=xlSortNormal, DataOption2:= _
xlSortNormal, DataOption3:=xlSortNormal
Range("D3:G15").Select
Selection.Replace What:="", Replacement:="0", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
End Sub
お知恵をお貸し下さい
|
|