excel-vba

问题 This Macro I have built works but I am hoping for a faster version or a Formula that will do the same in less time. What I Have: For Each cell In Range("Table_Query_1[[#Data],[Reason2]]") For Each PossibleValue In Range("F2", Range("F2").End(xlDown)) If Len(cell) = 0 Then If (InStr(UCase(cell.Offset(0, 1)), UCase(PossibleValue)) <> 0) Then cell.Value = PossibleValue.Value End If Else Exit For End If Next If Len(cell) = 0 Then cell.Value = cell.Offset(0, -1) End If Next The only other way I

问题 how do you go about passing a range of cells into a function so that you can then process the items separately. Therefore how do I pass a range of cells into a function. I'm trying to do it so I can have a methods that uses the follow Function processNumbers(Var as Range) From this I'm not sure how I can get the number of items in the list and transverse the array to edit the contents. Is there a better way bring in the items than the above. 回答1: Your function declaration as stated is the

问题 I built a random number generator in excel which outputs to another column in another sheet in the workbook. The macro has a cut off at cell A1,000,000. When I run it throughout the day while I'm working I can get close to 200,000 rows of output. When I run it over night and come back in the morning, it's frozen (Not Responding) which I think means it just worked itself into freezing before hitting the cut off. I took a look at some other posts but they didn't quite answer my questions (Excel

问题 I want to insert a calculation on a cell using VBA. Here is how i insert it right now. it's work pretty Good but i cannot mod the percent on the invoice sheet. I want that after i insert the row i can modify the percent and it will update automatically the selling price. Private Sub CommandButton1_Click() Dim wsInvoice As Worksheet, wsRange As Worksheet, wsPrice As Worksheet Dim nr As Integer, lr As Integer With ThisWorkbook Set wsInvoice = .Worksheets("Invoice") Set wsRange = .Worksheets(

问题 I have an excel document that contains multiple sheets. When I run the loop Jumping after returning from the first sheet to the second sheet. But on the second sheet does not open a new dictionary and I get an error like "run time error 9" at ln 16. MySeries(Cnt, 2) = Dt(j, 2) What can I do for each sheet in the opening of the new dictionary ? Dim Cll As Object Dim j As Integer Dim y As Integer, MySeries, Dt, MySeries1, MySeries2, MySeries3, MySeries4 As Integer, sum As Double For y = 1 To

问题 I am not new to programming, but I am new to using macros in Excel. I am using Excel 2010, trying to run the following macro: Sub HideUnhideCells(ByVal Target As Range) Dim keyCell As Range Set keyCell = Range("C9") Dim Cells1 As Range Dim Cells2 As Range 'Call the function on C9 cell change If Target.Address = "$C$9" Then 'Make Data Source available for for DRG and UCR If keyCell.Value = "DRG" Or keyCell.Value = "UCR" Then Set Cells1 = Range("C33") Cells1.EntireRow.Hidden = False Else Set

问题 I recently learned about vba. I've make a form with some fields, this fields function are sheetname range copy range paste Private Sub CommandButton1_Click() Dim barisawal As String Dim sampaiawal As String Dim tujuanawal As String Dim tujuanakhir As String barisawal = bariske.Text barisakhir = TextBox2.Text tujuanawal = TextBox3.Text tujuanakhir = TextBox4.Text sheetawals = sheetawal.Text sheetakhirs = sheettujuan.Text Worksheets("sheetawals").Range("barisawal:barisakhir").Copy Worksheets(

问题 For example, I have a string variable named str. This str has a value of: apple orange pineapple Each word is separated by a newVbLine. I want to move it on cells. A1 contains apple , A2 contains orange and A3 contains pineapple . Thanks. 回答1: The code below splits strings delimited by vbNewLine in column A into column B. Please change ws1.[b1].Resize(UBound(X) - LBound(X) + 1, 1) = Application.Transpose(X) to ws1.[a1].Resize(UBound(X) - LBound(X) + 1, 1) = Application.Transpose(X) if you

问题 I'm sorry if this is a stupid question, but does the (Excel VBA) AND function checks EVERY single condition in it then proceed, or stops at the first FALSE condition and not checks the other? I'd like to know for optimization purposes and found nothing about it on the web so far.. Thanks in advance! Example: If InStr(txt, "abc") > 0 And InStr(txt, "xyz") > 0 Then so if "abc" not found in the txt variable (gives 'false'), then will the macro check the "xyz" too or skip the rest conditions 回答1:

问题 Hi I have used the Ron De Bruin's fantastic website to create VBA code that generates an email to specic users from an excel file. The only thing is that my signature does not appear on each email and I cannot seem to find how to add it within the code? Would anyone be able to advise please? As you can tell I am a complete novice! Module 1 Option Explicit Sub Send_Row_Or_Rows_2() Dim OutApp As Object Dim OutMail As Object Dim rng As Range Dim Ash As Worksheet Dim Cws As Worksheet Dim Rcount