Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

7878 / 76734

←次へ　｜　前へ→


	【74437】ＬＡＮ内に作ったファイルのマクロがエラーになる

isausa - 13/6/13(木) 16:33 -


	引用なし

	パスワード

Ａ列Ｂ列が品番、品名　Ｃ列が予定実績の列、Ｄ繰越Ｅ入出庫日Ｆ入庫数Ｇ出庫数Ｈ現在庫、Ｉは備考という　　　　　　　　　　　　　　　　　　　　　　　　　　　　
表を作りました。これはアクセスのデータをインポートしたもので、毎回ほぼ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　　　　　　　　　　　　　　　　　　　　　　　　　　　　
　　　　　　　　　　　　　　　　　　　　　　　　　　　　
お知恵をお貸し下さい

3 hits

▼

【74437】ＬＡＮ内に作ったファイルのマクロがエラーになる isausa 13/6/13(木) 16:33

≪