Excelで特定のセルに値が入力されたら、範囲指定してセルの色を変えるサンプル

Private Sub Worksheet_Change(ByVal Target As Range)
Dim x, y As Integer
x = Target.Column
y = Target.Row

If Target.Column = 14 And Target <> "" Then '値が入っているなら
Range(Cells(Target.Row, 8), Cells(Target.Row, 15)).Select
With Selection.Interior
.ColorIndex = 48
.Pattern = xlSolid
End With
Else
Range(Cells(Target.Row, 8), Cells(Target.Row, 15)).Select
With Selection.Interior
.ColorIndex = 0
.Pattern = xlSolid
End With
End If

Cells(y + 1, x).Select

End Sub

Oracle Export,Import

①データのエクスポート
タスクスケジューラで毎日1:00から"ダンプ取得.bat"を実施
ダンプ取得.bat
////////////////////////////////////////////////////////////////
SET yyyymmdd=%DATE:/=%
SET yyyymmdd=%yyyymmdd: =0%

SET hhmmss=%TIME::=%
SET hhmmss=%hhmmss: =0%
SET hhmmss=%hhmmss:~0,6%

SET dmp_name=exp%yyyymmdd:~0,8%_%hhmmss:~0,6%.dmp

F:
cd \SPS\DBダンプ\
exp kobaiuser/kobai file=%dmp_name%
////////////////////////////////////////////////////////////////


②データのインポート
"03_IMP_sps.par"のfile部分を修正し、"04_IMP_sps.bat"を実行
04_IMP_sps.bat
////////////////////////////////////////////////////////////////
imp PARFILE=03_IMP_sps.par
////////////////////////////////////////////////////////////////

03_IMP_sps.par
////////////////////////////////////////////////////////////////
userid=system/devadmin
fromuser=kobaiuser
touser=kobaiuser
file=exp20090217_010000.dmp
log=IMP_sps.log
buffer=163840
ignore=Y
grants=N
indexes=Y
rows=Y
DESTROY=N
COMMIT=Y
////////////////////////////////////////////////////////////////