回复：Excel 百问百答(不断添加中)

回复：1037楼
还有点错误，对于重复日期的不成立。即一个日期中对应两个或两个以上姓名时会发生错误。

回复：1038楼
用Shell打开PPT，我这里没有装PowerPoint,所以不能测试你说的复制问题。

回复：1039楼
没用过条形码一类的软件，你看看能否通过VBAProject引用来完成。

回复：1031、1037、1040楼
Sheet1不变:
      2010-11-1     2010-11-2     2010-11-3 ...... 2010-11-30
王某
刘某
张某
陈某
李某
周某
黄某
伍某
谢某
肖某
Sheet2 :
加班日期     姓名                            
2010-11-1     刘某     陈某     黄某     周某     谢某     王某     张某    
2010-11-2     王某                            
2010-11-3     黄某                            
2010-11-4     王某                            
2010-11-5     张某     陈某     黄某     周某     谢某     刘某        
2010-11-6     陈某     刘某     李某                    
......
2010-11-30 ...........
===================================================
用VBA来解决这个问题：
Dim ReadDate, ReadName As String
Sheet2.Activate
LastRow = 30 '本月总共天数
N = 10 'N为总人数
For i = 2 To LastRow + 1
   ReadDate = Cells(i, 1)
     LastCol = Range("A" & i).End(xlToRight).Column
     If LastCol <> 1 Then  
         For j = 2 To LastCol   
         ReadName = Cells(i, j)
             For k = 3 To N + 2
                 If Sheet1.Range("A" & k) = ReadName Then
                   Sheet1.Cells(k, i) = "加班"
                 End If
             Next k
         Next j
     End If
Next i
End Sub

回复：1043楼
需要有可供添加的.Dll、.ocx等。

回复：1044楼
以前回答过类似问题，自己找找吧。

回复：1045楼
当然可以的。

回复：1050楼
取消分页:
点击菜单:
页面布局\分隔符\重设所有分页符
或者用宏来解决:
Sub 取消分页()
ActiveSheet.ResetAllPageBreaks
End Sub
关于图片上传不了百度空间:
原因有很多:
A、网速慢
B、服务器出了问题
C、你的文件太大
D、百度不支持的文件格式
E、受某种原因屏蔽，如杀毒软件
.....

回复：1054楼
如果Sheet1上只有Textbox,则删除所有Shape就可以了:
Sub 删除所有的Shape()
Sheet1.Shapes.SelectAll
Selection.Delete
End Sub
如果上面还有其它的Shape,则这样:
Sub 删除所有Sheet上的文本框()
For Each x In Sheet1.Shapes
If Left(x.Name, 7) = "TextBox" Then
     x.Delete
End If
Next x
End Sub

回复：30楼
作业吧?为什么同样的问题总是有人在问?前面回答过的,你自己查吧.
另前面已经说过,本人一般不回答作业的问题.

问:
怎样让Excel一打开就弹出一个窗体,窗体上显示:"你的用户名是:XXXXXXXX"
答:
先在VBE中建立一个模块,把下列代码加入模块中:
Private Declare Function GetUserName Lib "advapi32.dll" _
Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Function NTDomainUserName() As String
Dim strBuffer As String * 255
Dim lngBufferLength As Long
Dim lngRet As Long
Dim strTemp As String
Application.Volatile
lngBufferLength = 255
strBuffer = String(255, 0)
lngRet = GetUserName(strBuffer, lngBufferLength)
strTemp = (Left(strBuffer, lngBufferLength - 1))
NTDomainUserName = strTemp
End Function
在资源管理器中双击ThisWorkbook,然后添加如下代码:
Private Sub Workbook_Open()
MsgBox "您的用户名是：" & NTDomainUserName
End Sub
存盘退出后,再打开这个Excel文件,就会弹出这样的窗体了.

回复：1059楼
就题答题应该是很简单的问题,不过要是A1是变化的,如A1为100pcs时,是不是也取2.5元?你是不是应该给我一个具体的区间?这样就严谨多了.进一步的来说A1如果是5000cps,要求应该是取何值?
===============================
因为你没有不等式的区间,所以直接写值就是答案.

回复：1061、1062楼
应该是一条语句就搞定了。

回复：1065楼
设成文本格式就可以了，或在前面加一个半角的撇号：'

回复：1068楼
最小值是已知的，实际上只要调9个数，使它满足条件，如这样10个数就是满足条件的：
28.5（固定数）
30
28.6
29
29.2
31.5
30.4
30.7
31.5
31.65
给你一个思路：
将10个数据放在A列，B列（或其它列）是标准偏差的具体计算式。
可以用程序随机产生9个数（也可以先考虑固定几个数，而只使少数几个数变动），然后通过程序判断它是否满足条件，不满足则放弃，满足则保存下来。