VBA从入门到提高（链接贴，2006-01-23更新）

zunho · 发表于 2006-12-14 21:51

请问您:

EXCEL中插入许多函数,输入问题后,输出处理结果,如何把相关函数隐藏,只显示输入区和输出区.

zunho@163.com

admark · 发表于 2006-12-16 05:09

真的好啊。

土地公 · 发表于 2006-12-18 20:12

实在是好贴啊.可惜没有电子版可以打包下载.还有就是缺少动画演示过程(这样更有利于新手的学习).不过,还得感谢龙三,真的是太伟大了.也感谢其他帮助新人学习VBA的高手们,都是伟大好样的.

gqz672004 · 发表于 2006-12-22 15:38

老师老师好老师

fanrong88 · 发表于 2006-12-27 08:32

学习

zyt760412 · 发表于 2007-1-2 00:57

http://www.excelhome.net/Article/ShowArticle.asp?ArticleID=340

thierry2008 · 发表于 2007-1-2 15:41

我慢慢看吧，好多好东西啊，谢谢！

SHM19460426 · 发表于 2007-1-3 16:38

请问这段VBA语言要怎样改动

我有一个电子工作表想用来排学生考试表,每班人数各不相同,而要将每班学生包含信息的纵向单元格粘贴分成并列的两段落,若班级人数为偶数,则并列的两段长度相等(即行数相等),若班级人数为奇数,则左边一列多一行,而右边一列少一行.我编了一段VBA语言,结果同样是奇数人数的班级,有的班级少了一人,而有的班级且重了一人,应怎样解决,请高手帮忙.我将附件一并传上.请帮忙将我的语言于以订正.
Sub 排班号考号姓名对照表()
Dim i%, r%
With Sheet1
i = 1
Do While i <= 7
j = 1
Do While j <= 2
r = .Columns(4).Find(i).Row
n = Application.CountIf(.Columns(4), i)
Range(Cells(r + (j - 1) * 0.5 * n, 1), Cells(r + j * 0.5 * n - 1, 6)).Select
Selection.Copy
Range(Cells(55 * i - 51, 10 + (j - 1) * 7), Cells(55 * i - 51, 10 + (j - 1) * 7)).Select
ActiveSheet.Paste
Range(Cells(2, 1), Cells(2, 6)).Copy Range(Cells(55 * i - 52, 10 + (j - 1) * 7), Cells(55 * i - 52, 10 + (j - 1) * 7))
j = j + 1
Loop
Range(Cells(i + 2, 26), Cells(i + 2, 26)).Copy Range(Cells(55 * i - 53, 12), Cells(55 * i - 53, 12))
Range(Cells(55 * i - 53, 12), Cells(55 * i - 53, 12)).Select
With Selection.Font
        .Name = "宋体"
        .Size = 20
    End With
    Selection.Font.Bold = True
i = i + 1
Loop
End With
End Sub

jnjuddIL.rar (45.3 KB, 下载次数: 6)

jadeite1982 · 发表于 2007-1-8 10:45

先收藏下,再学习.

谢了.

billyxu1201 · 发表于 2007-1-8 19:47

		自动登录	找回密码
密码			免费注册

VBA从入门到提高（链接贴，2006-01-23更新）

好像中间缺内容

兰老师你能帮我解决这个问题吗?

[讨论]tks