nnlllxxx的个人资料 - RAT

nnlllxxx nnlllxxx

关注数: 0 粉丝数: 1 发帖数: 171 关注贴吧数: 0

两个ECXEL文档的数据如何合并请问：如有两个ECXEL文档，里面的设置都一样，我要做另一个文档进行这两个文档数据的简单合并，请问在不打开这两个文档的情况下如何操作（写VBA）

数据引用大家好，设A 为序列，有10个元素，即一级 B也为序列，但为A列的二级如何进行公式的设置如当A1为张三时，B加载a,b,c,d 如当A1为李四时，B加载u,i,o,p

请教如何对操作过程进行录制　刚才看了高手罗刚君在excel制作工资条的操作教程，感觉很好，但不知是如何进行录制的，有谁知道？？

请教一下VBA 有好一段时间不写vba了，也丢得差不多了，现在有一个程序不会，特来请教大家，是这样的：设第一行从B列到E列为村名1、村名2、村名3、村名4A 列村名1姓名1姓名2姓名3村名3李四赵六王五赵某村名2李四赵六王五赵某村名4李四赵六王五赵某目的：是想把A列的每个村数据自动复制到与第一行相对应的村名下 Private Sub CommandButton1_Click()Dim i As IntegerDim m As IntegerDim h As IntegerDim f As IntegerDim ran As RangeDim ran1 As Range’第一步For Each ran In Range("b1:e1") '村名For Each ran1 In Range("a2:a20") '村名及人名If ran1.Value = ran.Value ThenRange("g65536").End(xlUp).Offset(1, 0).SelectActiveCell.Value = ran1.Row '取得队名的所在行,这句运行后有点小问题，就是数据有点乱，结果是“2，11，6，16”，郁闷!End IfNextNext’第二步For i = 2 To 5 Step 1 '指G列m = i + 1h = Val(Range("g" & i).Value) '转换数据类型f = Val(Range("g" & m).Value)Range(Cells(h, 1), Cells(f, 1)).Select '选择每个村名下的数据,这句也有点问题'下面的，我想将相对应的数据，放置到第一行的村名下，这个要怎样写了呢NextEnd Sub

在文本框组中如何快速操作　　设在一个窗体中，有8个文本框，分为组1和组2，当按下按键后，使组2的数等于组1的数，请问如何写代码。　　平时，总是一个一个的写，如textbox2.text=textbox1.text可是一用到组时，就卡住了....,急盼回复，谢谢。

自定义函数　想将单元格中的每一个字变为直排的,可Chr(13)或Chr(10)都不行,不知怎样改才行。Function 横向为纵向(b As String) As String Dim bb As String, tempDim i As IntegerFor i = 1 To Len(b)bb = Mid(b, i, 1)temp = temp & bb & Chr(13)Next横向为纵向 = tempEnd Function

请教吧主，窗体何故消失了？我有一个用了一年多(几乎天天用)的VBA程序，其中包含有一个窗体及十来个自制的函数和过程，可今天打开时系统突然提示：系统错误，&H8007007E(-2147024770),找不到指定的模块。结果发现窗体凭空消失了!!!而各种函数和过程还在，又不像中病毒，真不明白怎么了!!!更离谱的是我备份的文档也是同样的问题。当然了，如果重新又做一个窗体，重新调用函数和过程，又可以用了，只是又要费一番周折。不知如何解决此问题。

我想写个函数将中文及英文分开，理论上好像正确，可实际不行呢。Function bb(str) As StringDim st As String, ttFor i = 1 To Len(str)st = Mid(str, i, 1)If LenB(st) = 2 Thentt = tt & stEnd IfNextbb = ttEnd Function

求数组的每个元素的在数组中的编号 Private Sub CommandButton1_Click()Dim l(5) As StringDim n As IntegerDim a, bDim ra As RangeFor Each ra In Range("e1:e5")l(n) = ra.Valueb = lMsgBox l(n)NextEnd SubMsgBox l(n)当然能正常运行，可n的具体值就无法正常msgbox出来

如何把它写成函数 Sub bb()Dim ran As RangeDim str As StringFor Each ran In Sheets(2).Range("d1:d49")If ran.Value <> "" Thenstr = str & ran.Value & " "End IfSheets(2).Range("f1").Value = strNextEnd Sub欲将它写成函数，Function bbb(ran As Range) As StringDim str As StringFor Each ran In SelectionIf ran.Value <> "" Thenstr = str & ran.Value & " "End IfNextbbb = strEnd Function可运行结果为0，不知哪错了...

如何用VBA选择活动列的usedrange 用usedrange时是选择了整个工作表的所用单元格，而选择活动列的usedrange无法选择，不知.....

有没有办法取得汉字的笔画？

在EXCEL中textbox获得焦点本人想设：　当textbox获得焦点时，发生某一事件，可是TextBox1.SetFocus单独能运行，再想要进行一步时却提示：缺少函数或变量。不知何故。

如何调用粘贴板比如在文档文件中复制一些内容想放到TextBox中用以下方法不能实现，TextBox1.Text = Application.ClipboardFormats要怎样修改才行。

先选择空值,再... 第一个问题: 设A列中有若干个空傎,先选择个一空值,再执行如下代码,这个我可以做到,ActiveCell.Offset(0, 1).Value = ActiveCell.Offset(1, 0).Value 但若同时选择所有的空值,再执行这些代码,却不能一步到位,不知怎样才行.第二个问题:原始数据为:A列B列编号内容第一组34555第二组5841985第三组547要达到以下效果A列 B列编号 200601 第一组200601001 3200601002 4200601003 5200601004 5200601005 5200602 第二组200602001 5200602002 8200602003 4200602004 1200602005 9200602006 8200602007 5200603 第三组200603001 5200603002 4200603003 7 规则是组的代号为2006,第一组是组的代码+01,即是200601 第二组是组的代码+02,即是200602 第三组是组的代码+03,即是200603而组员则是每组的代号+000,第一组第一个即是200601001 第一组第二个即是200601002 第二组第一个即是200602001 第二组第二个即是200602002以下类推.如何用VBA代码一次搞拈?

合并工作表设有100多个工作表，每一个工作表有50-60条记录，新增一工作表KK，按按钮后，100个工作表的内容自动复制到工作表KKK中，如何用VBA实现。

判断一个单元格的内容与选择的多个单元格是否相同随机选择若干单元格,如何用VBA判断A1的内容是否等于所选择的单元格中的其中之一.

如何得到选择的每一行的数据　假如选择前3行内容，按了按键后，　第10行＝第一行的内容　第15行＝第一行的内容　第20行＝第一行的内容　　并且，假如一张纸刚好能打印三项内容，如果选择的是6行内容，如何判断已打印了第一张，再打印第二张内容呢　在线等！　

有两个问题　　1、我的电脑的快速启动栏以前都是显示所开的文件,可是现在不显示了,我不得不打开任务管理器,这样很不方便,不知如何设置?　　2、当输入较多位数时,比如身份证,十几位数,有时不知输了几位,有没有好的办法在另一单元格中自动计出输入的数字位数,并要随位数不同而动态变换.

1 下一页