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

[µo°Ý] ½Ð°Ý¦p¦ó¥Ñ¤@­ÓÀx¦s®æ§PÂ_¥h§ó§ï³sµ²ªºÀx¦s®æ

[µo°Ý] ½Ð°Ý¦p¦ó¥Ñ¤@­ÓÀx¦s®æ§PÂ_¥h§ó§ï³sµ²ªºÀx¦s®æ

½Ð°Ý¦p¦ó¥Ñ¤@­ÓÀx¦s®æ§PÂ_¥h§ó§ï³sµ²ªºÀx¦s®æ

Book1.rar (3.29 KB)

c7552993

¦^´_ 1# c7552993
  1. Option Explicit
  2. Sub Ex() '½Ð±N©Ò¦³¤U©Ô²M³æªº¥¨¶°,³£«ü©w¬°¦¹¥¨¶°.
  3.     Dim A
  4.     With ActiveSheet.Shapes(Application.Caller)
  5.         A = .OLEFormat.Object.Value             '¤U©Ô²M³æªº¼Æ­È
  6.         .TopLeftCell.Offset(, -1) = IIf(.Parent.[G1] <> "", .TopLeftCell.Offset(, 2), A)
  7.    End With
  8. End Sub
½Æ»s¥N½X
¦ý¬OFÄ檺¤½¦¡ :=IF(G$1="",C3,H2), ·|¨Ï Sub Ex() ³o¥¨¶°¥Õ§@¤u

TOP

¦^´_ 2# GBKEE


©êºp¨S»¡¸Ô²Ó¡A¦pªGG1µ¥©óªÅ¥Õ
FÄæµ¥©óCÄæ¡AG1¤£µ¥©óªÅ¥Õ,CÄæ­nµ¥©óHÄæ¡A§Ú»Ý­n¤GºØ¿é¤J¡A¥Ñªí³æ¿é¤J¡A»P¸ê®Æ±a¤J¡A¥Ñ¸ê®Æ±a¤J¡Aªí³æ»PFÄæ­n¤@¦Ü¡C Book1.rar (8.18 KB)
c7552993

TOP

¦^´_ 3# c7552993
  1. Option Explicit
  2. Sub Ex() '½Ð±N©Ò¦³¤U©Ô²M³æªº¥¨¶°,³£«ü©w¬°¦¹¥¨¶°.
  3. Dim A, A1, AA As String
  4.     With ActiveSheet.Shapes(Application.Caller)
  5.         A = .OLEFormat.Object.List(.OLEFormat.Object.ListCount) '¤U©Ô²M³æ³Ì«áªº¼Æ­È
  6.         .Parent.Range(.OLEFormat.Object.LinkedCell) = IIf(.Parent.[G1] <> "", A, .OLEFormat.Object.Value)
  7.    End With
  8. End Sub
½Æ»s¥N½X

TOP

¦^´_ 4# GBKEE


    ÁÂÁÂGBKEEª©¥D­@¤ßªº«ü¾É¡A
©êºpÁÙ¬O¨S»¡¸Ô²Ó¡A¥u»Ý­nC1=if(G1<>"",H1,C1)
C3=if(G1<>"",H3,C3)
C5=if(G1<>"",H5,C5)
C7=if(G1<>"",H7,C7)
¦]¬°C1¡AC3¡AC5¡AC7¤£¯à¤U¤½¦¡¡A©Ò¥H»Ý­n¨ç¦¡¸Ñ¨M¡C Book1.rar (8.07 KB)
c7552993

TOP

¦^´_ 5# c7552993
¤u§@ªí¨ç¼Æ if(G1<>"",H1,C1)   = VBA ¨ç¼Æ  IIf(.Parent.[G1] <> "", A, .OLEFormat.Object.Value)

HÄ檺¼Æ¦r¤£¬O¨C¤@­Ó¤U©Ô²M³æ ³Ì«áªº¼Æ¦r
CÄ檺¼Æ¦r:  .OLEFormat.Object.Value
  1. A = .OLEFormat.Object.List(.OLEFormat.Object.ListCount) '¤U©Ô²M³æ³Ì«áªº¼Æ­È
  2. .Parent.Range(.OLEFormat.Object.LinkedCell) = IIf(.Parent.[G1] <> "", A, .OLEFormat.Object.Value)
½Æ»s¥N½X


    .

TOP

        ÀR«ä¦Û¦b : ¤Hªº²´·úªø¦b«e­±¡A¥u¬Ý¨ì§O¤Hªº¯ÊÂI¡Aµ·²@¬Ý¤£¨ì¦Û¤vªº¯ÊÂI¡C
ªð¦^¦Cªí ¤W¤@¥DÃD