按键盘上方向键 ← 或 → 可快速上下翻页，按键盘上的 Enter 键可回到本书目录页，按键盘上方向键 ↑ 可回到本页顶部！
————未阅读完？加入书签已便下次继续阅读！
I = 1
Do While MyName 〃〃
If MyName 〃。〃 And MyName 〃。。〃 Then
If （GetAttr（MyPath & MyName） And vbDirectory） = vbDirectory Then
Set F = Fs。getfolder（MyPath & MyName）
Sheets（1）。Cells（I； 1） = MyName
Sheets（1）。Cells（I； 2） = F。datecreated
I = I ＋ 1
End If
End If
MyName = Dir
439
…………………………………………………………Page 440……………………………………………………………
Loop
Sheets（1）。Range（〃A1：B〃 & I 1）。Sort _
key1：=Sheets（1）。Range（〃B1〃）； _
order1：=xlDescending； _
header：=xlNo
For J = 6 To I 1
Fs。DeleteFolder （MyPath & Sheets（1）。Cells（J； 1））
Next J
为什么我的 EXCEL 右键插入工作表功能没有了
解答：试试以下程式码
Sub Reset（）
mandBars（〃Ply〃）。Enabled = True
mandBars（〃Ply〃）。Reset
End Sub
如何使某一个固定的菜单项无效
例：要使 文件…》另存为 命令无效如何写？
解答：
Dim i As Integer
For i = 1 To Application。mandBars（〃File〃）。Controls。Count
If Application。mandBars（〃File〃）。Controls（i）。Caption = 〃另存为（&A）。。。〃 Then
Application。mandBars（〃File〃）。Controls（i）。Enabled = False
End If
Next i
又问：如果是不同版本呢，比如说是中文版和英文版，哪怎样才能通用呢？
解答：改成 Application。mandBars（〃File〃）。Controls（5）。Enabled = False 。中文版和英文版
通用。
如何将菜单内的名字改回默认的名字
Reset。
mandBars（〃My_tool_bar〃）。Controls（1）。Reset
VBA 中自制的弹出式快捷菜单上能用上我任意指定的图标吗
解答：Sub CreateCmdBar（）
Dim objBar As mandBar
Dim objctr As mandBarControl
'Begin insert ico
On Error Resume Next
Application。mandBars（〃ico〃）。Delete
On Error GoTo 0
ThisWorkbook。Sheets（〃Sheet1〃）。Shapes（〃pic〃）。Copy
Set objBar = Application。mandBars。Add（〃ico〃； msoBarFloating； False； False）
440
…………………………………………………………Page 441……………………………………………………………
Set objctr = objBar。Controls。Add
With objctr
。PasteFace '将图形 Copy 至按钮上
。Enabled = True
End With
objBar。Visible = True
End Sub
如何将自定义的组合下拉列表框加入自定义工具栏
Sub wswx（）
Dim i As mandBar； j As mandBarboBox
Set i = Application。mandBars。Add（〃wswx〃； ； ； True）
i。Visible = True
Set j = i。Controls。Add（msoControlboBox）
With j
。AddItem 〃First Item〃； 1
。AddItem 〃Second Item〃； 2
End With
End Sub
如何真正隐藏多余的行和列（只有有用的部分显示）
用 SHIFT ＋ CTRL ＋方向箭头，就可以选定区域，再隐藏就达到那种效果了。
EXCEL2K 输入公式只显示公式怎么办
把工具——选项——视图中“公式”前的勾去掉，格式改常规，鼠标定位到公式单元格并按
F2 ，回车。
关于日期的计算
各位高手：我在统计今年 1 月份里有多少个星期二， 用以下公式可以算出是 4 天，
｛=SUM（（WEEKDAY（DATE（2003；1；ROW（INDIRECT（〃1：31〃））））=3）*1）｝=4，但用以下公式统计 1
月 份 里 的 第 5 周 共 有 多 少 天 就 不 能 返 回 值 了 ， 请 问 是 为 什 么 呢 ？ ，
｛=SUM（（WEEKNUM（DATE（2003；1；ROW（INDIRECT（〃1：31〃））））=5）*1）｝=#value ！
解答：weeknum 不能用于数组公式。想解决此问题，可以用常量数组公式，如求 2003 年 11
月 的 第 4 周 有 多 少 天 ， 公 式 为 ：
=SUM（（MONTH（DATE（2003；11；1）…WEEKDAY（DATE（2003；11；1））＋｛1；2；3；4；5；6；7｝＋7*（4…1））=11）
*1）
可直接回车输入。
（公式解释：DATE（2003；11；1）…WEEKDAY（DATE（2003；11；1））是求指定月份 1 日所在星期的上一
个周末（星期六）的日期系列数，＋｛1；2；3；4；5；6；7｝＋7*（n…1））后就变为指定月份 1 日起（包含 1
日的周数）第n 周的 7 天的日期系列数数组，再用 month 函数判别是否是指定的月份，sum 函
数求总和，即指定月份指定第 n 周的天数。）
441
…………………………………………………………Page 442……………………………………………………………
在 EXCEL 中如何用公式编制一个乘数口诀表
我想问问编写乘数口诀表使用的那个公式在 excel 里是怎么写的，我想把它用在我的工
作表里。
具体地说，要求在 excel 工作表中，每个竖排中表格 b2=b1*a2； b3=b1*a3； b4=b1*
a4。。。。。。依此类推，共有 255 个 columns。 每个横排中，b2=b1*a2； c2=c1*a2； d2=d1
*a2。。。。。。也是依此类推，共有 255 行。
我现在能做到的最不笨的一种方式也要写 255 条公式。我想应该有一种公式的写法是能
够设定公式的第一项不变，第二项相应格子的号码改变。那么我可以写几个甚至是一个公式
就可以直接复制了。
解答：b2=b1*a2，再向下拖。=B1*A2 向右拖。
如何让 Excel 程序使用自定义的帮助文档
解答：
Option Explicit
Public Const SW_SHOWNORMAL = 1
Public Declare Function ShellExecute Lib 〃shell32。dll〃 Alias 〃ShellExecuteA〃 _
（ByVal hwnd As Long； ByVal lpOperation As String； ByVal lpFile As String； _
ByVal lpParameters As String； ByVal lpDirectory As String； ByVal nShowCmd As Long） As Long
sub dd（）
ShellExecute 0； 〃Open〃； ThisWorkbook。Path & 〃帮助文件。chm〃； 〃〃； 〃〃； SW_SHOWNORMAL
end sub
如何设定文本框的输入属性
我在excel 中放置了一个文本框〃textbox〃，如何设定该文本框的属性只能是数值，例如设定excel
单元格为货币一样。
解答 1：
Private Sub textbox_KeyPress（ByVal KeyAscii As MSForms。ReturnInteger）
If KeyAscii 《 48 Or KeyAscii 》 57 Then
MsgBox 〃必须输入数字〃； vbExclamation； 〃Warning！〃
SendKeys （〃｛backspace｝〃）
End If
End Sub
这是我程序中的例子
解答 2 ：能在 CHANG 事件中用 isnumeric（）函数判断是否是数值，在 exit 事件中用 format（）函
数将数值转换成货币格式。
442
…………………………………………………………Page 443……………………………………………………………
一个处理文本排序的自定义函数
下面是一个处理文本排序的自定义函数（数组），红字部分本人不太明白，为什么要用 Trans
pose 转换？请高手指点。
Function SORTED（rng； Optional ascending） As Variant
Dim SortedData（） As Variant
Dim CellCount As Long
Dim Temp As Variant； i As Long； j As Long
CellCount = rng。Count
ReDim SortedData（1 To CellCount）
If IsMissing（ascending） Then ascending = True
If rng。Columns。Count 》 1 Then
SORTED = CVErr（xlErrvalue）
Exit Function
End If
For i = 1 To CellCount
SortedData（i） = rng（i）
If TypeName（SortedData（i）） = 〃Empty〃 Then SortedData（i） = 〃〃
Next i
On Error Resume Next
For i = 1 To CellCount
For j = i ＋ 1 To CellCount
If SortedData（j） 〃〃 Then
If ascending Then
If SortedData（i） 》 SortedData（j） Then
Temp = SortedData（j）
SortedData（j） = SortedData（i）
SortedData（i） = Temp
End If
Else