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

[µo°Ý] Ãö©ó±N¸ô®|Âର¶W³sµ²

[µo°Ý] Ãö©ó±N¸ô®|Âର¶W³sµ²

AS2  #\\¶i¦æ\´ú¸Õ.xlsm#   ASÄæ¬Ò¬° ¸ô®|
D2  ½s¸¹ DÄ欰½s¸¹
¥Ø«e¨Ï¥Î¥H¤U¤èªk,Âà¹L¥hµLªk¶}±Ò...
  1. Sub Âà¶W³sµ²()

  2. Dim I
  3. For I = 2 To 20000
  4. Sheets("¸ê®Æ®w").Hyperlinks.Add Anchor:=Sheets("¸ê®Æ®w").Range("d" & I), _
  5. Address:=Range("AS" & I)
  6. Next
  7. End Sub
½Æ»s¥N½X

¦^´_ 1# starry1314
Address­nµ´¹ï¸ô®|§a¡A¸ô®|¹ïªº¶Ü?
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C

TOP

¦^´_ 2# stillfish00

¬O¸ô®|¼gªk¿ù»~¶Ü?
¦]§Ú¥Ø«e³o­Ó¸ô®|ª½±µ¾É¤J¦ÜACCESS¤~¥i¥H¥¿±`¶}±Ò,¨ä¥L¤è¦¡®É±`µo¥ÍµLªk¶}±ÒÀÉ®×

TOP

¦^´_ 3# starry1314
¬Ý§A   ´ú¸Õ.xlsm   ©ñ¦b­þ¸Ì°Ú¡A«ç»ò·|¤Ï¹L¨Ó°Ý§Ú
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C

TOP

¦^´_ 4# stillfish00
·|¿ù·N...
¸ô®|¬O¹ïªº,
¬Oµ{¦¡½X³o¼Ë¼g¬OOKªº¶Ü? °õ¦æ§¹«á½s¿è¶W³sµ² µL¥X²{¸ô®|

TOP

¦^´_ 5# starry1314
§A¤£À´µ´¹ï¸ô®|ªº·N«ä¶Ü?
§A ´ú¸Õ.xlsm  ©ñ¦b­þ¤@¼Ñ¡A­þ­Ó¸ô®|¤U
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C

TOP

¦^´_ 6# stillfish00

¸ô®|¬O³sºôªÚªº¹q¸£
§Úªþ¤WÀɮצn¤F...­ègoogle¥uª¾¹D  /¶}ÀY  =µ´¹ï¸ô®|
¬O·Q±N¶W³sµ²¸ô®|ª½±µÁä¤J½s¸¹¤º,¥H«Kª½±µ¶}±ÒÀÉ®×
¸ô®|Âà¶W³sµ².rar (9.54 KB)

TOP

¥»©«³Ì«á¥Ñ stillfish00 ©ó 2015-10-16 14:57 ½s¿è

¦^´_ 7# starry1314
L2ªº      #\\Boss-pc\¼Æ¾Ú\¥XÀ\³æ\105\ ´ú¸Õ.xlsm#

´ú¸Õ.xlsmªº«e­±¦³¤@­ÓªÅ¥Õ¡A³o¬Oµ§»~ÁÙ¬O«e­±³£·|¥[ªÅ¥Õ???
µ§»~ªº¸Ü
  1. Dim i
  2. i = 2
  3. Sheets("¸ê®Æ®w").Hyperlinks.Add Anchor:=Sheets("¸ê®Æ®w").Range("d" & i), Address:=Replace(Range("L" & i), "#", "")
½Æ»s¥N½X
§â¤«¦r²¾±¼´N¦n¤F¡C¡C¡C
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C

TOP

¦^´_ 8# stillfish00

    ³£·|¥[ªÅ¥Õ
·íªì³]­p¦hªÅ¤F¤@®æ,¾É­P·íªì«Ø¥ßªºÀɦW«e¤è³£·|¦h¤@®æªÅ¥Õ

TOP

¦^´_ 9# starry1314
  1. Sub test()
  2.     Dim i
  3.     i = 2   'for i ....
  4.     With Sheets("¸ê®Æ®w")
  5.         s = Range("L" & i).Text
  6.         s = Replace(s, "#", "") '²¾°£¤«¸¹
  7.         s = Left(s, InStrRev(s, "\")) & LTrim(Mid(s, InStrRev(s, "\") + 1))  '²¾°£ÀɦW«eªÅ¥Õ
  8.         .Hyperlinks.Add Anchor:=.Range("d" & i), Address:=s
  9.     End With
  10. End Sub
½Æ»s¥N½X
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C

TOP

        ÀR«ä¦Û¦b : ¯u¥¿ªº·R¤ß¡A¬O·ÓÅU¦n¦Û¤vªº³oÁû¤ß¡C
ªð¦^¦Cªí ¤W¤@¥DÃD