Excel VBA質問箱 IV

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

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


569 / 74625 ←次へ | 前へ→

【79698】テーブル名の一括変更
質問  AAA  - 18/3/12(月) 16:39 -

引用なし
パスワード
   下記は、名前の定義の書出しと登録のマクロですが
テーブル名は、書きだされません。
テーブル名も同じようにすることは可能でしょうか?

どなたか宜しくお願い致します。


Sub NamesListsOut()
'名前定義書き出し
Dim i As Integer
With ActiveWorkbook
For i = 1 To .Names.Count
 Cells(i, 1).Value = .Names(i).Name
 Cells(i, 2).Value = "'" & .Names(i).RefersToLocal
Next i
End With
End Sub

'--------------------------------------------------
Sub NamesListsIn()
'名前定義登録
Dim n As Name
Dim i As Integer

With ActiveWorkbook

'一旦名前定義を削除
For Each n In .Names
 n.Delete
Next n
'登録
On Error Resume Next
For i = 1 To Range("A65536").End(xlUp).Row
  .Names.Add Cells(i, 1).Value, Cells(i, 2).Value
Next i
On Error GoTo 0
End With
End Sub

'--------------------------------------------------

71 hits

【79698】テーブル名の一括変更 AAA 18/3/12(月) 16:39 質問[未読]
【79699】Re:テーブル名の一括変更 マナ 18/3/12(月) 20:41 発言[未読]
【79702】Re:テーブル名の一括変更 AAA 18/3/13(火) 9:17 質問[未読]
【79703】Re:テーブル名の一括変更 マナ 18/3/13(火) 9:51 発言[未読]
【79704】Re:テーブル名の一括変更 AAA 18/3/13(火) 9:55 質問[未読]
【79712】Re:テーブル名の一括変更 マナ 18/3/14(水) 12:58 発言[未読]
【79714】Re:テーブル名の一括変更 AAA 18/3/14(水) 16:38 発言[未読]
【79715】Re:テーブル名の一括変更 マナ 18/3/14(水) 21:27 発言[未読]
【79718】Re:テーブル名の一括変更 AAA 18/3/15(木) 10:19 質問[未読]
【79721】Re:テーブル名の一括変更 マナ 18/3/15(木) 20:04 発言[未読]
【79722】Re:テーブル名の一括変更 AAA 18/3/16(金) 10:18 発言[未読]
【79723】Re:テーブル名の一括変更 マナ 18/3/16(金) 18:42 発言[未読]
【79700】Re:テーブル名の一括変更 γ 18/3/12(月) 20:48 発言[未読]
【79717】Re:テーブル名の一括変更 γ 18/3/15(木) 7:39 回答[未読]

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