ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¦p¦ó¥ÎVBA¡A³z¹LExcel¦bºô­¶¤W±±¨î¤Ä¿ï?

[µo°Ý] ¦p¦ó¥ÎVBA¡A³z¹LExcel¦bºô­¶¤W±±¨î¤Ä¿ï?

:)  Hi ¦U¦ì¥ý¶i
·Q½Ð±Ð¤@­Ó°ÝÃD¡A´N¬O¦bºô­¶¤W¡A¦³¤@­Ó¥´¤Äªº¤è®Ø¡A¦p¤U¹Ï¬õ®Øªº¦a¤è¡A¦pªG§Ú·Q¥ÎVBAµ{¦¡»y¨¥±±¨î¡A¤ñ¤è§Ú¦bExcel A1¤å¦rÅã¥Ü "¶µ¦¸"¡A¦bA2 Äæ¦ì¨Ó§P©w¬O§_¬°"Y"¡A°²¨ÏA2¬°Y¡Aºô­¶¤W¶µ¦¸ªº®Ø®Ø¤º´N¥´¤Ä¡A³o¦n¹³¸òchecked¦³Ãö¡A¦]¬°§Úµo²{¨S¦³³Q¥´¤Äªº¿ï¶µ¡Avalue¨º¤@¦ê¦r¤§«áªº checked ¤£·|Åã¥Ü
ÁÂÁ«ü±Ð

------³Q¤Ä¿ïªº®Ø "¶µ¦¸" ºô­¶­ì©lÀÉ
<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>

------¨S³Q¤Ä¿ïªº®Ø "¥Î¶q(*) ºô­¶­ì©lÀÉ
<td width="26%" align="left" bgcolor="#EEEEEE" class='t8_blue4'>&nbsp;&nbsp;&nbsp;
<INPUT type="checkbox" name="displayAttribute" id="displayAttribute5" value="QuantityStar" >
&nbsp;¥Î¶q(*)
</td>

GBKEE ¤j¤j
§Ú¦n¹³Åý±z»~·|¤F¡A§Úªº·Qªk¬O¡A¦pªG¦bExcel¤Wªº¬Y­ÓÄæ¦ì¼Ð¥Ü"Y"¡A¥i¥H±±¨îWeb¤WÄæ¦ì¤Wªº¿ï¶µ¬O§_¥´¤Ä
¤ñ¤èExcel§Ú¦bB3Äæ©ñ¤JY¡A«h¦¹ºô­¶¦b "¿ï¶µ" ªº³o­Ó¤è®Ø¤º¡A´N·|³Q¥´¤Ä
¤£¹LVBA³ø¿ù¡A»¡¨S³o­Ó»yªk¡A§ÚÀ³¸Ó«ç­Ó§ï¤ñ¸û¦n©O?

  '-----Äæ¦ì¶µ¦¸¿ï¶µ
  For Each A In .getelementbyid("displayAttribute1")
  If Sheets(1).Cells(3, 3) = "Y" Then A.Checked  '¦pªGExcel B3Åã¥Ü Y¡A«h§âºô­¶ "¶µ¦¸" ¿ï¶µ¥´¤Ä
  Next

TOP

¤j¤j
ÁÂÁ«e­±ªº«ü¾É¡A§Ú­è¸Õ¥X¨Ó¤F  
'If Sheets(1).Cells(3, 2) = "Y" Then ' ---->³o¥y§PÂ_if¡A¬O¦hªº¡AÀ³¸Ó§R°£
¥u­n¯d  .getelementbyid("displayAttribute7").Checked = Sheets(1).Cells(3, 2) ´N¦n¤F
¦pªGB3Äæ¦ì¦³¤º®e¡A¿ï¶µ´N·|¤Ä°_¨Ó¤F¡A¦pªGB3Äæ¦ìµL¤º®e¡A¿ï¶µ´N¤£·|¤Ä°_¨Ó¤F
·PÁÂ

    '-----Äæ¦ì¶µ¦¸¿ï¶µ---------
  'If Sheets(1).Cells(3, 2) = "Y" Then ' ³o¥y¬O¦hªº¡AÀ³¸Ó§R°£
  .getelementbyid("displayAttribute7").Checked = Sheets(1).Cells(3, 2) '¦pªGExcel B3Åã¥Ü Y¡A«h§âºô­¶ "¶µ¦¸" ¿ï¶µ¥´¤Ä

TOP

GBKEE¤j¤j
ÁÂÁ±z¡A¥i¥H¨Ï¥Î

TOP

        ÀR«ä¦Û¦b : Ãø¦æ¯à¦æ¡AÃø±Ë¯à±Ë¡AÃø¬°¯à¬°¡A¤~¯àª@µØ¦Û§Úªº¤H®æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD