worksheet

问题 In my sheet in column B I have names of components In column A I would like to have checkboxes which are dynamically added, as the list of names in column B will increase over time I need to be able to do the following: - handle the events (onclick) as ticking/unticking the checkboxes hides/unhides rows in another sheet - return the status of each checkbox as I cycle through the checkboxes in another module (onclick from a commandbox) and depending on the status an action follows or not -

问题 My current code will attempt to copy entire rows based on the column A duplicated name to its respective worksheet using VBA as shown below. But it only works for the 1st duplicated name but not the rest. When i review my code, i realised that my target(at the part for target=Lbound to Ubound part) is always 0 so i was wondering why is it always 0 in this case? Because it suppose to be ranging from 0 to 3? Sub test() Dim ws As Worksheet: Set ws = ThisWorkbook.Sheets("Sheet1") Dim cs As

问题 My current code will attempt to copy entire rows based on the column A duplicated name to its respective worksheet using VBA as shown below. But it only works for the 1st duplicated name but not the rest. When i review my code, i realised that my target(at the part for target=Lbound to Ubound part) is always 0 so i was wondering why is it always 0 in this case? Because it suppose to be ranging from 0 to 3? Sub test() Dim ws As Worksheet: Set ws = ThisWorkbook.Sheets("Sheet1") Dim cs As

问题 My current code will attempt to copy entire rows based on the column A duplicated name to its respective worksheet using VBA as shown below. But it only works for the 1st duplicated name but not the rest. When i review my code, i realised that my target(at the part for target=Lbound to Ubound part) is always 0 so i was wondering why is it always 0 in this case? Because it suppose to be ranging from 0 to 3? Sub test() Dim ws As Worksheet: Set ws = ThisWorkbook.Sheets("Sheet1") Dim cs As

问题 I am trying to open an XLSX file as a template (I have even used a blank XLSX file), using EPPLUS 4.0.3. If I do not open the template file (blank or the real one) and just create a new workbook and create a sheet, it works fine. OR if I open the template file, and create a NEW worksheet, then it works fine. It is only when I try to access the FIRST sheet in the template that I get the error: Worksheet position out of range. Accessing the first worksheet like this: workBook.Worksheets.First()

问题 We can check if a sheet is protected using ProtectContents property. But how check if it is protected with a password? if ws.ProtectContents then ''do something end if 回答1: I don't believe there is a direct way of doing this by way of a property. Alternatively, though, you could attempt to unprotect the worksheet with a blank password and catch the error should it fail: Function isSheetProtectedWithPassword(ws As Worksheet) As Boolean If ws.ProtectContents Then On Error GoTo errorLabel ws

问题 We can check if a sheet is protected using ProtectContents property. But how check if it is protected with a password? if ws.ProtectContents then ''do something end if 回答1: I don't believe there is a direct way of doing this by way of a property. Alternatively, though, you could attempt to unprotect the worksheet with a blank password and catch the error should it fail: Function isSheetProtectedWithPassword(ws As Worksheet) As Boolean If ws.ProtectContents Then On Error GoTo errorLabel ws

问题 In order to make some reports I need to parse some excel files. When I try to select records from sheet I get next error: Invalid bracketing of name '1. page$'. Heres my code: OleDbDataAdapter myCommand = new OleDbDataAdapter("SELECT * FROM [1. page$]", connectionString); I know it will work if I rename sheet to "page" for example, but as i'm not naming these sheets I need to know how to fix this query to work as it is. What should I do? 回答1: I had this same problem, replaced the . with a #

问题 I am trying to run this worksheet change event for two different columns(A) and (I)... Private Sub Worksheet_Change(ByVal Target As Range) Dim A As Range, B As Range, Inte As Range, r As Range Set A = Range("A:A") Set Inte = Intersect(A, Target) If Inte Is Nothing Then Exit Sub Application.EnableEvents = False For Each r In Inte r.Offset(0, 1).Value = Date Next r Application.EnableEvents = True End Sub This event is something i found on this forum. Its purpose is to make it so whenever data

问题 Is it possible, When exporting a dataset from SPSS to Excel, to control the name of the worksheet the data is being saved into ? The "SAVE TRANSLATE OUTFILE" command does not allow for this. I have SPSS 21, with Python installed (although I am fairly new to Python...) 回答1: Yes. See this weblink on IBM website for details. get file="C:\Program Files\IBM\SPSS\Statistics\23\Samples\English\Employee data.sav". SAVE TRANSLATE /TYPE=ODBC /CONNECT='DSN=Excel Files;DBQ=C:\Daten\Temp