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

½Ð°ÝXMLHTTP±q¦Û°Êµn¤J§ï¦¨¤H¤uµn¤Jªºª`·N¨Æ¶µ¡CÁÂÁ¡C

¥»©«³Ì«á¥Ñ GBKEE ©ó 2014-8-26 12:50 ½s¿è
½Ð°ÝXMLHTTP±q¦Û°Êµn¤J§ï¦¨¤H¤uµn¤Jªºª`·N¨Æ¶µ¡CÁÂÁ¡C
Call  initXXXX01(.Cells(i, 2), .C ...
Kubi µoªí©ó 2014/8/26 08:25
µ{¦¡°õ¦æ¦³¿ù»~¶Ü?  ·Q­n§ï­þ¨Ç¦a¤è?
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 3# Kubi
§Æ±æ§âµn¤J³¡¤À§ï¦¨¦Û¤v¨Ó¥ý¥Î¤H¤uµn¤J
¬O³o¼Ë¶Ü?°õ¦æ Ex ¤@¦¸ ¤H¤uµn¤J
  1. Sub Ex()
  2.        With [k2]
  3.         If .Value <> "*" And .Cells(1, 2) <> "" And .Cells(1, 3) <> "" And .Cells(1, 4) <> "" Then
  4.             Cancel = True
  5.            .Cells(1, 1) = "*"
  6.             Call initVote(.Cells(1, 2), .Cells(1, 3), .Cells(1, 4)): Beep
  7.         End If
  8.     End With
  9. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¯u¥¿ªº·R¤ß¡A¬O·ÓÅU¦n¦Û¤vªº³oÁû¤ß¡C
ªð¦^¦Cªí ¤W¤@¥DÃD