VBA .document.all.の後はセルでも

2023/08/16 17:29

このQ&Aのポイント

VBAの.document.all.の後にセルを指定することはできないようです。
HPのソースから.document.all.●.Valueの●の部分を調べた結果、number01〜number05が該当することがわかりました。
.document.all.D1〜D5.Valueのように記述したり、.document.all.("D1").Valueのように記述したりしてもうまくいかないようです。書き方が適切でない可能性があります。

ベストアンサー

VBA　.document.all.の後はセルでも

2012/10/16 23:12

先質問 http://okwave.jp/qa/q7750791.html では .document.all.number01.Value = Range("A1").Value .document.all.number02.Value = Range("A2").Value .document.all.number03.Value = Range("A3").Value .document.all.number04.Value = Range("A4").Value .document.all.number05.Value = Range("A5").Value とHPのソースから　.document.all.●.Valueの●の部分を調べ、それがnumber01～number05だという事がわかったのですが、実際やろうとしたHPのnumber01～number05にあたる部分は単純なものではなく、「文字列+変数」でした。よってその「文字列+変数」をエクセル上のD列のセルに作りました。 .document.all.D1.Value = Range("A1").Value .document.all.D2.Value = Range("A2").Value .document.all.D3.Value = Range("A3").Value .document.all.D4.Value = Range("A4").Value .document.all.D5.Value = Range("A5").Value でも駄目で .document.all.("D1").Value = Range("A1").Value .document.all.("D2").Value = Range("A2").Value .document.all.("D3").Value = Range("A3").Value .document.all.("D4").Value = Range("A4").Value .document.all.("D5").Value = Range("A5").Value でも駄目でした。書き方が間違っているのか、そもそも.document.all.の後にはセルは利用できませんか？「文字列+変数」というか「「文字列+個別の番号」です。

kon3914
お礼率86% (220/254)

オフィス系ソフト
回答数1
ありがとう数2

みんなの回答 （1）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

xls88
ベストアンサー率56% (669/1189)

2012/10/17 00:28 回答No.1

.document.all.("D1").Value = Range("A1").Value 上記では単なるD1という文字列を指定しています。構文も間違っています。下記のようにすればセルデータが利用できます。 .document.all(Range("D1").Value).Value = Range("A1").Value

質問者

お礼 2012/10/17 00:38

何から何までありがとうございます！図々しいながらも１つやりたい事を達成出来てしまいました。 VBAって凄いですね。可能性にワクワクします。今後とも宜しくお願いいたします。

関連するQ&A

VBAについて。セルにあわせてマクロを変更したい。
VBAを使い、yahooの路線検索を閲覧しています。出発地　目的地府中桜上水【ボタン】新宿御徒町【ボタン】日暮里　巣鴨　　【ボタン】 A列のセルを出発地 B列のセルを目的地にそれぞれ入力しています。 C列の【ボタン】を押すとマクロが動くようにしたいと思っています。下記のマクロの『Range("")』の部分を 3行目の【ボタン】をクリックしたら『Range("A3")』『Range("B3")』に 4行目の【ボタン】をクリックしたら『Range("A4")』『Range("B4")』に・・・としたいと思っています。 200行近くあるので、ひとつひとつマクロを作成するのはとても大変で、色々と調べたのですが、どうにも解らず、助けを求めにきました。また… 【ボタン】に関しても、特に意味はなく、使いやすいかなと思った程度ですので、同じような使い方をしている方で、便利にしようする方法などありましたら教えていただければと思います。 ------------------------------------------------------------------- Sub 路線検索() Dim objIE As Object Set objIE = CreateObject("InternetExplorer.application") objIE.Visible = True objIE.Navigate "http://transit.yahoo.co.jp/" Do While objIE.Busy = True DoEvents Loop objIE.Document.all("from").Value = Range("A2").Value objIE.Document.all("to").Value = Range("B2").Value objIE.Document.all.tags("input").Item(17).Click End Sub -------------------------------------------------------------------
- ベストアンサー
- オフィス系ソフト
[Excel97]VBA:セルに入っている数式を別のシートのセルに文字列としてセットする
「ExcelVBAマクロ500連発」という技術評論社の本（青のカバー）のNo.277に「式を文字列として表示する」というサンプルマクロがあります。「ワークシートのセルに入っている数式を、（同じシート内の）別のセルに文字列としてセットする」ここのコードを参考にして、「数式を、（同じブック内の別のシートの）セルに文字列としてセットする」コードを考えています。以下のコードを作りましたが、実行すると最後から2行目の「.Formula」のところで実行時エラー1004：'Range'メソッドは失敗しました。'_Global'オブジェクトというエラーが出てきます。なぜでしょうか？正しいコードの記述を教えて下さい。（Sheet1のD3セルの計算式をSheet2のD10セルに文字列としてセット） Option Explicit Dim 調査セル As Variant Dim 報告セル As Variant Sub 式の抽出() Worksheets("Sheet2").Select 調査セル = Worksheets("Sheet1").Cells(3, 4) 報告セル = "D10" Range(報告セル).Value = "" Range(報告セル).Value = "'" + Range(調査セル).Formula End Sub
- ベストアンサー
- Visual Basic
エクセルでのVBA
エクセルでVBAを使ってIEで指定のURLを開いて、VBAで指定したWEBフォームにエクセルで指定したセルの値を入力したいのですが、下記のコードを入れるとエラーが出てしまいます。　 A1：1-1 or 1-2 or 1-3 B1：月曜日 C1：火曜日 D1：水曜日上のA1～D1まで入力した上でコマンドボタンをクリックすると、自動的に行うようにしたいです。 Private Sub CommandButton1_Click() Dim objie As Object Set objie = CreateObject("InternetExplorer.application") objie.Visible = True objie.Navigate "http://●●●●/form.html" Dim kubun As String kubun = range("A1") Select Case kubun Case "1-1" call ma1_1 Case "1-2" call ma1_2 Case "1-3" call ma1_3 End select Set objie = Nothing End sub Sub ma1_1() objie.Document.all.form1_1.Value = Range("B1") End Sub Sub ma1_2() objie.Document.all.form1_1.Value = Range("B1") objie.Document.all.form1_2.Value = Range("C1") End Sub Sub ma1_3() objie.Document.all.form1_1.Value = Range("B1") objie.Document.all.form1_2.Value = Range("C1") objie.Document.all.form1_3.Value = Range("D1") End Sub これで実行を押すと、objie 変数が定義されていません。と出てしまいます。このobjieを有効にするにはどうしたよいのでしょうか？わかる方いましたらご教授願います。よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
VBAで別の列のセルにも色付け～２
WINDOWS XP EXCELL ２００３です。いつもお世話になります。ご迷惑とは重々と承知しながら再度質問させていただきます。１　御指導を賜りたいのは、現在A列には月度を示す　０１～１２　が入力され月別にセルの背景色を塗りつぶしていますがこれをA列用のマクロを工夫してF列にも同様に適用したい。例えば参照図で言うと A７　０５　ピンク　 A８　０５　ピンク A９　０６　ライトブルー　 A１０　０７　草色　等のように ※ 参照図のF列のセルには背景色は適用していません。２　参照図のそれぞれの設定は、　　 ※ 計画　と　生産はセル位置だけの違いで生産の方は割愛します。 D１　ユーザー定義　mm/dd D２　ユーザー定義　２０００００ D３　数値 A７　ユーザー定義　mm マクロボタン「計画入力」 Sub 計画入力() Dim GYOU '追加 GYOU = Range("C65536").End(xlUp).Row + 1 Cells(GYOU, 2).Value = Range("D1").Value Cells(GYOU, 3).Value = Range("D2").Value Cells(GYOU, 4).Value = Range("D3").Value End Sub ボタン「セルセット」 Sub 計画セル() 　　 Range("D1,D2,D3,D1").Select End Sub A列のセル塗りつぶし Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row >= 8 And Target.Address = Cells(Rows.Count, "C").End(xlUp).Address Then Target.Offset(0, 0).Value = Date End If Dim c As Integer If Target.Column <> 2 Then Exit Sub If Target.Value = "" Then c = 0 Else On Error GoTo line Select Case Month(Target.Value) Case 1: c = 46 Case 2: c = 4 Case 3: c = 39 Case 4: c = 6 Case 5: c = 7 Case 6: c = 8 Case 7: c = 43 Case 8: c = 3 Case 9: c = 44 Case 10: c = 24 Case 11: c = 40 Case 12: c = 17 End Select End If Target.Offset(0, -1).Interior.ColorIndex = c Target.Offset(0, -1).Font.ColorIndex = IIf(c = 1, 2, 0) Exit Sub line: Target.Offset(0, -1).Interior.ColorIndex = 0 Target.Offset(0, -1).Font.ColorIndex = 0 End Sub 御指導よろしく御願いします。
- ベストアンサー
- その他MS Office製品
VBAからIE操作でログインできない
社内の業務管理システムにエクセルＶＢＡでログインしようとしています、が、ログインはもとより、ＩＤを入力する部分に私のＩＤ情報すら入力されません。とりあえずＩＤ枠に入力する方法をアドバイスをお願いします。 ◆ｈｔｍｌソース <table> <tr> <td>ＩＤ</td> <td><input type="text" name="UserId" id="UserId" /></td> </tr> <tr> <td>PW</td> <td><input type="password" name="UserPass" id="UserPass" /></td> </tr> ◆ＶＢＡでは以下のいずれの文も失敗（ＩＤ入力枠に何も入らない。エラー発生。） ※右辺のD12セルには私のＩＤ情報を入力しています。 ObjIE.Document.all.UserId.Value = Worksheets("MyData").Range("D12").Value ObjIE.Document.all("UserId")(0).Value = Worksheets("MyData").Range("D12").Value ObjIE.Document.all("UserId").Value = Worksheets("MyData").Range("D12").Value ObjIE.document.forms(0).elements("UserId").Value = Worksheets("MyData").Range("D12").Value ObjIE.document.forms(0).elements("UserId")(0).Value = Worksheets("MyData").Range("D12").Value ObjIE.Document.getElementById("UserId").Value = Worksheets("MyData").Range("D12").Value ObjIE.document.all.Item("UserId").Value = Worksheets("MyData").Range("D12").Value 上記コードの何が間違っているのでしょうか？あるいは、上記の原因特定するために、何を試せばよいでしょうか？宜しくお願いいたします。
- 締切済み
- Visual Basic
VBA セルの値13が数値だったり文字列だったり
セルに入った「13」が数値の場合でも文字列の場合でも処理出来る方法はありませんか？例えば If Range("A1").Value=13 Then 処理 Endif セルの値が文字列"13"の場合、同じと認識してくれません。いい方法はないでしょうか？
- 締切済み
- Excel（エクセル）
変化するセルが変更されたら実行、というVBAを組みたい
たとえば、このセルが変更されたら実行、というのは Private Sub WorkSheet_change (Byval Target As Range) If(Target.Address = "$D$3") Then call *** End If End Sub のようにしますよね？この場合、指定したセルは「D3」ですが、たとえば、 A列、B列、C列、D列のアクティブの行のセルが変更されたらコード実行、というようにするにはどうしたらいいのでしょうか？
- ベストアンサー
- オフィス系ソフト
midステートメント　セルを指定したい
エクセルなのですが、 Sub N文字目を置換する1() Dim N As Long Range("a1").Value = "abcde" N = 2 '置換する文字の位置　’start(省略不可) Mid(Range("a1").Value, N) = "X" MsgBox Range("a1").Value End Sub このように、セルを指定することはできないのでしょうか？このコードを実行しようとすると、 Mid(Range("a1").Value, N) = "X"の部分で「変数が必要です」とコンパイルエラーになります。 Sub N文字目を置換する2() Dim moji As String Dim N As Long Range("a1").Value = "abcde" moji = Range("a1").Value N = 2 Mid(moji, N) = "X" MsgBox moji End Sub このように、セルの値を一度変数に入れると問題なく実行できますが、なぜダイレクトにmidステートメントでセルを指定できないのかわからないので教えてください。よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
JavaScriptのdocument.all("変数名").valueについて
今、JavaScriptの勉強をしているのですが、document.all("変数名").valueの使い方の意味がよくわかりません。そもそも、document.allの意味自体がよくわかりません。わかる方、どうか教えてください・
- 締切済み
- JavaScript
エクセル VBA セル範囲の一部解除
rangeオブジェクト型変数にセル範囲を代入した後、一部のセルを解除したいのです。グラフを描くためにc列とE列をデータに散布図を描こうとしてます。セル範囲の選択はrange型変数に代入しました。しかしゼロ以下の値のセルは削除したいのです。 for each c in datacell if c.value <0 then c.value="" next c 上記のようにすると目的は達しますが、ワークシート上の値も削除されてしまい、好ましくありません。良い方法はないでしょうか？
- ベストアンサー
- オフィス系ソフト