If Not c Is Nothing Then»yªk
- ©«¤l
- 550
- ¥DÃD
- 55
- ºëµØ
- 0
- ¿n¤À
- 614
- ÂI¦W
- 0
- §@·~¨t²Î
- win8
- ³nÅ骩¥»
- office2013
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- TW
- µù¥U®É¶¡
- 2010-11-22
- ³Ì«áµn¿ý
- 2024-4-23
|
¥»©«³Ì«á¥Ñ hugh0620 ©ó 2012-7-17 11:09 ½s¿è
¦^´_ 1# m09903020
RR = Sheets("SAMRD").Cells(1, 3) <== ³o¤@¥y±a¥X¨Óªº¬O[µL]
³o¼Ëªº¼gªkRR=Sheets("SAMRD").Cells(1, 3) ªº¤º®e
Sheets("SAMRD").Cells(1, 3)ªº¤º®e´N¥²¶·n¬OÀx¦s®æªº¼gªk
¤~¯à®M¥Î¨ì¤U¤@¥y
b = Sheets("QS").Range(RR) <=== run¨ì³o¤@¥y´N¬O¿ù»~ªº
ק令¥H¤Uªº¤è¦¡~ ¥iÁקK¿ù»~
If Sheets("SAMRD").Cells(1, 3) = "" Then Exit Sub '·íSheets("SAMRD").Cells(1, 3) = "" ¸õ¥X°õ¦æ
RR = Sheets("SAMRD").Cells(1, 3)
b = Sheets("QS").Range(RR)
If Not c Is Nothing Then Drr = c.Address <====Y³o¤@¥y³£¨S°õ¦æ¨ì Drr = c.Address
Sheets("order_pool").Range(Drr).Delete <====·íDrr¤W±¨º¤@¥y¬OªÅªº®ÉÔ,³o¤@¥y´N·|¦³¿ù»~²£¥Í- Sub Call_order_pool_Add_batch_pool_del_order_pool2()
- Dim RR, Drr As String
- Dim i, j, num_of_item, opA, OC As Integer
- Dim r, c, b As Variant
- RR = Sheets("SAMRD").Cells(1, 3) '(1,3)n·F¹À?Sheets("order_pool").[C1].Resize(s, 1) = Arr2
- b = Sheets("QS").Range(RR)
- Sheets("batch_order_pool").Cells(seed_counter, a_batch_followering_order_counter + 1) = Sheets("Á`q³æ").Cells(b + 1, 1)
- OC = 100 - RC
- If (Sheets("Á`q³æ").Cells(b + 1, 1) > 0) And (Sheets("Á`q³æ").Cells(b + 1, 1) < 3001) Then
-
- num_of_item = 5
-
- ElseIf (Sheets("Á`q³æ").Cells(b + 1, 1) >= 3001) And (Sheets("Á`q³æ").Cells(b + 1, 1) < 6001) Then
-
- num_of_item = 10
- ElseIf (Sheets("Á`q³æ").Cells(b + 1, 1) >= 6001) And (Sheets("Á`q³æ").Cells(b + 1, 1) < 9001) Then '50 items
-
- num_of_item = 50
-
- Else
- MsgBox "error³o»ò¤E«Ü©_©Ç£°§A"
- End If
- Call cal_RC(num_of_item)
-
- If RC >= 0 Then
-
- For j = 1 To num_of_item
-
- Sheets("batch_pool").Cells(seed_counter, OC + j) = Worksheets("Á`q³æ").Cells(b + 1, j + 6)
-
- Next
- For Each r In Worksheets("order_pool").Range("A1", Sheets("order_pool").Range("A1").End(xlDown))
- Set c = r.Find(b, , , xlWhole) '³]©w¤º®e¬°bªºÀx¦s®æª«¥ó¬°c
-
- If Not c Is Nothing Then Drr = c.Address
- '¨C§ä¨ìC«h±NCªº¬Û¹ï¦ì§}©ñ¶iDRR
- Next
-
- Sheets("order_pool").Range(Drr).Delete '§R°£±qorder pool¨ú¥X¤§¸ê®Æ
-
- End If
-
- End Sub
½Æ»s¥N½X |
|
¾Ç²ß¤~¯à´£¤É¦Û¤v
|
|
|
|
|