GBKEE

¦^´_ 1# ann.liu
¤@¯ë¼Òªýªºµ{¦¡½X

1. Option Explicit
   
2. Sub Ex()  '²£«~¼i¾úÁ`ªí¤º¸ê®ÆKEY
   
3.     With Sheets("²£«~¼i¾úªí")
   
4.         .Unprotect "123"   '¨ú®ø«OÅ@
   
5.         .ShowDataForm      'Åã¥Üªí³æ
   
6.         .Protect "123"     '¦A«×«OÅ@
   
7.     End With
   
8. End Sub

½Æ»s¥N½X

¤u³æ¦C¦Lªí³æ¼Ò²Õªºµ{¦¡½X

1. Private Sub Comprint_Click() 'ªº¦L¦Cµ{¦¡
   
2.     Dim Rng As Range
   
3.     Set Rng = Sheets("²£«~¼i¾úªí").Range("A:A").Find(Textnb, LOOKAT:=xlWhole)
   
4.     If Not Rng Is Nothing Then
   
5.         With Sheets("»â°h®Æ³æ")
   
6.             .[D3] = Textnb  '²£«~½s¸¹
   
7.             .[D4] = Rng.Range("F1")     '¼Ò¸¹      :RngªºFÄæ
   
8.             .[D5] = Rng.Range("E1")     '½s¸¹/¹Ï¸¹ :RngªºEÄæ
   
9.             .[D6] = Rng.Range("C1")     '«È¤á      :RngªºCÄæ
   
10.           ' .[D7] = Rng.Range("­þ¤@Äæ") '¥Í²£Ãþ§O  ****
    
11.             .[D14] = TextBox1 '»â®Æ¤H
    
12.             .[H3] = Rng.Range("K1")     '§÷®Æ½s¸¹  :RngªºCÄæ
    
13.            ' .[H4]=??             '®I¤J¥ó½s¸¹   Rngªº***Äæ
    
14.           '  .[H5] =??            '§÷®Æ¥Î¶q(kg) Rngªº***Äæ
    
15.             .[H6] = ComboBox3 '¥Í²£³æ¦ì
    
16.             .[H7] = ComboBox2 '¥Í²£¾÷¥x
    
17.             .PrintOut   '¦L¦C
    
18.             MsgBox "¤w¦L¦C"
    
19.         End With
    
20.     End If
    
21. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 3# ann.liu
°Ê°Ê¤â¹ê»ÚÅéÅç¤@¤U,¤~ª¾©Ò¥HµM
¤u³æ¦C¦L (ª«¥ó¼Ò²Õ)
¼Ò²Õ  (¤@¯ë)

¤U¸ü (36.66 KB)

2014-1-26 10:46

GBKEE

¦^´_ 5# ann.liu

¤U¸ü (65.62 KB)

2014-2-10 13:23

¸Õ¸Õ¬Ý

Ex.rar (64.91 KB)

¤U¸ü¦¸¼Æ: 15

2014-2-10 13:24