excel-vba

    5热度

    4回答

    Windows 10 Pro,区域设置为英国英语。 在Excel VBA我有一个字符串“2017年2月5日16:30” 的是,在英国,是指“2017年05月02日16:30” 但VBA变成这个美国格式莫名其妙,并在细胞提出“2017年5月2日16:30” 的VBA代码是这样的 Dim sField As String sField = "02/05/2017 16:30" ws.Cells(1

    3热度

    1回答

    我有一个代码,允许我在Excel工作簿中打开文件,但是我希望能够在同一个工作簿中打开多个文件,名为p00001,p00002 ,p00003等。有谁知道我可以如何编辑我的代码来选择所有以这种方式命名的文件,并在同一工作簿的不同工作表中打开它们? 我的代码是: Sub Open_Workbook() Dim my_FileName As Variant my_FileName

    -1热度

    1回答

    我有一个电子表格,其中包含销售清单。 当用户将“状态”列设置为“已关闭”时,我想强制他们在“已关闭日期”列中输入日期。 所以我有这个; A1 (Status), B1 (Closed Date) Open, <blank> Open, <blank> Closed, 1/1/2018 任何想法? 奥利

    -1热度

    2回答

    IM试图从tr标签的国家,但它只是给我的表的第一行我怎么刮的特定行 Sub ipsearch() Dim x As Integer x = 2 Do Until x = 4000 Dim ie As New InternetExplorer ie.navigate "https://whatismyipaddress.com/ip/" &

    1热度

    1回答

    如果选中该复选框,则此代码用于放置单词“New”,以及✓选中标记(如果未选中)。 If CheckBox2.Value = False Then Cells(3, 3) = ChrW(&H2713) # <-- checkmark ✓ Else: Cells(3, 3) = "New" End If 然而,目前,这只是地方的“新”字,如果复选框被选中,但如果不是选择它,它不会将一个✓勾选

    0热度

    2回答

    我试图将我的工作表保存为使用vba的pdf文件。工作表比A4页宽,并包含几个形状(从一边到另一边)。我希望工作表能够放在一个A4页面上,所以它应该按照屏幕上看到的那样进行重新调整。我正在使用以下代码: Sub Print_PDF() Dim sFilename As String Worksheets.Add.Name = "Helpsheet" sFilename = "G:\anyt

    3热度

    2回答

    早上好, 我试图找到一种方式来存储值的数组:通过一列 回路(B柱) 取值,商店他们在一个数组 遍历数组,并做一些文字处理 但是,我不能想办法来循环THROU gh列并将这些值存储在一个数组中。我已经通过堆栈溢出和谷歌,但还没有找到一个成功的解决方案(还)。 提前,谢谢你的帮助。 Sub collectNums() Dim eNumStorage() As String ' initial st

    0热度

    1回答

    将一些工作表从另一个文件复制到活动工作表时,我遇到了一些问题。 我目前正在使用的代码如下: With Workbooks.Open(ActiveWorkbook.path & "\templates\" & etype & ".xlsx").Worksheets("template") .Copy After:=Workbooks(ThisWorkbook.Name).Sheets

    0热度

    2回答

    我有一个长的工作表,其中包括3列: 柱A =发票号码 列B =接收量 列C - 支付金额 在列中的每个号码A需要分割到两行:付款和接收。 对于收费将采取准数从列C 对于接收将准数从塔B

    0热度

    0回答

    在Control Panel> Printer and Faxes我的默认打印机,是HP LaserJet P2035 on Ne02: 我有连接到我的系统2台活跃打印机。 我想PrintOut与我的第二打印机,其是:HP LaserJet Pro MFP M127-M128 PCLmS on Ne01: 有这Sheet1 我PrintOut嵌入(作为图标)以上嵌入文档MS-Word文档。 我的代