ªð¦^¦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 : ¤H¥Í¤£¤@©w²y²y¬O¦n²y¡A¦ý¬O¦³¾ú½mªº±j¥´ªÌ¡AÀH®É³£¥i¥H´§´Î¡C
ªð¦^¦Cªí ¤W¤@¥DÃD