小编0m3*_*m3r的帖子

我有一个命名范围,如下面的A2:D3

ITEM    PRICE   QTY SUBTOTAL
1           10  3   30
1           5   2   10
           TOTAL:   40

我将使用VBA插入一个新行到复制公式而不是值的范围.

任何提示/链接非常感谢.

我有一个宏可以很好地放入文件夹/应用标志/设置类别,但它只适用于在资源管理器中选择的当前项目.

当我在桌面上收到电子邮件警报并单击它以打开电子邮件时,我希望能够针对该打开的项目运行相同的宏,但是我找不到任何关于如何访问该对象的文档与访问资源管理器列表中所选项目的方式类似.

我当前的选择逻辑如下所示:

Dim Item As Object
Dim SelectedItems As Selection

Set SelectedItems = Outlook.ActiveExplorer.Selection
For Each Item In SelectedItems
    With Item
        'do stuff
    End With
Next Item

我的Vista机器上存在空间问题,需要弄清楚占用的空间是多少.

我想写一个简单的批处理文件,它返回C:下的所有文件夹以及每个文件夹的大小.

该dir命令似乎不返回文件夹大小.

很遗憾,我们没有管理员权限,也无法安装第三方应用程序,我们的群组中还有其他用户也需要此信息.

有人可以帮我一些VBA代码.

我试图在工作簿之间复制2个单元格范围(两个工作簿都应该事先创建,因为我不希望代码在运行中创建新的工作簿).

首先,我需要复制这些范围 - 从booka.xls的"Sheet 3",Range:Cell H5到H列的最后一行,将数据复制到bookb.xls的"Sheet 1",从Cell B2开始细胞向下进入B柱

其次,我需要复制这些范围 - 从booka.xls的"Sheet 3",Range:Cell K5到K列的最后一行,将数据复制到bookb.xls的"Sheet 1",从Cell D2开始D列中的细胞

这是我到目前为止:

 Sub CopyDataBetweenBooks()

Dim iRow        As Long
    Dim wksFr       As Worksheet
    Dim wksTo       As Worksheet

    wksFr = "C:\booka.xls"
    wksTo = "C:\bookb.xls"

    Set wksFrom = Workbooks(wksFr).Worksheets("Sheet 3")
    Set wksTo = Workbooks(wksTo).Worksheets("Sheet 1")

    With wksFrom
        For iRow = 1 To 100
            .Range(.Cells(iRow, 8), .Cells(iRow, 9)).Copy wksTo.Cells(iRow, 8)
        Next iRow
    End With

End Sub

我一直在研究一个项目,在该项目中,我在.xlsx文档中搜索包含特定值"x"的单元格.我设法到目前为止,但我无法提取所述细胞的位置.

这是我提出的代码:

from openpyxl import load_workbook
wb = load_workbook(filename = 'Abstract.xlsx', use_iterators = True)
ws = wb.get_sheet_by_name(name = 'Abstract')
for row in ws.iter_rows():
    for cell in row:
        if cell.value == "E01234":
            print "TRUE"

当我运行此脚本时,如果在refereed .xlsx中有一个值为"E01234"的单元格,则它将打印为TRUE.我现在需要的是获得具有"E01234"值的单元格的行和列地址(即:A4).在我的项目中,

我希望编辑与标识的行相同的另一个单元格.

任何见解？

我有这个代码,我的问题是,它是否适用于英文版的excel？我的意思是本地公式将适用于excel的英文版本？(ORAZ意思是和我的语言).

当我把ORAZ它只能在我的电脑上工作,但是在英语电脑上它没有,当我把它并没有给出错误但它不起作用,任何想法如何帮助我？

With Range("$H$6:$FH$50").FormatConditions _
 .Add(xlExpression, xlFormula, "=ORAZ(H$7<=$G$7,(H$7+7)>$G$7)")
With .Interior
    .PatternColorIndex = xlAutomatic
    .ThemeColor = xlThemeColorLight2
    .TintAndShade = 0.799981688894314
End With
End With

我正在尝试从下拉列表中单击第一个项目。

我想使用它的索引值，因为该值每次都可能不同。

对于这个特定的测试，我只需要在下拉列表中选择第一个项目。

我试过 Select.select_by_index(1)

我收到错误：

    Traceback (most recent call last):
  File "C:\Webdriver\ClearCore 501 Regression Test\ClearCore - Regression Test\TestCases\DataPreviewsPage_TestCase.py", line 398, in test_a2_sort_data_preview_advanced
    data_previews_view_page.select_option_from_new_sort_drop_down() # Select the sort from the sort drop down to view the sorted fields
  File "C:\Webdriver\ClearCore 501 Regression Test\ClearCore - Regression Test\Pages\data_previews_view.py", line 144, in select_option_from_new_sort_drop_down
    Select.select_by_index(1) # select the 1st item from the sort drop down
TypeError: unbound method select_by_index() must be called with Select instance as first argument (got int instance instead)

我调用下拉菜单的代码片段是：

def …

当我用" emulator -data smsReceiver",然后在"模拟器:错误:新的仿真器后端需要最小的内核版本3.10+(目前有更低)请确保你有更新的系统映像,并且不与发动机一起迫使特定内核映像版本"作为初学者,

我不知道如何解决它.

我正在使用绑定表单来更新有关新客户或现有客户的信息.现在我在提交按钮上使用添加新记录宏(因为我不确定如何通过VBA添加或保存新记录).

我添加了一个更新前事件(使用VBA),让用户确认他们想要在退出表单之前保存更改.由于某种原因,这会覆盖添加记录按钮,现在用户无法在退出表单之前添加新记录.

如何使用VBA将新客户信息添加到正确的表中？这是应该用宏来完成的吗？

表格BeforeUpdate代码:

Private Sub Form_BeforeUpdate(Cancel As Integer) 
Dim strmsg As String 
strmsg = "Data has been changed." 
strmsg = strmsg & " Save this record?" 
If MsgBox(strmsg, vbYesNo, "") = vbNo Then 
    DoCmd.RunCommand acCmdUndo 
Else 
End If 
End Sub

添加记录按钮:

Private Sub btnAddRecord_Click() 
Dim tblCustomers As DAO.Recordset 

Set tblCustomers = CurrentDb.OpenRecordset("SELECT * FROM [tblCustomers]") 
tblCustomers.AddNew 
tblCustomers![Customer_ID] = Me.txtCustomerID.Value 
tblCustomers![CustomerName] = Me.txtCustomerName.Value 
tblCustomers![CustomerAddressLine1] = Me.txtCustomerAddressLine1.Value 
tblCustomers![City] = Me.txtCity.Value 
tblCustomers![Zip] = Me.txtZip.Value 
tblCustomers.Update 
tblCustomers.Close 
Set tblCustomers = Nothing 
DoCmd.Close 
End …

目标:正如标题所示,我们如何在不使用任何第三方控件的情况下在userform上显示工作簿.

通过Display,我的意思是显示它在一个窗体,其中用户可以选择一个工作表,并查看工作表的内容.

这篇文章试图自我回答这个问题.