TextBox中获取行列数值(100分采纳)如图-小知识

话题：TextBox中获取行列数值(100分采纳)如图.回答者必须认真

问题详情：如图.回答者必须认真测试您的 码,一旦采纳,将给100分.

回答：以Text1为对象:PublicFunctionGetTextInfo()AsStringOnErroToerrTextInfoDimtxtLine()AsString,lenLine()AsLong,sumLenAsLongDimLineValAsLong,ColumnValAsLong,virTextAsStrinirText=Text1.TextIfvirText=""ThenGetTextInfo="Line=1/1,Column=1/1"ExitFunctionElsevirText=virText+vbCrLfEndIftxtLine=Split(virText,vbCrLf):sumLen=0ReDimlenLine(UBound(txtLine))Fori=0ToUBound(txtLine)lenLine(i)=Len(txtLine(i))+2DoEventsNextiForj=0ToUBound(txtLine)IfsumLen

参考回答：下面是本人用VB写的 码,很简单,不需要使用API,同样能够实现LZ的要求,在修改文本,移动光标,鼠标单击等各种情况下均可显

话题：在EXCEL中,有自动 宏的宏吗?执行这个宏时,可以把

问题详情：执行这个宏时,可以把指定 簿或个人宏 簿中的宏 到现

回答：用宏是可以为加入宏的,只是同时开两个Excel太难判断是针对那一个 簿。 想到一个好方法: 建立 于Excel的VBS脚本,打开Excel的时候执行该脚本则在该Excel中打开VB 器,导入该脚本同一目录下的 s (即Excel模块 )。 因为VB 器里可以执行导入导出模块 作。所以有了思路如下: 1、把需要导入的模块从原 中导出,生成 s (也可以直接 码到记事本中,然后保存为 s) 2、把该 放入test.vbs所在目录(目录不支持中文及特殊字符) 3、在test.vbs中 码,执行查找是否运行Excel程序,找到则打开Excel窗口,模拟按键ALT+F11(打开VB 器),模拟按键CTRL+M(导入 ),把当前目录

参考回答：一般情况下,Excel是把宏保存在当前 簿中的!除非你动手另存宏到个人宏 簿。 宏保存在当前 簿中,当 该 簿时,

话题：EXCEL中自带的VBA和VB有什么 别?

回答：VBA是OFFICE中自带的编程语言,而VB是 的开发程序,也可以说,VBA是VB的一个子集,两者 码的编写 则基本相同

参考回答：VBA是VB的子集,相当于VBScipt与VB的 Office自带VBA,作为宏处理…… 当年的标准 : VBA是什么 直到0 早期,使

话题：vb调用excel问题窗体中有三个控件mond1text1

问题详情：目录下的excel文档热门问题详情题职称 发表到杂志上有什么要求?

回答：1,不需要adodc1; 2,Excel 表最多的列数一般为256列,要处理365列比较困难,如果你有365列的数据,可以先选中这些数据,右键点 ,再在原处点右键点“选择性粘帖”——选“转置”,就可以让行和列颠倒过来。 3, 工程,选菜单“工程”—“部件”—在“控件”栏中选择"Microsoft Windows mon Controls 6.0" 4,在窗体中放入text1、mand1、Label1、ProgressBar1 5,将下列 码copy到 码窗体中,并将DataFile.xls改为你要处理的 名。 6,将要处理的 copy到程序所在的 夹中, ,运行: Option Explicit Private Sub mand1_Click() If mand1.Caption="开始" Then Dim j As Integer Dim i

参考回答：Private Sub mand1_Click() FileName="d:\book1.xls" If Dir(FileName) "" Then d=0 Dim xlsApp As Object Dim xlsWb As

话题：VB数组录入excel问题我在VB中print了一组数组sz(x

问题详情：我在VB热门问题详情题为什么DOS仍然重要?怎么才能把MDI窗口设置

回答：Dim o As Object Dim i As Integer Dim iNumbers(0 To 10) As Integer Dim iStartRow As Integer Dim iStartCol As Integer iStartRow=1 iStartCol=1 For i=LBound(iNumbers) To UBound(iNumbers) iNumbers(i)=Int(Rnd * 100) + 1 Next i Set o=CreateObject("excel.application") o.Visible=True o.Workbooks.Add o.sheets("sheet1").range(o.cells(iStartRow, iStartCol).address, _ o.cells(iStartRow,

话题：VB自定义函数!sum()是求和函数我想在VB中用su()来

问题详情：sum()是求和函数 我想在VB su(rg As Range) For Each s In

回答：Function su(rg As Range) For Each s In rg su=su+s.value Next End Function

话题：SQL数据表的问题,高手进啊。我把数据写入excel中,然后导

问题详情：如何在一个shapa中创建vb单选按钮数如何将vb中picturebox中的

回答：把你出错的sql语句显示出来看看 或者一步步调试,看看具体是哪一部出错,出错时变量的值是什么

参考回答：这个 这么实现的.要用到 Excel.Application Set xlapp=CreateObject("Excel.Application") '激活EXCEL xlapp.Visible=True '让

话题：求几种从数据库读取数据生成excel 的比较?

话题：请详细解释以下单击 的作用(在excel中)PrivateSu

问题详情：Private Sub mandButton1_Click() For i=Range("l3") To

回答：Private Sub mandButton1_Click()'这个就不用解释了 For i=Range("l3") To Range("n3") . Next '以上ForNext这是循环体,其中"i=" 等号右边的值是循环的初始值"TO" 后面的是循环的终止值,每循环一次,i的值自动增加1,并与终止值作比较,若小于终止值,循环继续,若大于终止值循环结束,不过本例初始值不是在 码中直接输入具体数,而是取自于L3单元格内的值,也就是说你在L3单元格中输入几它就是几,这样做的好处在于,即使你看不懂VBA 码也可以通过修改L3和N3单元格的值来改变循环条件,从而改变打印的起始页和页数。Range("l3")是VBA 码中L3单元格的一种写法,同理,后面的终止值取自于N3

参考回答：这是一个连续打印的 码.就是VBA与公式相结合的打印,像用公式vlookup(k2,),反正是这个意思, 去这个 ,看看实例吧.

话题： 您好,能给稍稍解释下吗请教excel宏,关于筛选和vlook

问题详情：请教excel宏,关于筛选和vlookup10分 这个问题详情题您给的方法挺好的

回答：Sub ss() Range("b2:c" & [a65536].End(3).Row).ClearContents '清除存放结果的目标数据 域 With Sheets(1) 'With集合 For h1=2 To .[a65536].End(3).Row '在第2至最后一行之间循环 For h2=2 To [a65536].End(3).Row '在第2至最后一行之间循环 If Cells(h2, 1)=.Cells(h1, 1) Then '设置条件:如果“宏运行效果” 表的第1列单元格值与Sheet1 表第1列某单元格的值相等 Cells(h2, 2)=.Cells(h1, 2) '(符合条件的结果为)那么,对应的“宏运行效果” 表的第2列单元格值等于对应的Sheet1 表第2列单元格的值 Cells(h2, 3)=.Cells(h1, 3) '(符合条件的结果为)那么,对应的“宏运行效果” 表的第3列单元格值等于对应的Sh

参考回答：Excel电子表格软件是应用最广泛的软件之一,它的数据处理、图表功能及各种函数和工具深受广大 的喜爱。Excel 是一个