[µo°Ý] ·Q½Ð°Ý¦p¦ó¸Ñ¨M¡y°õ¦æ¶¥¬q¿ù»~¡§13"¡A«¬ºA¤£²Å¦X¡z

HSINLI

¦¹µ{¦¡½X¦b°õ¦æªº®É­Ô¦b
Range("e" & j) = (hilow.Offset(0, 5).Value - Range("b" & j).Value) / hilow.Offset(0, 5).Value
³o¦a¤è¡A¤@ª½¥X²{¡y°õ¦æ¶¥¬q¿ù»~¡§13"¡A«¬ºA¤£²Å¦X¡z¿ù»~¡A
hilow ¬O·j´Mµ²ªG±o¨ìªºÀx¦s®æÅܶq
µM«á§Ú¬O·Q±N·j´Mµ²ªG¨º¤@¦æªºÀx¦s®æ­Èhilow.Offset(0, 5)¶K¨ì¥t¤@¤u§@ªí¤W

½Ð°Ý­n¦p¦ó§ï¶i¤~¯àdebug¡AÁÂÁ¡I

ps.¦¹¬°Â^¨ú¤@³¡¤À¥D­n¥X°ÝÃDªºµ{¦¡½X¡A§¹¾ãªº©óªþ¥ó

1. Sub test()
   
2. 
   
3.     Dim Blast As Integer
   
4.     Dim hilow As Range
   
5.     Dim j As Integer
   
6.    
   
7.   
   
8.   Blast = Range("AA4").End(xlDown).Row
   
9.   For j = 6 To (Blast * 2) - 1 Step 2
   
10.        Set hilow = Sheets("G.&E.").Range("c:j").Find(Range("a" & j))
    
11.          If Not hilow Is Nothing Then
    
12.             Range("e" & j) = (hilow.Offset(0, 5).Value - Range("b" & j).Value) / hilow.Offset(0, 5).Value
    
13.             Range("e" & j + 1) = (hilow.Offset(0, 6).Value - Range("b" & j)) / hilow.Offset(0, 6).Value
    
14.          End If
    
15.           Range("D" & j) = "=(B" & j & "-C" & j & ")/B" & j
    
16.   Next j
    
17. 
    
18. End Sub

½Æ»s¥N½X

¬¡­¶Ã¯1.xlsm 2.zip (277.22 KB)

¤U¸ü¦¸¼Æ: 9

2015-7-16 12:09

stillfish00

¦^´_ 1# HSINLI
j = 80®É ¡A Find "NGE" ¥h§ä¨ì ¼ÐÃDÄ檺 "change"

¥i¥H§ï¦¨³o¼Ë
Set hilow = Sheets("G.&E.").Range("c:c").Find(Range("a" & j), LookAt:=xlWhole)

GBKEE

¦^´_ 1# HSINLI

³o¬qµ{¦¡½X·|©ì©µµ{¦¡°õ¦æªº³t«×

1. Blast = Range("AA4").End(xlDown).Row '±N¤U¸ü¥«»ùÀx¦s®æ¥[¤j
   
2. For i = 7 To (Blast * 2) Step 2
   
3.     Cells(i, 2).Insert shift:=xlDown '¼W¥[Àx¦s®æ
   
4.     Range("b" & i - 1 & ":b" & i).Select '¦X¨ÖÀx¦s®æ
   
5.    Selection.MergeCells = True
   
6.    With Selection.Borders(xlEdgeTop)
   
7.         .LineStyle = xlContinuous
   
8.         .ColorIndex = 0
   
9.         .TintAndShade = 0
   
10.         .Weight = xlThin
    
11.     End With
    
12.     With Selection.Borders(xlEdgeBottom)
    
13.         .LineStyle = xlContinuous
    
14.         .ColorIndex = 0
    
15.         .TintAndShade = 0
    
16.         .Weight = xlThin
    
17.         End With
    
18.         Selection.NumberFormatLocal = "0.00_ "
    
19. Next i

½Æ»s¥N½X

¥i­×§ï¬°¦p¤U¸Õ¸Õ¬Ý

1. Dim Ar(), x As Integer
   
2.     Ar = Range("b6", Range("b6").End(xlDown)).Value     'BÄ檺­È¾É¤J°}¦C
   
3.     With Range("A6", Range("A" & Rows.Count).End(xlUp)) 'AÄ檺¦X¨ÖÀx¦s®æ
   
4.         .Select
   
5.         Selection.Copy Range("B6")                       '½Æ»s¨ì BÄæ
   
6.         With .Offset(, 1)                                'BÄæ
   
7.             For i = 1 To .Cells.Count Step 2
   
8.                 x = Application.Round(i - (i / 2), 0)    '°}¦C¤¸¯Àªº¯Á¤Þ­È (¥|±Ë¤­¤J¹Bºâªºµ²ªG)
   
9.                 .Cells(i) = Ar(x, 1)
   
10.             Next
    
11.             With .Borders
    
12.                 .LineStyle = xlContinuous
    
13.                 .ColorIndex = 0
    
14.                 .Weight = xlThin
    
15.                 .TintAndShade = 0
    
16.             End With
    
17.         End With
    
18.     End With

½Æ»s¥N½X

HSINLI

¦^´_ 2# stillfish00

·Q½Ð°Ý¤@¤Us¤j
¬O«ç¼Ë´ú¥X¨Ó»¡¦bj=80®É¡A¥X°ÝÃDªº°Ú¡I¡H
¤U¦¸·Q¦Û¤v§ì§ì¬Ý°ÝÃD¦b­þ

HSINLI

¦^´_ 3# GBKEE

ÁÂÁÂg¤j¡I
¥i¦æ¥B¯uªº¤ñ¸û§Ö¡AÁÂÁ§A¡I

stillfish00

¦^´_ 4# HSINLI
¦]¬°¨S¼u¥X°»¿ù«ö¶s
§Ú¬O¥Î¤U­±³o¼Ë°±¨ìµo¥Í¿ù»~ªº¨º¦æ¡A¦A¥h¬ÝÅܼÆ

1. Private Sub CommandButton2_Click()
   
2. On Error GoTo ERR_HANDLE
   
3.    
   
4.     ...
   
5. 
   
6. Exit Sub
   
7. ERR_HANDLE:
   
8.     Stop    'F8 to resume error line
   
9.     Resume
   
10. End Sub

½Æ»s¥N½X