worksheet-function

    1熱度

    1回答

    我正在使用一些旨在根據下拉菜單中的選擇隱藏/取消隱藏表格的代碼。安裝程序是: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = Range("SelectCP").Address Then Select Case Target.Value Case "All"

    0熱度

    1回答

    我使用apache poi jar(poi-ooxml-3.9.jar)生成Excel文件(.xlsx),我在我的excel中添加了10列的下拉驗證文件,如果我使用50行生成Excel文件,則下拉驗證正在工作。如果超過50行,下拉驗證不在Excel文件中,當我打開Excel文件時,我收到消息「我們發現fileName.xlsx中的某些內容存在問題,您是否希望我們嘗試儘可能恢復?如果您信任此工作簿的

    2熱度

    3回答

    例如,我想要計算列A中出現的「johns」的數量,但是列中既有名字也有姓,我想統計所有johns,而不考慮他們的姓。 我使用下面的代碼但似乎並沒有工作: Range("A199").Value = WorksheetFunction.CountIf(Range("A1", Range("A1").End(xlDown)), Cells.Find(What:="John "))

    2熱度

    2回答

    我有下面的代碼,應該找到範圍中的第1,2,3個和第4個最高值。 它目前是非常基本的,我有它提供了一個MsgBox的值,所以我可以確認它正在工作。 但是,它只找到最高值和第二高值。第三個和第四個值返回爲0.我錯過了什麼? Sub Macro1() Dim rng As Range, cell As Range Dim firstVal As Double, secondVal As Doubl

    0熱度

    2回答

    我想創建一個VBA腳本,它將選擇多個工作表,然後將這些工作表導出爲PDF。我對編碼還很陌生,但對於PDF部分的編碼(在單個選項卡上工作)我沒有問題。我遇到麻煩的是選擇多個工作表。我正在使用動態數組來查看工作表名稱並決定是否選擇它。每件事情都可以正常工作,直到我選擇工作表的那一部分。我得到運行時錯誤'9':下標超出範圍。我在代碼中放了幾個Debug.Prints,並確實看到我的數組包含工作表名稱。以

    0熱度

    1回答

    我已經激活了「sheet2」,但即使如此,求和函數也從「sheet1」取代了「sheet2」。 Worksheets("sheet2").Activate Sheets("sheet2").Cells(fl1, nf) = Application.WorksheetFunction.Sum(Range(Cells(fl1, locrng1.Column), Cells(fl1, (nf - 1)

    0熱度

    2回答

    我已經越來越從另一個funtion通過在字符串中的字符,文件夾名像foldername = "a\\b\\c"或foldername = "a"和我試圖找到該文件夾​​名稱中包含"\\"和替代"\\"與"__",分裂FOLDERNAME基於"__"和傳入一個數組。 請看看我到現在爲止的嘗試。 樣本值: If WorksheetFunction.Find("\\", foldername) = 1

    0熱度

    1回答

    我有一個電子表格,我需要列B自動填充日期和時間列C-K更新。有比K更遠的列,我不想觸發更新代碼。 首先,我用下面的代碼: Private Sub Worksheet_Change(ByVal Target As Range) Dim i As Integer i = Target.Row Dim t As String t = VBA.Now Cells(i, 2) = t End S

    0熱度

    1回答

    我在A:H中有一張包含300張發票的工作表,每個發票的格式都完全相同。列A包含將作爲參考值的ID,間隔50個單元格。如果我知道的參考ID,我用這個公式: =OFFSET($A$302,20,7) 在另一個工作簿中,我有ID的小單子,我需要匹配列A中的ID,然後返回值20行下來,7列橫跨。我想,隨着VLOOKUP,但沒有奏效: =VLOOKUP(L302,$A:$H,OFFSET(L302,20

    2熱度

    1回答

    我想知道是否有人可以幫助我。我創建了一個非常簡單的用戶表單來記錄信息。然而,我的問題是,當其中一個字段爲空時,我收到一條錯誤消息: 未定義子或函數。 Private Sub CommandButton1_Click() Dim iRow As Long Dim ws As Worksheet Set ws = Worksheets("Data") 'find first empty r