vba

    0熱度

    1回答

    運行以下代碼時,出現錯誤「運行時錯誤'1004':應用程序定義或對象定義的錯誤」。它打破了對標線 Dim cwb As Workbook Dim csh As Worksheet Set cwb = Workbooks.Open("M:\Secretary Resources\AppTracking\SentSurveys.xlsx") Set csh = cwb.Sheets("Sheet

    0熱度

    1回答

    我試圖獲得使用GetCursorPos我的光標的位置,但它給我的錯誤 Managed Debugging Assistant 'PInvokeStackImbalance' : 'A call to PInvoke function 'MoveClickApp!MoveClickApp.Module1::GetCursorPos' has unbalanced the stack. This is

    0熱度

    1回答

    我試圖用代碼來計算增值稅和總在同一條直線E(同一行淨額)但增值稅的答案遠高於淨額的20%。與總金額相同的問題。我認爲這兩個數字可能會拿出一些其他數字,而不僅僅是淨額。下面是我的代碼的一部分,請給我一些建議嗎?非常感謝 Option Explicit Sub copy_info() Dim i As Long, j As Long, lastRow As Long Dim sh As Wor

    1熱度

    1回答

    Data > from text > Import text file > (manually select file) 我正在使用Excel 2010。在舊版本中,我可以點擊「刷新」,Excel可以知道哪些csv刷新我的文件,而不要求手動選擇文件。 有沒有辦法強制excel知道選擇哪個csv時我刷新數據?(活動連接>刷新> ..) 代替Excel的提示我回>導入文本文件>(手動..) 什麼是

    0熱度

    2回答

    我有三個不同的變量x,y & Z存儲不同的名稱。我不得不打開一個文件基於格式x_y_z.xls dim x,y,z as string x= abc y= def z= ece Const strfolder As String = "C:\Users\source\" Const samepattern As String = "x_y_Z.xls" samefiletype = D

    0熱度

    1回答

    我在一張名爲「Data」和「Daily」的工作簿中工作。我只是希望我的代碼在日常工作表中保存新的輸入,但不是這樣做,而是保存在活動工作表中。如果有人能解決此問題,我將不勝感激。 這裏是我的代碼: Private Sub CommandButton1_Click() 'Saving Button Dim sonsat As Long sonsat = Sheets("Daily

    0熱度

    2回答

    我有一列有數據,如year(date)或date-365。 如何將此文本用作代碼而不是文本?意思是,我希望能夠做到像 me.ProjectName="ddddd " & MyColumnWithCode ,並得到ddddd 2017或ddddd 10/21/2016 我做了谷歌在各個方面我能想到的,並沒有得到任何東西。

    2熱度

    3回答

    我在VBA編碼真的很新的,目前我有一個電子表格包含組及帳戶不同層次,下面是一個簡單的例子: 集團碼是所有的數字和帳戶代碼以3個字母開頭,說ABC後面跟着2或3個數字,所以一個例子是ABC100,第一個2個帳戶代碼字母總是相同的,即在該例子中是「AB」,所以另一個帳戶代碼可能是ABS80。 組/賬戶代碼位於對應於組/賬戶的單獨列中。 我的目標是建立一個宏這會爲我提供一個總結,在被稱爲一個單獨的標籤說

    -1熱度

    1回答

    有什麼方法可以查找列中的任何值是否小於允許的限制? 例如: 我有一個塔A進行任何更改影響的值在列B時 我想要設置的約束,其具有可變的數據,使得如果列A中B欄進行任何值小於7(由增加或減少列A中的值),那麼列A中的值將被拒絕,並且列A值將不會進一步更新(增加或減少)。最後的值將被設置爲最終值。 所以這裏的概念是循環遍歷列A中的每一行,並嘗試增加或減少值,直到條件滿足。 注:A列中的值必須是正 實施例

    2熱度

    1回答

    我希望我的意圖清晰。它用於庫存管理。第一個單元格顯示當前庫存,第二個單元格只是您可以鍵入輸入或輸出的單元格。我認爲Excel中的代碼應該是這樣的,但是我正在尋找相應的谷歌電子表格: Sub LagerNeu() Dim S As Integer [F2].Select S = ActiveCell.Value + ActiveCell.Offset(0, 1).Val