EXCEL 或VBA高手请进~~

我现在有类似下面这样一张表,请懂EXCEL VBA的大神帮我编几行代码。可以实现这样一个功能:根据给定的横坐标(参数1的值)和纵坐标(参数2的值),可以查询出那个坐标点对应的数值来。比如(A,1)=0.1。 如果excel就自带这样的函数也可以,我就是要实现这个功能,方式无所谓。

=INDEX(B2:F6,MATCH(1,A2:A6,0),MATCH("A",B1:F1,0))
温馨提示:内容为网友见解,仅供参考
第1个回答  2015-09-08
如果你的行列编号都是连续的,那么可以用RANGE或者CELLS获得内容,例如:
Range("A1").Offset(1,1)
Cells(1,"A").Offset(1,1)

Offset(1,1)表示指定的Range或者Cells的下一行、右边的单元格,因为实际上你的表中A列是EXCEL的B列,如果是对齐的就修改Offset里面的为0,差异为其它值也类似处理。
第2个回答  2015-09-08
VBA放在worksheets——selectionchange方法下
x=inputbox()
y=inputbox()
msgbox cells(cint(x),cint(y)).value
第3个回答  2015-09-08
=OFFSET($A$1,MATCH("A",1:1,0)-1,MATCH(1,A:A,0)-1)
A和1可以使用单元格来代替

EXCEL VBA高手请进,求自动计算公式~~
这里对计算式的文本就有一定的要求了,比如不能出现“3楼的面积是长31米*宽10米”这样的,因为3楼的3字将难以被判断不是公式的一部分。另外一定要用变量的话,变量名称尽可能为单字母,便于判断其属性 下面以H6的值“高度2*长度3”的结果填入I6为例,代码如下:Sub aa()Dim str As Stringstr =...

excel表格VBA代码高手请进,帮我优化代码
Private Sub Worksheet_Change(ByVal Target As Range)If Target.Row = 1 Or Target.Cells.Count > 1 Then Exit Sub Application.EnableEvents = False Select Case Target.Column Case Is = 1, 4 If Target.Value > 0 Then With Target.Offset(0, 1).Value = Now .NumberFormatLocal = "yyyy...

EXCEL高手请进,需要VBA编程,筛选重复数据并显示统计数量以及显示下一行...
假设两个表都是从A列开始的,用下面代码可以实现 Sub cz()Sheets("sheet2").Select Range("a3:a100").ClearContents Set sh1 = Sheets("sheet1")x = sh1.[a65536].End(xlUp).Row n = 3 For i = 2 To x With sh1 If .Cells(i, 1) = [b1] Then Cells(n, 1) = .Cells(i,...

EXCEL高手请进,求VBA代码,统计关于单元格间隔的问题~
鼠标右键Sheet1的标签,选【查看代码】。在代码窗口粘贴下面的代码:Sub ouyangff()n = [a65536].End(3).Row For i = 0 To 4 For j = 1 To n If Cells(j, 1) = i Then k = j Next Cells(i + 1, 3) = n - k Next End Sub 按 Alt + F11 回到 Excel 这时你可以按Alt +...

跪求!!EXCEL高手请进~~~VBA中的Winsock控件的使用问题
一、原因 为什么会出现上述提示,因为在VB(包含VBA)中的AcitveX控件的漏洞可能允许远程执行代码,请情参看MS08-070。 微软为了封堵这一漏洞便发布补丁KB960715,而这一补丁的作用是将上面提到的这些控件给禁用了,这就是添加此类控件时出现错误提示的原因。 二、临时解决方案 如果在一个脱机(没有网络)...

excel高手请进,在线等,急!!关于下拉填充多组数值的方法
方法一:新建一列 用以下公式:=IF(B2<>"",B2,C1)方法二:使用VBA,ait+F11调出代码窗口,输入如下代码运行,根据需要修改。Sub main()For i = 1 To 600 '600需要填充多好行就填好多行 If Cells(i, 2) = "" Then '2代表所在列是地几列,这里以B列演示 Cells(i, 2) = "...

EXCEL问题,高手请进!
Name:="abcd", RefersTo:=Cells(Target.Row, 1).Resize(1, 10)End Sub 注:代码中thisworkbook...resize(1,10)为同一行,resize(1,10)中10为列数,可改成任意[1,255]之间的数值 ②在工作表中,选中所有数据,格式>条件格式,公式输入=row(abcd)=row(),然后点格式,图案里选一颜色,确定即可....

excel vba如何用条件运行宏(高手请进)
你希望用户点数值调节键,宏二就自动运行,是吗?使用worksheet_change事件,然后调用“宏二”就可以了。现在数值调节键不是宏来的,也可以用宏来控制——宏xx可以控制B1单元格的值 宏xx可以调用宏二中的代码。这个宏xx就是你要的连续自动运行200次,也就是B1的数字连续变化200次,宏二也运行200次。

VBA高手请进!EXCEL自动排序问题!
这个程序只帮助你把序号写到608行,把程序里面608改为609就可以了。另外这个程序排序从第3行开始的,如果需要调整,你把所有的a3改为a1(比如你要从第一行排序)之所以,出现N\/A,是因为,[a3:a611] = [row(1:608)]中,a3:a611为609行,而[row(1:608)]为608行,所以,出了空,这一行就...

EXCEL2007 VBA代码高手请进,我的一段代码,不自动计算,怎么办?
再增加一个事件代码即可,目的是有公式计算时运行代码,将所以D列有公式引用的都运行一次你的代码,增加的代码如下(详见附件):Private Sub Worksheet_Calculate()Call Worksheet_Change(Columns("D").SpecialCells(xlCellTypeFormulas))End Sub

相似回答