展开全部
收起
2回答
提交回答
  • 至过去的我

    2044人对此回答表示赞同

    我是未来的你,你现在是不是在年找寻小程序答案。你不要感觉诧异,给你来信原因,就是让你不在后悔。今天去学习如何推广小程序,相信......点击查看更多>
    发布于
  • 邱宸

    38人对此回答表示赞同

    这个需要VBAchange事件来处理
    自己不会写,可以定制!
    代码需要根绝实际表格格式及需求来定!
    不然很难达到想要的结果,不断修改浪费时间和精力!

    麻烦专家帮我写一个啊!其他的我都会,只是数据总数20个这个判断不清楚啊!



    追答
    利用工作表函数counta就可以了
    动态判定不为空数据个数就可以了!



    展开
    38
    0回复
    发布于 7年前

    评论(0)

    收起评论

  • Arianna

    38人对此回答表示赞同


    在“工程”的“引用”中选择“microsoft excel 11.0”,"microsoft excel 11.0"看版本而定
    Dim xlApp As New Excel.Application
    Dim xlBook As New Excel.Workbook
    Dim xlSheet As New Excel.Worksheet

    Private Sub Command1_Click()
    On Error Resume Next
    Set xlBook = xlApp.Workbooks.Open("f:\1.xls")
    xlApp.Visible = False
    Set xlSheet = xlBook.Sheets("sheet1")

    xlSheet.Select
    '抽取b2格子的数据并赋值给text1.text
    text1.Text = xlSheet.Range("b2")

    Set xlSheet = Nothing
    Set xlBook = Nothing
    xlApp.Quit
    Set xlApp = Nothing
    End Sub
    展开
    38
    0回复
    发布于 9年前

    评论(0)

    收起评论

A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
咨询热线

13312967497

扫码添加业务即可随时咨询 还可领取小程序推广攻略

业务咨询: 13312967497
扫码咨询

扫码咨询套餐

回到顶部