vba

    3熱度

    2回答

    早上好, 我試圖找到一種方式來存儲值的數組:通過一列 迴路(B柱) 取值,商店他們在一個數組 遍歷數組,並做一些文字處理 但是,我不能想辦法來循環THROU gh列並將這些值存儲在一個數組中。我已經通過堆棧溢出和谷歌,但還沒有找到一個成功的解決方案(還)。 提前,謝謝你的幫助。 Sub collectNums() Dim eNumStorage() As String ' initial st

    0熱度

    1回答

    我有一段簡短的代碼,在我發送電子郵件時運行。它會查看收件人地址和主題以查看它是否包含某些單詞,然後彈出消息框提醒我們更新繪圖版本控制。它適用於內部電子郵件地址,似乎在某些外部電子郵件地址上工作,但出於某種原因,它不喜歡我實際需要它留意的電子郵件地址。 Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

    2熱度

    1回答

    我想在Word文檔中找到ole對象,而且它似乎在InlineShapes(1).GroupItems。但不能訪問組項目,因爲它給我錯誤。 Sub findOle() Dim shp As GroupShapes Dim c As Integer Set shp = ActiveDocument.InlineShapes(1).GroupItems End Sub

    1熱度

    2回答

    由於各種原因,我想在我的表單上設置一個自定義按鈕以保存當前記錄。我使用一個導航表單,並希望在保存條目時觸發相同的過程(完整性檢查,用戶輸入等),從而每當用戶按下「保存」按鈕或切換到另一個表單時。用戶將被有條件地要求確認該過程並因此能夠取消它。 一切都與一個非常奇怪和憤怒異常順利運行:每當我點擊「更新前」事件中節省一個新記錄按鈕和提示信息,我收到 RTE 3021( 「沒有當前記錄」) 沒有MsgB

    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文檔。 我的代

    2熱度

    1回答

    由於某些原因,我的VBA編輯器改變了行爲,現在要查看模塊中另一個子程序的代碼,我必須使用下拉菜單導航到它們,從而可以看到一次只有一個。 如何更改視圖以查看在同一時間的所有潛艇和職能,只能由水平線劃分,像從前那樣?

    0熱度

    2回答

    我試圖通過VBA代碼將所有垃圾郵件移動到我的收件箱。不幸的是我得到這一行的「424對象所需」的錯誤: Item.Move (olFLD) 代碼工作時,我嘗試從收件箱郵件移動到另一個文件夾,但是當我嘗試移動它不工作周圍的其他方法從垃圾郵件到收件箱。 Dim OlNS As Outlook.NameSpace Dim olFLD As Outlook.Folder Dim olJunk As

    0熱度

    2回答

    我有一個工作簿,其中包含客戶端信息。每個客戶都有一張工作表,每張工作表都標有客戶的唯一ID。我想要啓動一個UserForm,用戶將從cobo box中選擇一個客戶端。然後,來自相應工作表最後一行的數據填充UserForm。 在同一工作簿中的其他代碼中,我使用的是腳本字典,但這些字典都與特定工作表中的特定範圍相關聯。我不知道如何編寫UserForm以在所有工作表中搜索與cobo_ClientID字段

    10熱度

    2回答

    我已經寫在VBA刮刀解析從洪流站點的某些影片信息退出瀏覽器。我用IE和queryselector完成任務。當我執行我的代碼時,它會解析一切,並彈出一個錯誤。看起來這個錯誤似乎是無處不在,而不是繼續。如果我取消錯誤框,那麼我可以看到結果。我已經上傳了兩張圖片,向您展示我遇到的錯誤。我如何成功執行代碼而不會出現任何錯誤?提前致謝。 下面是完整的代碼: Sub Torrent_Data() D