excel-vba

    -1熱度

    2回答

    有人可以告訴我這是什麼做行: ActiveSheet.Range("AH1").FormulaArray = "=iferror(MATCH(1,(plan!T3:T20000=AF1)* (plan!W3:W20000=MONTH(E1)),0),0)+2" 計劃表在我的Excel文件的名稱。提前致謝。

    0熱度

    2回答

    我有一些很難找到合適的代碼如下目標: 我有一個宏觀的紙張,當我在小區變更的值E5,自動填充sheet1中的某些字段,從其他表的表格中搜索並返回值 - sheetTable)。因此在更換單元格E5之後,sheet1基本上已準備好打印。 我的目標是在一列上sheetTable選擇值的範圍和將它們分配中的每一個細胞上E5工作表Sheet ,並打印各一個。 因此,可以說我選擇3個細胞值:45,50和66當

    1熱度

    1回答

    我正試圖找到在當前單元格之前插入單元格的正確方法。 我正在循環連續的一些單元格 - 當它找到正確的值時,我希望它向右移動。 我試過這段代碼:(位於後的代碼有指向一個值的偏移量相對於起始活動單元格) Dim shiftrng as Range For ctr = locatedPostCodeIndex To 4 Set shiftrng = Range(cll.Offset(0,

    0熱度

    2回答

    我在excel中創建了一種方法,通過改變單元格的值(間隔),我可以通過「移動平均值」來平滑數據,並在圖形中實時查看更改,而不是每次都必須點擊數據分析 - 移動平均數等。問題在於,我發現Excel的顯示速度很慢,因爲它似乎是每次在同一張表格中「計算」移動平均值(或別的東西)。當我在同一個文件中有很多數據時,情況會變得很糟糕。 這是我目前做的方式:我複製下面的E3公式 然後我拖累了相同數量的佔用的行中

    1熱度

    3回答

    我得到此代碼工作一段時間,但最後幾天它沒有工作。從活動workbook1它假設進口sheetworkThisworkbook2: Sub ImportallWBsh() 'https://michaelaustinfu.files.wordpress.com/2013/03/excel-vba-for-dummies-3rd-edition.pdf, Page 245 Dim

    0熱度

    3回答

    我想刪除列B中已有ID出現在「交易」片。但是,當我使用下面的代碼刪除行時,不重複的ID行也被刪除(最頂層的異常除外)。我的刪除代碼是否有誤? 這裏是我的代碼: Sub Removeduplicate() Dim i As Integer Dim j As Integer Dim num As Integer Dim lastCellB As Range num = 0

    0熱度

    2回答

    我有一個帶有宏的工作簿來生成一個HTML文件,並將其顯示在嵌入其中一個工作表的Web瀏覽器中。在Excel 2016測試此宏後,我碰到這裏所描述的ActiveX控件的問題就來了:How to make Microsoft Web Browser object work in Excel 2016 而這裏的一段腳本在Web瀏覽器加載頁面: Sub LoadHTML() Set IE = S

    0熱度

    1回答

    我有一些Excel宏,人們在執行前手動粘貼到它的數據。 爲了避免宏運行中的錯誤,我想禁用粘貼某些列的數據。 我 Private Sub Worksheet_Change(ByVal Target As Range) Target.Column = 7 Target.Column = 8 Target.Column = 12 End Sub 試過有人能指導我如何可

    0熱度

    3回答

    我有一個受保護的工作簿,它具有使用數據驗證手動創建的下拉列表。 我有一個隱藏的工作表,其中我已經爲其中的值定義了名稱,並使用=SheetName!A1:A6在實際工作表上創建了數據驗證。 這足夠我的需要。然而,新的請求引發了應該有能力增加用戶新值的能力。 例如:假設我有一個下拉值爲A,B和C.現在用戶必須從三個中選擇一個。但是,如果他想要D,E(一次性使用),他應該能夠增加任何新的價值。不需要將這

    0熱度

    3回答

    所以,我有一個關於選擇一個公式化值的確切單元格的問題。我真的是VBA的新手,我在網上搜索了至少2天的寶貴答案。在這裏讓我給你展示代碼,試圖說明它後來做了什麼; Dim r As Range MinTime = WorksheetFunction.Min(Range("C5:L14")) Set r = ActiveSheet.Cells.Find(MinTime) r.Select