饮水思源，基础操作题两三<题目更新至第21题，66楼公布至第19题答案>

hnnyywl

谢谢分享！不错

onewaystart

moon2778 发表于 2009-5-26 13:12
不能满足你的希望，不要什么东西都送到嘴巴里。自己努力。

菜鸟表示没有努力方向啊  不会啊

onewaystart

moon2778 发表于 2009-5-26 11:03
题二 练习单元格格式：将A1单元格用单元格格式，变成后面的样子，只能用单元格格式，不能改变单元格内容， ...

向上旋转/90	向下旋转 /-90	3
1	竖排文字	逆时针	顺时针
1	2	3

只解到这里了

onewaystart

ycqdq 发表于 2009-12-20 22:25
第二题做出来了,还发现了一点,看看对不对

这题会了 就是角度 换行 和@字体的应用 其中顺序还可以变化 太有意思了

onewaystart

ycqdq 发表于 2009-12-20 22:25
第二题做出来了,还发现了一点,看看对不对

为啥答案就到题二了 后面的答案呢

shenaishiren---

moon2778 发表于 2009-5-26 11:16
题三 合并单元格操作
只能用鼠标完成，不能使用键盘，完成排序。

楼主，请问第三题名称和版本数量怎么排序

shenaishiren---

moon2778 发表于 2009-5-26 11:03
题二 练习单元格格式：将A1单元格用单元格格式，变成后面的样子，只能用单元格格式，不能改变单元格内容， ...

楼主，我按着你给的答案试了一下第二题，但是旋转出来的是不一样的，第一遍成功，后面再试就不成功了？这是为什么？

bruceymh

第六题中两次点击自动换行的原理是什么呢

excel小白2333

楼主这是我第一题的代码
思路应该大体没有问题，可能是代码格式写错了，不好去找
你能指点我一二吗？

Sub 题目查找替换()

Dim i, j As Integer, a As Variant, rng As Range

   For i = 3 To 7
    For j = 1 To 4
        a = Sheets(1).Cells(i, j).Value
        Select Case a
            Case Is = "*50*"
            Range(i, j).Select
            Selection.Replace What:="50", Replacement:="55", LookAt:=xlPart
            Range(i, j).Interior.ColorIndex = 2
            
            Case Is = "*~~*"
            Range(i, j).Select
            Selection.Replace What:="~~", Replacement:="00", LookAt:=xlPart
            Range(i, j).Interior.ColorIndex = 44
            
            Case Is = "* *"
            Range(i, j).Select
            Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart
            Range(i, j).Interior.ColorIndex = 32
            
            Case Is = "*~**"
            Range(i, j).Select
            Selection.Replace What:="~*", Replacement:="哈哈", LookAt:=xlPart
            Range(i, j).Interior.ColorIndex = 43
            
            Case Is = "**王**"
            Range(i, j).Select
            Selection.Replace What:="*王*", Replacement:="丫丫", LookAt:=xlPart
            Range(i, j).Interior.ColorIndex = 45
            
            Case Is = "*A*"
            Range(i, j).Select
            Selection.Replace What:="A", Replacement:="Z", LookAt:=xlPart
            Range(i, j).Interior.ColorIndex = 7
            
            Case Is = "*R??*"
            Range(i, j).Select
            Selection.Replace What:="R??", Replacement:="-LOAD", LookAt:=xlPart
            Range(i, j).Interior.ColorIndex = 12
            
            Case Is = "*~??*"
            Range(i, j).Select
            Selection.Replace What:="~??", Replacement:="AA", LookAt:=xlPart
            Range(i, j).Interior.ColorIndex = 8
            
        End Select
    Next
Next
End Sub

excel小白2333

不好意思，我以为是让我们使用VBA去做，原来是基本操作，不过楼主可以帮我把代码完善一下吗？