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

Address(1, 1, , 1)¥Nªí¬O¤°»ò?

Address(1, 1, , 1)¥Nªí¬O¤°»ò?

DEAR ALL ¤j¤j
1.®Æ¸¹ = .Range(.[A2], .[A2].End(xlDown)).Address(1, 1, , 1) => ¦¹³BAddress(1, 1, , 1)¥Nªí¬O¤°»ò?
2.·Ð¤£§[½ç±Ð  THANKS*10000   

Sub AAAAAA()

     Dim E, Rng As Range, ®Æ¸¹ As String, ¼Æ¶q As String, ¤é´Á As String

     With Sheets("fndvfile")

        ®Æ¸¹ = .Range(.[A2], .[A2].End(xlDown)).Address(1, 1, , 1)

        ¼Æ¶q = .Range(.[D2], .[D2].End(xlDown)).Address(1, 1, , 1)

        ¤é´Á = .Range(.[E2], .[E2].End(xlDown)).Address(1, 1, , 1)

    End With

    With Sheet1

            Cells(2, 15).Value = Application.Evaluate("=SUMPRODUCT((" & ®Æ¸¹ & "=" & .Cells(2, 2).Address & ")*(" & ¤é´Á & "=" & .Cells(2, 3).Address & "))")

    End With

End Sub
ù

¦^´_ 1# rouber590324

Address(RowAbsolute, ColumnAbsolute, ReferenceStyle, External, RelativeTo)
RowAbsolute¦C°Ñ·Ó   
ColumnAbsolute,Äæ°Ñ·Ó
ReferenceStyle¦ì§}¦r¦ê¼Ë¦¡
External¥~³¡°Ñ·Ó
RelativeTo·í¥HR1C1¼Ë¦¡¥B¬°Äæ¦C§¡¬O¬Û¹ï°Ñ·Ó®É¡A¦¹¤Þ¼Æ¬°°Ñ·Ó­ìÂI
©Ò¥HAddress(1,1,,1)
Äæ¦C¬°µ´¹ï°Ñ·ÓªºA1¼Ë¦¡¡A¥B¥]§t¥~³¡°Ñ·Ó¦r¼Ë
¥HRange("A1")¬°¨Ò
Range("A1").Address(1,1)µ²ªG¬°"$A$1"
Range("A1").Address(1,1,,1)µ²ªG¬°"[¬¡­¶Ã¯1]¤u§@ªí1!$A$1"
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

Hsieh ¤j¤j
·PÁ±z¸Ô²Ó¤§»¡©ú THANKS*10000
ù

TOP

        ÀR«ä¦Û¦b : ¡i¦æµ½­n¤Î®É¡j¦æµ½­n¤Î®É¡A¥\¼w­n«ùÄò¡C¦p¿N¶}¤ô¤@¯ë¡A¥¼¿N¶}¤§«e¤d¸U¤£­n°±º¶¤õ­Ô¡A§_«h­«¨Ó´N¤Ó¶O¨Æ¤F¡C
ªð¦^¦Cªí ¤W¤@¥DÃD