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

[µo°Ý] ¦p¦ó©ó¿é¤J³f¸¹«á¦Û°ÊÅã¥Ü°Ó«~¹Ï¤ù¡H(¤w¸Ñ¨M)

¿é¤J³f¸¹¨ú¬Û¤ù
¤j½æ³õ.rar (203.14 KB)

TOP

  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2. If Target.Address <> "$K$4" Then Exit Sub
  3. Image1.Picture = LoadPicture(ThisWorkbook.Path & "\JPG\" & [e12])
  4. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¦³Ä@©ñ¦b¤ß¸Ì¡A¨S¦³¨­Åé¤O¦æ¡A¥¿¦p¯Ñ¥Ð¤£¼½ºØ¡A¬Ò¬OªÅ¹L¦]½t¡C
ªð¦^¦Cªí ¤W¤@¥DÃD