excel如何根据公式插入艺术字,如下图,根据A、B列数值(利用公式)得到C列图形
来源:学生作业帮 编辑:大师作文网作业帮 分类:综合作业 时间:2024/09/20 09:05:49
excel如何根据公式插入艺术字,如下图,根据A、B列数值(利用公式)得到C列图形
先在表格中插入两个艺术字,一般默认艺术字的VBA名字是wordart1与wordart2,然后在该工作表的change事件中写入下面代码,就能实时根据A1与B1格内容同步更新艺术字了.
Private Sub Worksheet_Change(ByVal Target As Range)
With Shapes("wordart 1")
.TextEffect.Text = Range("a1")
End With
With Shapes("wordart 2")
.TextEffect.Text = Range("b1")
End With
End Sub
再问: 表里并不一定就一行数值,能否像其它公式一样往下一拉C列右下角,C列的图形就根据A、B列数值变化而变化,如果A、B列数值一样就不用C列的图形了。
再答: 这段代码是自动更新的,它利用了工作表事件worksheet_change来现实,只要某个单元格的数值被更新,就会自动执行使艺术字更新。 需要几个艺术字就手工添加几个,然后适当增加代码中对应的艺术字部分就行了。
再问: 本人水平不高,基本为零,能把第二幅的代码编好传一下吗。
再答: 先在thisworkbook模块中写入下面代码: Private Sub Workbook_Open() '生成艺术字 With ActiveSheet .DrawingObjects.Delete '删除所有形状 s = 2 For i = 1 To 6 Step 2 '生成三组共6个,两两组合 t1 = Cells(s, 1) 'A列取值 t2 = Cells(s, 2) 'B列取值 .Shapes.AddTextEffect(msoTextEffect1, t1, "宋体", 18#, msoFalse, msoFalse, 100, 50 + i * 50).Name = "word" & i .Shapes.AddTextEffect(msoTextEffect1, t2, "宋体", 18#, msoFalse, msoFalse, 120, 70 + i * 50).Name = "word" & (i + 1) .Shapes("word" & i).IncrementRotation 90# '旋转90度 s = s + 1 Next End With End Sub 再在某个放艺术字的工作表模块中放入下面代码: Private Sub Worksheet_Change(ByVal Target As Range) s = 2 For i = 1 To 6 Step 2 Shapes("word" & i).TextEffect.Text = Cells(s, 1) Shapes("word" & i + 1).TextEffect.Text = Cells(s, 2) s = s + 1 Next End Sub 这样就可以使用了。
再问: 还是不太明白(本人水平不行,只想学习一点技巧,便于工作),是否方便留下邮箱或QQ联系,本人QQ:67691547
Private Sub Worksheet_Change(ByVal Target As Range)
With Shapes("wordart 1")
.TextEffect.Text = Range("a1")
End With
With Shapes("wordart 2")
.TextEffect.Text = Range("b1")
End With
End Sub
再问: 表里并不一定就一行数值,能否像其它公式一样往下一拉C列右下角,C列的图形就根据A、B列数值变化而变化,如果A、B列数值一样就不用C列的图形了。
再答: 这段代码是自动更新的,它利用了工作表事件worksheet_change来现实,只要某个单元格的数值被更新,就会自动执行使艺术字更新。 需要几个艺术字就手工添加几个,然后适当增加代码中对应的艺术字部分就行了。
再问: 本人水平不高,基本为零,能把第二幅的代码编好传一下吗。
再答: 先在thisworkbook模块中写入下面代码: Private Sub Workbook_Open() '生成艺术字 With ActiveSheet .DrawingObjects.Delete '删除所有形状 s = 2 For i = 1 To 6 Step 2 '生成三组共6个,两两组合 t1 = Cells(s, 1) 'A列取值 t2 = Cells(s, 2) 'B列取值 .Shapes.AddTextEffect(msoTextEffect1, t1, "宋体", 18#, msoFalse, msoFalse, 100, 50 + i * 50).Name = "word" & i .Shapes.AddTextEffect(msoTextEffect1, t2, "宋体", 18#, msoFalse, msoFalse, 120, 70 + i * 50).Name = "word" & (i + 1) .Shapes("word" & i).IncrementRotation 90# '旋转90度 s = s + 1 Next End With End Sub 再在某个放艺术字的工作表模块中放入下面代码: Private Sub Worksheet_Change(ByVal Target As Range) s = 2 For i = 1 To 6 Step 2 Shapes("word" & i).TextEffect.Text = Cells(s, 1) Shapes("word" & i + 1).TextEffect.Text = Cells(s, 2) s = s + 1 Next End Sub 这样就可以使用了。
再问: 还是不太明白(本人水平不行,只想学习一点技巧,便于工作),是否方便留下邮箱或QQ联系,本人QQ:67691547
excel如何根据公式插入艺术字,如下图,根据A、B列数值(利用公式)得到C列图形
excel中,A列数值 B列数值 我要在C列 找出B列大于A列数值,要怎么设公式?
EXCEL如何使得多个数值减去同一个数值,如图所示,如何编公式得到C列的数值
求excel中根据B列数值提取对应A列数值显示到C列的函数
excel表格中,如果C列数值等于A列中某个数值,则在C列对应的D列中返回A列对应的B列数值,D列怎么设公式呢
Excel:A列加B列的数值不等于C列数值的个数如何统计?
EXCEL请问:在电子表里当A列等于数值1,B列大于数值2时,C列数值相加,这个公式怎么写?
如何在excel表格中让A列根据B列单元格内数值大小的降序,一起排列?
如何在EXCEL随机函数中B列根据A列数值在规定范围内变化!急
excel中,A、B两列不同,但有重复内容,如何把A列合并B列,生成C列.如下图所示.
关于Excel函数条件统计,根据B列数值统计C列某个数值有多少个
如图:A列的(1234A10)是由B列和C列的数据结合而来的,请问在Excel里用什么公式