设为首页收藏本站
开启辅助访问 切换到窄版
搜索
第一问答网»论坛 › 中问网 › 问答 › 我在文本框中输入值，然后点击按钮保存到sheet1中的A1单 ...

我在文本框中输入值，然后点击按钮保存到sheet1中的A1单元格内，然后再...

[复制链接]
查看11 | 回复1 | 2012-2-9 15:44:29 | 显示全部楼层 |阅读模式
Public Sub Insert()mytext = Sheet1.Shapes("textbox 1").TextFrame.Characters.Texti = Range("A65535").End(xlUp).Row + 1If Range("A1") = "" Then
i = 1Else
i = Range("A65535").End(xlUp).Row + 1End IfIf Application.WorksheetFunction.CountIf(Sheets(1).Range("A:A"), mytext) = 0 Then
Sheets(1).Cells(i, 1) = my...
回复

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

千问

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
回复楼主 返回列表
热门排行