sunnyso

¦^´_ 7# hank10459

here is the code.

1. Private Sub Worksheet_Activate()
   
2. 
   
3. With Sheets(2)
   
4.     blnk = .[R4] <> "" Or .[R5] <> "" Or .[R6] <> "" _
   
5.         Or .[S5] <> "" Or .[S6] <> "" _
   
6.         Or .[T5] <> "" Or .[T6] <> ""
   
7. End With
   
8. 
   
9. 
   
10. If blnk Then
    
11.         Range("R4:T6").Select
    
12.     With Selection
    
13.         .WrapText = False
    
14.         .Orientation = 0
    
15.         .AddIndent = False
    
16.         .ShrinkToFit = False
    
17.         .ReadingOrder = xlContext
    
18.         .MergeCells = True
    
19.     End With
    
20.     With Selection.Borders(xlDiagonalDown)
    
21.         .LineStyle = xlContinuous
    
22.         .ColorIndex = xlAutomatic
    
23.         .TintAndShade = 0
    
24.         .Weight = xlMedium
    
25.     End With
    
26.     With Selection.Borders(xlDiagonalUp)
    
27.         .LineStyle = xlContinuous
    
28.         .ColorIndex = xlAutomatic
    
29.         .TintAndShade = 0
    
30.         .Weight = xlMedium
    
31.     End With
    
32.     With Selection.Borders(xlEdgeLeft)
    
33.         .LineStyle = xlContinuous
    
34.         .ColorIndex = xlAutomatic
    
35.         .TintAndShade = 0
    
36.         .Weight = xlMedium
    
37.     End With
    
38.     With Selection.Borders(xlEdgeTop)
    
39.         .LineStyle = xlContinuous
    
40.         .ColorIndex = xlAutomatic
    
41.         .TintAndShade = 0
    
42.         .Weight = xlMedium
    
43.     End With
    
44.     With Selection.Borders(xlEdgeBottom)
    
45.         .LineStyle = xlContinuous
    
46.         .ColorIndex = xlAutomatic
    
47.         .TintAndShade = 0
    
48.         .Weight = xlMedium
    
49.     End With
    
50.     With Selection.Borders(xlEdgeRight)
    
51.         .LineStyle = xlContinuous
    
52.         .ColorIndex = xlAutomatic
    
53.         .TintAndShade = 0
    
54.         .Weight = xlMedium
    
55.     End With
    
56.     Selection.Borders(xlInsideVertical).LineStyle = xlNone
    
57.     Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    
58. Else
    
59.     Range("O4:Q6").Select
    
60.     ActiveWindow.SmallScroll Down:=-6
    
61.     Selection.Copy
    
62.     Range("R4").Select
    
63.     Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
    
64.         SkipBlanks:=False, Transpose:=False
    
65.     Application.CutCopyMode = False
    
66.     Range("F4:H6").Select
    
67.     Selection.Copy
    
68.     Range("U4:W6").Select
    
69.     Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
    
70.         SkipBlanks:=False, Transpose:=False
    
71.     Application.CutCopyMode = False
    
72. 
    
73. End If
    
74. 
    
75. 
    
76. End Sub

½Æ»s¥N½X

hank10459

¦^´_ 6# sunnyso
S¤j¡A±z¦n§Ú¦³¬Ý¨ì±zªº¦^ÂСA¦ý¦]¬°§ÚLEVEL¤£°÷...¥i§_E-MAILµ¹§Ú©O¡C§Úªº«H½c¬O[email protected]    ÁÂÁÂS¤j

sunnyso

¤U¸ü (795.72 KB)

2014-3-4 13:56

Q1-Sonny.rar (20.9 KB)

¤U¸ü¦¸¼Æ: 11

2014-3-4 13:55

¦^´_ 5# hank10459

hank10459

¦^´_ 4# sunnyso
¦^¯«¤HS, §Ú¤w¸g¤W²î¹Ïªí^^³Â·Ð±zÅo Q1.rar (16.84 KB)

excel
¤U¸ü¦¸¼Æ: 10

2014-3-3 15:22

sunnyso

¦^´_ 1# hank10459

¤W­Óªþ¥ó, ±a¦³§A¤½¦¡µ¥. §Ú¨Ó¸Ñ¨MXªº°ÝÃD

hank10459

¦^´_ 2# seer_et
±z¦nS¤j¡A¥Ø«e§Úªº®æ¬O¤]¨S¿ìªk¥Î¨ì¨ººØX¹Ï¥Ü»¡!½Ð°Ý¦³¿ìªk¥i¥Hµ¹¥L¥´¤W¤j¤e¤e¶Ü?

seer_et

¦^´_ 1# hank10459

¨â­Ó¤èªk¥i¯à°µ¨ì§A­nªº:

1.¨Ï¥Î¦WºÙ

2.¨Ï¥Îindirect¨Ó³B²z§A­n®æ¦¡¤Æªº±ø¥ó°Ñ·Ó¡C

½Ð°Ñ¦Ò³o¸Ì:
http://tw.knowledge.yahoo.com/question/question?qid=1512071307819