关于用VB修改excel满足条件单元格的数据。 比如: Excel内 A1=张三，A2=李四
关于用VB修改excel满足条件单元格的数据。
比如:
Excel内
A1=张三，A2=李四，A3=王五
B1=79 B2=90 B3=88
现在我要用VB对其做数字上的修改
窗口Textbox1中我输入"李四"，Textbox2 中我输入"99"，点击确认按钮指令后，使得Excel表格内李四的分值变为99(也就是B2=99)
请问如何设置代码？
L = 1
With Excel.Application.ActiveWorkbook.Sheets("Sheet1")
Do While .Cells(L, 1).Value <> ""
If .Cells(L, 1).Value = Textbox1.Text Then
.Cells(L, 2).Value = Textbox2.Text
Exit Do
End If
L = L + 1
Loop
End With追问
您好，首先非常感谢您！
另外，我看到的中间有乱码，能否再麻烦您一下，是否可以截个图发来哈？感激
VB
VB
关于用VB修改excel满足条件单元格的数据。 比如: Excel内 A1=张三...
L = 1 With Excel.Application.ActiveWorkbook.Sheets("Sheet1")Do While .Cells(L, 1).Value <> ""If .Cells(L, 1).Value = Textbox1.Text Then .Cells(L, 2).Value = Textbox2.Text Exit Do End If L = L + 1 Loop End With ...
Excel 有没有可能 输入编号自动变人名,譬如,1为张三,2为李四,在A1输入...
一：工具--选项--拼写检查（右下角有个自动更正选项）点击后，替换框输入1，替换为框输入 “张三”添加，确定 二：右键，设置单元格格式，自定义，[=1]张三;[=2]李四 三：用VBA自定义函数，编程完成。四：先输入人名对应的编号1,2，……，然后通过替换，把这些数字替换成对应的人名。不过呢，兄...
如何用VB对多个EXCEL表格中的数值进行修改操作
确保这个文件夹只有这些Excel文件，且若打开某一文件，数据就能看见——即不用点其他sheet。建一新Excel，也存到该文件夹。仅打开该新Excel，同时按Alt和F11，点菜单的插入，模块，粘贴如下代码：Sub Find()Application.ScreenUpdating = False Dim MyDir As String MyDir = ThisWorkbook.Path & "\\"ChD...
vb怎样读取excel中指定单元格内容并显示vb怎样读取excel中指定单元格...
1.打开一个Excel的文件,在表格中输入简单的表格,比如学生成绩表格。2.接着,鼠标左键单击【开发工具】菜单标签,在VBA控件下拉菜单中,并选择按钮控件,...3.然后,在表格中绘制出按钮控件,并修改控件名称。4.接着,鼠标左键单击【查看代码】按钮 5然后，在代码窗口中输入VBA语句，比如输入定义变量语句，...
用VB控制excel删除特定的单元格
Private Sub Worksheet_Change(ByVal Target As Range)If Len(Target) <> Len(Replace(Target, "位置", "")) Then For i = 1 To 5 Cells(Target.Row, Target.Column + i).ClearContents Next Cells(Target.Row + 1, Target.Column).ClearContents End If End Sub ...
excel怎么用vb自动删除满足条件的那一行
，然后选择行，删除。再点击”数据“-”筛选“，取消筛选。原来要另外的方案，下面是VBA代码：Sub mydel() Dim i As Double For i = Cells(Rows.Count, 1).End(3).Row To 2 Step -1 If Range("B" & i) = "完成" Then Rows(i).Delete Next iEnd Sub ...
vb怎么打开Excel文件并向特定的单元格填写内容excelvb打开文件...
1、在工程中引用Microsoft Excel类型库：从\\"工程\\"菜单中选择\\"引用\\"栏;选择MicrosoftExcel 9.0 Object Library(EXCEL2000)，然后选择\\"确定\\"。表示在工程中要引用EXCEL类型库。2、在通用对象的声明过程中定义EXCEL对象：Dim xlApp AsExcel.Application Dim xlBook As Excel.WorkBook Dim xlSheet ...
excel vb 批量修改各工作表相同单元格内容
按下ALT+ F11 ,菜单:插入-模块,复制下列代码.然后按F5运行 Sub number()Dim a As Integer a = Sheets.Count For x = 2 To a Sheets(x).Select Cells(1,2).NumberFormatLocal = "@"Cells(1,2)= Format(8000 + x - 1,"00000")Next End Sub ...
如何利用vb,使得excel中符合条件的数据变成所需颜色?
Private Sub Command1_Click()Dim xlApp As Excel.Application Set xlApp = GetObject(, "Excel.Application")With xlApp.ActiveSheet If .Range("A1") > 100 Then '(你可以改需要的条件).Range("A1").Interior.ColorIndex = 10'(变单元格底色).Range("A1").Font.ColorIndex = 6 '(变字...
如何用VB实现:在EXCEL文档指定区域单元格选中后,自动把这些单元格数据粘...
单击 A1:C10任何一个地方，就执行，否则不执行。无需设置 按钮 Sub 自动复制()arr = Range("A1:C10")Sheets(2).Cells(Sheets(2).Range("a65536").End(xlUp).Row + 2, 1).Resize(10, 3) = arr End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range)Dim tr, tc tr...
