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

c7552993

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

GBKEE

¦^´_ 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

    .

c7552993

¦^´_ 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)

¤U¸ü¦¸¼Æ: 3

2012-12-18 22:35

GBKEE

¦^´_ 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

c7552993

¦^´_ 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)

¤U¸ü¦¸¼Æ: 5

2012-12-17 19:56

GBKEE

¦^´_ 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