excel-vba

    -1熱度

    1回答

    我想從數據表「數據」複製數據而不是其後的公式,將數據複製到表格「報告」中。 Sub CopyValueDown() Dim lRow As Integer lRow = Sheets("Data").Range("A" & Rows.Count).End(xlUp).Row If lRow > 1 Then Sheets("Report").Range("A1:

    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