不懂VBA也编程

little-key

山版的教程都是通俗易懂，但又不失深度。

leitiger

山菊花老师的代码极其简洁高效，在下佩服得五体投地.仰君如仰高山之雄伟,望君如望黄河之滔滔．

kuoma

再请教山菊花老师了，我把此代码贴到thisworkbook下了，但实际上没作用是否sh需要在动点什么手脚吗？因为我先把计算设为手动计算，之后切换至各表公式用托拉的方式，但并没有自动计算出来，不知那里出了问题！
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Sh.EnableCalculation = False
Sh.EnableCalculation = True
End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Sh.EnableCalculation = False
End Sub

每个工作表激活一次(为了设EnableCalculation = False)。
重算模式设为自动重算。
(已更新附件，增加自动设置EnableCalculation的代码)
请继续测试。
——山菊花

lmw163

Private Sub CommandButton1_Click()
n如何取a列中的非空单元格数量
    For i = 1 To n
    [N6] =取a列中第i个值
    Me.PrintOut
    Next
End Sub

请测试。
——山菊花
Private Sub CommandButton1_Click()
    n = Range("a65536").End(xlUp).Row
    For i = 1 To n
    [N6] = i
    Me.PrintOut
    Next
End Sub

luweiwei9

这个我试过了，好像对我这个庞大的数据表没有用处（我对保存的时间用秒表测了一下）保存时间用了VBA和没用，几乎没有变化。
我用的操作是，把代码复制到查看代码那里。为什么没效果呢
是否有问题。请赐教

见65楼。
——山菊花

jujishou

好东西，谢谢。

tsgsx

原帖由 tsgsx 于 2008-11-22 07:33 发表


谢谢山版，刚看到短信，已经回复！
做了个例子，请你帮忙看看，要求只在每一列第11行输入数据，每一单元格输入结束后该列数据上移空出11单元格，表中数据始终保持最新。

山版，我自己编了一段，你给审核一下，但是我不能加入到宏里面，怎么样才可以让他运行？
Dim a As Integer
Dim b As Integer

    For a = 1 To 9
        If Cells(a, 11) <> "" Then
            For b = 3 To 10
                Cells(a, b) = Cells(a, b + 1)
            Next b
        Cells(a, 11) = ""
    Next a

请版主指教

回复见62楼
——山菊花

cwf12

谢谢。。。努力学些

andywuqd

认真学习，

szqhb

牛！学习中