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

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

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

¥»©«³Ì«á¥Ñ yangtest ©ó 2011-11-21 09:25 ½s¿è

¦p¦ó©ó¿é¤J³f¸¹«á¦Û°ÊÅã¥Ü°Ó«~¹Ï¤ù¡H

[©ó¿é¤J³f¸¹«á¦Û°ÊÅã¥Ü°Ó«~¸ê®Æ¤Î¹Ï¤ù¡A¥\¯à»¡©ú¦pªþ¥[ÀɮסC
¥Ñ©ó¤p§Ì¹ï¡yVBA¡z¤£¤Ó¤F¸Ñ¡AÀµ½Ð¦U¦ì¥ý¶iÀ°¦£¡AÁÂÁ¡I¡I

¤j½æ³õ.rar (49.22 KB)

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

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2011-11-28 10:19 ½s¿è

¦^´_ 1# yangtest
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2.     If Target.Address = [K4].Address Then ©I¥s¬Û¤ù
  3.     Target.Select
  4. End Sub
  5. Private Sub ©I¥s¬Û¤ù()
  6.        Dim ¸ê®Æ§¨ As String, ºô­¶·Ó¤ù As String
  7.        ¸ê®Æ§¨ = "d:\¤j½æ³õ\"   '¶·­×¸ê®Æ§¨
  8.        ºô­¶·Ó¤ù = "http://us.123rf.com/400wm/400/400/janaka/janaka0808/janaka080800490/3398188-3d-question-mark-icon-3d-art.jpg"
  9.        On Error Resume Next
  10.         Shapes("Rectangle 4").Fill.UserPicture ¸ê®Æ§¨ & [K4] & ".jpg"
  11.         If Err.Number <> 0 Then Shapes("Rectangle 4").Fill.UserPicture ºô­¶·Ó¤ù
  12. End Sub
½Æ»s¥N½X

RE ¬Û¤ù.rar (1.29 MB)

TOP

¦^´_ 3# GBKEE

·PÁ GBKEE  «e½ú´£¨Ñ¥t¤@ºØ­È±o°Ñ¦Òªº°µªk

TOP

¦^´_ 2# oobird


·PÁ oobird ¡]¶W¯Åª©¥D¡^¸Ñ¨M¤F§ÚªºÃøÃD¡A
´ú¸Õ«áÁÙ¦³¤@­Ó¤p°ÝÃD¡A½Ð¦AÀ°¦£­×§ï¡AÁÂÁ ¡I¡I
°ÝÃD»¡©ú¡G
¤£¦P³f¸¹·|¨Ï¥Î¨ì¬Û¦P¦WºÙªº¬Û¤ù¡A
¦p³f¸¹ A01003 »P A01004 §¡¨Ï¥Î A01003.JPG ªº¬Û¤ù
·í³f¸¹¿é¤J A01003 ®É¡A¥i¥¿±`Åã¥Ü A01003.JPG ªº¬Û¤ù
¦ý·í³f¸¹¿é¤J A01004 ®É¡A¦]¬°§ä¤£¨ì A01004.JPG ªº¬Û¤ù¦Ó¥X¿ù¡I
¨C¤@µ§³f¸¹©Ò¹ïÀ³ªº¥¿½T¬Û¤ù¦WºÙ¬°¡i¥s¬Û¤ù¡j¤u§@ªíªº¡iE12¡jÀx¦s®æ¡A
½Ð¥H¦¹Àx¦s®æªº¤º®e°µ¬°¬Û¤ùÀɦW¨ÓŪ¨ú¡C

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

¦^´_ 6# oobird


    ¦A¦¸·PÁ oobird ¡]¶W¯Åª©¥D¡^¡A²×©ó¸Ñ¨M¤F§ÚªºÃøÃD  ¡I¡I¡I¡I

TOP

¦^´_ 6# oobird


    ½Ð°ÝO¤j
¦pªG¦¹½d¨Ò¿é¤J¤£¦s¦bªº³f¸¹·|¥X²{¿ù»~­n¦p¦ó¸Ñ¨M
§Ú¸Õ¤F¦n¤[³£¸Õ¤£¥X¨Ó

TOP

¦^´_ 8# dafa
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2. If Target.Address <> "$K$4" Then Exit Sub
  3. On Error Resume Next
  4. Image1.Picture = LoadPicture(ThisWorkbook.Path & "\JPG\" & [e12])
  5. If Err <> 0 Then Image1.Picture = LoadPicture
  6. End Sub
½Æ»s¥N½X

TOP

¥»©«³Ì«á¥Ñ jesscc ©ó 2011-11-27 23:18 ½s¿è

¦^´_ 9# GBKEE
   
G¤j±z¦n¡A¬Ý¨ì³o­Ó½d¨Ò¡A§Úı±oÆZ¦n¥Îªº¡A¦]¦¹¤U¸ü¨Ó´ú¸Õ¤F¤@¤U¡A§Úµo²{¦pªG©Ò·j´Mªº¹Ï¤ù¦WºÙ¤¤§t¦³¯S®í²Å¸¹¡A¦p
150PX-~1.PNG
2011-11-27 23:17
(ªí¥Üª½®|ªº²Å¸¹)¡A³o¼Ë´N·|·j´M¤£¨ì¡A¨Ã¥B¥X²{¿ù»~¡A¸Ó¦p¦ó¸Ñ¨M³oºØ°ÝÃD©O?
Jess

TOP

        ÀR«ä¦Û¦b : ¬°¤H³B¥@­n¤p¤ß²Ó¤ß¡A¦ý¤£­n¡u¤p¤ß²´¡v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD