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

[µo°Ý] ¿é¤J¸ê®Æ¤ñ¹ï¸ê®Æªí Âà´«¨ì§Oªº¸ê®Æªí

¥»©«³Ì«á¥Ñ v03586 ©ó 2016-10-16 02:51 ½s¿è

¦^´_ 7# GBKEE


    ·PÁ¤j¤j¤W­±ªºµ{¦¡½X...¤p§Ì­T¶ë¹y¶}«á....­×§ïµ{¦¡¦³¥X²{ #8~#10¼Óªº°ÝÃD¤F!!!
    ¥t¤w¸g±N©Ô¿ùªºTextbox §ï¬°Listbox ¤F!!!
    ¦p¤µ¦³¤@­Ó°ÝÃD ·Q¦A½Ð±Ðª©¤j  , ½Ð¨D¨ó§U !!
    ¤£ª¾¹D¬°¦ó , ¬d¸ß¦p¹Ï¤ù¤¤ªº®Æ¸¹ , ·|¥X²{¹Ï¤¤ªº¿ù»~
   
Q1.png
2016-10-16 02:35


    ÁÙ¦³¤@­Ó°ÝÃD  ¦]¬°¡yDatabase-¦^·Å°Ï¡z»P¡yDatabase-´á®ðÂd¡zªº­pºâ¹L´Á®É¶¡ À³¥Ñ ¡§ FÄæ¦ì¡u ¦^·Å«á¨Ï¥Î´Á­­¡v¡§ ¥hÀu¥ý­pºâ ( ¥Ø«e³£¥H ¡§H Äæ¦ì¡§ )
       ¶È¦³¡yDatabase-¦^·Å°Ï¡z»P¡yDatabase-´á®ðÂd¡z¬O¥H¡§H Äæ¦ì¡§
   ¦]¬°·Q¦A¬d¸ß°ÏÅã¥Ü ¶ZÂ÷¹L´Á¤Ñ¼Æ, µL©`Àx¦s®æ¦B½c¬O¦b¡§ I Äæ¦ì¡§ ¡y¦^·Å¡z »P¡y´á®ðÂd¡z ¬Ò¦b¡§ J Äæ¦ì¡§  , ¦p¦¹¤@¨Ó ¤p§Ì¥ÇÃø ¤£ª¾¦p¦ó­×§ï¤F
   ½Ð¨D¨ó§U
Q2.png
2016-10-16 02:48

   
   ³Ì«á¤@­Ó¥\¯à¥i¦³¥iµL....´N¬O¡yDatabase-¦^·Å°Ï¡z¡B¡yDatabase-¦^·Å°Ï¡z»P¡yDatabase-´á®ðÂd¡z
     ±Æ§Ç¤§«á¤£ª¾¹D¥i§_¨Ì·ÓFilm PN ¥h±ÆÀu¥ý¨ú¥X¶¶§Ç???  ·íµMÁÙ¬O­n¨Ì·Ó§Ö¹L´Áªº¥ý®³
   EX:  
                PN           ®³¨ú¶¶§Ç
      40-111111       1
      40-111111       2
      40-111111       3
      40-222222       1
      40-222222       2
      40-222222       3

Film WIP Management_v1.rar (1013.66 KB)

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2016-10-17 07:22 ½s¿è

¦^´_ 11# v03586

ªþÀÉ ¬Ý¬Ý¦³·N¨£¦A´£¥X

Ex.zip (1.06 MB)
¥i­×§ï¦p¤U :¥i¬O¥u¦³¤@µ§¸ê®Æ®É¥¦¬Oª½µÛ©ñ,¤£·|¾î©ñ
  1. ReDim Ar(0 To UBound(D(Trim(TextBox2))))
  2.                 For i = 0 To UBound(D(Trim(TextBox2)))
  3.                     Ar(i) = D(Trim(TextBox2))(i)  '''ªþÀɦp¦³¬O ListBox1 ±±¨î¶µ
  4.                     If i = 2 Then Exit For  'Åã¥Ü¤Tµ§
  5.                 Next
  6.                 ListBox1.List = Application.Transpose(Application.Transpose(Ar)) ''ªþÀɦp¦³¬O ListBox1 ±±¨î¶µ
½Æ»s¥N½X
¤èªk¤@
  1. If D.Count > 0 And D.exists(Trim(TextBox2)) Then
  2.             If UBound(D(Trim(TextBox2))) = 0 Then
  3.                 Ar = D(Trim(TextBox2))(0)
  4.                 With ListBox1
  5.                     .AddItem
  6.                    For i = 0 To UBound(Ar)
  7.                         .List(.ListCount - 1, i) = Ar(i)
  8.                     Next
  9.                 End With
  10.             Else
  11.                 ReDim Ar(0 To 2)
  12.                 For i = 0 To UBound(D(Trim(TextBox2)))
  13.                     Ar(i) = D(Trim(TextBox2))(i)  '''ªþÀɦp¦³¬O ListBox1 ±±¨î¶µ
  14.                     If i = 2 Then Exit For  'Åã¥Ü¤Tµ§
  15.                 Next
  16.                 ListBox1.List = Application.Transpose(Application.Transpose(Ar)) ''ªþÀɦp¦³¬O ListBox1 ±±¨î¶µ
  17.               End If
  18.         End If
½Æ»s¥N½X
¤èªk¤G
  1. If D.Count > 0 And D.exists(Trim(TextBox2)) Then
  2.             'ReDim Ar(0 To UBound(D(Trim(TextBox2))))
  3.             If UBound(D(Trim(TextBox2))) = 0 Then
  4.                 'Ar = D(Trim(TextBox2))
  5.                 With Range("A" & Rows.Count).Resize(, UBound(D(Trim(TextBox2))(0)) + 1)
  6.                     .Value = D(Trim(TextBox2))(0)
  7.                     ListBox1.List = .Value
  8.                     .Cells.Clear
  9.                 End With
  10.             Else
  11.                 ReDim Ar(0 To 2)
  12.                 For i = 0 To UBound(D(Trim(TextBox2)))
  13.                     Ar(i) = D(Trim(TextBox2))(i)  '''ªþÀɦp¦³¬O ListBox1 ±±¨î¶µ
  14.                     If i = 2 Then Exit For  'Åã¥Ü¤Tµ§
  15.                 Next
  16.                 ListBox1.List = Application.Transpose(Application.Transpose(Ar)) ''ªþÀɦp¦³¬O ListBox1 ±±¨î¶µ
  17.             End If
  18.         End If
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¥»©«³Ì«á¥Ñ v03586 ©ó 2016-10-19 03:32 ½s¿è

¦^´_ 12# GBKEE


   ·PÁª©¤j, ³o´X¤Ñ´ú¸Õ«á, ¦³´X­Ó¤p°ÝÃD, ·Ð½Ðª©¤j¨ó§U
   1.  ¿é¤J®æ¦¡³¡¤À­×¥¿
       ¤u¸¹, ¦]½s½XÃö«Y ¤u¸¹¥i¥H¤£­n¥d©T©w¦r¤¸¶Ü? ¦³®É·|¬O4­Ó¼Æ¦r²Õ¦¨ , ¦³®É¤@­Ó­^¤å¦r¥À+3¦ì¼Æ¦r, ¦³®É¨â­Ó­^¤å¦r¥À+2¦ì¼Æ¦r
      ¤£Åܪº¬O³£¬O¥|½X
      ¼h¬[½s¸¹®æ¦¡
     ­×¥¿¬° ¥|½X ¦]À³½s½XÃö«Y, ¥i§_¤]¤£­n¥d©T©w3¦ì¼Æ¦r¶Ü??
     LOT ®æ¦¡
      ¦]¬°¨ÑÀ³°ÓÃö«Y¨C²ÕLOT½T©w¤£·|­«ÂÐ, ¦ý¬OLOT®æ¦¡¤£¤@¼Ë, ¥i§_³oÃä´N¤£¥d®æ¦¡©O??

2. ­pºâ¹L´Á³W«h¤£¤@¼Ë
    ¦p¤U¹Ï , ¦B½cªº­pºâ¹L´Á¤è¦¡ ¬O¥Ñ GÄæ¦ì¡¨½¦¯È¨ì´Á¤é¡¨¥h§PÂ_¶ZÂ÷²{¦bÁÙ¦³¦h¤Ö¤Ñ¨ì´Á ( ¦B½c¥\¯à¨S°ÝÃD )
   
Q1.png
2016-10-19 03:09

    ¦ý¬O, ¤U¹Ï ¦^·Å°Ï»P´á®ðÂdªº­pºâ¤è¦¡¤£¦P, ¬O¥ÑFÄæ¦ì¡y¦^·Å«á¨Ï¥Î´Á­­¡z,§PÂ_¶ZÂ÷²{¦bÁÙ¦³¦h¤Ö¤Ñ¨ì´Á(¦^·Å°Ï, »P´á®ðÂd ¿ù»~)
    ¦B½c¸ê®Æªí¡B¦^·Å°Ï¸ê®Æªí¡B´á®ðÂd¸ê®Æªí ¤T±i¸ê®Æªí®æ¦¡¶È®t¤@Äæ¡y¦^·Å«á¨Ï¥Î´Á­­¡z
Q2.png
2016-10-19 03:09


3. ¬d¸ß¥ý¶i¥ý¥X¥\¯à
    ¬d¸ß¦B½c¤¤ªº¶ZÂ÷¹L´Á¤Ñ¼Æ, µ{¦¡¶]¦¨Àu¥ý®³¨ú¶¶§Ç¤F ( ¦]¬°¸ê®Æªí¥u¦³¦B½c®æ¦¡»P¨ä¥L¨â±i¸ê®Æªí¨S¦³¤@¼Ë ) ¦p¤U¹Ï
   ¦Ü©ó¦^·Å°Ï»P´á®ðÂd¥Ø«eÅã¥Üªº³£¬O¥¿½Tªº, ¥u¬O¦pQ2°ÝÃD, ­pºâ¦ì¸m­×§ï¦n ´N¸Ñ¨M°ÝÃD¤F
   
Q3.png
2016-10-19 03:14


   ³¡¤À¬d¸ß®Æ¸¹·|µLªk±a¥X¸ê®Æ , ¦p¤U¹Ï

   
Q4.png
2016-10-19 03:15

TOP

¦^´_ 13# v03586

¤£­­¨î®æ¦¡ Msg = St <> ""
¦^·Å°Ï»P´á®ðÂdªº­pºâ¤è¦¡¤£¦P, ¬O¥ÑFÄæ¦ì¡y¦^·Å«á¨Ï¥Î´Á­­¡z,§PÂ_¶ZÂ÷²{¦bÁÙ¦³¦h¤Ö¤Ñ¨ì´Á
¥i§ï¦p¤U
  1. Sub Ex_Ans()
  2.     Dim St As String, I(1 To 3) As Integer, d As Object, E As Variant, Rng As Range, Ar(), Arr()
  3.     With Sh
  4.         St = "½¦¯È»s³y¤é"
  5.         I(1) = Sh.Rows(1).Find(St, LookIn:=xlValues, LookAt:=xlWhole).Column
  6.         .Columns(I(1)).TextToColumns Destination:=.Cells(1, I(1)), DataType:=xlDelimited, _
  7.             FieldInfo:=Array(1, 5), TrailingMinusNumbers:=True  '***(¤å¦r®æ¦¡, Âà´«¬°¤é´Á)
  8.         
  9.         ' **¶Ç¦^½¦¯È¨ì´Á¤éªºÄæ¦ì  ©Î  ¦^·Å«á¨Ï¥Î´Á­­ ªºÄæ¦ì
  10.         If InStr(Sh.Name, "¦B½c") Then St = "½¦¯È¨ì´Á¤é" Else St = "¦^·Å«á¨Ï¥Î´Á­­"
  11.         I(1) = Sh.Rows(1).Find(St, LookIn:=xlValues, LookAt:=xlWhole).Column '**¶Ç¦^½¦¯È¨ì´Á¤éªºÄæ¦ì
  12.         If St = "¦^·Å«á¨Ï¥Î´Á­­" Then
  13.             Application.Calculation = xlManual      '¬¡­¶Ã¯ªº­pºâ: ¤â°Ê
  14.             With .Columns(I(1)).SpecialCells(xlCellTypeConstants)
  15.                 .Cells = .Value                                  '** ¤å¦r®æ¦¡ªº¼Æ¦r Âର¼Æ­È
  16.             End With
  17.             Sh.Calculate               '**Calculate ¤èªk  ­pºâ©Ò¦³¶}±Òªº¬¡­¶Ã¯¡B¬¡­¶Ã¯¤¤ªº¯S©w¤u§@ªí©Î¤u§@ªí¤¤«ü©w½d³òªºÀx¦s®æ.
  18.             Application.Calculation = xlAutomatic  '¬¡­¶Ã¯ªº­pºâ: ¦Û°Ê
  19.         End If
  20.         If InStr(Sh.Name, "¦B½c") Then
  21.             .Columns(I(1)).TextToColumns Destination:=.Cells(1, I(1)), DataType:=xlDelimited, _
  22.             FieldInfo:=Array(1, 5), TrailingMinusNumbers:=True  '***(¤å¦r®æ¦¡, Âà´«¬°¤é´Á)
  23.         End If
  24.         St = "¶ZÂ÷¹L´Á¤Ñ¼Æ"
  25.         I(2) = Sh.Rows(1).Find(St, LookIn:=xlValues, LookAt:=xlWhole).Column
  26.         If .Range("a" & Rows.Count).End(xlUp).Row = 1 Then Exit Sub
½Æ»s¥N½X
3. ¬d¸ß¥ý¶i¥ý¥X¥\¯à ³¡¤À¬d¸ß®Æ¸¹·|µLªk±a¥X¸ê®Æ ¦b11# ¦³¦^ÂÐ ¤èªk¤@,¤èªk¤G
³o¸Ì­×§ï
  1. Private Sub ComboBox2_Change()
  2.     Dim Rng As Range, Ar, I As Integer
  3.     With ListBox1
  4.         .Clear
  5.         If ComboBox2.ListIndex = -1 Then Exit Sub
  6.         Ar = Dt(ComboBox2.Value)
  7.         If UBound(Ar) = 0 Then
  8.             .AddItem
  9.             For I = 0 To UBound(Ar(0))
  10.                 .List(0, I) = Ar(0)(I)
  11.             Next
  12.         Else
  13.             .List = Application.Transpose(Application.Transpose(Ar))
  14.         End If
  15.     End With
  16. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¥»©«³Ì«á¥Ñ v03586 ©ó 2016-10-19 07:33 ½s¿è

¦^´_ 14# GBKEE


    ·PÁª©¤j!!! ²×©ó¸Ñ¨M¤F!!!

¦ý°ÝÃD3·í¤¤, ¬d¸ß¥ý¶i¥ý¥X, ¦B½c, ¶ZÂ÷¹L´Á¤Ñ¼Æ¤@¼ËÁÙ¬OÅã¥Ü¡yÀu¥ý®³¨ú¶¶§Ç¡z, ¸ê®Æªí-¦B½c¡yJÄæ¦ì¡z ¥¿½TÀ³¸ÓÅã¥Ü¡yIÄæ¦ì¡z
  ¦]¬°¸ê®Æªí¦^·Å°Ï»P´á®ðÂd, ¥¿½T­nÅã¥Ü¡yJÄæ¦ì¡z

¥t¥~¥Ø«e¶ZÂ÷¹L´Á¤Ñ¼Æ¶]¥X¤p¼ÆÂI¦n´X¦ì, ¥i§_Åã¥Ü¤p¼ÆÂI«á¤@¦ì´N¦n©O??

¤£­­¨î®æ¦¡
½Ð°Ý¬O³o¼Ë­×§ï§Y¥i¶Ü???
  1. Private Sub TextBox4_Change()
  2.     Dim St As String, Msg As Boolean, I As Integer, Ar

  3.     Msg = St <> ""
  4. End Sub
½Æ»s¥N½X

TOP

¦^´_ 15# v03586
  1. Private Sub TextBox4_Change()
  2.      Dim St As String, Msg As Boolean
  3.         St = Trim(TextBox4)
  4.         Msg = St <> ""
  5.        TheMsg 4, Msg
  6. End Sub
½Æ»s¥N½X
  1. Private Sub Lot_Get()
  2.     Dim I As Long, St As String, B As String, C As String, d As String, Ar(), X As Integer
  3.     Set Dt = CreateObject("ScripTING.DICTIONARY")
  4.     'X = IIf(InStr(ActiveSheet.Name, "¦B½c"), 9, 10)
  5.     With Sh
  6.         X = IIf(InStr(.Name, "¦B½c"), 9, 10)
  7.         I = ShRow
  8.         Do While .Cells(I, "C") <> ""
  9.             B = .Cells(I, "B"):    C = .Cells(I, "C"):  d = .Cells(I, "D"):    St = Format(.Cells(I, X), "0.0")
  10.             If Not Dt.EXISTS(C) Then
  11.                 Dt(C) = Array(Array(B, C, d, St))
  12.             Else
  13.                 Ar = Dt(C)
  14.                 ReDim Preserve Ar(LBound(Ar) To UBound(Ar) + 1)
  15.                 Ar(UBound(Ar)) = Array(B, C, d, St)
  16.                  Dt(C) = Ar
  17.                  Ar = Dt(C)
  18.             End If
  19.             I = I + 1
  20.         Loop
  21.     End With
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¥»©«³Ì«á¥Ñ v03586 ©ó 2016-10-19 12:43 ½s¿è

¦^´_ 16# GBKEE


    ·PÁª©¤j...!! ²{¦p¤µ§ï±¼­­¨î«áµo²{¤@­Ó°ÝÃD
   Lot ³¡¤À ¥u¯àKeyin ¤@­Ó¦r¤¸ ´N©¹¤U¤@®æ¸õ
   §Y¨Ï¨Ï¥Î¨ê±ø½Xªº¤è¦¡ , ¨Ò¦p EE000-0001 , Lot ®æ¦¡´N¥u±aE , PCS ¨ºÄæ·|¸õE000-0001
   ¦^·Å«á¨Ï¥Î´Á­­ªº®É¶¡®æ¦¡ , ¤]µLªk¤â°Ê­×§ï ¦p¤U¹Ï , ­×§ï¤@­Ó¼Æ¦r´N©¹¤U¤@®æ¸õ

4441.jpg
2016-10-19 12:41

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2016-10-20 05:06 ½s¿è

¦^´_ 17# v03586
  1. Private Sub TheMsg(T As Integer, Msg As Boolean)   ''** µ{¦¡§@¥Î  ¸ê®Æ¿é¤J®æ¦¡ªºÀˬd
  2.     '** ¥G¥s¦¹µ{¦¡ ¶·±a¦³ °Ñ¼Æ1   ,°Ñ¼Æ2
  3.     Dim St As String
  4.     Text_Ar(T).BackColor = IIf(Msg, ¥¿±`¦â, ¿ù»~¦â)
  5.     Text_Msg(T) = Msg
  6.     ComButton_Àˬd
  7.     If ComButton.Enabled Then ListBox1_Change
  8.     If ComButton.Enabled Then
  9.         ComButton.SetFocus          '**SetFocus ¤èªk ±N¾nÂI²¾¨ì¦¹ª«¥óªº°õ¦æ­ÓÅé¤W¡C
  10.     ElseIf Msg Then                     '**¿é¤J®æ¦¡ªº¥¿½T ¤U²¾¦Ü¤U¤@­Ó±±¨î¶µ
  11. '*****************³o¸Ì¸ÕµÛ­×§ï ****************************
  12.         If T > 2 And T <> 5 And T <> UBound(Text_Ar) Then Text_Ar(T + 1).SetFocus
  13. '********************************************************
  14.     End If
  15. End Sub
½Æ»s¥N½X
¦^·Å«á¨Ï¥Î´Á­­ ®æ¦¡ »P ©ñ¤J®É¶¡®æ¦¡ Private Sub TextBox9_Change() ¬O¬Û¦Pªº
  1. Private Sub TextBox6_Change()
  2.    Dim St, Msg As Boolean, Ar
  3.    '®æ¦¡  ¤é´Á&®É¶¡
  4.     St = Trim(TextBox6)
  5.     Msg = UBound(Split(St, "/")) = 2 And UBound(Split(St, " ")) = 1 And UBound(Split(St, ":")) = 1: If Not Msg Then GoTo Ne
  6.     Ar = Split(St, " ")
  7.     Msg = IsDate(Ar(0)): If Not Msg Then GoTo Ne
  8.     Msg = IsDate(Ar(1)): If Not Msg Then GoTo Ne
  9.     If Msg Then TextBox6 = Format(TextBox6, ¤é´Á®É¶¡®æ¦¡)
  10. Ne:
  11.     TheMsg 6, Msg
  12. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 18# GBKEE


    ª©¤j, §Ú¦³­×§ï¹L ¤u¸¹ ¸ò ¼h¬[½s¸¹¸Ñ°£­­¨î , ¤£ª¾¹D¬O§_¼vÅT¨º¤@Ä檺§PÂ_
¤u¸¹
  1. Private Sub TextBox1_Change()          '** ±±¨î¶µ¦³ÅÜ°Ê : µ{¦¡§@¥Î  ¸ê®Æ®æ¦¡ ªºÀˬd
  2.     Dim St As String, Msg As Boolean, I As Integer
  3.     St = Trim(TextBox1)
  4.     Msg = St <> "" And Len(St) > 1: If Not Msg Then GoTo Ne   '**Msg=False µ{¦¡²¾¨ì Ne Ä~Äò°õ¦æ
  5. Ne:
  6.      TheMsg 1, Msg
  7. End Sub
½Æ»s¥N½X
¼h¬[½s¸¹
  1. Private Sub TextBox2_Change()
  2.    Dim St As String, Msg As Boolean
  3.     St = Trim(TextBox2)
  4.     Msg = St <> ""
  5.     TheMsg 2, Msg
  6. End Sub
½Æ»s¥N½X
±µ¤U¨ÓLot ¬O¨Ì·Óª©¤j©Ò¥H­×§ïªº

¦p¤Uª©¤j½Ð§Ú¹Á¸Õ­×§ïªº½d³ò
  1. Private Sub TheMsg(T As Integer, Msg As Boolean)   ''** µ{¦¡§@¥Î  ¸ê®Æ¿é¤J®æ¦¡ªºÀˬd
  2.     '** ¥G¥s¦¹µ{¦¡ ¶·±a¦³ °Ñ¼Æ1   ,°Ñ¼Æ2
  3.     Dim St As String
  4.     Text_Ar(T).BackColor = IIf(Msg, ¥¿±`¦â, ¿ù»~¦â)
  5.     Text_Msg(T) = Msg
  6.     ComButton_Àˬd
  7.     If ComButton.Enabled Then ListBox1_Change
  8.     If ComButton.Enabled Then
  9.         ComButton.SetFocus          '**SetFocus ¤èªk ±N¾nÂI²¾¨ì¦¹ª«¥óªº°õ¦æ­ÓÅé¤W¡C
  10.     ElseIf Msg Then                     '**¿é¤J®æ¦¡ªº¥¿½T ¤U²¾¦Ü¤U¤@­Ó±±¨î¶µ
  11. '*****************³o¸Ì¸ÕµÛ­×§ï ****************************
  12.         If T > 2 And T <> 5 And T <> UBound(Text_Ar) Then Text_Ar(T + 1).SetFocus
  13. '********************************************************
  14.     End If
  15. End Sub
½Æ»s¥N½X
§Ú­×§ï¤F ¬õ¦â¦rÅé , Åܦ¨PCS¤@­Ó¦r¤¸´N¸õ¥h¤U¤@®æ, ¦^·Å«á¨Ï¥Î´Á­­ , ÂI¨â¤UÅܦ¨1899¦~...¤]¬O­×§ï¤@­Ó¼Æ¦r´N¸õ¥h¤U¤@­Ó
  If T > 1 And T <> 4 And T <> UBound(Text_Ar) Then Text_Ar(T + 1).SetFocus

§Ú­×§ï¤F ¬õ¦â¦rÅé , Åܦ¨LOT¡B¦^·Å«á¨Ï¥Î´Á­­­×§ï ¤@­Ó¦r¤¸´N¸õ¥h¤U¤@®æ, ¦^·Å¨Ï¥Î´Á­­ÂI¨â¤UÅܦ¨1899¦~...
¥i§_±N½¦¯È»s³y¤é, ¨ì´Á¤é ¤£¥d³W«h©O?? ¦]¬°¤]¬O¨ê±ø½X, ¼t°Ó±ø½X®æ¦¡´N¹³·íªìªº¤@¼Ë¬O¦r¤¸®æ¦¡ ¡¨20171011¡¨ , ¦A¥Ñµ{¦¡¥hÂà´«®É¶¡®æ¦¡
  If T > 3 And T <> 6 And T <> UBound(Text_Ar) Then Text_Ar(T + 1).SetFocus

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2016-10-20 05:54 ½s¿è

¦^´_ 19# v03586
¦^·Å¨Ï¥Î´Á­­ÂI¨â¤UÅܦ¨1899¦~...
­×§ï³o¸Ì
  1. Sub ©ñ¤J¦B½c()   'Input ¦B½c (¸ê®Æ¦s¤J¡yDatabase-¦B½c¡z)
  2.     Set Sh = Sheets("Database-¦B½c")
  3.     ¦^·Å«á¨Ï¥Î´Á­­ = Now + 2       '**µ¹­È
  4.     Com_Title = " [ ©ñ¤J¦B½c ]"
  5.     Form_InPut.Show
  6. End Sub
½Æ»s¥N½X
  1. If T = 3 Or T >= 6 And T <> UBound(Text_Ar) Then Text_Ar(T + 1).SetFocus
  2.         '** 1¤u¸¹ , 2¼h¬[½s¸¹ , 4LOT, 5PCS  **¤£³]®æ¦¡¤£¸õ¨ì¤U¤@¿é ¤J±±¨î¶µ
  3.         '**3Film P/N , 6¦^·Å«á¨Ï¥Î´Á­­, 7½¦¯È»s³y¤é 8 ½¦¯È¨ì´Á¤é **'¸õ¨ì¤U¤@¿é ¤J±±¨î¶µ
  4.         '** 9 ©ñ¤J®É¶¡=>Text_Ar(T + 1).SetFocus ·|¦³¿ù»~ªº
½Æ»s¥N½X
¤u¸¹ ¸ò ¼h¬[½s¸¹....   ¸Ñ°£­­¨î
  1. Private Sub TextBox1_Change()          '** ±±¨î¶µ¦³ÅÜ°Ê : µ{¦¡§@¥Î  ¸ê®Æ®æ¦¡ ªºÀˬd
  2.      '**¤£­­¨î®æ¦¡
  3.      TheMsg 1, Trim(TextBox1) <> ""   '¤£­­¨î®æ¦¡
  4. End Sub
½Æ»s¥N½X
³]©w±ø½X®æ¦¡
  1. Private Sub TextBox7_Change()
  2.     '®æ¦¡  ±ø½X 8 ¦ì¼Æ
  3.     Dim St(1 To 2) As String, Msg As Boolean, Ar
  4.     St(1) = Trim(TextBox7)
  5.     Msg = Len(St(1)) = 8 And IsNumeric(St(1)): If Not Msg Then GoTo Ne
  6.     St(2) = Mid(St(1), 1, 4) & "/" & Mid(St(1), 5, 2) & "/" & Mid(St(1), 7, 2)
  7.     Msg = IsDate(St(2)): If Not Msg Then GoTo Ne         '**¤é´Á¥¿½T
  8.     Msg = DateValue(St(2)) < Date: If Not Msg Then GoTo Ne    '**½¦¯È»s³y¤é¥²¤p©ó·í¤é
  9. Ne:
  10.     TheMsg IIf(Label6.Enabled, 7, 6), Msg
  11. End Sub
  12. Private Sub TextBox8_Change()
  13.      '®æ¦¡  ±ø½X 8 ¦ì¼Æ
  14.     Dim St(1 To 3) As String, Msg As Boolean, Ar
  15.    St(1) = Trim(TextBox8)
  16.     Msg = Len(St(1)) = 8 And IsNumeric(St(1)): If Not Msg Then GoTo Ne
  17.     St(2) = Mid(St(1), 1, 4) & "/" & Mid(St(1), 5, 2) & "/" & Mid(St(1), 7, 2)  '½¦¯È¨ì´Á¤é
  18.     Msg = IsDate(St(2)): If Not Msg Then GoTo Ne
  19.     Msg = Text_Msg(IIf(Label6.Enabled, 7, 6)): If Not Msg Then GoTo Ne '½¦¯È»s³y¤é¬O§_¥¿½T
  20.     St(3) = Trim(TextBox7)
  21.     St(3) = Mid(St(3), 1, 4) & "/" & Mid(St(3), 5, 2) & "/" & Mid(St(3), 7, 2)  '**'½¦¯È»s³y¤é
  22.     Msg = DateValue(St(2)) > DateValue(St(3))                       '**½¦¯È¨ì´Á¤é¥²¤j©ó½¦¯È»s³y¤é
  23. Ne:
  24.     TheMsg IIf(Label6.Enabled, 8, 7), Msg
  25. End Sub
  26. '**³]©w±ø½X®æ¦¡ «á»Ý­×§ï
  27. Private Sub ComButton_Click()          '**±±¨î¶µªº¨Æ¥ó («ö¤U±±¨î¶µ)
  28.     Dim i As Integer, XR As Integer
  29.     If MsgBox(Join(Text_Ar, vbLf), vbYesNo, "   ** ½T©w " & Com_Title & "  **") = vbYes Then
  30.         '**Join ¨ç¼Æ ¶Ç¦^¤@­Ó¦r¦ê , ¸Ó¦r¦ê¬O³z¹L³sµ²¬Y­Ó°}¦C¤¤ªº¦h­Ó¤l¦r¦ê¦Ó«Ø¥ßªº
  31.         XR = Application.CountA(Sh.[A:A])
  32.         With Sh.Range("A" & XR).Offset(1)
  33.             For i = 1 To UBound(Text_Ar)               '**UBound ¨ç¼Æ ¶Ç¦^ Long­È¡Aªí¥Ü«ü©w°}¦C¬Yºû³Ì¤j¥i¨Ï¥Îªº°}¦C¯Á¤Þ¡C
  34.                  If InStr(Sh.Name, "¦B½c") And (i = 6 Or i = 7) Then
  35.                     .Cells(1, i) = Mid(Text_Ar(i), 1, 4) & "/" & Mid(Text_Ar(i), 5, 2) & "/" & Mid(Text_Ar(i), 7, 2)
  36.                  ElseIf InStr(Sh.Name, "¦B½c") = 0 And (i = 7 Or i = 8) Then
  37.                     .Cells(1, i) = Mid(Text_Ar(i), 1, 4) & "/" & Mid(Text_Ar(i), 5, 2) & "/" & Mid(Text_Ar(i), 7, 2)
  38.                  Else
  39.                     .Cells(1, i) = UCase(Text_Ar(i).Text)  '**UCase ¨ç¼Æ ¶Ç¦^¤@­Ó Variant (String)¡A©Ò§t¬°Âন¤j¼g¤§¦r¦ê¡C
  40.                 End If
  41.             Next
  42.         End With
  43.         DataBase_Show
  44.     End If
  45.     ListBox1_Change
  46. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : §g¤l¥ß«í§Ó¡A¤p¤H«í¥ß§Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD