菜鸟谈VBA最最基础入门《原创》

zypxyd · 发表于 2009-12-21 14:03

顶，好文章，我终于可以也开始学习vba了。谢谢！

solomonyas · 发表于 2009-12-21 17:13

henhao very good!!!
\excellent!!!

zypxyd · 发表于 2009-12-21 17:25

请见附件。想实现的最后结果是给每位老师评分，并将评分结果统一在汇总表中展示出来。

sarazhang2009 · 发表于 2009-12-21 19:04

您好！我刚刚开始学习VBA，请问您能给我解释一下您写的部分的代码吗？
For i = 2 To 8
      bb = Sheets(1).[b65536].End(xlUp).Row + 1
      aa = Sheets(i).[b65536].End(xlUp).Row
      Sheets(i).Range("b3:b" & aa).Copy
      Sheets(1).Cells(bb, 2).PasteSpecial (xlPasteValues)
      Sheets(i).Range("c3:c" & aa).Copy
      Sheets(1).Cells(bb, 3).PasteSpecial (xlPasteValues)
      Sheets(i).Range("k3:k" & aa).Copy
      Sheets(1).Cells(bb, 4).PasteSpecial (xlPasteValues)
      Sheets(i).Range("l3:l" & aa).Copy
      Sheets(1).Cells(bb, 5).PasteSpecial (xlPasteValues)

xlPasteValues是什么意思？谢谢了
因为这段代码对我很有用

lora1996 · 发表于 2009-12-21 21:30

ding

zyh196712 · 发表于 2009-12-21 21:58

xlPasteValues 是选择性粘帖，粘帖数值

杏花雨V翟 · 发表于 2009-12-21 22:06

建议在信息录入那个窗体确定按钮的end if前加上清除表格数据的几行代码，这样如果窗体数据输入不全，就自动清除，不会记录在表格里！

If 姓名.Value = "" Or 性别.Value = "" Or 生日.Value = "" Then '检验信息是否输入
   MsgBox "信息输入不完整！", 16, "错误提示"
             姓名.Value = ""       '清除原有数据
         性别.Value = ""
         生日.Value = ""
End If

一点愚见版主不要见笑

zyh196712 · 发表于 2009-12-21 22:27

原帖由 ggsmart 于 2009-12-21 10:50 发表

Sub ggsmart()
mxrow = Range("a1").CurrentRegion.Rows.Count + 1 '行号
mxcol = Range("a1").CurrentRegion.Columns.Count + 1 '列号
Cells(mxrow, mxcol).Select '选中单元格
Set rng = Range( ...

谢谢!又学到了用CurrentRegion，在数据透视表中如选择页字段的单元格，则只能是页字段区域，如在range1的任一单元格则为range1的区域，它选择的是一个连续的区域，对吗？
另：我要设置的不是EntireRow的RowHeight、Entirecolumn的ColumnWidth，是mxrow的RowHeight，mxcol的ColumnWidth，还是不会写啊。

ggsmart · 发表于 2009-12-22 08:15

原帖由 zypxyd 于 2009-12-21 17:25 发表
请见附件。想实现的最后结果是给每位老师评分，并将评分结果统一在汇总表中展示出来。

怎么知道每个老师相应项目的高或低呢？

zypxyd · 发表于 2009-12-22 09:57

叶枫:
怎么知道每个老师相应项目的高或低呢？
答：一是主观判断，一是有一些数据，一是通过测评再进行判断；

其打分流程如下：
如先给第一个人郭琴打分；
比如说演讲水平，如果仪表为高，就点一下B3，如果普通话为中，就点一下c4，依次类推，然后将总分记录到一个变量比如Sy，比如最后Sy=75，就将75分记录到汇总表的演讲水平中，如B2；
当给第一个人郭琴打完分，就将郭琴的所有分数记录到汇总表，然后自动开始下一个人的打分；

谢谢关注！

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

菜鸟谈VBA最最基础入门《原创》

hen hao

请教给老师打分的一个程序如何实现

回复 238楼 moon2778 的帖子

回复 1018楼 sarazhang2009 的帖子

打分流程

浏览过的版块