vba

    -1熱度

    1回答

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

    1熱度

    1回答

    我嘗試了以下兩種方式來添加多個與會者,但只有最後一個電子郵件地址在.To區域中聲明。 測試1:失敗 .RequiredAttendees = "[email protected];" .RequiredAttendees = "[email protected]" 測試2:失敗 .RequiredAttendees = "[email protected]; [email prot

    0熱度

    1回答

    我的VBA代碼,我得到了與它的數字和一個按鈕列表框,我想在列表框中顯示的數量,你以另一種形式選擇 例如我想從1買了數字鍵的10,如果我選擇3,我想接下來的形式展現你買了3個按鍵 Private Sub List28_Click() If Not IsNull([num of keys]) Then Forms! [navigation forms].Form.[navigationsubfor

    0熱度

    1回答

    Private Sub bBrowse_Click() Const msoFileDialogFilePicker As Long = 3 Dim objDialog As Object Set objDialog = Application.FileDialog(msoFileDialogFilePicker) With objDialog .AllowMulti

    0熱度

    1回答

    我有一個名爲BAF_User與2個字段(BAFUser,BRID)在Access中的用戶窗體。 我使用下面的代碼來獲取Windows用戶名,然後使用DLookup進行比較,並獲取登錄到Access文件的用戶的全名。 Option Compare Database Public Function GetUserName() As String Dim wshNet As Object Dim

    0熱度

    1回答

    如果在單擊「A2」之前ActiveCell爲「A1」,我希望if子句爲真。 它沒有連接一個按鈕或任何東西。它必須通過點擊「A2」來工作。 這是我嘗試我做: Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address(0, 0) = "A2" And ActiveCell.Cells(0, 0) =

    1熱度

    2回答

    我期待與多個字母大寫單詞的第一個實例後,細胞分裂。 實施例1: 輸入1:樓層4 InformatiqueNoosavilleSep 希望的輸出1:NoosavilleSep 圖樣:的應該分裂中的最後一個字出現在大寫的第二實例。 「InformatiqueNoosavilleSep」 實施例2: 輸入:樓層13個InformatiqueSurfers ParadiseSep 輸出:衝浪者Paradi

    -1熱度

    2回答

    我付了一個人來幫助我編寫一個宏來填充電子表格中的表。我覺得我通常可以理解一些編寫的代碼,但這超出了我的想法。我只是想學習如何爲自己做這件事。 Option Explicit Option Base 1 Dim s_no() As String Sub createReport() start_win.Show End Sub Sub ook() Dim last As In

    0熱度

    1回答

    我想創建一個宏以防止用戶打印表單,如果他們不填寫所有單元格。不過,我得到一個錯誤信息: Private Sub Workbook_BeforePrint(Cancel As Boolean) If Application.Sheets("Form").Range("B4,C4,D4,E4,F4,G4,H4,I4,J4,K4,L4,M4,B5,C5,D5,E5,F5,G5,H5,I5,J5,K5,

    0熱度

    2回答

    因此我使用此代碼,它太棒了。如果我可以得到一些線索如何調整它,所以它只會複製第一張從其拉出的工作簿。邊注 - 請記住,並非每個工作簿的第一張紙都標題爲「Sheet1」,其中一些名稱已輸入。 Sub MergeMultipleWorkbooks() 'Define Variables Dim Path, FileName As String 'Assign Values to Variab