需求是:
一张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中函数不会写,还望指教

解决方案 »

  1.   

    没用过,好像看到过一段代码用copyfrom,什么的
      

  2.   

    先选择好要合并的单元格,现调用 
    ExcelApp.Selection.MergeCells = True 
    vb调用excel时合并单元格  
    从A1到E1合并  
    ExcelApp.Range("A1:E1").Select  
      

  3.   


    sheet1.range("c8") = cells(activecell.row,"f")
      

  4.   

    Sheets("Sheet2").Range("C8").Value = Cells(ActiveCell.Row, 6).Value
      

  5.   

    Private Sub CommandButton1_Click()
     x = ActiveSheet.Cells(ActiveCell.Row, 1)
     ActiveWorkbook.Sheets("sheet2").Select
     ActiveSheet.Cells(1, 1) = x
    End Sub