Excel VBA質問箱 IV

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

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


72259 / 76732 ←次へ | 前へ→

【8958】Re:Rangeオブジェクトで名前による範囲指定に...
回答  kein  - 03/11/12(水) 4:26 -

引用なし
パスワード
   テストしてみると、確かにエラーになりますね・・。
で、複数の範囲なのだから Areasプロパティを使ってループしたらどうか、
と考えてやってみたのですが、それでもエラーになりました。
結局、やぼったい感じになりますが、参照する数式を一つずつ分解していく
↓こんなコードだと、なんとかできましたが・・。

Sub Test_NameVal()
  Dim WB As Workbook
  Dim NM As String
  Dim i As Integer
  Dim Ary As Variant, Ary2 As Variant
 
  Set WB = Workbooks("Book2.xls")
  NM = WB.Names("TEST").RefersTo
  NM = Right(NM, Len(NM) - 1)
  If InStr(1, NM, ",") > 0 Then
   Ary = Split(NM, ",")
   For i = LBound(Ary) To UBound(Ary)
     Ary2 = Split(Ary(i), "!")
     WB.Sheets(Ary2(0)).Range(Ary2(1)).Value = "ABC"
   Next i
   Erase Ary, Ary2
  Else
   Ary = Split(NM, "!")
   WB.Sheets(Ary(0)).Range(Ary(1)).Value = "ABC"
   Erase Ary
  End If
  WB.Activate: Set WB = Nothing
End Sub
1 hits

【8937】Rangeオブジェクトで名前による範囲指定に... ふちこま 03/11/11(火) 11:18 質問
【8942】Re:Rangeオブジェクトで名前による範囲指定... INA 03/11/11(火) 13:30 回答
【8945】Re:Rangeオブジェクトで名前による範囲指... ふちこま 03/11/11(火) 14:55 質問
【8947】Re:Rangeオブジェクトで名前による範囲指... INA 03/11/11(火) 15:31 回答
【8948】Re:Rangeオブジェクトで名前による範囲指... ふちこま 03/11/11(火) 16:00 発言
【8954】Re:Rangeオブジェクトで名前による範囲指定... kein 03/11/11(火) 18:57 回答
【8956】Re:Rangeオブジェクトで名前による範囲指定... ふちこま 03/11/11(火) 19:50 発言
【8958】Re:Rangeオブジェクトで名前による範囲指定... kein 03/11/12(水) 4:26 回答
【8959】Re:Rangeオブジェクトで名前による範囲指... ふちこま 03/11/12(水) 8:51 お礼

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