现在在写EXCEL中的VB代码,返回EXCEL中某一个单元格对应的行号和列号的函数是什么,

下面是一个实例，在a1:e500里查找“a1” 其中c.Address就是行号和列号的文本格式例如$B$1 c.Column是列号， c.Row是行号 With Sheets("sheet1").Range("a1:e500")Set c = .Find("a1", LookIn:=xlFormulas)If Not c Is Nothing Then firstAddress = c.Address firstColumn = c.Column f...

VBA代码如下：Sub RC()R=Selection.rows.row ActiveSheet.Range("a1).Value =R '选择单元格的第一行行号 送入A1 C=Selection.Columns.Column ActiveSheet.Range("a2").Value =C '选择单元格的第一列列号 送入A2 End Sub

Dim xlApp As Excel.Application Set xlApp = New Excel.Application Set xlApp = CreateObject("Excel.Application")strDestination = App.Path & "\temp.xls"Set xlbook = xlApp.Workbooks.Open(strDestination)Set xlsheet = xlbook.Worksheets(1)for x=1 to 65535 for y=1 to 255 if xls...

如果你插入的是窗体控件，很简单的。（activex控件比较麻烦，得用vba代码）右键点车间（1）控件，设置格式，最后一个标签“控制”，单元格链接处点到比如sheet1的g1，确定。在sheet2的a1输入 =if(sheet1!g1,"车间（1）","车间（2）")就可以了。

1、打开excle表格，在表格汇总选中A8这个单元格。2、然后在开发工具栏的下方找到“Visual Basic”的入口。3、点击入口进入VBA的编程界面。4、在编程界面的顶部找到“视图”的按钮。5、然后点击“视图”，选择“立即窗口”。6、在立即窗口里面输入以下代码：Selection.EntireRow.Select 表示选中当前活动单元格...

excle常用公式都比较实用 excle常用公式一、求字符串中某字符出现的次数：例：求A1单元格中字符"a"出现的次数： =LEN(A1)-LEN(SUBSTITUTE(A1,"a","")) 二、如何在不同工作薄之间复制宏： 1、打开含有宏的工作薄，点“工具/宏(M)…”，选中你的宏，点“编辑”，这样就调出了VB编辑器界面。

给你一个例子 Private Sub ExportDetail(strFileName As String)Dim iRow As Long Dim myExcel As Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet Set myExcel = New Excel.Application myExcel.Visible = False myExcel.SheetsInNewWorkbook = 1 Set xlBook = my...

debug.print sh.name　'增加的代码 Lastcolumn = sh.[IV1].End(xlToLeft).Column LastRow = sh.[a65536].End(xlUp).Row For c = 1 To Lastcolumn If sh.Cells(1, c).Value = "b" Then For r = LastRow To 1 Step -1 If sh.Cells(r, c).Value = "0" Then Range(r & ":...

Dim ll As Long '定义ll为长整数型变量 ll = ActiveCell.Row '活动单元格所在行 Rows(ll).Cut Rows(ll - 1).Select ActiveSheet.Paste End Sub Sub 下移()Application.ScreenUpdating = False Dim ll As Long '定义ll为长整数型变量 ll = ActiveCell.Row '活动单元格所在行 Rows(ll).Cut Ro...

下面给出VB.NET 的完整代码：Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim DataSPath As String DataSPath = "C:\a.xls" Dim ExlApp = CreateObject("Excel.Application") Dim xlbook = ExlApp.Workbooks Dim ...