为什么会出现这种情况呢？原因很简单：当窗体的尺寸缩放(如最大化)时，窗体内的控件的尺寸以及在窗体内的相对位置没有得到相应的调整。事实上，窗体和控件的大小分别是由窗体和控件的Width属性和Height属性确定的。所以，当程序界面设计完成之后，窗体及其内部各控件的Width、Height属性便随之确定下来；从而窗体相对于每一个控件，它们的宽度之比、高度之比也被确定下来。
   例如：如果窗体Form1内的一个文本框控件Text1的宽度(Width)为3600，高度(Height)为1900，；而窗体Form1的这两个值分别为4900和3700，则它们的宽度之比和高度之比分别为：3600／4900、1900／3700。而当用户在程序启动后调整了窗体的尺寸，则窗体的宽度和高度分别为Form1.ScaleWidth和Form1.ScaleHeight。由此可以看出，要保证控件与窗体之间的原有比例，只要按比例来调整文本框控件Text1的高度和宽度值即可。即：

　　调整后的Text1的Width值Κ(3600／4900)×Form1.ScaleWidth

　　调整后的Text1的Height值Κ(1900／3700)×Form1.ScaleHeight

　　将上面的例子中得出的结论推而广之：一般而言，当窗体尺寸调整后，窗体内控件的尺寸应按以下公式同步进行调整：调整后的控件的Width值Κ(控件原Width值／窗体原Width值)×窗体.ScaleWidth；调整后的控件的Height属性值Κ(控件原Height值／窗体原Height值)×窗体.ScaleHeight。

　　窗体尺寸缩放的同时，窗体内的控件在窗体中的相对位置应如何同步调整呢？控件在窗体中的位置由该控件的Left和Top属性确定。程序启动后如果窗体被缩放，只要按照缩放的比例来重新调整窗体内各控件的Left和Top属性值即可。因此，根据上面介绍的同步调整控件尺寸的原理，在窗体被缩放的同时，只要按照下面的关系来设置控件的Left和Top值即可；调整后控件的Left值Κ(控件原Left值／窗体原Left值)×窗体.ScaleWidth；调整后控件的Top值Κ(控件原Top值／窗体原Top值)×窗体.ScaleHeight。

　　上面谈了控件与窗体同步缩放及保持相对位置的原理，下面看看在VB程序中实现的具体方法。我们知道，Resize事件是窗体响应的一个事件；当窗体第一次显示或当窗体的状态被改变时(如窗体被最大化、最小化或被还原时)该事件发生。所以，只要将对控件大小和位置的调整代码写入窗体的Resize事件中便可达到目的。具体可在窗体的Re size事件过程中使用对象的Move方法：

　　PrivateSubForm-Resize()

　　Object.moveNewleft，Newtop，NewWidth，NewHeight

　　EndSub

　　其中：Object是需要调整大小和位置的任意一个控件的名称；NewLeft、NewTop、NewWidth与NewHeight分别是窗体缩放后控件应有的新的Left、Top、Width与Height的属性值，它们确定了当窗体被缩放后控件的大小和位置。NewWidth、NewHeight、NewLeft和NewTop可直接使用文中给出的相应公式的表达式。

　　最后要注意的是，不要对窗体内的不可见控件(如果有的话)进行类似的处理，否则会出错。

Option Explicit
Private InitWidth As Long       ' Form 的原始大小
Private InitHeight As Long

Private Sub Form_Load()
InitWidth = ScaleWidth
InitHeight = ScaleHeight
Dim Ctl As Control
' 记录每个 Control 的原始位置、大小、字型大小, 放在 Tag 属性中
On Error Resume Next '确保left, top, width, height, Tag属性没有全有的Control
For Each Ctl In Me   '也能正常执行
    Ctl.Tag = Ctl.Left & " " & Ctl.Top & " " & Ctl.Width & " " & Ctl.Height & " "
    Ctl.Tag = Ctl.Tag & Ctl.FontSize & " "
Next Ctl
On Error GoTo 0
End Sub

Private Sub Form_Resize()
Dim D(4) As Double
Dim I As Long
Dim TempPos As Long
Dim StartPos As Long
Dim Ctl As Control
Dim TempVisible As Boolean
Dim ScaleX As Double
Dim ScaleY As Double

ScaleX = ScaleWidth / InitWidth
ScaleY = ScaleHeight / InitHeight
On Error Resume Next
For Each Ctl In Me
    TempVisible = Ctl.Visible
    Ctl.Visible = False
    StartPos = 1
    ' 读取 Control 的原始位置、大小、字型大小
    For I = 0 To 4
        TempPos = InStr(StartPos, Ctl.Tag, " ", vbTextCompare)
        If TempPos > 0 Then
            D(I) = Mid(Ctl.Tag, StartPos, TempPos - StartPos)
            StartPos = TempPos + 1
        Else
            D(I) = 0
        End If
        ' 根据比例设定 Control 的位置、大小、字型大小
        Ctl.Move D(0) * ScaleX, D(1) * ScaleY, D(2) * ScaleX, D(3) * ScaleY
        'Ctl.Width = D(2) * ScaleX
        'Ctl.Height = D(3) * ScaleY
        If ScaleX < ScaleY Then
            Ctl.FontSize = D(4) * ScaleX
        Else
            Ctl.FontSize = D(4) * ScaleY
        End If
    Next I
    Ctl.Visible = TempVisible
Next Ctl
On Error GoTo 0
End Sub

Excel使用技巧全攻略

    53条EXCEL使用技巧

01、如何在已有的单元格中批量加入一段固定字符？
例如：在单位的人事资料，在excel中输入后，由于上级要求在原来的职称证书的号码全部再加两位，即要在每个人的证书号码前再添上两位数13，如果一个一个改的话实在太麻烦了，那么我们可以用下面的办法，省时又省力：

    1）假设证书号在A列，在A列后点击鼠标右键，插入一列，为B列；

   2）在B2单元格写入： ="13" & A2 后回车；

   3）看到结果为 13xxxxxxxxxxxxx 了吗？鼠标放到B2位置，单元格的下方不是有一个小方点吗，按着鼠标左键往下拖动直到结束。当你放开鼠标左键时就全部都改好了。 若是在原证书号后面加13 则在B2单元格中写入：=A2 & “13” 后回车。

02、如何设置文件下拉窗口的最下面的最近运行的文件名个数？

 打开“工具”，选“选项”，再选“常规”，在“最近使用的文件清单”下面的文件个数输入框中改变文件数目即可。若不在菜单中显示最近使用的文件名，则将“最近使用的文件清单”前的复选框去掉即可。

03、在EXCEL中输入如“1-1”、“1-2”之类的格式后它即变成1月1日，1月2日等日期形式，怎么办？

 这是由于EXCEL自动识别为日期格式所造成，你只要点击主菜单的“格式”菜单，选“单元格”，再在“数字”菜单标签下把该单元格的格式设成文本格式就行了。

04、在EXCEL中如何使它象WORD一样的自动定时保存文件？

 点击“工具”菜单“自动保存”项，设置自动保存文件夹的间隔时间。如果在“工具”菜单下没有“自动保存”菜单项，那么执行“工具”菜单下“加载宏...”选上“自动保存”，“确定”。然后进行设置即可。

05、用Excel做多页的表格时，怎样像Word的表格那样做一个标题，即每页的第一行（或几行）是一样的。但是不是用页眉来完成？

 在EXCEL的文件菜单－页面设置－工作表－打印标题；可进行顶端或左端标题设置，通过按下折叠对话框按钮后，用鼠标划定范围即可。这样Excel就会自动在各页上加上你划定的部分作为表头。

06、在Excel中如何设置加权平均？

 加权平均在财务核算和统计工作中经常用到，并不是一项很复杂的计算，关键是要理解加权平均值其实就是总量值（如金额）除以总数量得出的单位平均值，而不是简单的将各个单位值（如单价）平均后得到的那个单位值。在Excel中可设置公式解决（其实就是一个除法算式），分母是各个量值之和，分子是相应的各个数量之和，它的结果就是这些量值的加权平均值。

07、如果在一个Excel文件中含有多个工作表，如何将多个工作表一次设置成同样的页眉和页脚？如何才能一次打印多个工作表？

 把鼠标移到工作表的名称处（若你没有特别设置的话，Excel自动设置的名称是“sheet1、sheet2、sheet3.......”），然后点右键，在弹出的菜单中选择“选择全部工作表”的菜单项，这时你的所有操作都是针对全部工作表了，不管是设置页眉和页脚还是打印你工作表。

08、EXCEL中有序号一栏，由于对表格进行调整，序号全乱了,可要是手动一个一个改序号实在太慢太麻烦，用什么方法可以快速解决？

 如果序号是不应随着表格其他内容的调整而发生变化的话，那么在制作EXCEL表格时就应将序号这一字段与其他字段分开，如在“总分”与“排名”之间空开一列，为了不影响显示美观，可将这一空的列字段设为隐藏，这样在调整表格（数据清单）的内容时就不会影响序号了。

09、用Excel2000做成的工资表，只有第一个人有工资条的条头（如编号、姓名、岗位工资.......)，想输出成工资条的形式。怎么做？

 这个问题应该这样解决：先复制一张工资表，然后在页面设置中选中工作表选项，设置打印工作表行标题，选好工资条的条头，然后在每一个人之间插入行分页符，再把页长设置成工资条的高度即可。 使用自定义方式重装了一遍中文office，Excel的打印纸选项中只有A4一种，怎么办？ 随便安装一个打印机驱动程序就可以了。

10、在Excel中小数点无法输入，按小数点，显示的却是逗号，无论怎样设置选项都无济于事，该怎么办？

 这是一个比较特殊的问题，我曾为此花了十几个小时的时间，但说白了很简单。在Windows的控制面板中，点击“区域设置”图标，在弹出的“区域设置属性”对话面板上在“区域设置”里选择“中文（中国）”，在“区域设置属性”对话面板上在“数字”属性里把小数点改为“.”（未改前是“，”），按“确定”按钮结束。这样再打开Excel就一切都正常了。

11、如何快速选取特定区域？

 使用F5键可以快速选取特定区域。例如，要选取A2：A1000，最简便的方法是按F5键，出现“定位”窗口，在“引用”栏内输入需选取的区域A2：A1000。

12、如何快速返回选中区域？

 按Ctr+BacksPae（即退格键）。

13、如何快速定位到单元格？

 方法一：按F5键，出现“定位”对话框，在引用栏中输入欲跳到的单元格地址，单市“确定”按钮即可。

 方法二：单击编辑栏左侧单元格地址框，输入单元格地址即可。

 
14、“Ctrl＋*”的特殊功用

 一般来说，当处理一个工作表中有很多数据的表格时，通过选定表格中某个单元格，然后按下 Ctrl＋* 键可选定整个表格。Ctfl＋* 选定的区域是这样决定的：根据选定单元格向四周辐射所涉及到的有数据单元格的最大区域。

15、如何快速选取工作表中所有包含公式的单元格？

 有时，需要对工作表中所有包含公式的单元格加以保护，或填入与其他单元格不同的颜色，以提醒用户注意不能在有此颜色的区域内输入数据。以下方法可以帮助快速选取所有包含公式的单元格：选择“编辑”\“定位”，单击“定位条件”按钮，在“定位条件”对话框中选择“公式”项，按“确定”按钮即可。

16、如何在不同单元格中快速输入同一数内容？

 选定单元格区域，输入值，然后按 Ctrl＋ Ener键，即可实现在选定的单元格区域中一次性输入相同的值。

17、只记得函数的名称，但记不清函数的参数了，怎么办？

 如果你知道所要使用函数的名字，但又记不清它的所有参数格式，那么可以用键盘快捷键把参数粘贴到编辑栏内。

 具体方法是：在编辑栏中输入一个等号其后接函数名，然后按 Ctr＋ A键，Excel则自动进入“函数指南——步骤 2之2”。当使用易于记忆的名字且具有很长一串参数的函数时，上述方法显得特别有用。

18、如何把选定的一个或多个单元格拖放至新的位置？

 按住Shift键可以快速修改单元格内容的次序。

 具体方法是： 选定单元格，按下Shift键，移动鼠标指针至单元格边缘，直至出现拖放指针箭头（空心箭头），然后按住鼠标左键进行拖放操作。上下拖拉时鼠标在单元格间边界处会变为一个水平“工”状标志，左右拖拉时会变为垂直“工”状标志，释放鼠标按钮完成操作后，选定的一个或多个单元格就被拖放至新的位置。

19、如何让屏幕上的工作空间变大？

 可以将不用的工具栏隐藏，也可以极大化Excel窗口，或者在“视图”菜单中选择“全屏显示”命令。

20、如何使用快显菜单？

 快显菜单中包括了一些操作中最常用的命令，利用它们可以大大提高操作效率。首先选定一个区域，然后单击鼠标右健即可调出快显菜单，根据操作需要选择不同命令。

21、如何使用快显菜单？

 快显菜单中包括了一些操作中最常用的命令，利用它们可以大大提高操作效率。首先选定一个区域，然后单击鼠标右健即可调出快显菜单，根据操作需要选择不同命令。

22、如何防止Excel自动打开太多文件？

 当Excel启动时，它会自动打开Xlstart目录下的所有文件。当该目录下的文件过多时，Excel加载太多文件不但费时而且还有可能出错。解决方法是将不该位于Xlstart目录下的文件移走。另外，还要防止EXcel打开替补启动目录下的文件：选择“工具”\“选项”\“普通”，将“替补启动目录”一栏中的所有内容删除。

23、如何去掉网格线？

    1）除去编辑窗口中的表格线

      单击“工具”菜单中的“选项”，再选中“视图”，找到“网格线”，使之失效；

    2）除去打印时的未定义表格线

    有时会出现这样的情况：你在编辑时未定义的表格线（在编辑窗中看到的也是淡灰色表格线），一般情况下在打印时是不会打印出来的，可有时却偏偏不听使唤给打印出来了，特别是一些所谓的“电脑”VCD中编辑的Excel表格更是这样。要除去这些表格线，只要在单击“文件”、“页面设置”、“工作表”菜单，点击一下“网格线”左边的选择框，取消选择“网格线”就行了。

24、如何快速格式化报表？

 为了制作出美观的报表，需要对报表进行格式化。有快捷方法，即自动套用Excel预设的表格样式。方法是： 选定操作区域，选取“格式”菜单中的“自动套用格式”命令，在格式列表框中选取一款你满意的格式样式，按“确定”按钮即可。要注意的是，格式列表框下面有包括“数字”、“边框线”、“字体”等6个“应用格式种类”选项，若某项前面的“x”不出现，则在套用表格样式时就不会用该项。

25、如何快速地复制单元格的格式？

 要将某一格式化操作复制到另一部分数据上，可使用“格式刷”按钮。选择含有所需源格式的单元格，单击工具条上的“格式刷”按钮，此时鼠标变成了刷子形状，然后单击要格式化的单元格即可将格式拷贝过去。

26、如何为表格添加斜线？

 一般我们习惯表格上有斜线，而工作表本身并没有提供该功能。其实，我们可以使用绘图工具来实现： “绘图”按钮，选取“直线”，鼠标变成十字型．将其移至要添加斜线的开始位置，按住鼠标左键拖动至终止位置，释放鼠标，斜线就画出来了。另外，使用“文字框”按钮可以方便地在斜线上下方添加文字，但文字周围有边框，要想取消它，可选中文字框，调出快显菜单，选择“对象格式”\“图案”，选择“无边框”项即可。

27、如何快速地将数字作为文本输入？

 在输入数字前加一个单引号“’”，可以强制地将数字作为文本输入。

28、如何定义自己的函数？

 用户在Excel中可以自定义函数。切换至 Visual Basic模块，或插入一页新的模块表（Module），在出现的空白程序窗口中键入自定义函数VBA程序，按Enter确认后完成编 写工作，Excel将自动检查其正确性。此后，在同一工作薄内，你就可以与使用Exed内部函数一样在工作表中使用自定义函数，如：

Function Zm(a)

If a＜ 60 Then im＝‘不及格

局域网共享故障的分析与排除

IPC、Server服务与共享故障
IPC（Internet Process Connection），IPC是NT以上的系统为了让进程间通信而开放的命名管道，可以通过验证用户名和密码获得相应的权限，在远程管理计算机和查看计算机的共享资源时使用，微软把它用于局域网功能的实现，如果它被关闭，计算机就会出现“无法访问网络邻居”的故障。
在Windows NT以后的系统里，IPC是依赖于Server服务运行的，一些习惯了单机环境的用户可能会关闭这个服务，这样的后果就是系统将无法提供与局域网有关的操作，用户无法查看别人的计算机，也无法为自己发布任何共享。
要确认IPC和Server服务是否正常，可以在命令提示符里输入命令net share，如果Server服务未开启，系统会提示“没有启动 Server 服务。是否可以启动? (Y/N) [Y]:”，回车即可以启动Server服务。如果Server服务已开启，系统会列出当前的所有共享资源列表，其中至少要有名为“IPC$”的共享，否则用户依然无法正常使用共享资源。
除了Server服务以外，还有两个服务会对共享造成影响，分别是“Computer Browser”和“TCP/IP NetBIOS Helper Service”，前者用于保存和交换局域网内计算机的NetBIOS名称和共享资源列表，当一个程序需要访问另一台计算机的共享资源时，它会从这个列表里查询目标计算机，一旦该服务被禁止，IPC就认定当前没有可供访问的共享资源，用户自然就没法访问其他计算机的共享资源了；后者主要用于在TCP/IP上传输的NetBIOS协议（NetBT）和NetBIOS名称解析工作，NetBT协议为跨网段实现NetBIOS命令传输提供了载体，正因如此，早期的黑客入侵教材里“关于139端口的远程入侵”才能实现，因为NetBIOS协议被TCP封装起来通过Internet传输到对方机器里处理了，同样对方也是用相同途径实现数据传输的，否则黑客们根本无法跨网段使用网络资源映射指令“net use”。虽然对于本地局域网来说，NetBT协议并非任何时候都会用到，但通常还是留着它比较好。
如果这两个服务异常终止，局域网内的共享可能就无法正常使用，这时候我们可以通过执行程序“services.msc”打开服务管理器，在里面查找“Computer Browser”和“TCP/IP NetBIOS Helper Service”服务并点击“启动”即可。

系统安全策略与共享故障
熟悉Windows系统的用户或多或少都会接触到“组策略”（gpedit.msc），这里实际上是提供了一个比手工修改注册表更直观的操作方法来设置系统的一些功能和用户权限，但是这里的设置失误也会影响到局域网共享资源的使用。
由于IPC本身就是用于身份验证的，因此它对计算机账户的配置特别敏感，而组策略里偏偏就有很多方面的设置是针对计算机账户的，其中影响最大的要数“计算机配置 – Windows配置 – 安全设置 – 本地策略 – 用户权利指派”里的“拒绝从网络访问这台计算机”，在Windows 2000系统里默认是不做任何限制的，可是自从XP出现后，这个部分就默认多了两个帐户，一个是用于远程协助（也就是被简化过的终端服务）身份登录的3389用户名，另一个则是我们局域网共享的基本成员guest！
许多使用XP系统的用户无法正常开启共享资源的访问权限，正是这个项目的限制，解决方法也很容易，只要从列表里移除“Guest”帐户就可以了。
除了与帐户相关的策略，这里还有几个与NetBIOS和IPC相关的组策略设置，它们是位于“计算机配置 – Windows配置 – 安全设置 – 本地策略 – 安全选项”里的“对匿名连接的额外限制”（默认为“无”），对于XP以上的系统，这里还有“不允许SAM账户和共享的匿名枚举”（默认为“已停用”）、“本地账户的共享和安全模式”（默认为“仅来宾”），其中“对匿名连接的额外限制”的设置是可以直接扼杀共享功能的，当它被设置为“不允许枚举”时，其他计算机就无法获取共享资源列表，如果它被设置为“没有显式匿名权限就无法访问”的话，这台计算机就与共享功能彻底告别了，所以有时候实在找不出故障，不妨检查一下该项目。

权限与共享的冲突
如今的局域网普遍建立在Windows 2000以上的系统架构上运行，而且IPC的作用本来就是为了提供身份验证，因而共享始终离不开权限的影子，何况如果系统不会把文件共享的访问身份设置为最小权限的来宾帐户的话，别有用心的访问者就能轻易夺取管理员级别了。但是也正因为这样，一些时候权限反而会成为阻挠共享顺利进行的罪魁祸首。

细心的用户如果点击了共享资源属性里的“权限”界面，可能会发现系统已经自动给这里添加了“Everyone”权限，这是个特殊权限，它的存在是为了让用户能访问被标记为“公有”的文件，这也是一些程序正常运行需要的访问权限，任何人都能正常访问被赋予“Everyone”权限的文件，包括来宾组成员。
但是有时候这个理论会因某种原因而产生混乱，进而导致来宾组成员丧失了访问权限，这时候，用户只能手工为它添加一个“guest”的访问权限了。在一些系统上，甚至要添加“Users”或“Administrators”权限才能实现文件共享，但是对于这种权限指派已经严重混乱的系统，小金建议还是重新安装一个算了。
对于Windows XP系统，它默认是仅仅给共享显示一个简单的界面而已，如果你要自定义更多东西，就必须进入“控制面板”的“文件夹选项”里，取消“使用简单文件共享”的勾，而且这里还涉及到NTFS分区“安全”页设置的显示。

随着Windows XP的逐步推进以及安全概念的推广，越来越多用户开始使用NTFS格式作为自己的硬盘分区，这样就在IPC的用户身份验证模式上又增加了一种权限限制：NTFS权限。

一些刚接触NTFS分区的用户经常会发现，自己机器的共享和来宾帐户都开了，但是别人无论怎么访问都提示“权限不足”，即使给共享权限里添加了来宾帐户甚至管理员帐户也无效，这是为什么？归根究底还是因为在NTFS这部分被拦截了，用户必须理清一个概念，那就是无论你对某个项目的权限做了什么改动，都是磁盘权限最大，因为它是实现文件访问的最后一层防卫，系统不允许任何继承权限超越它，如果一个文件夹的权限只有“SYSTEM”，那么即使你当前登录的身份为管理员，你一样无法打开这个文件夹。而用于共享身份识别的IPC更是只有Guest权限，更是无法突破NTFS限制的。因此要获得正常的访问权限，除了做好共享目录的权限设置工作以外，还在共享目录上单击右键---属性----安全，在里面添加Guest和Everyone权限并设置相应的访问规则（完全控制、可修改、可读取等），如果没有其他故障因素，你就会发现共享正常开启访问了。

防火墙与共享的矛盾
现在基本上已经没有一台计算机是不曾安装网络防火墙和病毒防火墙的了，可是用户在众多的墙里享受安全特性的时候，偶尔也会发现局域网共享莫名其妙的失败了，如果用户留意到防火墙正在闪烁的报警状态，也许会发现日志上记录着“计算机x.x.x.x 试图访问本机139 – NetBIOS端口，该操作已被拦截”，这是为什么？因为防火墙把NetBIOS的通讯给拦截掉了，别忘记NetBIOS可是局域网通讯的基础。防火墙此举是为了阻止前面提到的利用NetBT进行的“139入侵”模式攻击，虽然防火墙规则里可能写着“允许局域网资源共享”，但是可能这条规则没被选中，或者防火墙没能认出这是一个局域网。
知道了缘由，解决起来也就容易多了，对于有原配规则设置的防火墙，只要勾上“允许局域网资源共享”，就能让NetBIOS协议正常通讯了，如果没有，就自己建立一个规则：协议方向为“入”，协议选择“TCP”，端口范围134—139，标志位“SYN”，满足时的规则为“通行”即可。一些XP系统内置的Windows防火墙ICF往往会掐了自家共享的脖子，如果是这样，就把它关掉，因为ICF始终比不过专门的防火墙，更别指望靠它抵挡一切入侵了。

特殊的共享故障
在一小部分机器里，网络共享是艰难的，它们怎么做也看不到对方的计算机和资源列表，但是使用一些局域网管理工具如LANExplorer、LANetAdmin等却能看到一切，对于这种计算机，只能通过直接输入资源名称或把对方共享资源通过net use命令给映射过来作为虚拟盘符才能工作，对于这种机器，我们也束手无策，只能这么凑合着使用了

修改hkey_local_machine\system\currentcontrolset\lsa右边的restrictanonymous值为0,然后重启电脑