Excel VBA質問箱 IV

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

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


17599 / 76732 ←次へ | 前へ→

【64583】Re:リストの範囲を定義する
発言  超初心者  - 10/2/24(水) 13:43 -

引用なし
パスワード
   ▼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 お礼

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