不懂VBA也编程

zlzxtfl · 发表于 2009-1-10 23:58

山菊花不错

的确是vba顶级大师之一啊

hfq926 · 发表于 2009-1-11 09:47

http://club.excelhome.net/thread-371201-7-1.html
山菊花版主及各位老師
我看了你的61樓附件工作表属性_重算模式.zip (191.33 KB)  正是我想要的!我的工
作表也很大!打開慢!但是我每次打開時Sheet1(工作表都要在第一頁)!但是我的代碼和你的代碼放在一起就不能用了!請幫忙將這兩個代碼綜合到一起使用!

我的原代碼(打開時Sheet1(工作表都要在第一頁)!
Private Sub Workbook_Open()
  Application.ScreenUpdating = False
  Sheets("Sheet1").Activate
  Application.WindowState = xlMaximized
  Application.Visible = False
' frmFace.Show 0
  Login.Show 1
  Application.ScreenUpdating = True

End Sub

山菊花老師代碼(重算當前工作表)
Private Sub Workbook_Open()
Dim Sh As Worksheet
For Each Sh In Worksheets
Sh.EnableCalculation = False
Next
ActiveSheet.EnableCalculation = 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)
Sh.EnableCalculation = False
End Sub

請幫忙!

山菊花 · 发表于 2009-1-11 13:12

Private Sub Workbook_Open()
  Application.ScreenUpdating = False

Dim Sh As Worksheet
For Each Sh In Worksheets
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

hfq926 · 发表于 2009-1-11 16:15

非常感謝山菊花老師的回覆
我參照201樓的代碼作了一個表!
打開速度是提快了很多!但當前工作表的內容
不能重算!(不能更新)請幫查檢哪裏出了問題!

http://club.excelhome.net/thread-371201-21-2.html
用戶admin 密碼1205

ThisWorkbook模块中少加两个过程：

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

台灯 · 发表于 2009-1-11 16:56

支持山菊花！

hfq926 · 发表于 2009-1-12 10:14

山菊花老師我測試了下可以用了但
有新的問題!在登入窗口切換用戶
密碼就不對了!不能進入!可不可以
加入代碼將工作sheet8表固定重算
其它維持切換更新!
請老師幫忙!
用戶如下:
王丹 999
唐金春 ia004
跟單員 555
samuel 1205
Admin 1205
Ereryone 123

[ 本帖最后由 hfq926 于 2009-1-12 11:18 编辑 ]

山菊花 · 发表于 2009-1-12 12:30

工作sheet8表固定重算，其它維持切換更新：

第一，在Open过程中：
将：
Sh.EnableCalculation = False
改为：
If Sh.Name <> "权限设置" Then Sh.EnableCalculation = False

第二：
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
If Sh.Name <> "权限设置" Then Sh.EnableCalculation = False
End Sub

工作表名称要正确书写。

hfq926 · 发表于 2009-1-12 13:17

回覆205樓貼子!
山菊花老師!可能是我的代碼沒有改對!
(1)現在的附件又不能自動更新了!幫檢查一下!
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)
If Sh.Name <> "權限設置" Then Sh.EnableCalculation = False
End Sub

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

(2)如果在下面代碼增加"Sh.EnableCalculation = True"
可以更新但打開的速度和以前一樣並沒有快!
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name <> "權限設置" Then Sh.EnableCalculation = False
Sh.EnableCalculation = True '增加'
End Sub
請老師幫助完善一下!主要是完善打開的速度!

[ 本帖最后由 hfq926 于 2009-1-12 13:30 编辑 ]

山菊花 · 发表于 2009-1-12 13:36

改错了，第二步改的是SheetDeactivate，不是SheetActivate。

lincaihong · 发表于 2009-1-12 13:45

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Target.Row <> 11 Or Target.Column > 9 Then
If Range("A11:I11").SpecialCells(xlCellTypeBlanks).Count < 9 Then
      arr = Range("A4:I11")
      Range("A3:I10") = arr
      Range("A11:I11").ClearContents
End If
End If
End Sub
我不懂改,一下代码如果要改为从第一行输入后自动会移到第2行,而原来在第2行的自动移到第三行,以此类推

右键点击工作表标签，选择“查看代码”，将下面的代码粘贴到光标处：
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

'——山菊花

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

不懂VBA也编程

回复 61楼山菊花的帖子

請幫查檢哪裏出了問題!

回复 202楼 hfq926 的帖子

回覆205樓貼子!

学习中想找老师们修改下.

不懂VBA也编程

回复 61楼 山菊花 的帖子

請幫查檢哪裏出了問題!

回复 202楼 hfq926 的帖子

回覆205樓貼子!

学习中 想找老师们修改下.

回复 61楼山菊花的帖子

学习中想找老师们修改下.