vba

    0熱度

    1回答

    我有4列,每列有2組複選框,我正在尋找循環遍歷每個集合,並檢查兩個複選框是否都被選中,如果它們然後退出子集並且將該項目的名稱與在msgbox中的一組中選中的2個複選框進行檢查。 Set oRow = oTable.Rows Set oTable = doc.Tables(3) For Each oRow In oTable.Rows With oRow If .Cells

    1熱度

    1回答

    Upload file via FTP from Excel VBA非常有幫助,我使用代碼將本地文件夾同步到我的FTP服務器。 Call Shell(_ CurrentProject.Path & "\WinSCP.com /log=" & CurrentProject.Path & "\ftp.log /command " & _ """open ftp://user:[em

    -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熱度

    1回答

    你好傢伙我有爲我打開的循環內聯形狀(doc文件附加的xlsx文件)。它工作正常,但有時我得到一個錯誤: Run-time error 6069 它會通知我嘗試打開Excel應用程序,也許它沒有安裝(WOW)。 當我調試它突出了一個車道 wddoc.InlineShapes(lShapeCnt).OLEFormat.Activate 我按下「運行」,它正常工作,就像沒有錯誤。 但這是令人沮喪的,

    0熱度

    2回答

    我試圖將我的工作表保存爲使用vba的pdf文件。工作表比A4頁寬,幷包含幾個形狀(從一邊到另一邊)。我希望工作表能夠放在一個A4頁面上,所以它應該按照屏幕上看到的那樣進行重新調整。我正在使用以下代碼: Sub Print_PDF() Dim sFilename As String Worksheets.Add.Name = "Helpsheet" sFilename = "G:\anyt