小编use*_*059的帖子

我有一个Access窗体的以下代码.当我打开和关闭表单时,似乎SendKeys是NumLock在打开和关闭它时弄乱了我的键.

出于完全正确的原因,我不想进入,我真的不想完全隐藏功能区(我希望下拉菜单仍然可访问)所以DoCmd.ShowToolbar命令不是我喜欢的方式.

有没有人有任何建议,我如何修改下面的代码,以完成我想要的SendKeys命令使用？

使用Access 2007这样的命令

CommandBars.ExecuteMso "MinimizeRibbon"

不适合我.

顺便说一句,数据库将被分发,因此解决方案必须包含在数据库中.

Private Sub Form_Close()

' Unhide navigation pane
    DoCmd.NavigateTo "acNavigationCategoryObjectType"
    DoCmd.Maximize

' Maximize the ribbon
RibbonState = (CommandBars("Ribbon").Controls(1).Height < 75)

Select Case RibbonState
    Case True
        SendKeys "^{F1}", True
    Case False
        'Do nothing, already maximized
End Select
End Sub

Private Sub Form_Load()
' Hide navigation pane
    DoCmd.NavigateTo "acNavigationCategoryObjectType"
    DoCmd.Minimize
Debug.Print Application.CommandBars.Item("Ribbon").Height
' Minimize ribbon
RibbonState = (CommandBars("Ribbon").Controls(1).Height < 100)

Select Case RibbonState
    Case True
        'Do …

我希望它在我的列表中找到以下文件：“ Microsoft Word 105Prt”（此文件名可能有所不同，但始终带有“ Word”。

for myfile in filelist:
    if myfile.contains("Word"): 
        print myfile

我如何修改它以在python 2.7.5中工作，因为contains不起作用。

我想选择 Excel 2007 工作表中 A1 和文件末尾之间的所有值（ctrl End 的效果）。始终有 4 列，但行数范围从 2 到可能数百。整个选择过程中可能会有很多空白单元格，包括最后一个单元格。

以下内容仅转到要选择的最后一个单元格，而不是整个范围。我该如何修改它来实现我想要的？

ActiveSheet.Range("A1", SpecialCells(xlLastCell)).Select

非常感谢。