前回は、toras9000様、有難うございました。いつもお世話になっております。また、行き詰まってしまいました。 どなたか、お助けください。 成田国際空港のWebサイト 本日のフライト全便一覧の例えば、国内線出発全便のWebページからExcel VBAでWebクエリを作成し、そのWorksheetには、A列に出発便の定刻時刻、B列に実際に予想される出発時刻、E列には、フライト便名（NH2141等）が、表示されています。 一方、別のWorksheet（1）には、C列に多種類のフライト便名（数字とハイフン 2141- 2179-等) が入力されており、それぞれのフライト便名をVBAで、先のWebクエリのE列から検索して、フライト便名が一致したら、Webクエリの同じ行のA列に表示されている定刻時刻を 別のWorksheet(1)のF列に表示させ、もう一度クリックするとB列の実際に予想される出発時刻が、F列に表示させたのですが、どなたか、助けていただけませんでしょうか？ 悩んでいます。 （例） Webクエリ A列 B列 E列 Planned Expected Flight 6:00 6:06 GK121 6:20 6:30 JL3051 6:35 6:45 NH949 7:00 7:10 VN3351 Worksheet(1) C列 F列 949- 949- 949- 121- 121- 3051- 似たような質問と答えを見て、自力で下記のように作りましたが、どう書けばいいのか、わかりません。トホホです。 Private Sub CommandButton21_Click() Application.ScreenUpdating = False On Error Resume Next Worksheets.Add after:=Worksheets(Worksheets.Count), Count:=2 With Worksheets(Worksheets.Count).QueryTables.Add( _ Connection:="URL;http://www.narita-airport.or.jp/ais/flightall/e_domes_dep.html", _ Destination:=Worksheets(Worksheets.Count).Cells(1, 1)) .WebSelectionType = xlAllTables .Refresh BackgroundQuery:=True .Range ("A1:A" & Range("A1048570").End(xlUp).Row) .SpecialCells(xlCellTypeBlanks).EntireRow.Delete End With Dim sh1 As Worksheet Dim sh2 As Worksheet Dim r As Long Dim f As Range 'Set sh1 = Worksheets(1) 'Set sh2 = Worksheets(Worksheets.Count) r = 1 Do While sh1.Range("C" & r).Value <> "" 'Worksheet(1)のC列の注目行の値がある間 Set f = sh2.Columns("E").Find(sh1.Range("C" & r).Value, LookAt:=xlPart, LookIn:=xlValues) 'Worksheet(1) のC列の注目行の値を sh2 のE列から探す If Not f Is Nothing Then '見つかったら このあと、どう書いたらいいのか、わかりません。 さらに、クリックするたびに、Webクエリのフライト便の定刻か（A列か）実際の予定時刻（B列か）を交互に Worksheets(1)のF列に表示させたいのですが、できますでしょうか？ あと、Webクエリなのですが、成田国際空港公式Webサイトには、国際線 出発全便 到着全便 国内線 出発全便 到着全便 の４つのサイトがあり、この4つのサイトを同一に Worksheet上に 作成できますか？ Webクエリには、空白の行がありますが、問題ありますでしょうか？ わからなくて、夜も眠れません、宜しくお願い致します。
↧