| |
▼ビギナー さん：
>こんばんは。
>
>昨日まで、動作していたこの部分が、いきなり動かなくなりました。
>
> 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
>
>考えられる原因ってなんでしょうか。。。
>
>いきなり動作しなくなることってあるのですか？
>
>「セクタ」−１の結果が全て０になるのです。。。
動作しなくなるって言われても、シートの情報も書かずにビギナーさん以外が分からないんじゃないですか？
Ｂ列にデータが入ってるの？ってことくらいしか分からないんじゃないかな？
もし、以前質問をされて回答を受けてのことであれば、そのスレッドのリンクを貼るとかしないと分かりません。
こちらの掲示板では初心者とかビギナーとか名前で書き込みが多いため、どのスレッドかを探すのは難しいです。
|
|
BB
- 06/2/21(火) 20:49 -
