vba

问题 I'm struggling to find any info that I can use on this. I searched heavily before coming here and any help would be greatly appreciated. I've got some basic VBA down, but this is a bit advanced to even know where to begin from scratch. If a cell in Column A = Value, then copy columns B, C, D of source worksheet to columns A, B, C of a new worksheet. Here's an example Source worksheet New worksheet Thanks! 回答1: You should ask the question more clearly so that we can help u. And every single

问题 I have a large list of search queries in column A. Is there any code I can use in order to extract the first Google search result URL in column B? I have used the code below successfully but instead of extracting the first search result URL it gets the number of search results. Anyone can help me change the code as per my requirements? Sub Gethits() Dim url As String, lastRow As Long Dim XMLHTTP As Object, html As Object, objResultDiv As Object, objH3 As Object, link As Object Dim start_time

问题 Im looking for a VBA script to consolidate multiple Excel sheets into one sheet in a different folder location with the name "consolidated.xlsx". I feel this is a rather simple VBA script but I tried creating a few from.the web and it didnt work. Any help would be appreciated. Thanks EDIT: I have this code that does consolidation, but its a bit complicated. How can I integrate this into your code "Consolidation part". I already wrote the code for opening the Target workbook but not sure how

问题 I want to have multiple series graph. I made this code to show three lines. However, it doesn't work, I can't use Range because my data source is sparse at three line ("I1:I30","I51:I80","I101:I131") With ActiveSheet.Shapes.AddChart.Chart .HasTitle = True .ChartTitle.Text = "My Graph" .ChartType = xlLine .SetSourceData Range("I1:I30","I51:I80","I101:I131") 'thats the data for three lines I want to show. .SeriesCollection(1).Name = "item1" .SeriesCollection(1).XValues = Range("G1:G30") How can

问题 Issue: Upon me using SendKeys to copy data from an Excel application to another (non-Microsoft) application, my Num Lock becomes disabled. Sub Test() Range("A1:B71").Select SendKeys "^C" 'Copies Selected Text AppActivate "AccuTerm 2K2" SendKeys "2", True 'Enters to notes screen SendKeys "^M", True 'Confirms above (Enter key) SendKeys "^V", True 'Pastes into client application Application.Wait (Now + TimeValue("0:00:05")) 'Providing time for client application to finish 'pasting... SendKeys "

问题 Closed. This question needs debugging details. It is not currently accepting answers. Want to improve this question? Update the question so it's on-topic for Stack Overflow. Closed 2 years ago . Improve this question Okay this might be a very stupid question but my predictive text when writing only happens occasionally. I'm currently using Excel 2016. Typing Range( opens the tooltip: But, typing .Range( in With Sheets(SName) does not open the tooltip: Can anybody help? Thank you very much!

问题 I found a great post on SO that seems to be exactly what I want: Is it possible to access a parent property from a child that is in a collection? However my adaptation of it is giving me Object doesn't support this property or method. My code which now works thanks to Mat's Mug and Tomalak: Parent Class - clsComputer Option Explicit Private pCD As clsCD '''''''''''''''''''''''''''''' ' CD property '''''''''''''''''''''''''''''' Public Property Get CD() As clsCD If pCD Is Nothing Then Set pCD

问题 I'm new to Excel VBA and am trying to write a function that lets me use INDEX , MATCH and COUNTIFS functions to find value for a given column by matching criteria in other columns (multiple). I have a table named Price which contains some prices offered in different locations based on an assigned category: Area Category Cost Retail Price Wholesale Price USA Bad 1 13 25 Canada Okay 2 14 26 Mexico Good 3 15 27 USA Excellent 4 16 28 Canada Bad 5 17 29 Mexico Okay 6 18 30 USA Good 7 19 31 Canada

问题 I wanted to remove only the row that is identified as duplicate with some condition. But, the problem I am facing right now is I am getting all the rows below the duplicate row getting deleted with the coding I have. Hence, I loose all the entries that are below the duplicate row in a different table. Hope you get my problem. Please suggest a proper VBA code for this situation. I have given the code that I am using. Private Sub CommandButton2_Click() Dim rng As Range Set rng = ThisWorkbook

问题 I am currently working on an excel Userform to generate a report for a lot entered on a given day. The report is stored in a separate word document which contains the results of between 1 and 8 quality samples (number of samples varies by lot). The Userform is meant to load in excel, receive a lot number and date from the user, retrieve samples from that day and lot from a different sheet in the excel workbook and then copy the data into a new word doc based on a custom template. I have