Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8106 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【35116】いきなり、マクロが動作しなくなりました。。。 ビギナー 06/2/21(火) 19:39 質問[未読]
【35119】Re:いきなり、マクロが動作しなくなりまし... BB 06/2/21(火) 20:49 発言[未読]
【35116】いきなり、マクロが動作しなくなりました...
質問  ビギナー  - 06/2/21(火) 19:39 -
引用なし
パスワード
   こんばんは。

昨日まで、動作していたこの部分が、いきなり動かなくなりました。
　
　　Columns("D:D").Select
　　Application.CutCopyMode = False
　　Selection.Insert Shift:=xlToRight
　　Selection.Insert Shift:=xlToRight
　　
　　'SCT=「セクタ」-1を行う
　　Range("D1").Select
　　ActiveCell.FormulaR1C1 = "=RC[2]-1"　'SCT=「セクタ」-1
　　'SCT=「セクタ」-1を適応させる
　　Range("D1").Select
　　Selection.AutoFill Destination:=Range("D1:D1054"), Type:=xlFillDefault
　　Range("D1:D1054").Select
　　
考えられる原因ってなんでしょうか。。。

いきなり動作しなくなることってあるのですか？

「セクタ」−１の結果が全て０になるのです。。。
【35119】Re:いきなり、マクロが動作しなくなりま...
発言  BB  - 06/2/21(火) 20:49 -
引用なし
パスワード
   ▼ビギナー さん：
>こんばんは。
>
>昨日まで、動作していたこの部分が、いきなり動かなくなりました。
>　
>　　Columns("D:D").Select
>　　Application.CutCopyMode = False
>　　Selection.Insert Shift:=xlToRight
Ｄ列に１列挿入
>　　Selection.Insert Shift:=xlToRight
Ｄ列に１列挿入
>　　
>　　'SCT=「セクタ」-1を行う
>　　Range("D1").Select
>　　ActiveCell.FormulaR1C1 = "=RC[2]-1"　'SCT=「セクタ」-1
Ｄ１に計算式「=RC[2]-1」を入れる
>　　'SCT=「セクタ」-1を適応させる
>　　Range("D1").Select
>　　Selection.AutoFill Destination:=Range("D1:D1054"), Type:=xlFillDefault
Ｄ１をＤ１０５４までオートフィルする
>　　Range("D1:D1054").Select
>　　
>考えられる原因ってなんでしょうか。。。
>
>いきなり動作しなくなることってあるのですか？
>
>「セクタ」−１の結果が全て０になるのです。。。

動作しなくなるって言われても、シートの情報も書かずにビギナーさん以外が分からないんじゃないですか？
Ｂ列にデータが入ってるの？ってことくらいしか分からないんじゃないかな？
もし、以前質問をされて回答を受けてのことであれば、そのスレッドのリンクを貼るとかしないと分かりません。
こちらの掲示板では初心者とかビギナーとか名前で書き込みが多いため、どのスレッドかを探すのは難しいです。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8106 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free