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

¦p¦óÁקK¸ê®Æ­«½ÆKey in

¦p¦óÁקK¸ê®Æ­«½ÆKey in

[ª©¥DºÞ²z¯d¨¥]
  • Hsieh(2010-12-21 11:32): Àɮ׽Ъ½±µ¤W¶Ç

¥»©«³Ì«á¥Ñ Hsieh ©ó 2010-12-22 18:06 ½s¿è

·Q½Ð°Ý¤j®a¡A¦p¦óÁקK±N­«½Æ¸ê®ÆÂǥѫöÁäKEY IN¦ÜSHEET2ªº­Ó¤H¸ê®Æªí³æ

¥t¥~¡A¦b¿é¤J­Ó¤H¹q¸Ü®É¡A­n«ç¼ËÁקK0932-XXX-XXX¤¤¿é¤J¤§«á¡A³Ì«e­±ªº0®ø¥¢ªº°ÝÃD¡C



Àɮצp¤U
work.zip (21.04 KB)
80 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

¥»©«³Ì«á¥Ñ cck8x8 ©ó 2010-12-21 11:14 ½s¿è

Ãö©ó²Ä¤G­Ó°ÝÃD..¤p§Ìµoªí¤@¤U²L¨£..
1.¦bkey¼Æ¦r«e¥ý«ö ' ..¤W­±¤@¤pÂI¨º­ÓÁä..
2.Àx¦s®æ®æ¦¡¤Æ¡÷¼Æ¦r¡÷§ï¦¨¤å¦r
¤GºØ¤è¦¡³£¥i¥H
½Ð«ü±Ð

¥¼©R¦W.jpg (17.23 KB)

¥¼©R¦W.jpg

¡¸¡ã¶W¹à·s¤â¡ã¡¸
¥Ø«e¥u·|SUM,IF,COUNTIF..
~~§V¤O¾Ç²ß¤¤~~

TOP

°ò¥»¤W¥²§K­«½Ækey in¥i¨Ï¥Î¸ê®ÆÅçÃÒ´£¿ô
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

·PÁÂcck8x8ªº¼ö¤ß¨ó§U¡A§Ú¤w¸g¸Ñ¨M³o­Ó°ÝÃD¤F

½Ð°ÝHsiehª©¥D¡A¸ê®ÆÅçÃÒ³¡¤À¬O§_¥Î"¤£µ¥©ó"¨Ó§@¡A¥i¥H¨Ï¥Îvba§¹¦¨³o­Ó°ÝÃD¶Ü¡H
80 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_ 4# jonlylovek
  1. Sub Âà¼g·s°O¿ý()
  2.     Dim formSheet As Worksheet, dataSheet As Worksheet, targetRange As Range, i As Long
  3.     Dim dataAddressList(), newRecord As Range, tmpRecord As Range
  4.     Set formSheet = Sheets("­Ó¤H¸ê®Æ¿é¤J¶µ¥Ø")
  5.     Set dataSheet = Sheets("­Ó¤H¸ê®Æªí³æ")
  6.     Set a = dataSheet.Columns("B").Find([C4], lookat:=xlWhole)
  7.     If Not a Is Nothing Then
  8.     If a.Offset(, 1) = [C5] Then mystr = [C4]: GoTo 10
  9.     Else
  10.     dataAddressList = Array("C4", "C5", "C6", "C7", "F4", "F5", "F6", "F7", "C8")
  11.     Set targetRange = dataSheet.Range("B" & Rows.Count).End(xlUp).Offset(1)
  12.     For i = 0 To UBound(dataAddressList)
  13.         targetRange.Offset(0, i).Value = formSheet.Range(dataAddressList(i)).Value
  14.     Next
  15.     End If
  16. 10
  17.     MsgBox mystr & "¤w¿é¤J¡C"
  18. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

½Ð°Ýcck8x8 ¤j¤j,¥[¤J' ³o­Ó°Ê§@¬O±N«á­±ªº¼Æ¦rª½±µÂà¤Æ¦¨¤å¦r¶Ü?¬O¤£¬O¥ô¦ó±¡ªp,ÁÙ¬O¥u¦³¦b¯S©w±¡ªp¤~¯à¨Ï¥Î

TOP

        ÀR«ä¦Û¦b : ¤H­nª¾ºÖ¡B±¤ºÖ¡B¦A³yºÖ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD