Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
64343 / 76732 ←次へ　｜　前へ→
【16970】少し直して巧くいきました。
お礼  ポンタ  - 04/8/17(火) 18:30 -
引用なし
パスワード
   IROCさん、大変にありがとうございました。
これで目的が達成できそうです。

お教えいただいた部分は、一部下記のように変更したら巧く流れました。
　　ActiveWorkbook.Names.Add Name:="AAA" & i, RefersToLocal:="=LBプライス・
RC表示にA1は入らないようです。


お教えいただいた集大成を以下に掲示しておきます。


Sub 定義の削除と新しい名前の取得()
　　
Dim i As Long
Dim n As Name
　　
'定義の削除
　　For Each n In ActiveWorkbook.Names
　　　　n.Delete
　　Next n

'新しい名前の取得
　　For i = 1 To 3
　　ActiveWorkbook.Names.Add Name:="AAA" & i, RefersToLocal:="=LBプライス・リターン!$A$" & i
　　Next i

End Sub


勉強になりました。ありがとうございました。
0 hits
▼ 【16911】名前の定義の変更 ポンタ 04/8/16(月) 10:37 質問
【16913】Re:名前の定義の変更 IROC 04/8/16(月) 11:25 回答
【16929】Re:名前の定義の変更 ポンタ 04/8/16(月) 17:18 質問
【16932】Re:名前の定義の変更 IROC 04/8/16(月) 17:35 回答
【16933】Re:名前の定義の変更 ポンタ 04/8/16(月) 17:44 質問
【16935】Re:名前の定義の変更 IROC 04/8/16(月) 17:56 回答
【16936】Re:名前の定義の変更 ポンタ 04/8/16(月) 18:00 質問
【16937】Re:名前の定義の変更 IROC 04/8/16(月) 18:15 回答
【16938】Re:名前の定義の変更 IROC 04/8/16(月) 18:24 回答
【16939】Re:名前の定義の変更 IROC 04/8/16(月) 18:28 回答
【16954】Re:名前の定義の変更 ポンタ 04/8/17(火) 11:00 質問
【16955】Re:名前の定義の変更 IROC 04/8/17(火) 11:21 回答
【16956】Re:名前の定義の変更 ポンタ 04/8/17(火) 11:52 質問
【16957】Re:名前の定義の変更 IROC 04/8/17(火) 13:12 回答
【16958】Re:名前の定義の変更 IROC 04/8/17(火) 13:13 回答
【16959】削除は巧くいきました！！ ポンタ 04/8/17(火) 13:27 質問
【16960】Re:削除は巧くいきました！！ IROC 04/8/17(火) 13:56 回答
【16965】Re:削除は巧くいきました！！ ポンタ 04/8/17(火) 16:17 質問
【16966】Re:削除は巧くいきました！！ IROC 04/8/17(火) 16:23 回答
【16968】Re:削除は巧くいきました！！ ポンタ 04/8/17(火) 17:12 質問
【16969】Re:削除は巧くいきました！！ IROC 04/8/17(火) 17:25 回答
【16970】少し直して巧くいきました。 ポンタ 04/8/17(火) 18:30 お礼≪
【16971】Re:少し直して巧くいきました。 IROC 04/8/17(火) 18:37 回答
【16972】Re:少し直して巧くいきました。 ポンタ 04/8/17(火) 19:01 質問
【16973】Re:少し直して巧くいきました。 IROC 04/8/17(火) 19:50 回答
【16974】Re:少し直して巧くいきました。 ポンタ 04/8/17(火) 21:01 お礼
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
64343 / 76732 ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free