excel-2013

问题 I am attempting to write some VBA which will add header text to 3 cells then fill a formula all the way down to the last row. I have written the below, which writes the headers no problems, but when it get's to my first .Formula it throws a Application Defined or Object Defined error What needs to be altered so that this macro will execute successfully? (The formulas were pulled directly from the formula in the cell, so I know they are valid formulas at least on the "front-end") Function Gre(

问题 I receive a quarterly data set where I need to make some general changes to the data. The changes are routinely the same and I want to use a macro to change them in one fell swoop rather than find/replace manually. I found a script that saves my data as an array and then searches the entire workbook. It works BUT I only want it to find/replace in a specific range. I've tried many times to alter the code, but I am unable to. I don't even know if this is the best way to accomplish it - very

问题 I have implemented the hash method as suggested on the post: Does VBA has a Hash_HMAC This is my implementation: Public Function BASE64SHA1(ByVal sTextToHash As String) Dim asc As Object Dim enc As Object Dim TextToHash() As Byte Dim SharedSecretKey() As Byte Dim bytes() As Byte Set asc = CreateObject("System.Text.UTF8Encoding") Set enc = CreateObject("System.Security.Cryptography.HMACSHA1") TextToHash = asc.GetBytes_4(sTextToHash) SharedSecretKey = asc.GetBytes_4(sTextToHash) enc.Key =

问题 I´m working on a little commandline tool to extract some data from an excel sheet. I want to delete all rows which are visible after applying an AutoFilter. Unfortunately, I just don´t know how to continue. After some searching, I did not find a working answer for me. Here is what I´ve got so far: oXL = new Excel.Application(); oXL.Visible = false; oWB = oXL.Workbooks.Open(source); oXS = (Excel.Worksheet)oWB.Sheets[1]; Excel.Range filter = oXS.UsedRange; filter.AutoFilter(8, "<>text to filter

问题 What I have here is small part of my big data set, with lot of drop downs and functions that are calculating everything around. I am just exceeding this table and trying to make it more automatically than it was before, but I stuck on that part that I put in green. Which function might be suitable when I wanna add some new cells on the right (right table) named Model Options > instead of Reserviert but some another name (will be populated later), but to automatically recognize it on left drop

问题 What I have here is small part of my big data set, with lot of drop downs and functions that are calculating everything around. I am just exceeding this table and trying to make it more automatically than it was before, but I stuck on that part that I put in green. Which function might be suitable when I wanna add some new cells on the right (right table) named Model Options > instead of Reserviert but some another name (will be populated later), but to automatically recognize it on left drop

问题 I'm want users to be prompted to save a workbook before the VBA script starts modifying content. When the SaveAs dialog box comes up, if the user clicks Cancel I raise a custom error and stop the script. If they click Save and the filename already exists I want them to be asked whether to overwrite. Here's my code: Function SaveCurrentWorkbook(wkbSource As Workbook, strNewFileName As String) As Variant If Not bolDebug Then On Error GoTo errHandler Dim varSaveName As Variant SaveAsDialog:

问题 I'm want users to be prompted to save a workbook before the VBA script starts modifying content. When the SaveAs dialog box comes up, if the user clicks Cancel I raise a custom error and stop the script. If they click Save and the filename already exists I want them to be asked whether to overwrite. Here's my code: Function SaveCurrentWorkbook(wkbSource As Workbook, strNewFileName As String) As Variant If Not bolDebug Then On Error GoTo errHandler Dim varSaveName As Variant SaveAsDialog:

问题 In my project I have a list of clients that have unique commission calculations (ex. Client_1 has a 0.1% commission rate, whereas Client_2 has a 0.25% commission rate). In my VBA code I made special cases, that vary by the client_id. The problem I'm getting with this code is that even though I put in a special ID, it jumps over the case (ex. if klienta_nr = 100, it skips over the Case klienta_nr = 100 and returns the Case Else). How can I fix this issue? Private Sub CommandButton1_Click() Dim

问题 I suspect the answer is "not possible" - but there is no harm in asking this fine community! I have a Excel 2013 UDF (User Defined Function) that is unique to a certain worksheet. Currently, I have this UDF in a "Module" in the containing Workbook. But what I would like to do, is to place the UDF code in the "Worksheet Object" so it is only available to that particular Worksheet. I have tried, of course, but it is not visible, so I naturally get a #NAME? error. I've tried prefacing the