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

yueyueniao

alex1437 发表于 2009-8-27 03:26
才看到，这是我的作业。
欢迎指点！！

大侠，觉得几个作业，你的这个代码精简，照着你的这个作业程序试做一个，为什么下标越界，都检查N遍了，就是的不到越界的原因，麻烦你抽时间看一哈。

南方姑良

宝贝有酒窝 发表于 2009-8-26 22:10
作业交了……心情舒畅多了……

你好，能问下r1是什么呀

时光舞者

JLF2003 发表于 2009-8-14 13:28
ggsmart  你好!
          无私奉献精神,值得学习!
          我特把你的讲座,整理成PPT文件,请更多的家 ...

棒棒哒，感谢

teng7001

学习一下，不当菜鸟

teng7001

好东西下载学习一下，免得麻烦别人

时间沙漏1314

stella_xiaoxia 发表于 2009-8-29 10:47
LZ能不能帮我看下，为什么这样写不能实现花名册分类，谢谢啊

Sub add()

        Dim i, j, h As Integer
        
        j = Sheets("外在本就读花名册").[A65536].End(xlUp).Row
        
        For i = 3 To j Step 1
        
        Select Case Cells(i, 9).Value
        Case "卫城"
            h = Sheets("卫城").[A65536].End(xlUp).Row
            Sheets("外在本就读花名册").Cells(i, 1).Resize(1, 12).Copy _
            Sheets("卫城").Cells(h + 1, 1)
            
        Case "站街"
          h = Sheets("站街").[A65536].End(xlUp).Row
            Sheets("外在本就读花名册").Cells(i, 1).Resize(1, 12).Copy _
            Sheets("站街").Cells(h + 1, 1)
            
        Case "流长"
        h = Sheets("流长").[A65536].End(xlUp).Row
            Sheets("外在本就读花名册").Cells(i, 1).Resize(1, 12).Copy _
            Sheets("流长").Cells(h + 1, 1)
            
        Case "王庄"
        h = Sheets("王庄").[A65536].End(xlUp).Row
            Sheets("外在本就读花名册").Cells(i, 1).Resize(1, 12).Copy _
            Sheets("王庄").Cells(h + 1, 1)
            
        Case "青龙"
        h = Sheets("青龙").[A65536].End(xlUp).Row
            Sheets("外在本就读花名册").Cells(i, 1).Resize(1, 12).Copy _
            Sheets("青龙").Cells(h + 1, 1)
        Case "红枫"
        h = Sheets("红枫").[A65536].End(xlUp).Row
            Sheets("外在本就读花名册").Cells(i, 1).Resize(1, 12).Copy _
            Sheets("红枫").Cells(h + 1, 1)
            
        Case Else
        h = Sheets("清镇市外").[A65536].End(xlUp).Row
            Sheets("外在本就读花名册").Cells(i, 1).Resize(1, 12).Copy _
            Sheets("清镇市外").Cells(h + 1, 1)
        
        End Select
   
        Next
End Sub


这样改下就可以了

时间沙漏1314

宝贝有酒窝 发表于 2009-8-30 15:51
我的作业
原本是想在利用字段调用子表合并到汇总表中的但是目前的技术实现不了
另外绿色底纹被我覆盖了… ...

我用字典方式重新做了一下     请指教

Sub 汇总()
Dim a%, b%, c%, sz1, sz2
Dim zd As Object
Dim sh As Worksheet

Set zd = CreateObject("Scripting.Dictionary")

For Each sh In Worksheets
If sh.Cells(3, 2) <> "" Then
  With sh
  For a = 3 To .[a1000].End(xlUp).Row
  zd(.Cells(a, 2) & "|" & .Cells(a, 3) & "|" & .Cells(a, 5) & "|" & .Cells(a, 11) & "|" & .Cells(a, 12)) = ""
Next
  End With
End If
Next

b = zd.Count
Sheets(1).Select
Sheets(1).[b3].Resize(b, 1) = Application.Transpose(zd.keys)

For a = 3 To [a1000].End(xlUp).Row
Cells(a, 2).Resize(1, 5) = Split(Cells(a, 2), "|")
Next

End Sub

时间沙漏1314

草根糖 发表于 2009-10-14 15:45
各位老师、同学：
我的新问题，又来了（我都快成问题男了，汗……）
详细见附件，请帮忙。

感觉用字典方式比较适合，看下

Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = False
Dim sh As Worksheet
Dim zd

Set zd = CreateObject("Scripting.Dictionary")
For Each sh In Worksheets
zd(sh.Name) = ""
Next
If Target.Column = 1 And Target.Count = 1 Then
  If Not zd.Exists(Target.Value) Then
    Worksheets.Add(after:=Sheets(Sheets.Count)).Name = Target.Value
  Else: Worksheets(Target.Value).Select
  End If
End If
Set zd = Nothing
Application.EnableEvents = True
End Sub

INA388

我想买纸质书，但又怕自己看不懂

heb04512021

马上学习.........................