作者bcs (= ="frailty..gggg XD)
看板Office
标题[算表] vba 点击方块後分数跟随序号，非位置
时间Sun Dec 22 21:41:11 2019
软体:excel
版本:2016
目前写了一段vba，功能是点击 活页簿db1的方块後，会在活页簿db2加1
语法：
Sub Button1_Click()
Sheets("db2").Range("c2").Value = Sheets("db2").Range("c2").Value + 1
Sheets("db1").Range("a2").Value = Sheets("db1").Range("a2").Value + 1
End Sub
但是我设定活页簿db2的排序会依score自动排序。
这一来有可能原本db1_MS<->db2_c2的关系，可能db1_ibm<->db2_c2。
所以我再点db1的MS方块，他的增数值便会给db2的ibm。
请问是否可以让增值跟着db1_MS->db2的序号1,db1_GA->db2的序号2
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 101.15.193.22 (台湾)
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1577022075.A.000.html
1F：→ soyoso: 不太了解，内文活页簿db1？是指sheets("db1")？ 12/22 21:46
2F：→ soyoso: 如果是的话，这个称为工作表，不是活页簿 12/22 21:46
3F：→ soyoso: 活页簿是workbooks(...)，db1_MS和db2_c2又是什麽 12/22 21:47
4F：→ soyoso: 程序sub名称，变数名称？ 12/22 21:47
5F：→ soyoso: 如会因排序，位置不同的话，可以range.find或工作表函数 12/22 21:59
6F：→ soyoso: match来回传储存格或列号，再累加 12/22 22:01