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

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

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

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

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

¥»©«³Ì«á¥Ñ 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

¦^´_ 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 : ¯à·F¤£·F¡A¤£¦p­W·F¹ê·F¡C
ªð¦^¦Cªí ¤W¤@¥DÃD