Excel VBA質問箱 IV

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

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


17596 / 76732 ←次へ | 前へ→

【64586】Re:リストの範囲を定義する
質問  rin  - 10/2/24(水) 14:33 -

引用なし
パスワード
   ▼超初心者 さん:
>▼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
>
>参考までに。

追加質問で申し訳ございませんが、
こちらの定義のリセットの時に、アクティブシートに対して
というコードを加えるにはどこにどのように入れたらよいでしょうか?
お力ばかり借りて申し訳ないです。

0 hits

【64569】リストの範囲を定義する rin 10/2/24(水) 10:47 質問
【64575】Re:リストの範囲を定義する UO3 10/2/24(水) 12:00 回答
【64576】Re:リストの範囲を定義する rin 10/2/24(水) 12:08 質問
【64578】Re:リストの範囲を定義する UO3 10/2/24(水) 12:15 発言
【64581】Re:リストの範囲を定義する rin 10/2/24(水) 12:28 質問
【64583】Re:リストの範囲を定義する 超初心者 10/2/24(水) 13:43 発言
【64584】Re:リストの範囲を定義する rin 10/2/24(水) 13:58 お礼
【64586】Re:リストの範囲を定義する rin 10/2/24(水) 14:33 質問
【64589】Re:リストの範囲を定義する 超初心者 10/2/24(水) 15:34 発言
【64590】Re:リストの範囲を定義する rin 10/2/24(水) 15:47 お礼

17596 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free