VBA操作Excel代码收集
来源:互联网 发布:ti6奖金 知乎 编辑:程序博客网 时间:2024/05/17 22:41
1、Application.CommandBars("Worksheet Menu Bar").Enabled = false
2、cells(activecell.row,"b").value '活动单元格所在行B列单元格中的值
3、Sub CheckSheet()'如果当前工作薄中没有名为kk的工作表的话,就增加一张名为kk的工作表,并将其排在工作表从左至右顺序排列的最左边的位置,即排在第一的位置
Dim shtSheet As Worksheet
For Each shtSheet In Sheets
If shtSheet.Name = "KK" Then Exit Sub
Next shtSheet
Set shtSheet = Sheets.Add(Before:=Sheets(1))
shtSheet.Name = "KK"
End Sub
4、Sheet1.ListBox1.List = Array("一月", "二月", "三月", "四月")'一次性增加项目
5、Sheet2.Rows(1).Value = Sheet1.Rows(1).Value'将一个表中的一行全部拷贝到另一个表中
6、Sub pro_cell()'将此代码放入sheet1,则me=sheet1,主要是认识me
Me.Unprotect Cells.Locked = False
Range("D11:E11").Locked = True
Me.Protect
End Sub
7、Application.CommandBars("Ply").Enabled = False'工作表标签上快捷菜单失效
8、Sub aa()'把B1到B12单元格的数据填入c1到c12
For i = 1 To 12
Range("C" & i) = Range("B" & i)
Next i
End Sub
9、ActiveCell.AddComment Selection.Font.Size = 12'在点选的单元格插入批注,字体为12号
10、Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
End Sub
11、ScrollArea 属性参阅应用于示例特性以 A1 样式的区域引用形式返回或设置允许滚动的区域。用户不能选定滚动区域之外的单元格。String 类型,可读写。说明可将本属性设置为空字符串 ("") 以允许对整张工作表内所有单元格的选定。示例本示例设置第一张工作表的滚动区域。 Worksheets(1).ScrollArea = "a1:f10"
If application.max([a1:e1])=10 then
msgbox"" commandbutton1.enabled=false 'A1—E1最大的数值达到10时,自动弹出对话框,并冻结按钮
12、本示例将更改的单元格的颜色设为蓝色。
Private Sub Worksheet_Change(ByVal Target as Range)
Target.Font.ColorIndex = 5
End Sub
13、Sub test()'求和
Dim rng As Range, rng2 As Range
For Each rng In ActiveSheet.UsedRange.Columns
Set rng2 = Range(Cells(1, rng.Column), Cells(Cells(65536, rng.Column).End(xlUp).Row, rng.Column))
rng2.Cells(rng2.Cells.Count).Offset(1, 0) = WorksheetFunction.Sum(rng2)
Next rng
End Sub
14、将工作薄中的全部n张工作表都在sheet1中建上链接
Sub test2()
Dim Pt As Range Dim i As Integer
With Sheet1 Set Pt = .Range("a1")
For i = 2 To ThisWorkbook.Worksheets.Count
.Hyperlinks.Add Anchor:=Pt, Address:="", SubAddress:=Worksheets(i).Name & "!A1"
Set Pt = Pt.Offset(1, 0)
Next i
End With
End Sub
15、保存所有打开的工作簿,然后退出 Microsoft Excel。
For Each w In Application.Workbooks
w.Save
Next w
Application.Quit
16、让form标题栏上的关闭按钮失效
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode <> 1 Then
Cancel = True
End Sub
17、Sub countsh()'获得工作表的总数
MsgBox Sheets.Count
End Sub
18、Sub IE()'打开个人网页
ActiveWorkbook.FollowHyperlink "about:blank"
SendKeys "{F4}ykk1976.anyp.cn{ENTER}", True
End Sub
19、Sub delback()'一次性删除工作簿中所有工作表的背景
For Each shtSheet In Sheets
shtSheet.SetBackgroundPicture Filename:=""
Next shtSheet
End Sub
20、[a1].formula="=b1+c1"'A1中设定公式为=B1+C1
21、Private Sub CommandButton1_Click()'将A1到C6中大于=3的数依次放入E列
Dim i As Long
r = 1
For Each i In Range("a1:c6")
If i > =3 Then
Cells(r, 5) = i:
r = r + 1
Next
End Sub
22、Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)'显示带数字的表名
b = Split(Sh.Name, "(")
On Error GoTo ss
num = CInt(Left(b(1), Len(b(1)) - 1))
If num >= 1 And num < 20 Then
MsgBox Sh.Name
End If
Exit Sub
ss:
MsgBox "error", 16, ""
End Sub
23、Sub Test()'选择所有工作表名以"业报"开头的工作表或头两个字是业报的报表名引用
Set Sh = ActiveSheet
If Left(Sh.Name, 2) = "业报" Then ' 或if sh.name like"业报*"then
MsgBox "你成功了", 64, ""
End If
End Sub
24、1.建立文件夹的方法 MkDir "D:/Music"
2.打开文件夹的方法 ActiveWorkbook.FollowHyperlink Address:="D:/Music", NewWindow:=True
25、在当前工作表翻页
Application.SendKeys "{PGUP}", True
Application.SendKeys "{PGDN}", True
或者
ActiveWindow.LargeScroll Down:=1
ActiveWindow.LargeScroll Down:=-1
26、当Target = "*小计"时如何写,*代表任何字符。
if instr(target.value,"小计")<>0 then
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Value Like "*小计" Then
MsgBox "OK"
End Sub
27、ActiveCell.FormulaR1C1 = "=SUM(R[1]C:R[14]C,R[59]C:R[78]C)" 这是相对引用的写法:根据推算你的函数是放在“AD6”单元格你的函数:=SUM(R[1]C:R[14]C 中的 "R"表示行 "C"表示列。 R[1]表示“AD6+1行",C表示“列没有变化,就是同列”那么:R[1]C就表示AD7 同理,R[14]表示AD6+14行,表示:AD20。以此类推。
28、Private Sub CommandButton1_Click()'将A1到C6中大于=3的数依次放入E列 Dim i As Long Dim iRng As Range For Each iRng In Sheets(1).Range("a1:c6") If iRng.Value >= 3 Then i = i + 1 Sheets(1).Range("E" & i).Value = iRng.Value End If Next End Sub 29、工作表中的窗体按钮禁用后,按钮形状不变,字体不变,从外表上无法看出其已禁用,如何设置属性使其像控件按纽那样明显的禁用? With ActiveSheet.Buttons(1) .Enabled = False ActiveSheet.Shapes(.Caption).DrawingObject.Font.ColorIndex = 15 End With 復原的方法 With ActiveSheet.Buttons(1) .Enabled = True ActiveSheet.Shapes(.Caption).DrawingObject.Font.ColorIndex = xlAutomatic End With
30、Private Sub Worksheet_SelectionChange(ByVal Target As Range'选定A1时要输入密码 If Target.Address = "$A$1" Then A = InputBox("请输入密码", "officefans") If A = 1 Then [A1].Select Else [A2].Select End If End Sub
31、如何将工作薄中的命名单元格成批删除! Dim Item As Name For Each Item In ActiveWorkbook.Names Item.Delete Next Item
32、平时只能看到表1,如要看表2和表3,只能通过表1的链接打开,且表2和表3回到表1后,又不可见。 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$A$3" Then '当点击"$A$3"单元格时... Sheet2.Visible = 1 '取消隐藏 Sheet2.Activate '激活 ActiveSheet.Range("A1").Select End If If Target.Address = "$A$6" Then Sheet3.Visible = 1 '取消隐藏 Sheet3.Activate ActiveSheet.Range("A1").Select End If End Sub
33、将a2单元格内容替换为a1内容 ActiveCell.Replace What:=[a2], Replacement:=[a1]
34、如果是要填入名称,则: Private Sub Worksheet_SelectionChange(ByVal Target As Range) Selection.Value = ComboBox1.column(1) End Sub 如果是要填入代码和名称的组合 : Private Sub Worksheet_SelectionChange(ByVal Target As Range) Selection.Value = cstr(ComboBox1.column(0))+" "+combobox1.column(1) End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) Selection.Value = ComboBox1.Value End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'target.row 代表行号 'target.column 代表列号 i=target.row '获取行号 j=target.column '获取列号 End Sub
35、当激活工作表时,本示例对 A1:A10 区域进行排序。 Private Sub Worksheet_Activate() Range("a1:a10").Sort Key1:=Range("a1"), Order:=xlAscending End Sub
36、BeforePrint 事件参阅应用于示例特性在打印指定工作簿(或者其中的任何内容)之前,产生此事件。 Private Sub Workbook_BeforePrint(Cancel As Boolean) Cancel 当事件产生时为 False。如果该事件过程将本参数设为 True,则当该过程运行结束之后不打印工作簿。示例本示例在打印之前对当前活动工作簿的所有工作表重新计算。 Private Sub Workbook_BeforePrint(Cancel As Boolean) For Each wk in Worksheets wk.Calculate Next End Sub
37、Open 事件参阅应用于示例特性打开工作簿时,将产生本事件。 Private Sub Workbook_Open() 示例每次打开工作簿时,本示例都最大化 Microsoft Excel 窗口。 Private Sub Workbook_Open() Application.WindowState = xlMaximized End Sub
38、ActiveSheet 属性参阅应用于示例特性返回一对象,该对象代表活动工作簿中的,或者指定的窗口或工作簿中的活动工作表(最上面的工作表)。只读。如果没有活动的工作表,则返回 Nothing。说明如果未给出对象识别符,本属性返回活动工作簿中的活动工作表。如果某一工作簿在若干个窗口中出现,那么该工作簿的 ActiveSheet 属性在不同窗口中可能不同。示例本示例显示活动工作表的名称。 MsgBox "The name of the active sheet is " & ActiveSheet.Name Calculate 方法参阅应用于示例特性计算所有打开的工作簿、工作簿中的一张特定的工作表或者工作表中指定区域的单元格,如下表所示:要计算 依照本示例 所有打开的工作簿 Application.Calculate (或只是 Calculate) 指定工作表 指定工作表 指定区域 Worksheets(1).Rows(2).Calculate expression.Calculate expression 对于 Application 对象可选,对于 Worksheet 对象和 Range 对象必需。该表达式返回“应用于”列表中的对象之一。示例本示例计算 Sheet1 已用区域中 A 列、B 列和 C 列的公式。 Worksheets("Sheet1").UsedRange.Columns("A:C").Calculate 程序的核心是算法问题
40、End 属性参阅应用于示例特性返回一个 Range 对象,该对象代表包含源区域的区域尾端的单元格。等同于按键 End+ 向上键、End+ 向下键、End+ 向左键或 End+ 向右键。Range 对象,只读。 expression.End(Direction) expression 必需。 该表达式返回“应用于”列表中的对象之一。 Direction XlDirection 类型,必需。所要移动的方向。 XlDirection 可为 XlDirection 常量之一。 xlDown xlToRight xlToLeft xlUp 示例本示例选定包含单元格 B4 的区域中 B 列顶端的单元格。 Range("B4").End(xlUp).Select 本示例选定包含单元格 B4 的区域中第 4 行尾端的单元格。 Range("B4").End(xlToRight).Select 本示例将选定区域从单元格 B4 延伸至第四行最后一个包含数据的单元格。 Worksheets("Sheet1").Activate Range("B4", Range("B4").End(xlToRight)).Select
41、应用于 CellFormat 和 Range 对象的 Locked 属性。本示例解除对 Sheet1 中 A1:G37 区域单元格的锁定,以便当该工作表受保护时也可对这些单元格进行修改。 Worksheets("Sheet1").Range("A1:G37").Locked = False Worksheets("Sheet1").Protect
42、Next 属性参阅应用于示例特性返回一个 Chart、Range 或 Worksheet 对象,该对象代表下一个工作表或单元格。只读。说明如果指定对象为区域,则本属性的作用是仿效 Tab,但本属性只是返回下一单元格,并不选定它。在处于保护状态的工作表中,本属性返回下一个未锁定单元格。在未保护的工作表中,本属性总是返回紧靠指定单元格右边的单元格。示例本示例选定 sheet1 中下一个未锁定单元格。如果 sheet1 未保护,选定的单元格将是紧靠活动单元格右边的单元格。 Worksheets("Sheet1").Activate ActiveCell.Next.Select
43、想通过target来设置(A1:A10)区域内有改动,就发生此事件。不知道如何 if target.row = 1 and target.column <=10 then Sub 列举菜单项() Dim r, s, i As Integer r = 1 For i = 1 To CommandBars.Count ActiveSheet.Cells(r, 1) = "CommandBars(" & i & ").Name:" & CommandBars(i).Name r = r + 1 For s = 1 To CommandBars(i).Controls.Count ActiveSheet.Cells(r, 1) = s & "、" & CommandBars(i).Controls(s).Caption r = r + 1 Next Next End Sub
44、本示例设置 Microsoft Excel 每当打开包含链接的文件时,询问用户是否更新链接。 Application.AskToUpdateLinks = True
45、自定义函数 Public Function Now1() Dim string1 As String string1 = VBA.Date Now1 = string1 End Function
46、复制 Sub copy1() Sheet2.Range("C5:C10").Copy Sheet1.Range("C5:C10") End Sub
47、如何统计表中sheet的个数? msgbox sheets.count Columns("G:G").Select
48、 Selection.EntireColumn.Hidden = True 这样隐藏有个毛病,如何解决?如果A1:G1单元格合并的话,就把A:G列均隐藏了。 Columns("G:G").EntireColumn.Hidden = True
49、在VBA中引用excel函数的方法 1). Worksheets("Sheet1").Range("A1").Formula = "=$A$4+$A$10" 2). Sheet1.Cells(1,1).Formula = "=" & Sheets(iii).Name & "!R1C4" 在宏中用R1C1方式写时表格1的A1中会在写为“=Sheet2!$D$1” 用这种方式,想用什么函数就用什么函数.
50、选定下(上)一个工作表 sheets(activesheet.index-1).select sheets(activesheet.index+1).select
51、Private Sub Workbook_Open() ActiveWindow.DisplayWorkbookTabs = False '取消工作表标签 Application.CommandBars("Sheet").Controls(1).Enabled = False '格式_工作表不能重命名 Application.CommandBars.FindControl(ID:=889).Enabled = False '右键菜单不能重命名 End Sub
52、 [a65536].End(xlUp’A列从下往上第一个非空的单元格
53、Sub macro() Set rng = Range("C11:F13") 定义RNG为一个单元格区域 For Each cel In rng 定义CEL为RNG中的一个任一单元格 colo = cel.Interior.ColorIndex 定义 COLO 为单元格CEL的填充颜色 If colo <> -4142 Then 如果COLO的值不等于-4142 iR = [b65536].End(xlUp).Row + 1 IR等于B列数据区域的行数+1 If [a65535].End(xlUp).Value <> Cells(cel.Row, 2) Then Cells(iR, 1) = Cells(cel.Row, 2) 如果A列最后一个非空值单元格 不等于Cells(cel.Row, 2) 的值 那么单元格Cells(iR, 1) 的值等于Cells(cel.Row, 2) 的值 CEL.ROW是C11:F13中任意单元格的行号 Cells(iR, 2) = Cells(10, cel.Column) Cells(iR, 3) = cel.Value Cells(iR, 4) = IIf(colo = 36, "Yellow", "Red") Cells(iR, 4) 的值如果colo = 36那么值为"Yellow",否则值为"RED" next End Sub
54、Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) '**********运行数据日志记录********** Dim rng As Range If ActiveSheet.Name <> "主界面" And ActiveSheet.Name <> "目录索引" Then For Each rng In Target.Cells Changecell = ActiveSheet.Name & ",单元格:" & rng.Address(0, 0) & ",更改为:" & rng.value & "。更改时间:" & Now CritOrAddtext Next End If End Sub
55、ActiveSheet.Unprotect '撤销当前工作表保护 If ActiveSheet.Name <> "主界面" And ActiveSheet.Name <> "目录索引" And Target.Row > 3 Then '行变色 On Error Resume Next [ChangColor_With].FormatConditions.Delete Target.EntireRow.Name = "ChangColor_With" With [ChangColor_With].FormatConditions .Delete .Add xlExpression, , "TRUE" .Item(1).Interior.ColorIndex = 4 End With End If ActiveSheet.Protect
56、在C1中弄个下拉无表,实际是有效性,你可以选择A1:A4为C1单元格有效性的序列数据源,如果说C1不与A1:A4在同一表,则不能这么用,应当先对A1:A4命名,然后把数据源改为名称.
57、自动增加工作表进入宏命令编辑窗口,在Sub 自动增加工作表()命令后依次键入如下宏命令内容: Dim i&, userinto i = 0 userinto = InputBox("输入插入工作表数量:") If IsNumeric(userinto) = True Then Do Until i = userinto Worksheets.Add i = i + 1 Loop End If End Sub
58、方法一(共享级锁定): 1、先对EXCEL文件进行一般的VBAProject”工程密码保护。 2、打开要保护的文件,选择:工具--->保护--->保护并共享工作簿--->以追踪修订方式共享-->输入密码-->保存文件。 完成后,当你打开“VBAProject”工程属性时,就将会提示:“工程不可看!“ 方法二(推荐,破坏型锁定): 用16进制编辑工具,如WinHex、Ultraedit-32(可到此下载)等,再历害点的人完全可以用debug命令来做......用以上软件打开EXCEL文件,查找定位以下地方: ID="{00000000-0000-0000-0000-000000000000}" 注:实际显示不会全部为0 此时,你只要将其中的字节随便修改一下即可。保存再打开,就会发现大功告成! 当然,在修改前最好做好你的文档备份。至于恢复只要将改动过的地方还原即可(只要你记住了呵呵)。顺便说一句,这种方法仍然是可破解的,因为加密总是相对的 。
59、Sub AddComments() '自動對ActiveSheet所有有公式格位加上註解 Set RG = Cells.SpecialCells(xlCellTypeFormulas) For Each c In RG c.AddComment c.Comment.Text Text:=c.Formula Next c End Sub Sub De_Comments() '自動消除所有註解 Set RG = Cells.SpecialCells(xlCellTypeFormulas) For Each c In RG c.ClearComments Next c End Sub
60、如何在Excel里使用定时器 www.aspsky.net 2002-3-12 20:53:27 动网先锋 用过 Excel 97 里的加载宏 "定时保存" 吗?可惜它的源程序是加密的,现在就上传一篇介绍实现它的文档。 在 Office 里有个方法是 application.ontime ,具体函数如下: expression.OnTime(EarliestTime, Procedure, LatestTime, Schedule) 如果想进一步了解,请参阅 Excel 的帮助。 这个函数是用来安排一个过程在将来的特定时间运行,(可为某个日期的指定时间,也可为指定的时间段之后)。通过这个函数我们就可以在 Excel 里编写自己的定时程序了。下面就举两个例子来说明它。 1.在下午 17:00:00 的时候显示一个对话框。 Sub Run_it() Application.OnTime TimeValue("17:00:00"), "Show_my_msg" '设置定时器在 17:00:00 激活,激活后运行 Show_my_msg 。 End Sub Sub Show_my_msg() msg = MsgBox("现在是 17:00:00 !", vbInformation, "自定义信息") End Sub 2.模仿 Excel 97 里的 "自动保存宏",在这里定时 5 秒出现一次 Sub auto_open() MsgBox "欢迎你,在这篇文档里,每 5 秒出现一次保存的提示!", vbInformation, "请注意!" Call runtimer '打开文档时自动运行 End Sub Sub runtimer() Application.OnTime Now + TimeValue("00:00:05"), "saveit" ' Now + TimeValue("00:15:00") 指定在当前时间过 5 秒钟开始运行 Saveit 这个过程。 End Sub Sub SaveIt() msg = MsgBox("朋友,你已经工作很久了,现在就存盘吗?" & Chr(13) _ & "选择是:立刻存盘" & Chr(13) _ & "选择否:暂不存盘" & Chr(13) _ & "选择取消:不再出现这个提示", vbYesNoCancel + 64, "休息一会吧!") '提示用户保存当前活动文档。 If msg = vbYes Then ActiveWorkbook.Save Else If msg = vbCancel Then Exit Sub Call runtimer '如果用户没有选择取消就再次调用 Runtimer End Sub 以上只是两个简单的例子,有兴趣的话,可以利用 Application.Ontime 这个函数写出更多更有用的定时程序。 Sub Show_my_msg() msg = MsgBox("现在是 17:00:00 !", vbInformation, "自定义信息") End Sub 2.模仿 Excel 97 里的 "自动保存宏",在这里定时 5 秒出现一次 Sub auto_open() MsgBox "欢迎你,在这篇文档里,每 5 秒出现一次保存的提示!", vbInformation, "请注意!" Call runtimer '打开文档时自动运行 End Sub Sub runtimer() Application.OnTime Now + TimeValue("00:00:05"), "saveit" ' Now + TimeValue("00:15:00") 指定在当前时间过 5 秒钟开始运行 Saveit 这个过程。 End Sub Sub SaveIt() msg = MsgBox("朋友,你已经工作很久了,现在就存盘吗?" & Chr(13) _ & "选择是:立刻存盘" & Chr(13) _ & "选择否:暂不存盘" & Chr(13) _ & "选择取消:不再出现这个提示", vbYesNoCancel + 64, "休息一会吧!") '提示用户保存当前活动文档。 If msg = vbYes Then ActiveWorkbook.Save Else If msg = vbCancel Then Exit Sub Call runtimer '如果用户没有选择取消就再次调用 Runtimer End Sub 以上只是两个简单的例子,有兴趣的话,可以利用 Application.Ontime 这个函数写出更多更有用的定时程序。 Sub Show_my_msg() msg = MsgBox("现在是 17:00:00 !", vbInformation, "自定义信息") End Sub 2.模仿 Excel 97 里的 "自动保存宏",在这里定时 5 秒出现一次 Sub auto_open() MsgBox "欢迎你,在这篇文档里,每 5 秒出现一次保存的提示!", vbInformation, "请注意!" Call runtimer '打开文档时自动运行 End Sub Sub runtimer() Application.OnTime Now + TimeValue("00:00:05"), "saveit" ' Now + TimeValue("00:15:00") 指定在当前时间过 5 秒钟开始运行 Saveit 这个过程。 End Sub Sub SaveIt() msg = MsgBox("朋友,你已经工作很久了,现在就存盘吗?" & Chr(13) _ & "选择是:立刻存盘" & Chr(13) _ & "选择否:暂不存盘" & Chr(13) _ & "选择取消:不再出现这个提示", vbYesNoCancel + 64, "休息一会吧!") '提示用户保存当前活动文档。 If msg = vbYes Then ActiveWorkbook.Save Else If msg = vbCancel Then Exit Sub Call runtimer '如果用户没有选择取消就再次调用 Runtimer End Sub 以上只是两个简单的例子,有兴趣的话,可以利用 Application.Ontime 这个函数写出更多更有用的定时程序。 Sub Show_my_msg() msg = MsgBox("现在是 17:00:00 !", vbInformation, "自定义信息") End Sub 2.模仿 Excel 97 里的 "自动保存宏",在这里定时 5 秒出现一次 Sub auto_open() MsgBox "欢迎你,在这篇文档里,每 5 秒出现一次保存的提示!", vbInformation, "请注意!" Call runtimer '打开文档时自动运行 End Sub Sub runtimer() Application.OnTime Now + TimeValue("00:00:05"), "saveit" ' Now + TimeValue("00:15:00") 指定在当前时间过 5 秒钟开始运行 Saveit 这个过程。 End Sub
- VBA操作Excel代码收集
- vba操作excel的合并单元格代码
- Excel 文件复制操作vba代码
- Excel 文件复制操作vba代码
- VBA代码收集
- Excel-VBA文件操作
- excel VBA 简单操作
- EXCEL 操作汇总&&VBA
- VBA 操作excel菜单
- VBA 操作excel菜单
- Excel vba 操作
- 经典Excel VBA代码
- 经典Excel VBA代码
- Excel VBA代码学习
- 调试Excel VBA代码
- Excel VBA 代码笔记
- VBA代码拆分excel
- VBA处理文件框架代码 【第五部分:Excel文件操作】
- 我的“爱之大脑钟”软件开发心得-1
- 个人觉得最好的生成","分割字符串的方法
- listview选中时如何修改textview字体的颜色
- 引用与赋值
- Agile SDK Developing Custom Actions
- VBA操作Excel代码收集
- c++编写万年历
- RHEL 5下配置samba过程记录
- 第一章,世界通信发展史
- poj 1094
- Alexa排名重要性简析 提升排名竟如此简单
- HTTP 服务器:
- linux下的autorepeat(按键自动重复)
- iostream的小秘密