VBA大神进，如何定义两个单元格，根据最后一次触发的单元格来显示汇总数据？

• VBA中如何根据两个单元格的输入情况来确定第三个单元格的显示内容
• VBA 公式引用所有数据的最后一行单元格
• vba怎样选中某一列第二行到有数据的最后一行
• vba如何将两个EXCEL工作簿 1工作簿单元格的内容写到2工作簿的指定单元格中

VBA中如何根据两个单元格的输入情况来确定第三个单元格的显示内容

Private Sub ComboBox1_Change()

If ComboBox1.Text = "太阳" And ComboBox2.Text = "月亮" Then

TextBox1.Text = "星星"

Else

TextBox1.Text = ""

End If

End Sub

Private Sub ComboBox2_Change()

If ComboBox1.Text = "太阳" And ComboBox2.Text = "月亮" Then

TextBox1.Text = "星星"

Else

TextBox1.Text = ""

End If

End Sub

Private Sub UserForm_Initialize()

ComboBox1.AddItem "太阳"

ComboBox1.AddItem "太阳1"

ComboBox1.AddItem "太阳2"

ComboBox2.AddItem "月亮"

ComboBox2.AddItem "月亮1"

ComboBox2.AddItem "月亮2"

End Sub

VBA 公式引用所有数据的最后一行单元格

Set MyAimRangeF = Worksheets("sheet1").Range("F7:F2817")

改成:

Set MyAimRangeF = Worksheets("sheet1").Range("F7:F"&Sheet1.[A65536].End(xlUp).Row)

或者:

Set MyAimRangeF = Worksheets("sheet1").Range("F7:F" & n)

vba怎样选中某一列第二行到有数据的最后一行

担心你的某一列是变量 所以这样的代码

lastrow =cells(65536,yourcol).end(xlup).row

range(cells(2,yourcol),cells(lastrow,yourcol)

如果某一列已知，如B列：

lastrow =range("B65536").end(xlup).row

range(“B2:B” & lastrow)

vba如何将两个EXCEL工作簿 1工作簿单元格的内容写到2工作簿的指定单元格中

最后一句应该是引用对应名称工作簿吧。具体如下：

Sub 引用()

n = 1 '项目总数，即汇总表A列行数

For i = 1 To n

shname = Sheets("汇总表").Range("A" & i).Value 'Ai的值，即工作簿名

Set ssh = Sheets(shname) '引用工作簿名对应工作簿

MsgBox ssh.Range("A1").Value, 0, "OK" '显示该对应工作簿A1的值,测试用，可删除

'ssh里的其他操作

Next

End Sub