vba

问题 This one is a rather short question and probably easy to answer, however I fail to do so myself at this point: Sample data: A B C Sample code: With Sheet1 Debug.Print Application.WorksheetFunction.Match("D", .Columns(1), 0) 'Option1 Debug.Print Application.Match("D", .Columns(1), 0) 'Option2 Debug.Print WorksheetFunction.Match("D", .Columns(1), 0) 'Option3 End With Question: I know that option2 lost intellisense and will not go into debug mode, however option1 and option3 behave the same

问题 I have protected sheets 4 with a password because there are some cells that users aren't allowed to input in those cells in sheet 4. The password is 1234. But, I want to run my macro, and if there is an error, the cell will be highlight automatically. My macro doesn't run and error, because the cell that I want to highlight is in protected sheet. How to make the sheet 4 stay protected and make my macro keep running when I click the validation button? Private Sub commandbutton1_click()

问题 I have the following problem and it's driving me NUTS! I work on a large database program in Excel, and I'm trying to retrieve the row and column numbers of specific named ranges. The following code used to work (temp_entryvalue is the name of the range): temp_datafile_row = Workbooks(datafile_filepath).Worksheets(temp_datafile_worksheet).Range(temp_entryvalue).Row temp_datafile_col = Workbooks(datafile_filepath).Worksheets(temp_datafile_worksheet).Range(temp_entryvalue).Column I get the ole'

问题 I try to call a procedure giving to arguments, it throws a compile error stating "Expected: =". ... Dim isWorkaround As Boolean isWorkaround = False If Check101.Value = True Then isWorkaround = True End If ... 'Procedure I try to call ElseIf Combo_Report_Selection = "Adjusted Report" And Combo_someOther= "Other" Then Call_01_Adj_Report(div, isWorkaround) ElseIf Combo_Report_Selection = "Upload Log" Then Call_03_Upload_Log ElseIf Combo_Report_Selection = "Gather Summary" Then Call_04_Adj

问题 I have a trigger that I want to use in certain worksheet - just inside 2 specific columns. But whan I enter a value inside another range it triggers the Private Sub of that worksheet. I want it would start to work just whan I cange value within columns E or H. Is someone knows how to do it right? Private Sub Worksheet_Change(ByVal Target As Range) Dim LR As Long Dim rng1 As Range Dim rng2 As Range 'WE WANT TO KEEP THE TARGET COLUMNS BETWEEN 0% TO 100% LR = Cells(Rows.Count, "A").End(xlUp).Row

问题 I have sheets listed in an Excel Workbook that don't actually exist. The sheets are listed when you view code and are looking at the list of sheets in the VBA part, but they don't actually exist in the workbook at all. They also aren't hidden, in case someone is thinking of that. These sheets also don't have a name after them in parentheses and look like the same icon as ThisWorkbook. I have no way to delete them and have been trying. Does anyone have any suggestions on how to delete them

问题 I have sheets listed in an Excel Workbook that don't actually exist. The sheets are listed when you view code and are looking at the list of sheets in the VBA part, but they don't actually exist in the workbook at all. They also aren't hidden, in case someone is thinking of that. These sheets also don't have a name after them in parentheses and look like the same icon as ThisWorkbook. I have no way to delete them and have been trying. Does anyone have any suggestions on how to delete them

问题 I have sheets listed in an Excel Workbook that don't actually exist. The sheets are listed when you view code and are looking at the list of sheets in the VBA part, but they don't actually exist in the workbook at all. They also aren't hidden, in case someone is thinking of that. These sheets also don't have a name after them in parentheses and look like the same icon as ThisWorkbook. I have no way to delete them and have been trying. Does anyone have any suggestions on how to delete them

问题 I have sheets listed in an Excel Workbook that don't actually exist. The sheets are listed when you view code and are looking at the list of sheets in the VBA part, but they don't actually exist in the workbook at all. They also aren't hidden, in case someone is thinking of that. These sheets also don't have a name after them in parentheses and look like the same icon as ThisWorkbook. I have no way to delete them and have been trying. Does anyone have any suggestions on how to delete them

问题 I have sheets listed in an Excel Workbook that don't actually exist. The sheets are listed when you view code and are looking at the list of sheets in the VBA part, but they don't actually exist in the workbook at all. They also aren't hidden, in case someone is thinking of that. These sheets also don't have a name after them in parentheses and look like the same icon as ThisWorkbook. I have no way to delete them and have been trying. Does anyone have any suggestions on how to delete them