excel高手请进来

各位高人,请问如何在同一个EXCEL的sheet中,点击不同单元格,然后表的某一固定区域就会显示不同的图片?就是类似超链接的效果,不过是在同一个SHEET中实现.
急,在线等,小弟不胜感激.
我是EXCEL2003
没有详细的了?

非要让Excel表格处理软件做出网页的效果,也真是够难为它的了

我认为不需要用到函数,即使用了函数也没有用。因为图象是在单元格“上面”的,它并不属于任何单元格,你如何能取值呢?

我的方法是将要显示的图象先放到其他表格,然后开始录制宏,宏的内容不过是将其他表格的图象复制到这个表格而已,不过一定要注意图象的定位

不过是换一种思维而已,只是有时还真不容易想到,因为我们用惯了函数,总是不自觉得想用函数解决所有问题
温馨提示:内容为网友见解,仅供参考
第1个回答  2008-01-25
做个形状,然后VBA控制更改填充北京最省事了。
第2个回答  2008-01-24
使用VBA:
excel中插入的图片是shape对象
思路:
1 将所有图片插入工作簿,并改名。
2 图片改成一样大小。在同一个位置重叠在一起(这样就只能看到第一张图片了)
3 写一个函数
sub xx(in as string) 'in是图片的名字
Sheet1.Shapes(in).ZOrder msoBringForward '意思是把该图片放到第一层
end sub

这部也可以用显示隐藏来实现,如:
Sheet1.Shapes(in).Visible = msoTrue
4 在Worksheet_SelectionChange事件中调用函数
第3个回答  2008-01-24
你的图片要如何显示出来?就在新窗口还是在同一个SHEET?
你说的这个很难做到!因为EXCEL中某个区域(你说的区域)不支持多层图片显示!
我这有点资料你看看吧!http://hi.baidu.com/ctmtv/blog/category/Excel
对不起,帮不了你了!
第4个回答  2008-01-24
第5个回答  2008-01-26
Private Sub Worksheet_Change(ByVal Target As Range)
If (Sheet1.Cells(1, 1) = 10) Then
Sheet1.Shapes(1).Visible = msoFalse

Else
Sheet1.Shapes(1).Visible = msoCTrue

End If
End Sub
这是一个实现图片隐藏和显示的,你主要按照这个方法继续就可以实现不同的单元格显示了,就是当一张显示时,其余全隐藏.反之则相反.不懂的再来问好了
随便说一句,上楼的还真是没得说

EXCEL的高手请进来帮帮忙,急,十万火急啊!!
在该列任意一个单元格输入:=CONCATENATE(A:A,B:B)以ctrl+shift+enter生成数组。那么一整列的数据就出来啦。而且不能任意改动C1或者C2的数值。

EXCEL高手请进来!!!关于排序?
可以的 选择你要排序的那一列 点击“数据”按钮 再点击“排序” 弹出的对话框 选择第一个 以当前的内容排序 就行了

excel筛选求救,高手请进来!!!
建立六个单元格的条件区域,如在 E1:G2 地区 销售额 销售额 天津 >300 <600 选择数据区,菜单-数据-筛选-高级筛选 条件区域选E1:G2 确定OK 子易空间站 - 高效办公指导网站

Excel高手的请进来!!!悬赏分20分
复制后全选,在编辑里面的选择性粘贴不就行了。

请教:EXCEL 连减的问题,高手们请进来
输入: =A1-sum(用鼠标拉要减的部分就可以了) 最后回车 此为你的第一个公式 原理就是:用A1减去后面几个单元格之和

excel高手请进来:(文本框公式问题)
在F4中直接输入公式=E4-D4即可!你是不是已经在F4中输入了公式,但却算出为-1000,不知道什么原因,从你的截图看,E4、E5单元格中数字左对齐,很可能你这列格式是文本,你将此列格式换成数值(或常规)试试。

Excel高手请进来,如何将横的数据用最快的方式改成竖的方式显示?_百度...
ROW(A1)\/199,0)-1)*(COLUMN(A1)<>3)-INT(COLUMN(A1)\/3),ROUNDUP((COLUMN(C1)-3)\/3,0)*(MOD(ROW(A199),199)+1))公式向右拉三格,向下拉。公式中199来自于200-1,即减去相对不变的姓名列。可随实际列数调整。由于用固定宽度取值,因此未排除空格,需表格调整完成后删除0值行。

Excel 高手请进来帮忙解决问题!
Sub 按钮1_Click()Dim s11, s12, s21, s22 As String Dim sh As Worksheet s11 = Range("a1")s12 = Range("b1")s21 = Range("a2")s22 = Range("b2")s31 = Range("a3")s32 = Range("b3")With Sheets("sheet2").Range("a:a").Replace what:=s11, replacement:=s12 .Range("...

excel高手请进来,如何将已经排版的excel内容反过来
全选 按shift + 编辑 里面有复制图片 复制成图片 ctrl +v 粘帖图片 对图片左右拉伸 完成 搞定 OK

高手请进来,excel求和时进位的问题 万千百十元角分 5 8 5 6 7 3...
为了简化公式,先借助一行对每位的所有数求和 然后做公式,从小到大,前三位公式不一样,从第三位以后从右向左拖拽填充就行,如下图

相似回答