excel-vba

    0熱度

    2回答

    我有一個插入工作表的宏,然後在該工作表上插入4個圖表。這些圖表的大小和位置使其具有該工作表中屏幕的四分之一。 現在我想弄清楚如何讓用戶雙擊這些圖表中的一個,它會將圖表放大到工作表的完整大小。當他們再次雙擊時,它會恢復到四分之一大小。 我最大的絆腳石是如何處理和在有問題的圖表上雙擊事件。我已經能夠使它在工作表上工作。但圖表似乎很棘手,因爲它們最初並不在那裏。定位和尺寸是容易的。網上有類似問題的幫助,

    1熱度

    2回答

    因此,我正在編寫一些VBA代碼,這些代碼遍歷我的文檔並查找公式返回錯誤的位置,並將它與其下面的單元格合併並居中。 Private Sub CommandButton22_Click() Dim strTemp As String Dim ev As Variant Dim rng As Range, cell As Range Set rng = Range

    0熱度

    2回答

    我正在尋找只有特定工作表才能運行的宏。宏的目的是查找指定範圍並找到負值,以及是否有將整行提取到新工作表中,同時將這些負值轉換爲正值。我想出了一些,但我確信這是完全錯誤的...錯過了很多東西。仍然試圖學習,新vba的東西。預先感謝您提供的任何幫助。 fyi ntp代表負面的陽性。不知道這會幫助,只是覺得我可以所有的細節寫信給我的小「代碼」 Sub ntp() Dim ws As Worksheet

    2熱度

    1回答

    我希望有我的計劃,在由變量定義的特定位置開始計數。我知道,你可以使用rn = sh.Cells(9, 1)例如,變量rn現在持有的cells(9,1)位置。但是,當我在計數命令使用變量rn,我收到以下錯誤: Method 'Range' of object' _worksheet' failed 這裏是我的代碼: Option Explicit Sub Struc_Equa() Dim n A

    0熱度

    1回答

    我正在爲簡單的excel應用程序爲多個用戶在過程的不同階段輸入數據。不幸的是,我遇到了在表格的一行中存儲來自多個用戶表單的數據的問題。 我會盡我所能解釋清楚整個事情是什麼。 例如,我稱之爲「電影時間控制」應用程序。讓我們想象一下,它是用於控制與重點看電影的工具: 當電影開始, 如果顯示(爲什麼)期間,有一些休息已經重啓電影時 (休息了多長時間,有多少休息時間以及繼續採取了什麼行動), 在電影被中止

    0熱度

    1回答

    我有以下代碼,它通過Worksheet_SelectionChange觸發。但是,它似乎也被刪除了。我如何保持評論? If Intersect(Target, Range("B5:B34")) Is Nothing Or Target = "" Then For Each bx In ActiveSheet.TextBoxes bx.Delete Next End

    0熱度

    1回答

    我想在Excel中使用數據驗證,如果用戶在輸入十進制數值時會產生錯誤一列(列W)和從另一列(列V)選擇「BCD」選項。請看下面的圖片,它顯示了我所描述的兩列。 在圖片中,我不希望用戶輸入23.45(十進制值),因爲在第V列他們選擇了BCD。相反,我會顯示一條錯誤消息,指出需要輸入一個整數。 謝謝

    0熱度

    1回答

    所以這是我的情況。查看圖片以獲得更好的理解。 Example table 所以我想要做的是,IF在columnnÇ細胞不爲空,則Excel將填充柱B的前3個字母,以columnn D.我用下面的宏可以這樣做: Sub FillCountryCode() Sheets("Sheet1").Range("D2:D20").Formula = "=IF(C2 <> """", LEFT(B2,3),

    0熱度

    2回答

    我一直在嘗試做一個Excel的公式,但無法找到正確的組合。 目標:我想要COUNTIFS細胞只在將過濾器應用到原始數據集後纔可見。 電流/錯誤輸出:38 正確的輸出:15 這裏是電流式: =COUNTIFS(INDEX('Current Month'!$A:AJ,0,MATCH("Dryness + Absorbency",'Current Month'!$A$1:$AJ$1,0)),"POSIT

    1熱度

    1回答

    我想自動填充我的公式到最後一列。這裏是我的代碼: Dim LastColumn As Long LastColumn = Cells(5, Columns.Count).End(xlToLeft).Column Selection.AutoFill Destination:=Range("B1:" & LastColumn & "1"), Type:=xlFillDefault 我已經成功