[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『検索システムおよびシート検索』（ピエトロ）
エクセルで実現可能なのかわからず、
実現可能なのかとプログラムとなると
どのように書いていけばよいか、教えていただけないでしょうか。
お願いいたします。
シート 1
___C___ ___D___ 検索名▼ 検索ボタン
シート ２(新規入力）
___C___ ___D___ ビル名 入力ボタン
シート ３
___A____ __B____ 管理番号 ビル名 １ A ２ B ３ C
シート A
シート B
シート C
＊＊＊＊＊＊＊＊＊＊＊
シート１で
セルにビル名又は▼を押して
A又はB又はCのいづれかを選択して検索ボタンをクリックすると
シートA又はB又はCへ飛ぶ
一方、シート２で新規に入力されたビル名を入力ボタンで、
シート３に順番に登録されていく。
そしてシート〇←ビル名を作成されていく。
シート２で新規を入力後、シート１の検索で
先ほど、入力したビル名が検索でき、検索ボタンで
シート〇へ飛んでいく。
＊＊＊＊＊＊＊＊＊＊
VLOOKUP関数でシートで飛ぶことはできると思うのですが
新規で、順番に蓄積されていくビル名を
VLOOKUP関数で補うことはできるのでしょうか。
思いつかず、困っております。
＜ 使用 Excel：Excel2016、使用 OS：Windows10 ＞
items = WorksheetFunction.Transpose(Worksheet3.Range("B5:B9").Value)
Range("B2").Validation. _
Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Formula1:=Join(items, ",")
シート３からシート１へ検索データを引っ張るプログラムをまずは考えています。
（ピエトロ） 2020/06/24(水) 07:57
現在までに考えた内容を記載いたします。
まだまだ、エラーが解決できず、困っております。
お知恵をお借りできないでしょうか
Sub Sample_Goto()
Dim items() As Variant
items = WorksheetFunction.Transpose(Worksheet3.Range("B5:B9").Value) 'シート３のB列からビルAを選択
Range("B2").Validation._Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Formula1:=Join(items, ",")
Application.Goto Worksheets("SheetA").Range("C3"), True 'ビルAが記載されているシートAへ飛ぶ
End Sub
（ピエトロ） 2020/06/26(金) 00:17
Range("B2").Validation._Add
↓
Range("B2").Validation.Add
さらに、事前に入力規則が設定されている可能性はないのでしょうか？
https://www.moug.net/tech/exvba/0050121.html
■２
また、「Worksheet3」とは何を想定してるのですか？
（もこな２ ） 2020/06/26(金) 01:06
Sub Sample_Goto()のなかに ・リストを使った入力規則の設定 と ・Application.Gotoを使ったジャンプが 同時に盛り込まれていますが、 その二つは別の話ですよね。ひとつのプロシージャにする意図がよくわかりません。
それと、
Application.Goto Worksheets("SheetA").Range("C3"), True
については、
s = シート名をいれたセルの値
Application.Goto Worksheets(s).Range("C3"), True
のような感じになるのではないですか？
取り急ぎ。
（γ） 2020/06/26(金) 07:28
＞シート１で
＞セルにビル名又は▼を押して
＞A又はB又はCのいづれかを選択して検索ボタンをクリックすると
＞シートA又はB又はCへ飛ぶ
＞一方、シート２で新規に入力されたビル名を入力ボタンで、
＞シート３に順番に登録されていく。
＞そしてシート〇←ビル名を作成されていく。
＞シート２で新規を入力後、シート１の検索で
＞先ほど、入力したビル名が検索でき、検索ボタンで
＞シート〇へ飛んでいく。
これを整理すると
1a.シート１の「？１」セルに入力規則（リスト）を設定する。
1a1.リストはシート３の「？２」の範囲の値にする。
1b.シート１に「検索」ボタンを置く。
このボタンを押すと、1aで決めたシートに移動する。
2a.シート２の「？３」セルに”ビル名”を入力する。
2b.シート２に「入力」ボタンを置く。
このボタンを押すと、
2b1.シート３の「？？」セルに2aで入力した値を入力する。
2b2.シートを新規作成し、シート名を2aで入力した値にする。
このような感じでしょうか。
（子つばめ） 2020/06/26(金) 16:59
A.シート１の入力規則を設定するセル B.シート２のビル名を入力するセル C.シート３の入力規則のリスト対象になるセル
この3つです。
Aについては、最初に示してくれたものではシート１のC列になっていますが、
その後示してくれたコードではB2セルになっています。
これをはっきりセル番地で決めてもらえるとうれしいです。
Bについては、最初に示してくれたものではシート２のC列になっています。
これも行を含めたセル番地で教えてください。
Cについては、コードではWorksheet3のB5:B9となっています。
シート３のB列の5行目以降という理解でいいですか？
仮に、
Aはシート１のB2セル Bはシート２のC1セル Cはシート３のB5セルから下（その下に別の表はないもの）
として、続けたいと思います。
（子つばめ） 2020/06/26(金) 17:14
ご回答ありがとうございます。
＞Range("B2").Validation.Addです。
＞事前に指定はしておりません。
＞Worksheet3
シート３の間違いです。
すいません。
＞γさま
イメージは、その通りです。
＞子つばめさま
ご回答ありがとうございます。
＞1a1.リストはシート３の「？２」の範囲の値にする。
「B2」以降を検索します。
＞2a.シート２の「？３」セルに”ビル名”を入力する。
「Ｃ３」入力させます。
＞2b1.シート３の「？？」セルに2aで入力した値を入力する。
シート３「Ｂ３」以降にリスト化される。
＞Aについては、最初に示してくれたものではシート１のC列になっていますが、
＞その後示してくれたコードではB2セルになっています。
＞これをはっきりセル番地で決めてもらえるとうれしいです。
シート３のＢ２列です。
＞Bについては、最初に示してくれたものではシート２のC列になっています。
＞これも行を含めたセル番地で教えてください。
シート２「Ｃ３」入力させます
＞Cについては、コードではWorksheet3のB5:B9となっています。
＞シート３のB列の5行目以降という理解でいいですか？
シート３は、Ｂ列のの３行目からとなります。
（ピエトロ） 2020/06/28(日) 19:22
Dim items() As Variant
items = WorksheetFunction.Transpose(シート3.Range("B3:B2000").Value)
'シート３のB列からビルAを選択
Range("B2").Add Type:=xList, AlertStyle:=xStop, Formula1:=Join(items, ",")
Application.Goto Worksheets("SheetA").Range("Ｂ2"), True 'ビルAが記載されているシートAへ飛ぶ
Application.Goto Worksheets("SheetB").Range("Ｂ2"), True 'ビルBが記載されているシートAへ飛ぶ
Application.Goto Worksheets("SheetC").Range("Ｂ2"), True 'ビルCが記載されているシートAへ飛ぶ
'以降、続く
End Sub
（ピエトロ） 2020/06/28(日) 19:29
の間違いです。
（ピエトロ） 2020/06/28(日) 20:05
For Each my_sheet In Worksheets
シート 3.AddItem (my_sheet.Name)
Next my_sheet
Private Sub シート 3_Change()
Worksheets(シート 3.Value).Select
Unload Me
shname = Userシート 1.シート 3.Value
Sheets(shname).Activate
End Sub
他サイトで、似たモノを拾ってきたのですが
わかりません。
https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1057051160?__ysp=RVhDRUzjgafjgIHjgrfjg7zjg4jlkI3jgpLjg6rjgrnjg4g%3D
（ピエトロ） 2020/06/28(日) 23:41
Sub Sample_Goto()
'★１
Range("B2").Add _
Type:=xList, _
AlertStyle:=xStop, _
Formula1:=Join(WorksheetFunction.Transpose(シート3.Range("B3:B2000").Value), ",")
'★２
Application.Goto Worksheets("SheetA").Range("Ｂ2"), True 'ビルAが記載されているシートAへ飛ぶ
Application.Goto Worksheets("SheetB").Range("Ｂ2"), True 'ビルBが記載されているシートAへ飛ぶ
Application.Goto Worksheets("SheetC").Range("Ｂ2"), True 'ビルCが記載されているシートAへ飛ぶ
'以降、続く
End Sub
■３−１
★１の部分について、同じことを確認しますが「シート3」とは何を想定しているのですか？
■３-２
★２の部分、無条件で飛んでよいのですか？
どこかのセルの値で条件分岐するんじゃないのですか？
■４
＞他サイトで、似たモノを拾ってきたのですが
意味も分からず適当に変えてもダメです。
今回はほぼ参考にならないでしょう。（changeイベントくらいは関係あるかもですが）
（もこな２ ） 2020/06/29(月) 05:58
ありがとございます。
■３−１
★１の部分について、同じことを確認しますが「シート3」とは何を想定しているのですか？
全てのデータを集約しているシートとなります。
___A____ __B____ 管理番号 ビル名 １ A ２ B ３ C ４ D 以下続く
シート２で、新規で取得したビル名を入力すると、シート３に追加で登録されていきます。
これをずっと続けます。
シート１は、シート３で登録しているビル名を検索するシートです。
そして、シート１のビル名を検索し、検索ボタンを押すとシートAに飛びまず。
■３-２
★２の部分、無条件で飛んでよいのですか？
どこかのセルの値で条件分岐するんじゃないのですか？
シート３で登録しているビル名を検索するシート１からビル名を選択し。シート３へ飛びまず。
■４
わかりました。
すいません。
（ピエトロ） 2020/06/30(火) 06:06
シート3.Range("B3:B2000")
↓
Worksheets("シート3").Range("B3:B2000")
とか、別途
Dim シート3 As Worksheet
Set シート3 = Worksheets("シート3")
とか必要じゃないの？って言ってます。
■７
＞シート３で登録しているビル名を検索するシート１からビル名を選択し。シート３へ飛びまず。
提示されたコードだと"無条件"で順番に飛びますよね？それでいいんですか？
例えば、↓のように条件分岐するんじゃないですか？と言ってます。
Select Case Worksheets("シート3").Range("A1").Value
Case Is = "ビルA"
Application.Goto Worksheets("SheetA").Range("Ｂ2"), True
Case Is = "ビルB"
Application.Goto Worksheets("SheetB").Range("Ｂ2"), True
Case Is = "ビルC"
Application.Goto Worksheets("SheetC").Range("Ｂ2"), True
End Select
（もこな２ ） 2020/06/30(火) 07:08
お返事ありがとうございます。
■５
おっしゃるとおりです。
■７
おっしゃるとおりです。
シート１で選択された、ビル名を検索して、検索ビル名を選び選択ボタンを押すと〜という条件ですので
ビル名とシート名の条件提示が必要と考えられます。
（ピエトロ） 2020/07/01(水) 05:53
また、すでに指摘があることですが、アクティブシートのB2セルの入力規則をマクロで設定することと、何らかの条件（おそらく、アクティブシートのB2セルの値）でシートを切り替えることは、別動作ではないですか？
（もこな２ ） 2020/07/01(水) 07:39
別動作と言うのは、別のプログラムという意味でしょうか？
検索のプログラムとシートへ飛ぶプログラムは別で作成した方が良いということでしょうか。
検索した言葉をシートへ飛ばすのは、一連の流れだと考えて考えて考えています
（ピエトロ） 2020/07/01(水) 22:19
(1) シート１のB2セルに入力規則を設定する (2) ユーザーがシート１のB2セルの値を入力規則をつかって変更する (3) シート１のB2セルの値が変化したら、セルの値をチェックして対応するシートをアクティブにする
この場合、(1)と(3)の動作は一連じゃないですよね？
（一連の操作にしてしまうと、(2)の操作ができないので。）
（もこな２ ） 2020/07/02(木) 07:38
＞＞さらに、事前に入力規則が設定されている可能性はないのでしょうか？
＞＞https://www.moug.net/tech/exvba/0050121.html
＞事前に指定はしておりません。
私が考えているとおりであれば(1)について、２回目以降は"前回設定した"入力規則がありませんか？
したがって、やはり入力規則のリストを"再設定"するときにいったんクリアしないとダメな気がするのですが・・・
（もこな２ ） 2020/07/02(木) 08:12
＞この場合、(1)と(3)の動作は一連じゃないですよね？
そうです。
おっしゃるとおりのプログラムを組みたいのです。
今まで、ご指摘頂いた内容を整理いたしますと
Sub Sample_Goto()
'★１
Range("B2").Add _
Type:=xList, _
AlertStyle:=xStop, _
Formula1:=Join(WorksheetFunction.Transpose(Worksheets("シート3").Range("B3:B2000").Value), ",")
With Range("D2:D10").Validation
.Delete
.Add Type:=xlValidateList, _
Operator:=xlEqual, _
Formula1:="=シート3!$B$3:$B$2000"
End With
'★２
Application.Goto Worksheets("SheetA").Range("Ｂ2"), True 'ビルAが記載されているシートAへ飛ぶ
Application.Goto Worksheets("SheetB").Range("Ｂ2"), True 'ビルBが記載されているシートBへ飛ぶ
Application.Goto Worksheets("SheetC").Range("Ｂ2"), True 'ビルCが記載されているシートCへ飛ぶ
＞順次、シート２で作成されていく、ビル〇←名前が更新されていくを情報を読みだすプログラム
End Sub
このようなプログラムの書き方でしょうか。
（ピエトロ） 2020/07/03(金) 06:14
とりあえず、気になるところを挙げていくと
【気になる点１】
★１の部分について
提示されたものをそのまま整理しただけで、テストしていなかったので改めてチェックしてみると、いろいろおかしな点がありますね。
(1) Validation が抜けている (2) Type:=xList ←謎の引数を指定している (3) AlertStyle:=xStop ←謎の引数を指定している
【気になる点２】
追加した部分について、参考に提示したMougを真似したようなので構文的な誤りはないようです。
ただ、それ必要なんですか？
【気になる点３】
★２の部分について
前回指摘しているように、”無条件で”シートA、シートB、シートCの順にアクティブシートが切り替わるようになっています。
【気になる点４】
全体について、すでに指摘しているように一連の動作（同じプロシージャ）ですることではないとおもいます。
（もこな２ ） 2020/07/03(金) 08:07
横から失礼します。 私が以前にコメントしてから、皆さんからご指摘を頂いているのに、余り進んでいませんね。
既に適切なコメントを頂いているのに、伝わっていない感じです。
喩えて言えばこういうことです。
Sub test()
Call 誕生日用のケーキを買う
Call （目が覚めたので）顔を洗い、歯磨きする
End Sub
というような処理になっていませんか、ということです。
生活するということなら、ひとつのくくりになるかもしれませんが、
それは同じタイミングで実施しないといけないことですか？
年一回のことと毎日のことを、同じ命令に入れてあなたは実行しますか？
「入力規則の設定」とは、 つまりは、「複数の選択候補を設定する」ということです。 選択肢の設定は一度すれば済むことで、 ジャンプの都度する必要はないでしょう？
ジャンプ処理と一緒にすべきは、 ジャンプに先立って、 「どの選択肢が選択されているかを知ること」ではないですか？
（なお、その都度、選択肢を最新のもににするという考えもあるかもしれませんが、 少なくともジャンプする処理の中で選択肢を最新化しても、 すでにユーザーは、選択をしてしまった後なので意味がありません。）
筋道を立てて進めてください。 適当にコード（プログラム）を並べればよいというものでもないですよ。
プログラムは二つに分けては、どうですか？
(1)Sheet2にある新規ビルのユーザー入力のあとで、
「ビル追加ボタン」押し下げで実行するコード。
処理内容：
・新規ビルをSheet3の一覧表に反映する。
・そのビルに対応するシートを作成する。
・Sheet1にある、入力規則（リスト）を更新する（追加分を反映する）。
(2)入力規則のリストから選択したあとで、「ジャンプボタン」押し下げで実行するコード
処理内容：
・入力規則のあるセルで選択されているビルに対応するシートにジャンプする。
（γ） 2020/07/03(金) 08:19
Sub Sample() 'ここから
End Sub 'ここまで
これが、「一連の流れ」です。
きっと「プロシージャ」「モジュール」というような用語を使っても頭が混乱してしまいますよね。
まずこんなところから試してください。
Sub Sample01()
Application.Goto Worksheets("SheetA").Range("B2"), True 'シートAのB2セルへ飛ぶ
Application.Goto Worksheets("SheetB").Range("B2"), True 'シートBのB2セルへ飛ぶ
Application.Goto Worksheets("SheetC").Range("B2"), True 'シートCのB2セルへ飛ぶ
End Sub
これは、
「SheetAのB2に飛ぶ」
「SheetBのB2に飛ぶ」
「SheetCのB2に飛ぶ」
を一気に実行します。
結果として、最後に実行した「SheetCのB2に飛ぶ」をしたように見えます。
「SheetAのB2に飛ぶ」と「SheetBのB2に飛ぶ」は実行した意味がなくなっています。
Sub SampleA()
Application.Goto Worksheets("SheetA").Range("B2"), True 'シートAのB2セルへ飛ぶ
End Sub
これは「SheetAのB2に飛ぶ」を実行します。
Sub SampleB()
Application.Goto Worksheets("SheetB").Range("B2"), True 'シートBのB2セルへ飛ぶ
End Sub
これは「SheetBのB2に飛ぶ」を実行します。
Sub SampleC()
Application.Goto Worksheets("SheetC").Range("B2"), True 'シートCのB2セルへ飛ぶ
End Sub
これは「SheetCのB2に飛ぶ」を実行します。
一連の流れにしないことで、個々の命令が有効に働きます。
（参考）
【ゼロからわかるVBA入門】モジュールとプロシージャ
https://tech-paclab.com/module-procedur/
（FunctionだのPropertyだのFormだのClassだの書かれている部分は読み飛ばしてください。）
（子つばめ） 2020/07/03(金) 09:14
プログラム１
もしも、シート３のB2〜B2000で値の更新があったら
シート1のB2セルの入力規則のリストを設定しなおす
もしもの話はおしまい
プログラム２
もしも、シート1のB2セルの値が更新されたら
対応するシートをアクティブにする
もしもの話はおしまい
命令する用語が分からない場合は、↑のようにやるべき処理の流れをとりあえず日本語で書いてみて、それから、マクロの記録等で命令するには何と書けばよいかを調べてみるというアプローチも有効だとおもいます。
（もこな２ ） 2020/07/03(金) 09:55
ありがとうございます。
プログラム内容を整理します。
プログラム１
シート 1 でシート ３のB2列以降に記載されているビル名を選択し、
検索ボタンを押して、シート〇【ビル名】へ飛ぶ
プログラム２
シート ２で入力した新ビル名データをシート３に記入していく。
同時に、新しくシート【ビル名】を作成する。
シート１で新たに追加されたビル名を検索できるようにプログラムを書き換える
ということで考えていきます。
（ピエトロ） 2020/07/05(日) 10:40
Private Sub ComboBox1_Click()
s = Worksheets("シート3").Range("B3:B2000")
Application.Goto Worksheets(s).Range("C3"), True
End Sub
プログラム２
Sub 新規入力()
Dim i
For i = 3 To Sheets("シート3").Range("B100000").End(xlUp).Row + 1
If Sheets("シート3").Range("B" & i).Value = "" Then
Sheets("シート3").Range("B" & i).Value = Sheets("シート2").Range("C2").Value
Exit For
End If
Next
Dim Bmax
Bmax = Worksheets("シート3").Range("B65536").End(xlUp).Row
Dim a, b
Dim data
For a = 3 To Bmax
If data <> Worksheets("シート3").Range("B" & a).Value Then
data = Worksheets("シート3").Range("B" & a).Value
Worksheets("シート2").Copy After:=Worksheets("シート3")
ActiveSheet.Name = data
b = 2
End If
Next
End Sub
（ピエトロ） 2020/07/05(日) 17:21
■９
「■８」とも関連しますが、自己検証したなら↓は2次元配列が格納されるから、
s = Worksheets("シート3").Range("B3:B2000")
↓で型が一致しないというエラーになりませんでしたか？
Application.Goto Worksheets(s).Range("C3"), True
■10
インデントがついておらず、見づらかったので整理してみるとこんな感じですかね。
Sub 新規入力()
Dim i As Long
Dim 最終行 As Long
With Sheets("シート3")
最終行 = .Range("B65536").End(xlUp).Row
For i = 3 To 最終行 + 1
If .Range("B" & i).Value = "" Then
Sheets("シート3").Range("B" & i).Value = Sheets("シート2").Range("C2").Value
Exit For
End If
Next
For i = 3 To 最終行
If .Range("B" & i).Value <> "" Then
Worksheets("シート2").Copy After:=Worksheets("シート3")
ActiveSheet.Name = .Range("B" & i).Value
End If
Next
End With
End Sub
構文的な問題はないかもしれませんが、そもそも論でループ処理は本当に必要なのかちょっと疑問です。
また、今まで聞いていたことと全く違うことを始めましたけど、入力規則とかはどうでもよくなったのでしょうか？
（もこな２ ） 2020/07/05(日) 18:43
ご回答ありがとうございます。
入力規制のやり方をネットで調べておりまして、
再度、プログラムを組み直しました。
プログラム１
Sub validation_ComboBox1_Click()
'今設定されている入力規則を削除しておく
Sheets("シート1").Range("C2").Validation.Delete
'入力規則を設定
Sheets("シート1").Range("C2").Validation.Add Type:=xlValidateList, Formula1:="=シート3!$B$3:$B$2000"
End Sub
プログラム２
順次、新しいデータが入力され、シートが続々と作成されていきますので、
ループ処理が必要かと考えておりました。
ループ処理を行わず、新規入力毎に、シートを追加していく方法はありますでしょうか。
（ピエトロ） 2020/07/07(火) 11:57
Sub プログラム1を整理()
With Sheets("シート1").Range("C2").Validation
.Delete
.Add Type:=xlValidateList, Formula1:="=シート3!$B$3:$B$2000"
End With
End Sub
で、何をやっているかご自身で理解はできているのでしょうか？
構文的な誤りは無いようにおもいますが、提示された内容どおりであれば一度やれば十分でしょうし、わざわざマクロでやる必要性も感じないです。
■12
プログラム２について、繰り返しになりますが、やるべき処理の流れをとりあえず日本語で書いてみて組み立ててから、エクセル君に命令する文章に書きなおすというアプローチも有効だとおもいます。
https://vbae.odyssey-com.co.jp/column/no7_1.html
（もこな２ ） 2020/07/07(火) 13:17
'プログラム1-1
'シート 1 でシート ３のB2列以降に記載されているビル名を選択し、
Sub シート1でシート3のB2以降に記載されているビル名を選択できるようにする()
'今設定されている入力規則を削除しておく
Sheets("シート1").Range("C2").Validation.Delete
'入力規則を設定
Sheets("シート1").Range("C2").Validation.Add Type:=xlValidateList, Formula1:="=シート3!$B$3:$B$2000"
End Sub
'プログラム1-2
'検索ボタンを押して、シート〇【ビル名】へ飛ぶ
Sub 検索ボタンを押す()
'※sの値が設定されていないのでエラーになります
'ワークシート「s」のC3セルへ飛ぶ
Application.Goto Worksheets(s).Range("C3"), True
End Sub
'プログラム2
'シート２で入力した新ビル名データをシート３に記入していく。
'同時に新しくシート【ビル名】を作成する。
'シート1で新たに追加されたビル名を検索できるようにプログラムを書き換える
Sub シート2で入力した新ビル名データをシート3に記入しビル名シートを作成､シート1で新たに追加されたビル名を検索できるようにプログラムを書き換える()
'シート2で入力した新ビル名データをシート3に記入
Dim i
For i = 3 To Sheets("シート3").Range("B100000").End(xlUp).Row + 1
If Sheets("シート3").Range("B" & i).Value = "" Then
Sheets("シート3").Range("B" & i).Value = Sheets("シート2").Range("C2").Value
Exit For
End If
Next
'新たにビル名シートを作成
Dim Bmax
Bmax = Worksheets("シート3").Range("B65536").End(xlUp).Row '変数Bmaxにシート3のB65536セルから直上のデータが入力されているセルの行を代入
Dim a, b
Dim data
For a = 3 To Bmax '3行目からBmax行まで繰り返す
If data <> Worksheets("シート3").Range("B" & a).Value Then '変数dataの値がシート3B列a行の値と異なる場合
data = Worksheets("シート3").Range("B" & a).Value '変数dataにシート3B列a行の値を代入
Worksheets("シート2").Copy After:=Worksheets("シート3") 'シート2をコピーしてシート3の次に挿入
ActiveSheet.Name = data 'アクティブシートの名前を変数dataの値にする
b = 2 '変数bに2を代入（これは何のための値ですか？）
End If
Next
'新たに追加されたビル名を検索できるようする
Call シート1でシート3のB2列以降に記載されているビル名を選択できるようにする
End Sub
※上記は内容の良し悪しについては検討せず列挙しています
＞順次、新しいデータが入力され、シートが続々と作成されていきます
きっとシート２に入力１回ごとに作成されるシートも１つだと思いますのでループ処理はいらないと思います。
もし複数のシートを作成する場合でも、まず１つ作ることから始めた方が良いと思います。
最後の行を探すのならEnd(xlUp)が使えているのでそれで十分ではないでしょうか。
また、入力規則の数式も「=シート3!$B$3:$B$2000」で固定なら、プログラム2の最後で毎回入力規則を変更する意味はないと思います。
「新たにビル名シートを作成」については、変数dataの値に着目してステップ実行してみてください。
ループするごとに変数dataにはB列の一つ上の行の値が代入され、一つ下の行の値と比べていることがわかりますか。
そしてそのたびに新しいシートを追加するため、
マクロを一度実行するごとにB列の値の分だけ大量のシートが生まれるコードになってしまっています。
まずこのあたりを直してみてください。
（しょくぱん） 2020/07/07(火) 14:27
ご回答ありがとうございます。
■１１
＞構文的な誤りは無いようにおもいますが、提示された内容どおりであれば一度やれば十分でしょうし、わざわざマクロでやる必要性も感じないです。
新規入力にて、次次に更新されていきますので、
マクロで管理しなければと考えておりました。
マクロでやる必要がないとは、どのように考えられておられますか。
■１２
構文については、
＞2020/07/05(日) 10:40
に記載して、進めておりました。
＞しょくぱんさま
ご回答ありがとうございます。
＞ループするごとに変数dataにはB列の一つ上の行の値が代入され、一つ下の行の値と比べていることがわかりますか。
すいません。数値の追い方がわかっておらず、チェク方法がわからずにおります。
教えて頂けないでしょうか。
（ピエトロ） 2020/07/10(金) 14:33
＞新規入力にて、次次に更新されていきますので、
＞マクロで管理しなければと考えておりました。
＞マクロでやる必要がないとは、どのように考えられておられますか。
ぷろぐらむ１
「シート1」シートの「C2」セルの入力規則を
クリアして
リストの範囲をシート3!$B$3:$B$2000 に設定する
↑を何度も実行することと、↓を1回やることは同じじゃありません？
手作業で「シート1」シートの「C2」セルの入力規則の設定画面で リストを選んで、範囲をシート3!$B$3:$B$2000 にする
何度言ったか覚えてませんが、コードで悩むより必要な作業を洗い出して整理してから、マクロ化を考えてみてはどうですか？
（もこな２ ） 2020/07/10(金) 16:54
マクロのエディタ(VBE)の画面で、メニューから「表示」→「ローカルウィンドウ」を開いてください。
参考サイト
https://excel-ubara.com/excelvba4/EXCEL266.html
（しょくぱん） 2020/07/15(水) 08:28
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.