excel-vba

问题 I am struggling to sign an XLA from Excel 2016 with a timestamp . This is important, because without a timestamp the signature becomes invalid when the code signing certificate used expires. Unfortunately by default Excel does not apply a timestamp to the signature. Microsoft's documentation (https://docs.microsoft.com/en-us/deployoffice/security/use-digital-signatures-with-office) states: To use the time stamp functionality with digital signatures, you must complete the following tasks: Set

问题 I have one more time a problem: I want to convert from Strings to dates in VBA The Strings look like: YYYY-DD-MM The date should be like: DD.MM.YYYY I know, normally you do this with the method cdate(), but it doesn't work here. I think it's because the structure of the string is bad to convert. thanks for your help InformatikBabo 回答1: Sub Main() Dim strDate As String strDate = "2013-06-11" Debug.Print "Original Date: ", strDate Debug.Print "CDate() Conversion: ", CDate(strDate) Debug.Print

问题 I have 2 columns and need a VBA code to sum the values of unique elements in column "A", print the unique elements in column "D" and sum in column "E" :- Name Value Name Sum A 1 A 13 A 2 B 7 B 1 C 3 B 3 C 2 A 1 B 2 A 3 B 1 A 2 A 4 C 1 Can anyone help on this, this is what I tried :- Sub CountSum() Dim c As Collection, wf As WorksheetFunction, _ K As Long, N As Long, i As Long, _ v As Variant, d As Collection, y As Variant Set c = New Collection Set d = New Collection Set wf = Application

问题 After doing a thorough research in the internet, I was able to build the following codes: Sub EmailSuccess() Dim OutlookApplication As Outlook.Application Dim OutlookMailItem As Outlook.MailItem Dim Recipients As Object Dim myRecipients As Outlook.Recipient Dim sTo As Object Dim CCs As Object Dim myCCs As Outlook.Recipient Dim sCc As Object Dim emailContent As String Dim OutDocSto As String Dim ArchiveLinks As String Dim KendoxDocs As String Dim LinksGE As String Dim PicSheet2 As Object Dim

问题 I'm trying to insert a specific number of rows. Right now I'm using the below code to insert 4 lines. I'm trying to write a line of code that will insert a certain number or rows based on a number in a certain cell. For example, if I wanted to insert 4 rows and cell A2 is the cell where I can change the number of rows I want to add, what code would I use to add any number of rows based off what number I insert in cell A2. ActiveCell.EntireRow.Select Selection.Insert Shift:=xlDown Selection

问题 I'm trying to insert a specific number of rows. Right now I'm using the below code to insert 4 lines. I'm trying to write a line of code that will insert a certain number or rows based on a number in a certain cell. For example, if I wanted to insert 4 rows and cell A2 is the cell where I can change the number of rows I want to add, what code would I use to add any number of rows based off what number I insert in cell A2. ActiveCell.EntireRow.Select Selection.Insert Shift:=xlDown Selection

问题 I have an optimization model and I try to solve this model for different input files which I exactly call as "solve the model under different scenarios". For that reason, I need a loop to read the data from excel for each different sheet. Let me make myself clear: For example, in the image below we have a data with 4 scenarios and the sheet names are increasing one by one for each scenario This data has to be read as a table for each scenario, like in the excel file. I try to read the data

问题 I am inserting data into a Word doc from an Excel spreadsheet. There is a value that has more than 2 decimal places. I am using the following code to try to convert it to 2 decimal places and paste it to my doc. wdApp.Selection.GoTo what:=-1, Name:="Device_Avail" ''Referring to the total count column in the Device Availability worksheet. Set devAvailRow = shDevAvail.Range("A:A").Find("Overall Totals:", After:=Cells(1, 1), searchdirection:=xlPrevious) ''Actual piece to format value to 2

问题 I am inserting data into a Word doc from an Excel spreadsheet. There is a value that has more than 2 decimal places. I am using the following code to try to convert it to 2 decimal places and paste it to my doc. wdApp.Selection.GoTo what:=-1, Name:="Device_Avail" ''Referring to the total count column in the Device Availability worksheet. Set devAvailRow = shDevAvail.Range("A:A").Find("Overall Totals:", After:=Cells(1, 1), searchdirection:=xlPrevious) ''Actual piece to format value to 2

问题 I am inserting data into a Word doc from an Excel spreadsheet. There is a value that has more than 2 decimal places. I am using the following code to try to convert it to 2 decimal places and paste it to my doc. wdApp.Selection.GoTo what:=-1, Name:="Device_Avail" ''Referring to the total count column in the Device Availability worksheet. Set devAvailRow = shDevAvail.Range("A:A").Find("Overall Totals:", After:=Cells(1, 1), searchdirection:=xlPrevious) ''Actual piece to format value to 2