ヤフーのトップページから
値を入れて検索を押すまではできるのですが
「ウェブ」ではなく「地図」で検索するにはどういう操作をすればいいのでしょうか？
Sub yahoo()
Dim objIE As Object
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True
objIE.Navigate "http://www.yahoo.co.jp/"
Do While objIE.Busy = True
DoEvents
Loop
Do While objIE.Document.ReadyState <> "complete"
DoEvents
Loop
objIE.Document.forms(0).elements("p").Value = "東京"
'‘「地図」をクリックする操作をしたい
objIE.Document.forms(0).submit
Set objIE = Nothing
End Sub
宜しくお願いいたします。
いつもお世話になっております。
何度も質問して申し訳ございません。またまた教えてください。
電気家計簿（https://www.kakeibo.tepco.co.jp/dk/aut/login/）のログインボタンをＶＢＡで押したいのですが
うまくできません。
コードは下記の通りです。
*****************************************************************
Sub test()
Dim objIE As InternetExplorer
Dim myObj As Object
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True
objIE.Navigate "https://www.kakeibo.tepco.co.jp/dk/aut/login/"
Do While objIE.Busy = True Or objIE.ReadyState <> 4
DoEvents
Loop
objIE.Document.all("id").Value = "test"
objIE.Document.all("password").Value = "tset"
'objIE.Document.Forms(0).submit 'これだと更新されちゃうっぽい
'objIE.Document.Forms(0).Item(2).Click 'Item(0)とItem(1)はエラーにならないけど何も起こらない。Item(2)にするとエラー
'objIE.Document.all.submit.Click 'エラー
'エラーにならないけど何も起こらない
'For i = 0 To objIE.Document.Links.Length - 1
' If objIE.Document.Links(i).innerHTML Like "*alt=ログイン*" Then
' objIE.Document.Links(i).Click
' Exit For
' End If
'Next i
'エラーにならないけど何も起こらない
'For Each myObj In objIE.Document.forms(0).all
' If TypeName(myObj) = "HTMLInputElement" Then
' If myObj.alt = "ログイン" Then
' myObj.Click
' Exit For
' End If
' End If
'Next
Set objIE = Nothing
End Sub
*****************************************************************
自分なりにいくつか試してみたのですが、うまくいきませんでした。
ご教授よろしくお願いします。
EXCEL2000を使用してます。
アンケート作成をしており、設問毎にチェックボックスで複数選択できるようにしていますが、１つの設問にチェックボックスが８～１０等多くあるため、設問毎にチェックボックスの一括オンオフができるようにしたいのです。
今は、次の記述で、ある設問のみ全てのチェックボックスにレが入りますが、はずす事ができません。
Sub チェック11_Click()
ActiveSheet.CheckBoxes(Array(1, 2, 3)).Value = True
End Sub
どうすれば、チェック11のボックスで、オンオフができるのでしょうか？
どうか教えて頂きますよう、よろしくお願い致します。
EXCEL2000を使用してます。
アンケート作成をしており、設問毎にチェックボックスで複数選択できるようにしていますが、１つの設問にチェックボックスが８～１０等多くあるため、設問毎にチェックボックスの一括オンオフができるようにしたいのです。
今は、次の記述で、ある設問のみ全てのチェックボックスにレが入りますが、はずす事ができません。
Sub チェック11_Click()
ActiveSheet.CheckBoxes(Array(1, 2, 3)).Value = True
End Sub
どうすれば、チェック11のボックスで、オンオフができるのでしょうか？
どうか教えて頂きますよう、よろしくお願い致します。
IE９を使っています。
画像のようにタブを二つ開くにはどうすればいいでしょうか？
Sub test()
Dim objIE As InternetExplorer
Set objIE = CreateObject("InternetExplorer.application")
objIE.Visible = True
objIE.Navigate "http://www.yahoo.co.jp/"
Set objIE = Nothing
End Sub
だと一つのタブしか開けません。
Sub test()
Dim objIE As InternetExplorer
Set objIE = CreateObject("InternetExplorer.application")
objIE.Visible = True
objIE.Navigate "http://www.yahoo.co.jp/"
objIE.Navigate "http://www.yahoo.co.jp/"
Set objIE = Nothing
End Sub
にしても
Sub test()
Dim objIE As InternetExplorer
Set objIE = CreateObject("InternetExplorer.application")
objIE.Visible = True
objIE.Navigate "http://www.yahoo.co.jp/"
objIE.Navigate2 "http://www.yahoo.co.jp/"
Set objIE = Nothing
End Sub
にしても1つのタブしか開けないです。
ご回答よろしくお願いします。
Excel2010でのマクロで折れ線グラフをマクロで作ろうとしています。
線の太さを2.25pt、マーカーの太さを1.25ptにしたいのですが、
マクロの記録では
ActiveChart.SeriesCollection(2).Select
'線の太さ
With Selection.Format.Line
.Visible = msoTrue
.Weight = 2.25
End With
'マーカーの太さ
With Selection.Format.Line
.Visible = msoTrue
.Weight = 1.25
End With
となり、同じ太さになってしまいます。
手動でデータ系列の書式設定をすると各々別の太さになるのですが、
マクロではどうすればいいでしょうか？
宜しくお願いいたします。
Excel2010でのマクロで折れ線グラフをマクロで作ろうとしています。
線の太さを2.25pt、マーカーの太さを1.25ptにしたいのですが、
マクロの記録では
ActiveChart.SeriesCollection(2).Select
'線の太さ
With Selection.Format.Line
.Visible = msoTrue
.Weight = 2.25
End With
'マーカーの太さ
With Selection.Format.Line
.Visible = msoTrue
.Weight = 1.25
End With
となり、同じ太さになってしまいます。
手動でデータ系列の書式設定をすると各々別の太さになるのですが、
マクロではどうすればいいでしょうか？
宜しくお願いいたします。
以前、こちらでインターネット上の窓にエクセルの数値を自動で入れたいと言う質問をさせて頂きました。http://okwave.jp/qa/q7676012.html
VBAを利用したらどうかと教えていただき、マクロをその後、勉強し動いて感動しました。
クロネコの宅急便サイトで応用しようと試みたのですが、「オブジェクト変数またはWithブロック変数が設定されてません。」とエラーが出ます。
同じ仕組みだと思うのですが何がいけないんでしょうか？
Dim myWindow As Object
Dim myUrl As String
myUrl = "http://toi.kuronekoyamato.co.jp/cgi-bin/tneko?init
For Each myWindow In CreateObject("Shell.Application").Windows
With myWindow
If .LocationURL = myUrl Then
.document.getElementById("text1").value = Range("A1").value
.document.getElementById("text2").value = Range("A2").value
.document.getElementById("text3").value = Range("A3").value
.document.getElementById("text4").value = Range("A4").value
.document.getElementById("text5").value = Range("A5").value
Exit For
End If
End With
Next myWindow
