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

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

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

§Ú¦³³]­p¤@­Ó½LÂIµ{¦¡
¥Ø«e¤J®w¥\¯à³£¼g¦n¤F
¦ý¬O¦³¨Ç¥X®w¥\¯à¤ñ¸û¯S®í, ¸ê®Æªí¸ê®ÆÂà¥h§Oªº¸ê®Æªí
·Q½Ð¨D¤j¤jÀ°¦£
¾Þ§@¤¶­±¬°¡y¨C¤é½LÂI¡z¸ê®Æªí
µ{¦¡ÅÞ¿è´N¬OIN / OUT ,  ¬Ò¬O§PÂ_ Lot , ¥u­nLot ²Å¦X´N±N¾ãµ§¸ê®ÆÂಾ¹L¥h
1. ·í¸ê®Æ©ñ¤J¦B½c®É, ¸ê®Æ·|¦s¦b¡yDatabase-¦B½c¡z¸ê®Æªí, ·í¨ú¥X¦B½c®É, ¸ê®Æ·|¶]¨ì¡yDatabase-¦^·Å°Ï¡z¸ê®Æªí
    ¡yDatabase-¦B½c¡z¸ê®Æªíªº¨ºµ§¸ê®Æ¥²¶·§R°£, µM«á¶]¥h¡yDatabase-¦^·Å°Ï¡z¸ê®Æªí
     ¦pªG¿é¤JªºLot·í¤¤¦b¡yDatabase-¦B½c¡z¸ê®Æªí¤º, ¨S¦³¿é¤JªºLot , ´N·s¼W¡yDatabase-¦^·Å°Ï¡z¸ê®Æªí¤º ( ·N«ä¬O ±q§Oªº¦a¤è©ñ¤J, ¤£¬O±q¦B½c©ñ¤J )
    ¥Ø«eIntput ³£¼¶¼gOK, °ß¿W §Ú¥d¦b«ç»ò§R°£...§Úªºµ{¦¡½X¦p¤U, ½Ð¨D¤j¤j«ü±Ð§Ú¿ù¦b­þ¸Ì

2. ¥\¯à2 , ¦b¹Ï¤ù¤¤¡¨¨ú¥X¦^·Å°Ï¡¨³o­Ó«ö¶s«ö¤U, ·|¥h¤ñ¹ï¡yDatabase-¦^·Å°Ï¡z¸ê®Æªí¤¤ªºLot
¥u­n²Å¦X´N±N¾ãµ§¸ê®Æ§R°£

3.¥\¯à3, ¨ú¥X´á®ðÂd¤@¼Ë¤ñ¹ï¡yDatabase-¤J´á®ðÂd¡z¸ê®Æªí¤¤ªºLot¸ê®Æ, ¥u­n²Å¦X´N±N¸ê®ÆÂಾ¦Ü¡yDatabase-¥X´á®ðÂd¡z¸ê®Æªí¤¤
  1. Sub OutFilm()
  2.    Dim PromptsC(1 To 1) As String
  3.    Dim PromptsE(1 To 1) As String
  4.    Dim Inputs(1 To 1) As String
  5.    Dim i As Integer
  6.    Dim j As Integer
  7.    Dim Lot_Rng As Range
  8.    Dim NotFound As Boolean
  9.    Const D = 4
  10.    PromptsC(1) = "½¦¯ÈLOT"
  11.    PromptsE(1) = "Film Lot"
  12.    For j = 1 To 1
  13.      Inputs(j) = ""
  14.    Next j
  15.    For j = 1 To 1
  16.     Do
  17.        Inputs(j) = InputBox("½Ð±½´y" & PromptsC(j) & "[Please Scan " & PromptsE(j) & "]", _
  18.                             "½Ð±½´y" & PromptsC(j) & "[Please Scan " & PromptsE(j) & "]", "")
  19.        If Len(Inputs(j)) < 1 Then
  20.            If MsgBox("§Aªº¿é¤J¦³»~¡A¬O§_­«·s¿é¤J" & PromptsC(j) & "?" & vbCrLf & _
  21.                      "ÂIÀ»""¬O""­«·s¿é¤J¡A""§_""°h¥X·í¦¸¿é¤J¡C" & vbCrLf & _
  22.                      "You are not enter " & PromptsE(j) & " ,Click ""¬O(Y)""Re-enter or ""§_(N)""End enter", _
  23.                      vbYesNo Or vbQuestion, _
  24.                      "µL¿é¤J" & PromptsC(j) & " [You are not enter " & PromptsE(j) & "]") = vbNo Then Exit Sub
  25.        End If
  26.     Loop While Inputs(j) = ""
  27.    Next j
  28.    i = 2
  29.    NotFound = True
  30.    Do
  31.       If Inputs(1) = Worksheets("Database-¦B½c").Cells(i, D) Then
  32.          Set Lot_Rng = Worksheets("Database-¦B½c").Cells(i, D)
  33.          Worksheets("Database-¦B½c").Rows(Inputs(1)).Delete
  34.          NotFound = False
  35.          Exit Do
  36.       End If
  37.       i = i + 1
  38.    Loop While Worksheets("Database-¦B½c").Cells(i, A) <> ""
  39.    If NotFound Then MsgBox "§ä¤£¨ì¸ê®Æ < Can't not found data>"
  40. End Sub
½Æ»s¥N½X
Q1.png
2016-10-7 14:31

Film WIP Management.rar (768.26 KB)

¦^´_ 21# v03586

ªþÀɸոլÝ

Ex.zip (878.16 KB)
   

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

TOP

¦^´_ 20# GBKEE


    ª©¤j±z¦n!! ¬Q¤Ñ±N¨t²Î¤W½u«á, ¨Ï¥ÎªÌFeedback ªº·N¨£, ¥L­Ì´£¨ì§Æ±æ¥u­n¿é¤J¦³®Ä¸ê®Æ
   ¸ê®Æªí¤W»Ý­pºâ¦³®Ä¸ê®Æ¶È¦³
          ¡y¦B½c-Database¡z GÄæ¦ì-½¦¯È¨ì´Á¤é
          ¡y¦^·Å°Ï-Database¡z FÄæ¦ì-¦^·Å«á¨Ï¥Î´Á­­
          ¡y´á®ðÂd-Database¡z FÄæ¦ì-¦^·Å«á¨Ï¥Î´Á­­
    ¬G§Æ±æ±NµL®Ä¸ê®Æ§R°£, ¸`¬Ù¤H­û§@·~®É¶¡
   §R°£«á
    ¸ê®ÆÄæ¦ì¦p¤U¹Ï, ¦p¦¹¤@¨Ó ­pºâÄæ¦ì´N¤@­P¤F!! ´N¤£·|¹³¤§«e¦B½c¯S§O¦b¬Y¤@Äæ, ¨ä¥L¨â­ÓÄæ¦ì¤£¤@¼Ë
   
Q1.png
2016-10-21 11:50

   

­×§ï«áªºIN/OUT µe­±¦p¤U¹Ï
¨ú¥Xªºµe­±, ¨Ï¥ÎªÌÁöµM¦A¬d¸ß­¶­±§ä¨ìLot , ¦ý¸ê®Æµ§¼Æ¤Ó¦h¤F...¬Q¤Ñ§ä¤F«Ü¤[, ¥i§_·s¼W¤@­Ó»Ý­n¿é¤JP/N ¦AÅý¨Ï¥ÎªÌ«ö®³¨úªºµe­±
(¨Ï¥ÎªÌ¤]¬O¨ê±ø½X)

©ñ¶i¥hªºµe­±, °£¤F¦B½c¤£¿é¤J, ¦^·Å«á¨Ï¥Î´Á­­, ¨ä¥L³£­n¿é¤J¦^·Å«á¨Ï¥Î´Á­­
¤£¦P¤@ÂIªº¬O, ¦B½c­n¿é¤J½¦¯È¨ì´Á¤é, ¨ä¥Lªº«h¤£»Ý­n¿é¤J½¦¯È¨ì´Á¤é ,
¤u¸¹, ¼h¬[. Lot ¤£¥d¸ê®Æ®æ¦¡ ,
PCS¶È¤ä´©  1~999 ,  ¥ý«e§ï§¹§PÂ_ ¿é¤J1­Ó¼Æ¦r´N·|¸õ¨ì¤U¤@®æ
½¦¯È¨ì´Á¤é¤@¼Ë¬O¦^·Å°Ï,»P´á®ðÂd»Ý­n¿é¤J, ¤@¼Ë¬O¨ê±ø½X¤è¦¡, 20161010 µ{¦¡¸ÑªR

¤§«e¿é¤J¦^·Å«á¨Ï¥Î´Á­­, ®É¶¡®æ¦¡, ¿é¤J¨ì¤À , ´N·|¸õ¨ì¤U¤@®æ, ¬O§_¯à¦³¸Ñ©O??

©ñ¤J¤é´Á¬O§_¥i¥H§ï¦¨«ö¤U«ö¶sªº¦P®É¦Û°Ê±a¤J¸ê®Æ®w´N¦æ¤F

Q2.png
2016-10-21 11:51

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

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

¥»©«³Ì«á¥Ñ 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

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

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

        ÀR«ä¦Û¦b : ºw¤ô¦¨ªe¡C²É¦Ì¦¨ÅÚ¡A¤Å»´¤vÆF¡A¤Å¥Hµ½¤p¦Ó¤£¬°¡C
ªð¦^¦Cªí ¤W¤@¥DÃD