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

[µo°Ý] ¦p¦ó©I¥sUSERFORMªí³æªº«ö¶s°õ¦æ

[µo°Ý] ¦p¦ó©I¥sUSERFORMªí³æªº«ö¶s°õ¦æ

¦U¦ì¤j¤j¦n
§Ú¥ÎVBA ±NUSERFORM ¤Wªº¸ê®Æ³£®Ñ ¤J¤F
¦ý¤£ª¾¹D¦p¦ó³z¹Lvba°õ¦æ«ö¶s(«ö¶s¥»¨­¥\¯à¤w¸g¼g§¹)
´N¬O¤£ª¾¹D¦p¦ó³z¹LvbaÅý¥L¦Û¤v°õ¦æªí³æ¤W­±ªº«ö¶s¥\¯à
  1.     Aform.Show 0
  2.     T = Cells(R, 1).Resize(1, 18).Value
  3.     Aform.ComboBox13 = T(1, 1)
  4.     Aform.CommandButton7_Click'³o¬q¿ù¤F,µLªk°õ¦æ
½Æ»s¥N½X
PKKO

¦^´_ 2# n7822123


    ­ì¨Ó¦p¦¹,´ú¸Õ¨S°ÝÃD,·P®¦!
PKKO

TOP

¥»©«³Ì«á¥Ñ n7822123 ©ó 2020-7-8 23:51 ½s¿è

¦^´_ 1# PKKO


§â «ö¶sSub «e­±ªº "Private" §ï¦¨ Public ¤~¯àµ¹ªí³æ¥~ªº¼Ò²Õ©I¥s

ÀH«K¼g­Ó½d¨Ò¦p¤U

   
Public Sub CommandButton7_Click()
  MsgBox "Hi"
End Sub
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¤H¤£©È¿ù¡A´N©È¤£§ï¹L¡A§ï¹L¨Ã¤£Ãø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD