Excel VBA質問箱 IV

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

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


7934 / 13644 ツリー ←次へ | 前へ→

【35991】LANDISK上で動きません。 みーさん 06/3/17(金) 14:26 質問[未読]
【35992】Re:LANDISK上で動きません。 Jaka 06/3/17(金) 15:05 発言[未読]
【35994】Re:LANDISK上で動きません。 みーさん 06/3/17(金) 15:20 お礼[未読]

【35991】LANDISK上で動きません。
質問  みーさん E-MAIL  - 06/3/17(金) 14:26 -

引用なし
パスワード
   お世話になっています。
又疑問に突き当たりました。

WINXPpro Ver.2002 SP2上で エクセル2002を使っています。
ある表を操作するマクロを作り、動作確認も済ませました。そのエクセルをLAN上のLANDISKに移したところマクロボタンが動作しません。そこでLANDISK上のエクセルに対してもう一度同じマクロを登録し直しましたが、やはり動きません。エラーメッセージは「実行時エラー'1004':アプリケーション定義またはオブジェクト定義のエラーです」となっています。
本で調べるのですが解決方法が載っていません。どうすれば動くのかお教え下さい。よろしくお願いします。

記録を転記すれば、

  ActiveCell.Offset(16, -2).Range("A1:A2").Select
  ActiveSheet.Unprotect
  ActiveCell.Offset(-2, 0).Rows("1:3").EntireRow.Select
  Selection.EntireRow.Hidden = False
  ActiveCell.Offset(1, 0).Rows("1:1").EntireRow.Select
  Selection.Copy
  Selection.Insert Shift:=xlDown
  ActiveCell.Offset(1, 0).Rows("1:1").EntireRow.Select
  Selection.EntireRow.Hidden = True
  ActiveWindow.SmallScroll ToRight:=14
  ActiveCell.Offset(-1, 27).Range("A1:I1").Select
  Application.CutCopyMode = False
  Selection.Locked = False
  Selection.FormulaHidden = False
  ActiveCell.Offset(-1, 0).Range("A1:I1").Select
  Selection.Locked = True
  Selection.FormulaHidden = False
  ActiveWindow.SmallScroll ToRight:=-4
  ActiveWindow.LargeScroll ToRight:=-1
  ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

ですが、この最初の行が黄色くなっています。

【35992】Re:LANDISK上で動きません。
発言  Jaka  - 06/3/17(金) 15:05 -

引用なし
パスワード
   LAN上と稼動のとかは解りませんが

例えば
ActiveCell.Offset(16, -2)
アクティブセルから下に16個、左に-2個移動したセル・・・。
ってなるわけで、アクティブセルがA,B列だったらA列より左のセルは無いわけで.....。
この辺の所はどうなっているのでしょうか?

これは列に対してだけじゃないので注意。

【35994】Re:LANDISK上で動きません。
お礼  みーさん E-MAIL  - 06/3/17(金) 15:20 -

引用なし
パスワード
   >この辺の所はどうなっているのでしょうか?
>
>これは列に対してだけじゃないので注意。

Jakaさん、素早いご回答ありがとうございました。

表をLAN上のディスクに移したのでそればかりに気を取られていたのですが、
実は相対位置を決めるために設置した特定セルを移動させたのを忘れていました。

ごく初歩的なミスです。でもまだ十分マクロ記録を読めないので
ご指摘頂くまでそれに気付きませんでした。

そこを訂正して動くようになりました。
お世話になり、ありがとうございました。

7934 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free