不懂VBA也编程

zlzxtfl

山菊花  不错 的确是vba顶级大师之一啊

hfq926

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

請幫忙!

山菊花

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

非常感謝山菊花老師的回覆
我參照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

台灯

支持山菊花！

hfq926

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

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

山菊花

工作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

回覆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 编辑 ]

山菊花

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

lincaihong

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

'——山菊花