| ¥»©«³Ì«á¥Ñ Jared ©ó 2014-1-7 16:05 ½s¿è 
 ·Q½Ð°Ý¤j¤j
 ¥Ø«e¼g¤F¤@Ó¸ê®Æ¿é¤Jªºªí³æ(¦p¹Ï)
 
             
 ¦b¸ê®Æ¿é¤Jªº³¡¤À
 µ{¦¡§Q¥Î¬Û¹ï¸ô®|¡]ÀÉ®×¶·©ñ¸m¦b¦P¤@ӥؿý§¨¡^¡A
 ¥u»Ýn¦bªí³æ¸ÓÄæ¦ì¿é¤JÀɦW¡®°ÆÀɦW
 Excel¤W¥u·|Åã¥Ü³sµ²¸ô®|
 ¨º²{¦bªº°ÝÃD´N¬O½Æ»s¥N½X  With Sheet1
     With .Cells(.Rows.Count, 2).End(xlUp).Offset(1)
      .Resize(, 2).Value = Ar
      .Hyperlinks.Add .Offset(, 2), ActiveWorkbook.Path & "\" & a3
      .Offset(, 2).Value = "³sµ²¸ô®|"
     End With
          End With
·í§Ú»Ýn¶i¦æ¸ê®Æ×§ïªº°Ê§@
 ³£¥s¸Ó½s¸¹¹ïÀ³ªºÄæ¦ì´N¥u·|©I¥s"³sµ²¸ô®|"³o¥|Ó¦r
 ¨Ã¤£·|§â·íªì³]©wªº¬Û¹ï¸ô®|¤]¤@¨Ö©I¥s¶i¨Ó
 
 ²{¦b·Qn¦b×§ï¥Ø«eªºµ{¦¡
 n«ç»ò§ï¤~¯à¹³¸ê®Æ¿é¤J¨º¼Ë¤S§â¬Û¹ï¸ô®|¦b¼g¤W¥h©O?½Æ»s¥N½XWith Sheet1
Set A = .Columns("A").Find(TextBox4.Text, lookat:=xlWhole, LookIn:=xlValues)
A.Offset(, 1) = TextBox1.Text  '¸ê®ÆA
A.Offset(, 2) = TextBox2.Text  '¸ê®ÆB
A.Offset(, 3) = TextBox3.Text  '³sµ²¸ô®|
End With
½d¨ÒÀɦp¤U
  ¿é¤J&×§ï¸ô®|´ú¸Õ.zip (18.74 KB) ¦]¬°¥Ø«e¥u¯àª½±µªí±¤Wªº¸ô®|
 
 §Æ±æ¦³¯«¤HÀ°¦£¸Ñµª >//< ·P¿E¤£ºÉ
 |