| 共 34 篇文章 |
|
Excel 墙上那一串串红辣椒——数组入门讲座墙上那一串串红辣椒——数组入门讲座转自 山菊花老师的作品 ：http://club.excelhome.net/viewthread.php?tid=196095&px=0写个学习数组的帖子，送给初学的朋友。Sub 声明数组()以上声明的数组都属于"静态数组"，每个数组有确定的维数，每维有确定的最大下标。声明数组的时候，不指定数... 阅990 转23 评0 公众公开 11-03-19 21:13 |
单击控件时，触发"Click"事件，除了该事件，还有哪些"事件"呢？Private Sub Image1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) ''在控件 Image1 上按下鼠标按钮时，触发本事件，运行如下代码： MsgBox "回答" &Mid("对错&q... 阅590 转20 评0 公众公开 11-03-19 19:41 |
我们点击一个按钮运行一段代码，这一段代码就是一个宏。[attach]169461[/attach]小结：本来我们不知道有Visible这么一个属性，因为需要，我们可以通过录制宏的办法记录对Excel的操作，再对宏代码进行分析，找到我们需要的代码并加以运用。打开下面的附件看看：[attach]169535[/attach] VBA入门之二《一夜暴富》6.①打开"工具-宏-宏"... 阅630 转33 评0 公众公开 11-03-19 17:10 |
我们也可以设置单元格属性：用代码给单元格输入内容，改变单元格的字体、字号、颜色等，把单元格修饰得漂亮一点。单元格B8被输入了与单元格B2相同的文字。代码解释：单元格B8的值=单元格B2的值。ColumnWidth = 20 ''设置活动单元格的宽度为20ActiveCell.RowHeight = 40 ''设置活动单元格的高度为40ActiveCell.Font.Name = &quo... 阅673 转41 评0 公众公开 11-03-19 16:31 |
如何改变Ribbon中下拉控件的宽度。<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"><ribbon startFromScratch="false"><tabs><tab id="customTab" label="Custom Tab"><group id="customGroup" label="Custom Group"><... 阅26 转自yuxinrong 公众公开 11-03-16 11:15 |
Sub 平均分()Const studentno = 190Const xknum = 6Dim fs(studentno, xknum), pjf3(4, 6), bjrs(4), qxpjf(6)Dim bj(studentno)Sheets("高三理").Select''以下程序段用于求全校平均分For i = 1 To studentno bj(i) = ActiveSheet.Cells(i + 1, 1) For j = 1 To xknum fs(i, j) = ActiveSheet.Cells(i + 1, j + 3) Nex... 阅13 转自yuxinrong 公众公开 11-03-16 11:11 |
提取筛选关键字(vba)提取筛选关键字(vba)有网友问:如果A1的筛选关键字为"A"，则赋值1给C1，如果为"B"，C1则为2，怎么写。Private Sub Worksheet_SelectionChange(ByVal Target As Range)Dim myt.Criteria1 End With End IfEnd WithSelect Case myt Case "=A" Range("C1") = "1... 阅31 转自yuxinrong 公众公开 11-03-16 11:05 |
字典与数组 vba(第二例)字典与数组 vba(第二例)Sub test()t = TimerDim i&, n&, S$''创建1到100 的数组Set D = CreateObject("Scripting.Dictionary")For i = 1 To 100D(i) = ""&iNext.''循环 d的数组 取消第10个子项For Each CC In D.keys If n = 10 Then S = S &D(CC) D.Remove (... 阅23 转自yuxinrong 公众公开 11-03-16 11:05 |
字典与数组 vba(第一例)字典与数组 vba(第一例)For i = 1 To UBound(arr1) ''循环查找区域竖向最大下标If d.exists(arr1(i, 1)) Then ''如果值为真。For j = 2 To UBound(arr, 2) ''循环查找区域横向最大下标就是几维arr(d.Item(arr1(i, 1)), j) = arr(d.Item(arr1(i, 1)), j) + arr1(i, j)Next.Resize(UBound(arr), U... 阅61 转自yuxinrong 公众公开 11-03-16 11:04 |
阅47 转自yuxinrong 公众公开 11-03-16 11:04 |
