专家请进

EXCEL专家请进~

你试试以下方法：
右键点一格工作表的名字（在左下面，如Sheet1），查看代码，粘贴如下代码：
Dim tmpRng As Range
Dim xL, xT, xB, xR As Integer
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If xL 0 Then
With tmpRng.Borders(xlEdgeLeft)
.LineStyle = xL
.ColorIndex = xlAutomatic
End With
With tmpRng.Borders(xlEdgeTop)
.LineStyle = xT
.ColorIndex = xlAutomatic
End With
With tmpRng.Borders(xlEdgeBottom)
.LineStyle = xB
.ColorIndex = xlAutomatic
End With
With tmpRng.Borders(xlEdgeRight)
.LineStyle = xR
.ColorIndex = xlAutomatic
End With
End If
Set tmpRng = Target
xL = Target.Borders(xlEdgeLeft).LineStyle
xT = Target.Borders(xlEdgeTop).LineStyle
xB = Target.Borders(xlEdgeBottom).LineStyle
xR = Target.Borders(xlEdgeRight).LineStyle
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 33
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 33
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 33
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 33
End With
End Sub
回到excel，看是否为你所说。

畜生，真是无聊！

每周营养食谱

（一）

肉末菜粥，豆沙包，芹菜豆腐干。

肉末菜粥：粳米．糯米．肉末．菠菜．胡萝卜。

豆沙包：面粉．赤豆沙．果脯．猪油。

芹菜豆腐干：芹菜．豆腐干丝．茭白丝．香菇。

（二）

燕麦粥，菜肉包，什锦泡菜。

燕麦粥：燕麦片．火腿丝．胡萝卜末．香菜。

菜肉包：面粉．肉末．腌小白菜．豆腐干．香菇。

什锦泡菜：大白菜．榨菜．小黄瓜．辣椒等。

（三）

黑枣粥，鲜肉小笼，苣笋豆干。

黑枣粥：粳米．糯米．马芽枣．核桃。

鲜肉小笼：面粉．肉末．冬笋．香菇。

苣笋豆干：苣笋．豆腐干．胡萝卜．香菇。

（四）

皮蛋粥，果酱包，雪菜肉末。

皮蛋粥： 粳米．糯米．皮蛋．芹菜．火腿。

果酱包：面粉．果酱．核桃．牛奶。

雪菜肉末：雪菜．肉末．土豆．胡萝卜。

（五）

菜肉馄饨，白果糕．鹌鹑蛋。

菜肉馄饨：面粉．肉末．腌小白菜．香菇．姜。

白果糕：糯米．粳米．白果．核桃．葡萄干。

鹌鹑蛋：鹌鹑蛋．绿豆芽．青椒丝。

（六）

牛奶果羹，鲜肉青团，牛肉土豆丁。

牛奶果羹：牛奶．苹果．桔子．葡萄干。

鲜肉青团：糯米．青菜汁．肉末．香菇．冬笋．火腿末。

牛肉土豆丁：牛肉．土豆．胡萝卜．圆椒。

你应该现介绍你的个人情况再问食谱

---

专家请进视频