既存ＩＥのテキストボックスにEXCELの値を貼り付ける動作が不安定
昨日以降(0) ２日前以降(0) ３日前以降(0) ４日前以降(0) ５日前以降(0)
| Message#2 2015年4月15日(水)14時53分 From: VBAマスター | 返事 削除 変更 |
| やりたいことって検索ボックスにダブルクリックした値をセットしたいということですか？ わざわざクリップボード経由で入力する必要はないと思いますが。 とりあえずクリップボードなしでもOKの場合は以下でもいけるかと思います。 Public objIE As InternetExplorer 'ダブルクリックでスタートする Private Sub Worksheet_BeforeDoubleClick(ByVal Target As range, Cancel As Boolean) Dim objInpTxt As HTMLInputTextElement Dim objSh As Object Dim objWin As Object Cancel = True Set objSh = CreateObject("Shell.Application") For Each objWin In objSh.Windows If TypeName(objWin.document) = "HTMLDocument" Then Set objIE = objWin Set objSh = Nothing Exit For End If Next Set objInpTxt = objIE.document.getElementsByName("q")(0) objInpTxt.value = Target.value End Sub |
昨日以降 ２日前以降 ３日前以降 ４日前以降 ５日前以降
