Question

VB EXCEL 已经取得列行值 如何实现Get Cells.(列+1,行).Value

假设 字串TextBox1.Text字串 位于 C6(也就是第3列第6行)
str1 = AppSheet.Range("A:C").Find("*" & TextBox1.Text & "*")
addr = str1.Column
addr2 = str1.Row
TextBox2.Text = str1.Value()
我透过上方Code已取得TextBox1.Text位于 C6(也就是第3列第6行)
已能将TextBox1字串所在位元格的值返回到TextBox2.Text

欲求能将 str1 的列值+1 并将该结果单元格内的值返回给TextBox3.Text
ex. str1 =C6则 TextBox3.Text=D6单元格的内容
str1 =E2则 TextBox3.Text=F6单元格的内容

Answer 1

'欲求能将 str1 的列值+1 并将该结果单元格内的值返回给TextBox3.Text
TextBox3.Text =cells（addr2,addr）.offset(0,1).value
'ex. str1 =C6则 TextBox3.Text=D6单元格的内容
if addr=3 & addr2=6 then TextBox3.Text =[d6].value
'str1 =E2则 TextBox3.Text=F6单元格的内容
if addr=5 & addr2=2 then TextBox3.Text =[f6].value