Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

17604 / 76738

←次へ　｜　前へ→


	【64584】Re:リストの範囲を定義する

rin - 10/2/24(水) 13:58 -


	引用なし

	パスワード

▼超初心者さん：
>▼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
>
>参考までに。

すばらしくて感激いたしました。
マクロ実行後に一発で範囲が変っています。
ほんとに助かりました。
この度はまことにありがとうございました。m(_ _)m

0 hits

▼

【64569】リストの範囲を定義する rin 10/2/24(水) 10:47