Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/30.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Vba 如何根据不同的工作表更改excel中的值_Vba_Excel - Fatal编程技术网

Vba 如何根据不同的工作表更改excel中的值

Vba 如何根据不同的工作表更改excel中的值,vba,excel,Vba,Excel,我有一张excelsheet,其中包含两张分别命名为“Sertifika”和“Egitim Katılım”的表格。在Sertifika中,我需要一个按钮,将单元格B6、M2和M3的值从Egitim Katılım升级到下一个单元格 例如: B6 ='Eğitim katılım'!C149 我想把B6的值改为 ='Eğitim katılım'!C150 怎么可能呢?假设您已经知道如何使用按钮,请在命令按钮中包含以下代码 Sub mac() Dim str As String, a As

我有一张excelsheet,其中包含两张分别命名为“
Sertifika
”和“
Egitim Katılım
”的表格。在
Sertifika
中,我需要一个按钮,将单元格B6、M2和M3的值从
Egitim Katılım
升级到下一个单元格

例如:

B6 ='Eğitim katılım'!C149
我想把B6的值改为

='Eğitim katılım'!C150

怎么可能呢?

假设您已经知道如何使用按钮,请在命令按钮中包含以下代码

Sub mac()
Dim str As String, a As String
str = Range("B6").Formula
a = Right(str, (Len(str) - InStr(str, "C")))
a = a + 1
Range("B6").Formula = "='E?itim kat?l?m'!C" & a
End Sub

代码在单元格
B6
中提取公式,从公式中取消对行号的排序,向其中添加+1并更新公式。我想让你对另外两个单元格进行操作。

你只是想更改3个单元格吗?是的,就这三个单元格如果只有3个单元格,为什么需要宏来更改?为什么不手动?奇怪的是,我必须重复这些单元格,我在名为“Egitim Katılım”的表格上至少有500条记录,明白了。因此,即使只有3个单元格,也可能需要使用按钮500次才能进行迭代。我说得对吗?