excel-vba

    1熱度

    1回答

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

    0熱度

    1回答

    我有一個電子表格,其中,如果所選擇的小區是B2 Excel稍後將選擇範圍A2匹配值:E2,但如果B3的值是相同的B2那麼範圍將是A2:E3。如果在B2中有相同值的1,2,3,4,5等行的話,我也需要這樣做。 一旦進行了宏觀的其餘部分,我想它,然後返回到前一個選擇的範圍的結束和向下移動一行,並重復這個過程,直到滿足列空單元格D. example of spreadsHeet

    0熱度

    1回答

    我想複製Helper工作表中的一些範圍。 事實上,我想重新格式化複製的範圍,並將它們設置爲Format as Table。 每個範圍包含一個標題想要是非Table format。 我嘗試下面的代碼: ActiveSheet.ListObjects.Add(xlSrcRange, Range(Cells(UpLeft,1).Address ":" & Cells(DownRight, 20).Add

    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

    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

    0熱度

    1回答

    我有一個vba,它獲取一個URL。 URL(如果插入到瀏覽器中)下載.csv文件。 vba應該從URL獲取該.csv文件的數據,並將數據添加到新工作表。 這是必須連接到URL和獲取數據的代碼: With Sheets(currentSymbol).QueryTables.Add(Connection:= _ "TEXT;" & URL _ , Destinati

    1熱度

    1回答

    我想刪除整個行,如果列A中的任何單元格爲空。 此外,此代碼應在同一工作簿中的兩個特定工作表上運行(即「ATM SLA可用性報告」&「事故報告」)。 以下是我的代碼。當我運行它時,它給了我運行時錯誤9。 Sub test() Worksheets("ATM SLA Availability Report").Range("A:A").SpecialCells(xlCellTypeBlank