-1

特定の範囲からデータを取得する方法、日ごとに異なる範囲がシートに表示されます.利用可能なセルデータ値のみが必要です.残りは空白にする必要があります..

ここに私を貼り付けましたenter code here

Windows("Daily Operation 14-Oct -13 using vab.XLSM").Activate
Application.CutCopyMode = False

Range("O3").Select
ActiveCell.FormulaR1C1 = _
    "=IF(TODAY()=RC[-9],""Today EDD"",IF((TODAY()>RC[-9]),""EDD Crossed"",IF((TODAY()+1)=RC[-9],""T+1"",IF(OR((RC[-9]=(TODAY()+2)),(RC[-9]=(TODAY()>=3))),""T+2"",""Future EDD""))))"

ActiveCell.Offset(0, -1).Select

ActiveCell.End(xlDown).Select

ActiveCell.Offset(0, 1).Select

ActiveCell.End(xlUp).Select

Selection.End(xlDown).Select

Range(Selection, Selection.End(xlUp)).Select

Selection.FillDown
4

1 に答える 1

0

あなたが本当に必要としているものは何なのか、私にはよく理解できませんでした。しかし、小さなコードの提案があります:
ファイル名をWindows("Daily Operation 14-Oct -13 using vab.XLSM").Activate.

それを Excel シートの名前付き範囲に保存し、次のようにコードで使用します。

dim r as range
set r = range("filename")
windows(r.value).activate

次のようなものを使用することもできます

fname = activewindow.caption`
windows(fname).activate`

ファイル名などは頻繁に変更される可能性があり、コードをできるだけ変更したくないため、このように配置すると問題が発生する可能性があります。

乾杯、

ウディ

于 2013-10-16T07:20:30.550 に答える