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

[µo°Ý] ¤£¦P¤u§@ªí¶¡¡A¦p¦ó³]±ø¥ó¡A½Æ»s¸ê®Æ¨ì«ü©wÀx¦s®æ

[µo°Ý] ¤£¦P¤u§@ªí¶¡¡A¦p¦ó³]±ø¥ó¡A½Æ»s¸ê®Æ¨ì«ü©wÀx¦s®æ

¤£¦PÀɮ׶¡¨Ì±ø¥ó½Æ»s¸ê®Æ.rar (719.88 KB) ¦U¦ì¤j¤j¦n¡A¦³ª¦¨ì¦¹½g http://forum.twbts.com/thread-1467-1-1.html¡A ¦ý·Q­n¥H¤U¥\¯à¡G
1. ³]±ø¥ó¡A¦pªþ¥ó¡A
¦b¥Øªº¤u§@ªí"M"[D7]ªº¤U©Ô¦¡¿ï³æ¡A¿ï250,
´N½Æ»s¨Ó·½¤u§@ªí"W"ªº
"W"ªº[AU16] ¨ì"M"ªº[L16], µ¥©ó»¡"W"ºñ¦â³¡¥÷ªºLOT 1 ="M"ªºLOT 01-1
"W"ªº[AU17] ¨ì"M"ªº[L57], µ¥©ó»¡"W"ºñ¦â³¡¥÷ªºLOT 2="M"ªºLOT 02-1
"W"ªº[AU18] ¨ì"M"ªº[L98],µ¥©ó»¡"W"ºñ¦â³¡¥÷ªºLOT 3="M"ªºLOT 03-1
¡E¡E¡E¡E¡E¥H¦¹Ãþ±À¡C

¦b¥Øªº¤u§@ªí"M"[D7]ªº¤U©Ô¦¡¿ï³æ¡A¿ï500,
´N½Æ»s¨Ó·½¤u§@ªí"W"ªº
"W"ªº[AU16] ¨ì"M"ªº[L16], µ¥©ó»¡"W"ºñ¦â³¡¥÷ªºLOT 1 ="M"ªºLOT 01-1
"W"ªº[AU17] ¨ì"M"ªº[L18], µ¥©ó»¡"W"ºñ¦â³¡¥÷ªºLOT 2 ="M"ªºLOT 01-2

"W"ªº[AU18] ¨ì"M"ªº[L57],µ¥©ó»¡"W"ºñ¦â³¡¥÷ªºLOT 3 ="M"ªºLOT 02-1
"W"ªº[AU19] ¨ì"M"ªº[L59],µ¥©ó»¡"W"ºñ¦â³¡¥÷ªºLOT 4 ="M"ªºLOT 02-2
¡E¡E¡E¡E¡E¥H¦¹Ãþ±À

¦b¥Øªº¤u§@ªí"M"[D7]ªº¤U©Ô¦¡¿ï³æ¡A¿ï1000,
´N½Æ»s¨Ó·½¤u§@ªí"W"ªº
"W"ªº[AU16] ¨ì"M"ªº[L16], µ¥©ó»¡"W"ºñ¦â³¡¥÷ªºLOT 1 ="M"ªºLOT 01-1
"W"ªº[AU17] ¨ì"M"ªº[L18], µ¥©ó»¡"W"ºñ¦â³¡¥÷ªºLOT 2 ="M"ªºLOT 01-2
"W"ªº[AU18] ¨ì"M"ªº[L20], µ¥©ó»¡"W"ºñ¦â³¡¥÷ªºLOT 3 ="M"ªºLOT 01-3
"W"ªº[AU19] ¨ì"M"ªº[L22], µ¥©ó»¡"W"ºñ¦â³¡¥÷ªºLOT 4 ="M"ªºLOT 01-4

"W"ªº[AU20] ¨ì"M"ªº[L57], µ¥©ó»¡"W"ºñ¦â³¡¥÷ªºLOT 5 ="M"ªºLOT 02-1
"W"ªº[AU21] ¨ì"M"ªº[L59], µ¥©ó»¡"W"ºñ¦â³¡¥÷ªºLOT 6 ="M"ªºLOT 02-2
"W"ªº[AU22] ¨ì"M"ªº[L61], µ¥©ó»¡"W"ºñ¦â³¡¥÷ªºLOT 7="M"ªºLOT 02-3
"W"ªº[AU23] ¨ì"M"ªº[L63], µ¥©ó»¡"W"ºñ¦â³¡¥÷ªºLOT 8 ="M"ªºLOT 02-4
¡E¡E¡E¡E¡E¥H¦¹Ãþ±À

¦]¬°¨Ó·½¸ê®Æ¤Ó¦h¡A¤£´¶¯à§_³]¦r¨åÀÉ¡A¨Ì±ø¥ó¤U¥h¶]¡A
¦Ó¤£¬O¨Ì±ø¥ó¡A¥ÎARRAY ¤@®æ®æ¥h³]©w½Æ»s¦ì¸m¡H

[ª©¥DºÞ²z¯d¨¥]
  • GBKEE(2016/10/18 06:28): ½Ðªþ¤WD7= 250, 500,1000 ªº½d¨ÒÀÉ

ÁÂÁÂG¤j! ¦n½ÆÂøªºµ{¦¡·Q¥²ªá¤F¤£¤Ö®É¶¡ºc«ä¡C
¤p§Ì±o²Ó²Ó«~¨ý....¤S«Ü¦h¬Ý¤£À´ªº¥X²{¤F....

¥Ø«e¥u®t½Æ»s¸ê®Æ¨ì«ü©wÀx¦s®æªº¦ì¸m¡A¶]¥Xªº¤£¬O§Ú­nªº¦ì¸m¡C
­«·s»¡©ú§Ú»Ý­nªº½Æ»s¨ì¦ì¸m¦p¤U:

¦pªGD7¿ï250ªº¸Ü¡A­n½Æ»sW¤u§@諸:
AU16¬Olot 1¡A½Æ»s¨ìLÄæ¹ïÀ³¥ªÃäºñ¦â01-1ªº[L16]
AU17¬Olot 2¡A½Æ»s¨ìLÄæ¹ïÀ³¥ªÃäºñ¦â02-1ªº[L57]
AU18¬Olot 3¡A½Æ»s¨ìLÄæ¹ïÀ³¥ªÃäºñ¦â03-1ªº[L98] .....¨Ì¦¹Ãþ±À
µ¥©ó³]©wM¤u§@ªíªº¨C­Ólot¬°250¾·¡A©Ò¥H¨C­Ólot ¥á¤@­Ó¸ê®Æ¡C

¦pªGD7¿ï500ªº¸Ü¡A­n½Æ»sW¤u§@諸:
AU16¹ïÀ³ªº¥ªÃäºñ¦âlot 1¡A½Æ»s¨ìLÄæ¹ïÀ³¥ªÃäºñ¦â01-1ªº[L16]
AU17¹ïÀ³ªº¥ªÃäºñ¦âlot 2¡A½Æ»s¨ìLÄæ¹ïÀ³¥ªÃäºñ¦â01-2ªº[L17]
µ¥©ó³]©wM¤u§@ªíªº¨C­Ólot¬°500¹y¡A©Ò¥H±qW½Æ»s¨â­Ó¬ù250¾·¡A¥á¹L¥h¨ìMªºlot1¡C
AU18¹ïÀ³ªº¥ªÃäºñ¦âlot 3¡A½Æ»s¨ìLÄæ¹ïÀ³¥ªÃäºñ¦â01-1ªº[L57]
AU19¹ïÀ³ªº¥ªÃäºñ¦âlot 4¡A½Æ»s¨ìLÄæ¹ïÀ³¥ªÃäºñ¦â01-2ªº[L58]
µ¥©ó³]©wM¤u§@ªíªº¨C­Ólot¬°500¹y¡A©Ò¥H±qW½Æ»s¨â­Ó¬ù250¾·¡A¥á¹L¥h¨ìMªºlot2¡C
....¨Ì¦¹Ãþ±À

©êºp»¡©ú±o¦³ÂI¶Ã¡A¤£ª¾¹D³o¼Ë¯à¤£¯à°µ¨ì©O?

ÁÙ¦³¦]¬°Àɮ׬O­nµ¹«D¶}µoªÌ¨Ï¥Î¡A
¦ÓW¤u§@諸ÀɮצWºÙ¨C¦¸³£¤£¤@¼Ë¡A
¯à§_³]©w¡A¿ï¾Ü¶}±ÒWÀɮסA¤~¤£¥Î¨C¦¸³£§ïµ{¦¡½X©O?

TOP

¦^´_ 1# simplehope
¸Õ¸Õ¬Ý
Moisture test result(2)  ¼Ò²Õ¤Wªºµ{¦¡½X
Range("d7") ¦³Åܰʮɷ|¦Û°Ê°õ¦æ
  1. Option Explicit
  2. Private Sub Worksheet_Change(ByVal Target As Range)
  3.     Dim A, I As Integer, ii As Integer, Ar As Variant, E As Range, LotNo As Integer
  4.     Dim Rng   As Range
  5.     If Target.Address <> Range("d7").Address Then Exit Sub
  6.     Application.EnableEvents = False
  7.     Application.ScreenUpdating = False
  8.     A = Split(Range("d7").Validation.Formula1, ",")
  9.     LotNo = 20                               'LotNo¦³Åܰʮɭקï³o²z                      '
  10.     For I = 0 To UBound(A)
  11.         If Val(A(I)) = [D7].Value Then
  12.             For ii = 0 To I
  13.                 If ii = 0 Then
  14.                     Set Rng = [L16]
  15.                 Else
  16.                   Set Rng = Union(Rng, [L16].Offset((LotNo * 2 + 1) * ii - 1)) '41
  17.                 End If
  18.             Next
  19.             Range(Rng, Cells(Rows.Count, "L").End(xlUp)) = ""
  20.             Exit For
  21.         End If
  22.     Next
  23.     If Not Rng Is Nothing Then
  24.         '******** W Àɮפw¶}±Ò ***
  25.         Ar = Workbooks("ÀɮצWºÙ.xls").Sheets(1).[AU16].Resize(LotNo).Value
  26.         '******** W ÀÉ®×¥¼¶}±Ò ****
  27.         'With Workbooks.Open("Àɮתº¸ô¸ô®|&ÀɮצWºÙ.xls")
  28.         '   Ar = .Sheets(1).[AU16].Resize(LotNo).Value
  29.         '   .Close False
  30.         'End With
  31.         '*************************************
  32.         Ar = Application.Transpose(Ar)
  33.         For Each E In Rng.Cells
  34.             For I = 1 To 20
  35.                 E.Cells(I * 2 - 1) = Ar(I)
  36.             Next
  37.         Next
  38.     End If
  39.     Application.ScreenUpdating = True
  40.     Application.EnableEvents = True
  41. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¦h°µ¦h±o¡C¤Ö°µ¦h¥¢¡C
ªð¦^¦Cªí ¤W¤@¥DÃD