需求是:
一张sheet1中设置一个按钮,选中某一行,点击后按钮,在领一张sheet2中改变某个单元格的内容,这些内容都是从sheet1中 (F列,选中行)取的数值
做法:
1.在sheet1中放置一个按钮,建立一个“Sub 按钮1_单击() End Sub”的函数
2.Range("Sheet2!C8") = Cells(F, ActiveCell.Row)Sub 按钮1_单击()
Range("Sheet1!C8") = Cells(F, ActiveCell.Row)
End Sub
问题:
2中函数不会写,还望指教
一张sheet1中设置一个按钮,选中某一行,点击后按钮,在领一张sheet2中改变某个单元格的内容,这些内容都是从sheet1中 (F列,选中行)取的数值
做法:
1.在sheet1中放置一个按钮,建立一个“Sub 按钮1_单击() End Sub”的函数
2.Range("Sheet2!C8") = Cells(F, ActiveCell.Row)Sub 按钮1_单击()
Range("Sheet1!C8") = Cells(F, ActiveCell.Row)
End Sub
问题:
2中函数不会写,还望指教
ExcelApp.Selection.MergeCells = True
vb调用excel时合并单元格
从A1到E1合并
ExcelApp.Range("A1:E1").Select
sheet1.range("c8") = cells(activecell.row,"f")
x = ActiveSheet.Cells(ActiveCell.Row, 1)
ActiveWorkbook.Sheets("sheet2").Select
ActiveSheet.Cells(1, 1) = x
End Sub