excel-vba

问题 I have the below code, In L1 I want to select all dates except for yesterday and today and in M1 unselect all. I able to do the same in M1 but unable to perform the action in L1. Range("L1").Select ActiveSheet.Range("$A$1:$U$3804").AutoFilter Field:=12, Operator:= _ xlFilterValues, Criteria2:=Array(1, "2/11/2016", 1, "3/31/2016", 2, "4/5/2016", 2, _ "4/6/2016", 2, "4/7/2016", 2, "4/8/2016", 2, "4/11/2016", 2, "4/12/2016", 2, "4/13/2016", _ 2, "4/14/2016", 2, "4/15/2016", 2, "4/18/2016", 2, "4

问题 I want to get the result of a formula contained in a cell, but I always get 0 returned, instead of the real results. I have the following: Set c = .Cells (5,5) MsgBox (c.Formula) ' this return the following: = ASIN (W22-V22/$D$7)*180/PI() MsgBox (c.Value) ' this returns 0 MsgBox (c.Value2) ' this returns 0 as well And even if I try with Evaluate: evaluation = Application.Evaluate (c.Formula) MsgBox (c.Value) ' it still returns 0 回答1: Zero is the correct answer if both V22 and W22 are zero.

问题 I want to get the result of a formula contained in a cell, but I always get 0 returned, instead of the real results. I have the following: Set c = .Cells (5,5) MsgBox (c.Formula) ' this return the following: = ASIN (W22-V22/$D$7)*180/PI() MsgBox (c.Value) ' this returns 0 MsgBox (c.Value2) ' this returns 0 as well And even if I try with Evaluate: evaluation = Application.Evaluate (c.Formula) MsgBox (c.Value) ' it still returns 0 回答1: Zero is the correct answer if both V22 and W22 are zero.

问题 Overview Hello everyone, I'm currently designing a basic financial Excel workbook that will constantly receive an inflow of data, and calculate a few statistics on it for planning purposes. The idea is that the user will type in their income for that period, and the workbook will update its statistical data instantly. Actual Issue The problem is when I want to find the lowest value greater then zero. I will type my array formula into the box I want to display it in, and press the appropriate

问题 I went through interesting code examples found at the following URLS https://www.rondebruin.nl/win/s9/win002.htm http://www.cpearson.com/excel/vbe.aspx I have adapted the code to export/import modules to my needs still I cannot figure out how I could import a sheet source code file to add it to a new workbook as sheet code. I can easily check for the VBcomponent type when I save the component to create a sheet source code file but the import VBcomponent method will wrongly create a new class

问题 Encountered below error in my vba code. Run-time error '1004': Copy Method of Worksheet Class failed Public Sub ExportAsCSV(savePath) Set ws = Workbooks("OND Estimator").Worksheets("port") 'Sheet to export as CSV Set wb = Application.Workbooks.Add ws.Copy Before:=wb.Worksheets(wb.Worksheets.Count) Application.DisplayAlerts = False 'Possibly overwrite without asking wb.SaveAs Filename:=savePath, FileFormat:=xlCSV Application.DisplayAlerts = True wb.Close savechanges:=False End Sub 回答1: Just

问题 I'm having issues with an onclick event for a checkbox in a vba form. Basically what I am trying to do is ammend the value of all checkboxes on specific tab to be the same value as a master checkbox. In this instance, it is the 'Use Online' captioned checkbox below (online_toggle in the code) which once clicked should toggle the other checkboxes on the tab 'on' or 'off'. I currently have the following code but it keeps producing an error at 'For Each obj In online.OLEObjects' Private Sub

问题 I'm running a code that requires me to name a chart so I can refer back to it later. The code I use for this is: Sheets("Summary").Activate ActiveSheet.Shapes.AddChart.Select ActiveChart.ChartType = xlXYScatterLines With ActiveChart .Name = "energy distribution chart" End With I've tried just naming the chart not using the with... as in: ActiveChart.Name = "energy distribution chart" Doesn't work also. Whenever the code runs at that line I get a "run-time error 7 - Out of memory". I've tried

问题 i try to get some information out of a table within a website by macro to an excel table. usually I just use ie2.ExecWB 17, 0 '// SelectAll ie2.ExecWB 12, 2 '// Copy selection and paste it to any excel sheet which is enough for my needs. but the website was changed. the problem is now, that I need to get the information of website cell with the following code: <tr class="odd"><td><a href="xxxxxxx"> <img border="0" src="letter.png" title="Titel0" /></a><td></td> <td><img title="VServer Usage"

问题 Is it possible to implement Set operation on sheets of Excel using vbscript? Say A - A'=A1 Suppose i do have a matrix A, as below : PID T1 T1Sdate T1Assign T2 T2Sdate T2Assign T3 T3Sdate T3Assign T4 T4Sdate T4Assign 10 A 10/11 Ram B 2/5 Hari X 03/03 Peter L 04/09 Mikel 20 A 10/11 Kajal T 7/5 Lisa X 03/03 Peter L 04/07 Sila 25 Y 10/11 Sila T 7/5 Lisa X 02/03 Peter L 17/07 Mikel From above i got the below matrix A': PID T1 T1Sdate T1Assign T2 T2Sdate T2Assign T3 T3Sdate T3Assign T4 T4Sdate