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

½Ð°Ý¦p¦ó¦b«OÅ@¤u§@ªíªº±¡ªp¤U¡A¥i¥ÎVBA¤è¦¡KEY¤JÁ`ªí¤º

½Ð°Ý¦p¦ó¦b«OÅ@¤u§@ªíªº±¡ªp¤U¡A¥i¥ÎVBA¤è¦¡KEY¤JÁ`ªí¤º

test-1025.rar (64.63 KB) ¦U¦ì°ª¤â¤j¤j¦n¡A§Ú·Q¦b«OÅ@¤u§@ªíªº±¡ªp¤U¡A
¥i±Nuserformsªí®æ¤ºªº¼Æ¾ÚKEY¤JÁ`ªí¡A¥t¥~key¤J²£«~½s¸¹«á
±N¹ïÀ³¸ê®Æ±a¤J»â°h®Æ³æ¨Ã¦C¦L¡AÁÂÁ¡C
ANN

¦^´_ 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
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

GBKEE ª©¥D§A¦n¡G
  ¤£¦n·N«ä¡A§Ú¬O­Ó·s¤â¡A©Ò¥H¤£¤ÓÀ´¡A³o¨Çµ{¦¡¼ÒÀ³¸Ó©ñ¦b¨º¨Ç¥¿½Tªº¦ì¸m¡A
¥i¥H½Ð±Ð¤j¤j¡A©Î¤W¶Ç¦³µ{¦¡ªºÀɮ׶ܡS·P®¦
ANN

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2014-1-26 10:49 ½s¿è

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

·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

test-1026.rar (63.8 KB) ª©¥D§A¦n¡G
§Ú¦³¸ÕµÛ¦b§A»¡ªº¦ì¸m¶ñ¤Jµ{¦¡¡A¦ýªí³æÁÙ¬O¤£¯àkey¤J¡A
©ÎªÌ¬O¥i¥HÀ°§Ú¬Ý¬Ý§Úªº¿ù»~¦b¨º¸Ì¡AÁÂÁ¡C
ANN

TOP

©Ò¥H³o¬O¥Nªí
ÁÙ¬O­n¦³«OÅ@¤u§@ªíªº±K½X
¤~¯à¼gµ{¦¡
¨Ó°õ¦æ¶Ü??

TOP

¦^´_ 5# ann.liu



¸Õ¸Õ¬Ý

Ex.rar (64.91 KB)
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ÁÀ¨¥¹³¤@¦·²±¶}ªºÂAªá¡A¥~ªí¬üÄR¡A¥Í©Rµu¼È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD