excel-vba

问题 Im using Visual Studio 2013 Visual Basic, MS ACCESS 2013, EXCEL 2013 My program Save As the data in my datagrid to excel. I use access 2013 as my database Here is my code: Imports System.Data.OleDb Imports Excel = Microsoft.Office.Interop.Excel Public Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 'TODO: This line of code loads data into the 'AccessdbtestDataSet.country' table. You can move, or remove it, as needed. Me.CountryTableAdapter.Fill(Me

问题 Im trying to look up a string which contains wildcards. I need to find where in a specific row the string occurs. The string all take form of "IP##W## XX" where XX are the 2 letters by which I look up the value and the ## are the number wildcards that can be any random number. Hence this is what my look up string looks like : FullLookUpString = "IP##W## " & LookUpString I tried using the Find Command to find the column where this first occurs but I keep on getting with errors. Here's what I

问题 I have a set of linked subs which work like this: A user types into an ActiveX TextBox A Change Event in that TextBox calls a sub in a Module That Module sub drives updating a named range in a sheet The range value drives updating a table of Excel cells that uses lookup functions based on the range value The table values are copied and pasted to a another range (to eliminate links to formulas) That pasted range is put into a ListBox using this (props to Rory for his patience): ActiveSheet

问题 I have a set of linked subs which work like this: A user types into an ActiveX TextBox A Change Event in that TextBox calls a sub in a Module That Module sub drives updating a named range in a sheet The range value drives updating a table of Excel cells that uses lookup functions based on the range value The table values are copied and pasted to a another range (to eliminate links to formulas) That pasted range is put into a ListBox using this (props to Rory for his patience): ActiveSheet

问题 Hi I want to create a macro in Excel to replace characters of each word in a sheet to some different characters in new other sheet in the same cell. I have used substitude funtion but it allows me to use it for 64levels only. I have about 100 or more nests. Please guide.... For Example: = SUBSTITUTE( SUBSTITUTE( SUBSTITUTE( SUBSTITUTE( SUBSTITUTE( SUBSTITUTE( SUBSTITUTE( SUBSTITUTE( SUBSTITUTE( SUBSTITUTE( SUBSTITUTE( SUBSTITUTE( SUBSTITUTE( SUBSTITUTE( SUBSTITUTE( SUBSTITUTE( SUBSTITUTE(

问题 Hi I want to create a macro in Excel to replace characters of each word in a sheet to some different characters in new other sheet in the same cell. I have used substitude funtion but it allows me to use it for 64levels only. I have about 100 or more nests. Please guide.... For Example: = SUBSTITUTE( SUBSTITUTE( SUBSTITUTE( SUBSTITUTE( SUBSTITUTE( SUBSTITUTE( SUBSTITUTE( SUBSTITUTE( SUBSTITUTE( SUBSTITUTE( SUBSTITUTE( SUBSTITUTE( SUBSTITUTE( SUBSTITUTE( SUBSTITUTE( SUBSTITUTE( SUBSTITUTE(

问题 In VBA / VB.NET you can assign Excel range values to an array for faster access / manipulation. Is there a way to efficiently assign other cell properties (e.g., top, left, width, height) to an array? I.e., I'd like to do something like: Dim cellTops As Variant : cellTops = Application.ActiveSheet.UsedRange.Top The code is part of a routine to programmatically check whether an image overlaps cells that are used in a workbook. My current method of iterating over the cells in the UsedRange is

问题 In VBA / VB.NET you can assign Excel range values to an array for faster access / manipulation. Is there a way to efficiently assign other cell properties (e.g., top, left, width, height) to an array? I.e., I'd like to do something like: Dim cellTops As Variant : cellTops = Application.ActiveSheet.UsedRange.Top The code is part of a routine to programmatically check whether an image overlaps cells that are used in a workbook. My current method of iterating over the cells in the UsedRange is

问题 Sample data A B 1 Date Amount 2 Apr 1 $6,000 3 May 1 $4,250 4 June 1 $2,750 5 July 1 $1,000 6 Aug 1 -$0.075 <- This Cell/Row 7 Sept 1 -$0.2500 In a column of numbers (in reality 100-200 rows), when the value changes to negative, e.g. if these we're amounts owed on a loan, when the loan would be paid off by. Note the real difference between the numbers fluctuates based on interest, taxes, one-off payments etc. So I can't just count (total / payment) = number of months. Is there a way to use

问题 I have an Excel sheet that I am trying to get into a MySQL database. I am using VBA to write the data out as text into a file and then upload that to the database. In the cells of the worksheet there are strings which have been color coded. The colors have a certain meaning so I want to preserve them when I move the values into the database (I have a special column in the database where I enumerate the colors). The thing is that some cells have strings separated by commas and on one side of