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

[µo°Ý] ½Ð°Ý¤½¦¡ ActiveCell.FormulaR1C1 ¥N¸¹¦p¦ó¼g

[µo°Ý] ½Ð°Ý¤½¦¡ ActiveCell.FormulaR1C1 ¥N¸¹¦p¦ó¼g

½Ð°Ý¥H¤U¤½¦¡ ªºR[-1703]¥N¸¹¦p¦ó¼g
ActiveCell.FormulaR1C1 = "=sheet4!R[-1703]C[7]"

¦]¬°-1703 ¬O»¼¼W¡A½Ð°Ý¸Ó¦p¦ó¥H¥N¸¹®Ñ¼g¡C

Thanks.

·d©w¡AÁÂÁÂGBKEE¤j¡ã

TOP

¦A½Ð±ÐGBKEE¤j¡A¶W³sµ²¦ì§}ªº¼gªk
¥H¤U¬O2010¿ý»sªº¼gªk
     Range("S2").Select
    Selection.Hyperlinks(1).SubAddress = "sheet1!A1700"
    Range("S3").Select
    Selection.Hyperlinks(1).SubAddress = "'sheet3'!A1700"

¥ý«e§Ú¦bexcel2003®É¼gªk¬O¡G
'Sheet3.Hyperlinks.Add Selection, Address:="", SubAddress:="'" & Range("a" & DQ).Value & "'" & "!A1675" ' ³]©w¶W³sµ²¦ì§}

¨ä¤¤sheet3 ¬O¶W³sµ²¦ì§}Àx¦sªº­¶­±¡A
Range("a" & DQ) ¬O§Ú¦s©ñSHEET¦WºÙªº¦a¤è

½Ð°Ý§Ú¸Ó¦p¦ó­×§ï¡C

TOP

GBKEE¤j¡A
ÁÂÁÂÅo¡A§Ú¦A¸Õ¬Ý¬Ý¡ã

TOP

½Ð°Ý¥H¤U¤½¦¡ ªºsheet4 ­Y¬O¦³§ó°Ê¡A¨Ò¦p±qsheets(1), sheets(2), sheets(3)......, sheets(10) »yªk­n¦p¦ó¼g
ActiveCell.FormulaR1C1 = "=sheet4!R[-1703]C[7]"

ÁÂÁ¡ã

TOP

­ì¨Ó¥i¥H³o¼Ë¼g¡A§Úª½±µ±Nsheet name §ì¥X¨Ó¡AµM«á±a¤J¡A
¦ýG¤jªº¼gªk¤ñ¸ûÀu¡AÁÂÁ¡ã

TOP

½Ð°Ý  Selection.Hyperlinks(1).SubAddress = "'sheet3'!A1700"
¸Ì­±ªº1700·|¬O­ÓÅܼơA°²³]§Ú©ñ¦b sheets(25).Range("a40")¡A
½Ð°Ý­n¦p¦ó±Nsheets(25).Range("a40")±a¶i¥h¡HÁÂÁ¡ã

TOP

ÁÂÁÂG¤j¡ã¡ã

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¤H¤£©È¿ù¡A´N©È¤£§ï¹L¡A§ï¹L¨Ã¤£Ãø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD