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回答

excel vba string date date

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回答

Vba代碼在同一工作簿的單獨工作表中打開多個文件

我有一個代碼，允許我在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回答

HTML表格刮使用VBA

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回答

使用VBA複選框顯示其他值

如果選中該複選框，則此代碼用於放置單詞「New」，以及✓選中標記（如果未選中）。 If CheckBox2.Value = False Then Cells(3, 3) = ChrW(&H2713) # <-- checkmark ✓ Else: Cells(3, 3) = "New" End If 然而，目前，這只是地方的「新」字，如果複選框被選中，但如果不是選擇它，它不會將一個✓勾選

0熱度

2回答

將圖表另存爲PDF

我試圖將我的工作表保存爲使用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