Excel VBA質問箱 IV

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

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


28020 / 76732 ←次へ | 前へ→

【54024】Re:ユーザーボックスについて
発言  ハチ  - 08/2/20(水) 12:32 -

引用なし
パスワード
   >Sampleを動かして、意味は伝わりましたか?
>表示したいシートに
>作業セルとして番号を保持するセルを作ると
>やりやすいかなぁと思って書きました。

上手く伝わらなかったのが、歯がゆい(自己満足です)ので、
サンプルを作り直しました。
ヒマだったら試してみてください。

新規BookでSample2を実行
出来上がったBookで
"一覧"Sheetのデータを編集すると、
該当する"名前x"Sheetの表示が変わる ということです。

Option Explicit

Sub Sample2()
  Dim Rng As Range
  Dim i As Integer
  
  'WorkSheetの初期枚数補正
  Do Until Worksheets.Count >= 2
    Worksheets.Add
  Loop
  Do Until Worksheets.Count = 2
    Application.DisplayAlerts = False
      Worksheets(1).Delete
    Application.DisplayAlerts = True
  Loop
  '一覧データ作成
  With Worksheets(1)
    .Range("A1:D1").Value = _
    Array(1, "名前1", "data1-1", "data2-1")
    .Range("A1:D1").AutoFill .Range("A1:D15")
    .Range("A1:D15").Name = "リスト"
    .Name = "一覧"
  End With
  '雛型Sheet作成
  With Worksheets(2)
    .Range("A1").Value = 0
    .Range("B2").Formula = "=VLOOKUP($A$1,リスト,3,0)"
    .Range("C3").Formula = "=VLOOKUP($A$1,リスト,4,0)"
    .Name = "雛型"
  End With
  
  'リスト分のWorkSheetを作成
  i = Worksheets.Count
  For Each Rng In Worksheets("一覧").Range("A1:A15")
    Worksheets("雛型").Copy After:=Worksheets(i)
    i = i + 1
    With Worksheets(i)
      .Range("A1").Value = Rng.Value
      .Name = Rng.Offset(, 1).Value
    End With
  Next
 
End Sub
0 hits

【53582】ユーザーボックスについて りの 08/1/23(水) 13:25 質問
【53583】Re:ユーザーボックスについて ハチ 08/1/23(水) 16:06 発言
【53584】Re:ユーザーボックスについて りの 08/1/23(水) 16:41 質問
【53586】Re:ユーザーボックスについて ハチ 08/1/23(水) 18:39 発言
【53880】Re:ユーザーボックスについて りの 08/2/13(水) 16:15 質問
【53887】Re:ユーザーボックスについて ハチ 08/2/13(水) 18:37 回答
【53913】Re:ユーザーボックスについて りの 08/2/14(木) 17:04 質問
【53916】Re:ユーザーボックスについて ハチ 08/2/14(木) 21:36 回答
【53954】Re:ユーザーボックスについて りの 08/2/18(月) 10:12 質問
【53956】Re:ユーザーボックスについて ハチ 08/2/18(月) 10:47 回答
【53988】Re:ユーザーボックスについて りの 08/2/19(火) 16:44 質問
【53991】Re:ユーザーボックスについて ハチ 08/2/19(火) 17:08 発言
【53992】Re:ユーザーボックスについて りの 08/2/19(火) 17:12 お礼
【54024】Re:ユーザーボックスについて ハチ 08/2/20(水) 12:32 発言
【54029】Re:ユーザーボックスについて りの 08/2/20(水) 15:35 質問
【54030】Re:ユーザーボックスについて ハチ 08/2/20(水) 15:48 発言
【54031】Re:ユーザーボックスについて りの 08/2/20(水) 16:53 お礼
【54049】Re:ユーザーボックスについて りの 08/2/21(木) 17:35 質問
【54052】Re:ユーザーボックスについて ハチ 08/2/21(木) 19:44 発言
【54055】Re:ユーザーボックスについて りの 08/2/22(金) 8:29 お礼

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