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

jonlylovek

·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)

¤U¸ü¦¸¼Æ: 6

2010-12-22 18:06

cck8x8

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

Hsieh

°ò¥»¤W¥²§K­«½Ækey in¥i¨Ï¥Î¸ê®ÆÅçÃÒ´£¿ô

jonlylovek

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

½Ð°ÝHsiehª©¥D¡A¸ê®ÆÅçÃÒ³¡¤À¬O§_¥Î"¤£µ¥©ó"¨Ó§@¡A¥i¥H¨Ï¥Îvba§¹¦¨³o­Ó°ÝÃD¶Ü¡H

Hsieh

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

aa7551

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