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

zypxyd

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

solomonyas

henhao very good!!!
\excellent!!!

zypxyd

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

sarazhang2009

您好！我刚刚开始学习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

ding

zyh196712

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

杏花雨V翟

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

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

一点愚见 版主不要见笑

zyh196712

原帖由 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

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

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

zypxyd

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

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

谢谢关注！