Excel实用技巧接龙游戏！

kmhong

一条斜线可用设置单元格格式的边宽实现，二条以上用直线划上（文字用ctrl+enter分行）

田欣

怎么取消以前生成的批注啊？

还有怎么改变批注标示的颜色呢？

请支招！谢了

dldldl

QUOTE:

以下是引用sunnet在2002-11-6 8:02:00的发言：
No. 2
文本输入时，避免在字符串前后无意输入多余的空格
----------------------------------------------
假如在 B 列输入，选中 B 列，菜单中，
数据→有效性→设置→自定义→公式，输入公式：=B1=TRIM(B1)，确定。

我想知道，如何避免字符串中间多余的空格。

dldldl

QUOTE:

以下是引用carfield在2003-4-14 15:19:00的发言：
插入行只同时使用car和"+"就可以了吧,一定要用shift么?l

加shift是指的大键盘，由于+号在上面，需要配合shift才能选中，如果使用数字小键盘，则不需要！

dldldl

QUOTE:

以下是引用alesan在2003-5-25 11:51:00的发言：
我还是不会用平方立方上标，请祥细说明一下，谢谢！

按住alt不松手，在小键盘上输入178,此时不要按enter，松开alt，即可。

rootsen

选中所有单元格，ctrl＋鼠标，可以调整所有行列的宽度

Feida

请教高手：

求助一个问题：

有人将其它格式的数据转换到EXCEL中，部分数据如下：

1	130.0
2	32.0
3	90.0
4	95.0
5	70.0
6	42.0
7	51.0
8	59.4
9	22.0
10	0.00

其中第10行应为上述9个数字之和，其公式为=SUM(B1:B9)，但却显示为0.00。

后来，虽然找到了问题原因，就是每个数字之后多了个不可见字符；也有了解决办法，就是把该不可见字符通过函数去掉。但不知有无更简洁的方法，请高手指点。不胜感谢！

silentorigin

QUOTE:

以下是引用91019在2003-5-11 19:23:00的发言：
年龄计算=DATEDIF(A2,today(),"y")&"周岁"

不明白，Ａ２是输入什么，ｙ是取值，还是默认系统时间，谢谢请指教

kakamol

CTRL+G，输入A11:A65536,再点格式 行高，输入0，可隐藏11行以后的所有行，列隐藏同上，可实现只留下一个表的位置，方便操作

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

我是新手，请大家多多关照，从大家那学来的呵呵

drinkingsnow

QUOTE:

以下是引用zliming在2003-3-27 15:13:00的发言：
请教如何将许多EXCEL文件合并成为一个文件（每个文件只有一个SHEELT，而且列是相同的，行则有多有少）

Sub BBGB()
'
' QinZJ ? 2005/12/27 絪?
'
    TotalFileName = ActiveWorkbook.Name
    MyPath = ActiveWorkbook.Path & "\"
    MyPathLong = Len(MyPath)
  
    ChDir MyPath
   
    Application.ScreenUpdating = False
   
    Set fs = Application.FileSearch
   
    With fs
        .LookIn = MyPath
        .Filename = "*.xls"
   
        If .Execute > 0 Then
       
            MyCounts = .FoundFiles.Count
           
            For i = 1 To MyCounts
                MyFileName = .FoundFiles(i)
                If MyFileName <> MyPath & TotalFileName Then
                   
                    Workbooks.Open Filename:=MyFileName
                    Sheets.Copy Before:=Workbooks(TotalFileName).Sheets(1)
                    MyFileNameLong = Len(MyFileName)
                    MyWindowsName = Right(MyFileName, MyFileNameLong - MyPathLong)
                    Windows(MyWindowsName).Activate
                    ActiveWindow.Close
                                       
                End If

            Next
        End If
    End With
   
    Application.ActiveWorkbook.Save
   
    Application.ScreenUpdating = True
       
End Sub
Sub arrange()

'蹲羆?虫
   
    '?﹍て
    MyUnit = 200
    MyStart = 4
    MySortColumn = "d"
    TotalName = "Total"
  
   '?虫蹲羆
    MyCounts = Application.Worksheets.Count
       
    Sheets(TotalName).Cells.Delete
    Sheets(1).Range("A1:IV" & MyStart - 1).Copy
    Sheets(TotalName).Range("A1:IV" & MyStart - 1).PasteSpecial Paste:=xlValues, Operation:=xlNone
   
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
   
    For i = MyCounts - 1 To 1 Step -1
        Sheets(i).Select
        Range("A" & MyStart & ":IV" & MyUnit).Select
        Selection.Copy
        Sheets(TotalName).Select
        Range("A" & i * MyUnit + MyStart).Select
        Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone
        Sheets(i).Select
        ActiveWindow.SelectedSheets.Delete
    Next
   
    Columns("A:IV").Select
    Selection.Sort Key1:=Range(MySortColumn & "2"), Order1:=xlDescending, Header:=xlYes, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Cells.EntireColumn.AutoFit
   
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
   
End Sub