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

[µo°Ý] ¦p¦ó»s§@²©öªº­q³æ»s«~¬d¸ß¨t²Î

[µo°Ý] ¦p¦ó»s§@²©öªº­q³æ»s«~¬d¸ß¨t²Î

Hi ¦U¦ì¤j¤j
ªþ¥ó¬O§Ú·Q­n»s§@ªº¼Ò¦¡
¥D­n­n²Î¦X§Ú¥Ø«eÁc¶Ãªº­q³æ¨t²Î
Àµ½Ð¦U¦ì¤j¤jÀ°¦£

­q³æ»s«~¬d¸ß.zip (17.46 KB)

®v§Ú

¦^´_ 1# et010884

¦Û°Ê²Ö¥[ªº¶µ¥Ø½s¸¹·Q­nªº®ÄªG¬°¦ó?
»P»Ý­n²£¥Í½s¸¹ªºCheckBox¦³¬Æ»òÃöÁp?
AÄ檺¤ë¥÷¬O­n¼g¤J¶ñ¼g·í¤éªº¤ë¥÷©Î¬O­^¤å¦r¥À¥Nªí?
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 2# Hsieh
Hi ¤j¤j:

¦Û°Ê²Ö¥[ªº¶µ¥Ø½s¸¹·Q­nªº®ÄªG¬°¦ó?    ¦Û°Ê²Ö¥[¥Ñ001¶}©l¨ì999
»P»Ý­n²£¥Í½s¸¹ªºCheckBox¦³¬Æ»òÃöÁp? ­Y¤Ä¿ï¾Ü«h¤£²£¥Í½s¸¹
AÄ檺¤ë¥÷¬O­n¼g¤J¶ñ¼g·í¤éªº¤ë¥÷©Î¬O­^¤å¦r¥À¥Nªí?¤ë¥÷¥Î¦r¥À´À¥N A~L ´«¤ë¥÷®É «h¶µ¥Ø½s¸¹¤S¥Ñ001¶}©l­pºâ

¤ë¥÷        ½s¸¹
A        001 ²Ö¥[¨ì999
B         001 ´«¤ë¥÷­«·s²Ö­p
®v§Ú

TOP

¦^´_ 3# et010884
³Ì°ò¥»ªº°µªk
­q³æ»s«~¬d¸ß.zip (17.94 KB)
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 4# Hsieh
ÁÂÁ ¨ü¯q¨}¦h
®v§Ú

TOP

½Æ¥» ­q³æ»s«~¬d¸ß.zip (17.27 KB) ¦^´_ 4# Hsieh


    Hsieh ¤j¤j:
¦A³Â·Ð¤@¤U
§Ú­Y·Q¦b­q³æ½s¸¹®Ç³]©w¤@­Ó·j´M«ö¶s
¥i¥HÅý§Ú¿ï¾Ü¤À­¶©Î·j´M¸ê®Æ®wªº¸ê®Æ
ª½±µ±N¦Ç¦â¦a¤èªº¸Ó¦p¦ó·s¼W

Â^¨ú.JPG (44.15 KB)

Â^¨ú.JPG

®v§Ú

TOP

¦^´_ 6# et010884
  1. Private Sub CommandButton3_Click()
  2. Dim A As Range
  3. Set A = Sheets("Á`ªí").[H:H].Find(TextBox48, lookat:=xlWhole)
  4. If Not A Is Nothing Then
  5.    TextBox52 = A.Offset(, -2).Value
  6.    TextBox51 = A.Offset(, -3).Value
  7.    TextBox50 = A.Offset(, -1).Value
  8.    TextBox53 = A.Offset(, 1).Value
  9.    TextBox55 = A.Offset(, 2).Value
  10.    Else
  11.    TextBox52 = ""
  12.    TextBox51 = ""
  13.    TextBox50 = ""
  14.    TextBox53 = ""
  15.    TextBox55 = ""
  16.    MsgBox "µL¦¹­q³æ"
  17. End If
  18. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¯Ê¤fªºªM¤l¡A¦pªG´«¤@­Ó¨¤«×¬Ý¥¦¡A¥¦¤´µM¬O¶êªº¡C
ªð¦^¦Cªí ¤W¤@¥DÃD