vba

问题 i'm having difficult to create on query with two different database in ADO, i need to make a lot of queries with different sources, for example select from excel file with left join in access file. When i use two different excel files like the code below works fine. Dim SQL As String Dim CN As New ADODB.Connection Dim rs As New ADODB.Recordset Set CN = New ADODB.Connection Set rs = New ADODB.Recordset 'Open connection CN.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _ "Data Source=C:\ExcelTable

问题 i'm having difficult to create on query with two different database in ADO, i need to make a lot of queries with different sources, for example select from excel file with left join in access file. When i use two different excel files like the code below works fine. Dim SQL As String Dim CN As New ADODB.Connection Dim rs As New ADODB.Recordset Set CN = New ADODB.Connection Set rs = New ADODB.Recordset 'Open connection CN.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _ "Data Source=C:\ExcelTable

问题 Problem description I try to get code working under 64-Bit VBA which works fine in 32-Bit VBA. It is regarding Common Controls TaskDialogs. I use Microsoft Access, but the problem should be the same in other VBA hosts. One part works fine in both (32- and 64-Bit) VBA, the other part doesn't. TaskDialog API working well in both (32- and 64-Bit) VBA You can start the procedure TestTaskDlg for a test. Option Explicit 'Original API definition: '------------------------ 'HRESULT TaskDialog( ' HWND

问题 I have an Excel sheet with ~300,000 BDH formulas to download securities prices. I want to open the file and get all prices paste them as values save and close the file. However, I do not know when Excel finishes populating Bloomberg data, so it's difficult to determine the time to do 2) and 3). I have written VBA, but not sure if it works: In Module1 Sub CheckFormulas() If Application.CalculationState = xlDone Then With Worksheets("Sheet1").UsedRange .Value = .Value End With Else Application

问题 I have an Excel sheet with ~300,000 BDH formulas to download securities prices. I want to open the file and get all prices paste them as values save and close the file. However, I do not know when Excel finishes populating Bloomberg data, so it's difficult to determine the time to do 2) and 3). I have written VBA, but not sure if it works: In Module1 Sub CheckFormulas() If Application.CalculationState = xlDone Then With Worksheets("Sheet1").UsedRange .Value = .Value End With Else Application

问题 What is the square root function in VBA excel? I tried SQRT() and Root() but none of them are working, my Excel version in 2013. 回答1: Use the oddly named VBA.Sqr(n) where n is your number for which you want the square root computed. The VBA. prefix is optional, but it helps descriminate between VBA and any other library you might have referenced. 回答2: Nth root can be obtained with VBA with: Option Explicit Function NthRoot(dblNumber As Double, lngRoot As Long) As Double NthRoot = dblNumber ^

问题 What is the square root function in VBA excel? I tried SQRT() and Root() but none of them are working, my Excel version in 2013. 回答1: Use the oddly named VBA.Sqr(n) where n is your number for which you want the square root computed. The VBA. prefix is optional, but it helps descriminate between VBA and any other library you might have referenced. 回答2: Nth root can be obtained with VBA with: Option Explicit Function NthRoot(dblNumber As Double, lngRoot As Long) As Double NthRoot = dblNumber ^

问题 I tried to change this Excel function into VBA code Excel =ROUND(value,sigfig-(1+INT(LOG10(ABS(value))))) VBA Public Function sigfig(val As Double, sigf As Integer) As Double Dim var As Double var = Abs(val) var = Application.WorksheetFunction.Log10(var) var = Int(var) sigf = sigf - (1 + var) sigfig = Round(val, sigf) End Function For below 0, both of the Excel and VBA work well. However in VBA, when value (val) is more than sigfig (sigf), it gives me an error. For example, if I want to have

问题 I tried to change this Excel function into VBA code Excel =ROUND(value,sigfig-(1+INT(LOG10(ABS(value))))) VBA Public Function sigfig(val As Double, sigf As Integer) As Double Dim var As Double var = Abs(val) var = Application.WorksheetFunction.Log10(var) var = Int(var) sigf = sigf - (1 + var) sigfig = Round(val, sigf) End Function For below 0, both of the Excel and VBA work well. However in VBA, when value (val) is more than sigfig (sigf), it gives me an error. For example, if I want to have

问题 I have a worksheet with Hebrew word "שלום" in cell A1. I am trying to run this VBA code: Sub test() Dim str As String str = Range("A1") MsgBox str End Sub The message box displays: ???? Also, when I try to write Hebrew characters in VBA code: if range("A1") = "שלום" then 'do something...' instead of Hebrew letters I see gibberish. I use Excel 2016 on Windows 10. Hebrew language pack is installed. I did not face this problem in Excel 2010 on Windows 7. Anyone with an idea for enabling Hebrew