excel-vba

    0熱度

    1回答

    我有點糊塗寫excel vba代碼。請幫助我。 這裏是我的要求 如果兩個細胞連續匹配的話,需要給一個名稱,下一行匹配的需要在Excel VBA中給予另一名動態地通過循環 若小區A = 1和小區-B = 2那麼弗里斯特名字,如果再次macthes下一行的第二個名字 我的代碼是 Sub fill_name() Dim i As Integer Dim nm As String

    0熱度

    2回答

    我在下面的代碼中收到錯誤。 Dim CurrentTime As Date CurrentTime = Format(Now(), "hh:mm AM/PM") If CurrentTime = ActiveSheet.Range("I1") Then Call SendEMail End If 當時間正確時,宏正在調試並且Now被高亮顯示。 任何人都可以解決這個問題嗎?

    2熱度

    1回答

    我發現了用於將文件上傳到Google Drive的Java,C#和Access VBA的不同腳本。但是我發現的Excel VBA中唯一的一個腳本是將文件保存在本地Google雲端硬盤文件夾中,然後等待應用程序同步它。 是否有可能以某種方式直接將Excel文件上傳到已與我共享的文件夾?如果是,如何?

    0熱度

    1回答

    (我知道這聽起來像一個重複的問題,但我到處搜索這個,我找不到任何關於這個) 我正試圖在工作中自動完成納稅申報程序。本質上,我正在閱讀幾個工作表並將相關字段填充到主映射表中。然而(這是奇怪的部分),當我第一次編碼所有東西時,沒有錯誤,我設法找到了一切。雖然保存並重新打開工作簿後,我不斷收到此錯誤,並且僅限於某些行(在總共調用.find方法的57次中出現了9次)。 我知道這個錯誤意味着.find方法找

    0熱度

    1回答

    我有一個訪問數據庫,其中每個數據都有兩個不同列中的日期和時間。 我需要運行使用VBA在Excel中查詢這將取我兩個特定日期和時間之間的數據(例如:2016年1月5日13:15和2016年3月5日10:11) 我的查詢如下: SQL = "SELECT * FROM " & database & " WHERE symbol='" & companyName & _ "' AND Adm

    0熱度

    2回答

    我開發了一個將表單導入到現有表單的excel插件。我希望能夠在任何地方雙擊並能夠跳回到第一張。 Private Sub Worksheet_BeforeDoubleClick(ByVal target As Range, cancel As Boolean) Sheets(1).Select cancel = True End Sub 另一個程序寫一個彙總excel文件。我開發了一個

    0熱度

    1回答

    將數據成功加載到列表框後,我被告知數據應該水平定向而不是垂直定向。如何實施新的規格? 下面是所期望的結果: Private Sub CommandButton3_Click() Dim i As Integer Dim k As Integer With Me.lsbWarenausgang For k = 0 To .ListCount - 1

    1熱度

    1回答

    問候堆棧溢出denizens! 我有一個問題,試圖讓一個涉及INDIRECT的公式與INDEX一起表現自己。當我使用特定的行值時,數組工作正常,但是當我嘗試使用INDIRECT獲取當前行號時,我獲得了#VALUE!錯誤。 例如:我有這樣的在細胞R108,和它的工作,因爲它應該: =IF(OR(ISERROR(INDEX(MODEL,SMALL(IF(OWNERID=N108,ROW(OWNERID

    0熱度

    1回答

    我試圖調用保護功能的工作簿關閉之前執行,但它不工作。在WorkBook_BeforeClose()調用時保護子工作正常自身而不是 這是在模塊1中找到的代碼: Public Sub protect() Dim index As Integer index = 1 Do While index <= ActiveWorkbook.Worksheets.Count ActiveWorkboo

    1熱度

    1回答

    vba非常新,而且我在使用一段代碼時遇到了一些問題。實質上,我試圖從用戶表單中的列表框中對用戶選擇的項目執行不同的工作表函數。 Private Sub cmdRunStat_Click() Dim averageValue As Single Dim sdValue As Single Dim maxValue As Variant Dim minValue As Single Dim