不懂VBA也编程

hfq926

原帖由 山菊花 于 2009-1-12 13:36 发表
改错了，第二步改的是SheetDeactivate，不是SheetActivate。

Private Sub Workbook_Open()
  Application.ScreenUpdating = False
   
    Dim Sh As Worksheet
    For Each Sh In Worksheets
    If Sh.Name <> "權限設置" Then Sh.EnableCalculation = False
    Next
    ActiveSheet.EnableCalculation = True
  
  
  Sheets("Sheet1").Activate
  Application.WindowState = xlMaximized
  Application.Visible = False
' frmFace.Show 0
  Login.Show 1
  Application.ScreenUpdating = True

End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Sh.EnableCalculation = False
Sh.EnableCalculation = True
End Sub
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
If Sh.Name <> "權限設置" Then Sh.EnableCalculation = False
End Sub

是這樣嗎？老師可打開的速度並沒有提高呢?

gljzyp

看一帖，学习一点

sncoco123

真诱人！不过想学好还有好长的路要走呢

apple0805

谢谢，受益非浅

zqhewei

学习中，谢谢！

zhaojvxiang

“山菊花”是我久仰的诲人不倦的大师！ 跟着学习了！

zhaojvxiang

“山菊花”是我久仰的诲人不倦的大师！ 跟着学习了！

lincaihong

山老师:
我要在入录表里入录的保存在数据库数据里,然后注意的项目是入录表单的数据能相应识别的保存到数据库数据里.
仓库管理.rar (36.51 KB, 下载次数: 87)

2009-1-14 08:36 上传

点击文件名下载附件

请测试
——山菊花

lincaihong_仓库管理2.zip (39.22 KB, 下载次数: 169)

2009-1-14 11:05 上传

点击文件名下载附件

lincaihong

针对这个例子请参照这个附件，就是在第2行各个单元格内输入数据，在单元格输入后该列数据下移到第3行，相应4行数据下移到第5行.....，以此类推始终保持这一列的数据为最新数据，只要能达到这样的效果用VBA或 ...

附:山老师,以下这段代码只要回车,所有的数据就不停的自动向下面移动,都不能再输入数据了
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row > 1 Or Target.Count > 1 Then Exit Sub
Target.Insert Shift:=xlDown
End Sub

例子2.rar (5.45 KB, 下载次数: 117)

2009-1-14 09:18 上传

点击文件名下载附件

附件与原要求不相同。
代码改为：

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. 
   
3. If Target.Row <> 2 Or Target.Count > 1 Then Exit Sub
   
4. 
   
5. Application.ScreenUpdating = False
   
6. Application.EnableEvents = False
   
7. Target.Insert Shift:=xlDown
   
8. 
   
9. Application.EnableEvents = True
   
10. Application.ScreenUpdating = True
    
11. End Sub

复制代码

lincaihong

老师回复的好  学习这东西只要有兴趣了,什么东西都觉得有意思.就这么简单