vba

    0熱度

    1回答

    我想在單元格範圍內運行排名公式。我在撓撓我的頭,爲什麼它不工作。拉斯特羅只是計算行數的公式。 Range("B1:B" & Lastrow).Formula = "=RANK(A1,Offset(" & Chr$(36) & "A1" & Chr$(36) & "," & Lastrow & ",0))" 我覺得這是與CHR $(36)做錯事,但是當我嘗試CHR(36),它也不起作用。 (刪除

    0熱度

    1回答

    我喜歡從Excel打開PowerPoint文件。 我試了幾次,但它不起作用。 的問題聽起來類似於這些: not able to Open Powerpoint using VBA 唯一的區別是,我得到另一個錯誤代碼: 'Laufzeitfehler '-2147024894(80070002)': 死了Methode' 打開'fürdas Objekt'Presentations'ist fehl

    0熱度

    2回答

    我tryng以避免經由下面 每圖像查詢構建器德興設置屬性這行代碼(打開查詢)之後 DoCmd.OpenQuery cstrQueryName, acViewNormal, acReadOnly 我想動態格式化的列(如更改標題,當它是一個數字的格式...) 我曾嘗試以下但都失敗了 Screen.ActiveDatasheet.Controls(0).Caption.Value = "Assemb

    2熱度

    2回答

    我正在嘗試編寫一個宏,它將不同工作簿中定義的工作表組合起來,並將它們保存到一個單獨的工作簿中。每個工作簿都包含一個名稱相同的工作表MODEL。此片材具有一個組合框,此組合框與工作表的名稱在下面碼相關聯的,如:當所有的工作表中一個工作簿組合在一起,並更名 Sub ComboBox1_Change() Application.ScreenUpdating = False Select Case S

    0熱度

    1回答

    由於我的文檔通常有一些可以反覆使用的特定短語,因此我想將它們全部熱鍵以節省時間。更具體地說,我打算讓Macro1(插入「當然」),Macro2(插入「問題是」)和Macro3(插入「到時間」),熱鍵Alt + 1,2 ,分別爲3。如果我按Alt + 2,「問題是」立即插入到我的cusor中。 下面是我使用的基宏: Sub Macro1() Selection.TypeText Text:

    1熱度

    2回答

    我是vba的新手,並且正嘗試使用excel創建使用VBA的PivotTable。 我想創建像下面的圖像作爲輸入表。 我想補充的region,month,number,status行標籤和值value1,value2和total我在這裏可以設置範圍爲支點,在執行它創建「數據透視表」表只要。不會爲sheet1生成任何數據透視表。 我的代碼: Option Explicit Public Sub I

    -1熱度

    1回答

    不知道相關的解決方案,但只是讓你看到的工作流程,文件被設置如下: 一單被稱爲「模板」。 用戶在名爲「輸入信息」的另一張紙上輸入信息。 單擊cmdbutton「open client」,分配的宏將複製工作表「Template」並使用「Enter Info」工作表中的某些數據(客戶端名稱)對其進行重命名。 這一切工作正常。 在「模板」工作表(它被複制)我有2個命令按鈕,並已分配一個宏。該宏被保存在「本

    -2熱度

    1回答

    所以這是我的問題。當我點擊我添加一個新行的按鈕時,我爲第15列創建的公式未被複制。 Original When the button was clicked to add a new row 原始圖像: 然而,當我點擊了「點擊添加行」按鈕,我提出的公式15列並沒有被複制到同一列的新行。 這是我的代碼: Private Sub CommandButton1_Click() Dim myS

    -2熱度

    1回答

    我有一個Excel行,看起來像這樣: 0.0 0.0 0.0 0.0 0.0 1.0 ,每個值都是一個單元。我想要的是以0.1的步驟列出所有不同的分配選項。該行的總和邏輯始終爲1 所以結果應該是這個樣子: 0.0 0.0 0.0 0.0 0.1 0.9 0.0 0.0 0.0 0.0 0.2 0.8 0.0 0.0 0.0 0.0 0.3 0.7 ... 0.0 0.0 0.0 0.1

    -1熱度

    1回答

    我編寫了一個VBScript來導出.xlsx文件中的數據。下拉控件應該過濾數據。以下代碼顯示了我的添加方法: sub AddDropDownElement FirstSheet.DropDowns.Add(0, 0, 100, 15).Name = "SheetFilter" with FirstSheet.Shapes("SheetFilter") .Incre