|
▼超初心者 さん:
>▼rin さん:
>あらかじめ、"Table"、"rows"、"cols"の名前定義が
>されている事を前提としてます。
>(挿入後に範囲を再セット)
>
>Sub sample()
> Dim myRange As Range
>
> 'Tableの再セット
> Set myRange = Range("B3", _
> Cells(Range("cols").Offset(-2, 0).Row, _
> Range("rows").Offset(0, -2).Column))
> ActiveWorkbook.Names.Add Name:="Table", _
> RefersToR1C1:=myRange
> Set myRange = Nothing
>
> 'rowsの再セット
> Set myRange = Range(Range("rows").Cells(1), _
> Cells(Range("cols").Offset(-2, 0).Row, _
> Range("rows").Column))
> ActiveWorkbook.Names.Add Name:="rows", _
> RefersToR1C1:=myRange
> Set myRange = Nothing
>
> 'colsの再セット
> Set myRange = Range(Range("cols").Cells(1), _
> Cells(Range("cols").Row, _
> Range("rows").Offset(0, -2).Column))
> ActiveWorkbook.Names.Add Name:="cols", _
> RefersToR1C1:=myRange
> Set myRange = Nothing
>End Sub
>
>参考までに。
追加質問で申し訳ございませんが、
こちらの定義のリセットの時に、アクティブシートに対して
というコードを加えるにはどこにどのように入れたらよいでしょうか?
お力ばかり借りて申し訳ないです。
|
|