返回列表 上一主題 發帖

[發問] 如何用VBA,透過Excel在網頁上控制勾選?

[發問] 如何用VBA,透過Excel在網頁上控制勾選?

:)  Hi 各位先進
想請教一個問題,就是在網頁上,有一個打勾的方框,如下圖紅框的地方,如果我想用VBA程式語言控制,比方我在Excel A1文字顯示 "項次",在A2 欄位來判定是否為"Y",假使A2為Y,網頁上項次的框框內就打勾,這好像跟checked有關,因為我發現沒有被打勾的選項,value那一串字之後的 checked 不會顯示
謝謝指教

------被勾選的框 "項次" 網頁原始檔
<td width="26%" align="left" bgcolor="#EEEEEE" class='t8_blue4'>&nbsp;&nbsp;&nbsp;
<INPUT type="checkbox" name="displayAttribute" id="displayAttribute1" value="SequenceNo" checked>
&nbsp;項次
</td>

------沒被勾選的框 "用量(*) 網頁原始檔
<td width="26%" align="left" bgcolor="#EEEEEE" class='t8_blue4'>&nbsp;&nbsp;&nbsp;
<INPUT type="checkbox" name="displayAttribute" id="displayAttribute5" value="QuantityStar" >
&nbsp;用量(*)
</td>

GBKEE 大大
我好像讓您誤會了,我的想法是,如果在Excel上的某個欄位標示"Y",可以控制Web上欄位上的選項是否打勾
比方Excel我在B3欄放入Y,則此網頁在 "選項" 的這個方框內,就會被打勾
不過VBA報錯,說沒這個語法,我應該怎個改比較好呢?

  '-----欄位項次選項
  For Each A In .getelementbyid("displayAttribute1")
  If Sheets(1).Cells(3, 3) = "Y" Then A.Checked  '如果Excel B3顯示 Y,則把網頁 "項次" 選項打勾
  Next

TOP

大大
謝謝前面的指導,我剛試出來了  
'If Sheets(1).Cells(3, 2) = "Y" Then ' ---->這句判斷if,是多的,應該刪除
只要留  .getelementbyid("displayAttribute7").Checked = Sheets(1).Cells(3, 2) 就好了
如果B3欄位有內容,選項就會勾起來了,如果B3欄位無內容,選項就不會勾起來了
感謝

    '-----欄位項次選項---------
  'If Sheets(1).Cells(3, 2) = "Y" Then ' 這句是多的,應該刪除
  .getelementbyid("displayAttribute7").Checked = Sheets(1).Cells(3, 2) '如果Excel B3顯示 Y,則把網頁 "項次" 選項打勾

TOP

GBKEE大大
謝謝您,可以使用

TOP

        靜思自在 : 手心向下是助人,手心向上是求人;助人快樂,求人痛苦。
返回列表 上一主題