取图案
ActiveSheet.Shapes("AutoShape 1").Select
For x = 1 To 800 Step 0.5
Selection.Left = x
Next
Selection.Left = 1
End Sub
在Excel中,如何用程控某一单元格不可编辑修改
解答:在 XP 中:
Private Sub Workbook_Open()
ProtectSpecialRange ("A1")
End Sub
Sub ProtectSpecialRange(RangeAddress As String)
On Error Rescom Next
With Sheet1
.Cells.Locked = False
.Range(RangeAddress).Locked = True
.Protection.AllowEditRanges.Add Title:="区域1", Range:=Range(RangeAddress) _
, Password:="pass"
.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End With
End Sub
CommandBars的OnUpdate事件
解答:'这类事件可预置:
'1.chā入类模块,并将其命名为 MyEventClass,键入:
Public WithEvents CommandBars As CommandBars
Private Sub CommandBars_OnUpdate()
'建议该用事件来处理自定义的 CommandBars 的变更,还要用在其它地方
If Sheet1.[a2] = 0 Then End '设置退出开关,以免不停地"OnUpdate"
Sheet1.[a1] = Now
End Sub
'2.在 Sheet1 中键入:
Dim myClassModule As New MyEventClass
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[a1].NumberFormatLocal = "h:mm:ss;@"'设定 A1 时间显示格式
Set myClassModule.CommandBars = Application.CommandBars
End Sub
多张工作表如何排序和查找
如果在一个文件book中有很多工作表,比如150个,每个都有自己 的名称,如果我想很快的找到我想要找的工作表,有没有什么方法?可以将工作表排序或查找吗?我们单位在做基本养老保险的工作,一个人一张表,要找到某个人很麻烦,希望高手帮忙,excel有这方面的功能吗?
解答:做个索引表,chā入超级链接来链接各表
或用宏:Sub 宏1()
Dim myIndexSheet As Worksheet, Sht As Worksheet, a As Long
Set myIndexSheet = Worksheets.Add
a = 1
For Each Sht In Worksheets
a = a + 1
myIndexSheet.Cells(a, "A").Value = Sht.Ncom
Sht.Hyperlinks.Add myIndexSheet.Cells(a, "A"), """" & Sht.Ncom & "!A1"""""
End With
Next Sht
End Sub(不行)
将表格的外框线和框内线条设置永久有效的方法
将表格的外框线和框内线条设置为不同格式,但在打印时却无法将每一页的底部外框线自动设为和其它三条边线一致,每次都必须手工设置(那可是几十页哦!),而且如果换一台打印机的话就会前功尽弃,怎么能够做到一劳永逸?
解答:打印文件前试试运行以下的代码。打印后关闭文件时不要存盘,否则下次要把格式改回来就痛苦了。(当然你也可以另写代码来恢复原来的格式):
Sub detectbreak()
mycolumn = Range("A1").CurrentRegion.Columns.Count
Set myrange = Range("A1").CurrentRegion
For Each mycell In myrange
Set myrow = mycell.EntireRow
If myrow.PageBreak = xlNone Then
GoTo Nex
Else
Set arow = Range(Cells(myrow.Offset(-1).Row, 1), Cells(myrow.Offset(-1).Row, mycolumn))
With arow.Borders(xlEdgeBottom)
.LineStyle = xlDouble '把这一行改成自己喜欢的表线
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
End If
Nex: Next mycell
End Sub
在VBA中UBound是什么意思
解答:ACCESS,你准备用UBOUND作什么呢?还是用MS自己说的:
UBound 函数
返回一个 Long 型数据,其值为指定的数组维可用的最大下标。
语法
UBound(arrayncom[, dcomnsion])
UBound 函数的语法包含下面部分:
部分 描述
arrayncom 必需的。数组变量的名称,遵循标准变量命名约定。
dcomnsion 可选的;Variant (Long)。指定返回哪一维的上界。1 表示第一维,2 表示第二维,如此等等。如果省略 dcomnsion,就认为是 1。
说明
UBound 函数与 LBound 函数一起使用,用来确定一个数组的大小。LBound 用来确定数组某一维的上界。
对具有下述维数的数组而言,UBound 的返回值见下表:
Dim A(1 To 100, 0 To 3, -3 To 4)
语句 返回值
UBound(A, 1) 100