周一至周五 : 08:30 - 17:30 客服专员电话/微信:17301649371 QQ:2627049059
微信咨询

扫码微信咨询

关注公众号

关注微信公众号

电话: 021 5161 9370
返回顶部
VBA点按钮依次顺序往下方单元格填入值
显示全部楼层 倒序浏览 发表日期 2022-06-24 08:39:45 1416次阅读 0次回复

VBA点按钮依次顺序往下方单元格填入值

点击一个按钮,从指定的单元格开始填入一个值,再次点击按钮,往下一行的单元格填入一个值,再点击顺序往下填入值:

效果示例:


GIF 2022-06-23 21-39-09.gif



写法示例:

  1.         Public Sub ButtunClick(sender As Object, e As SpreadsheetGear.Windows.Controls.ShapeActionEventArgs) Implements Interfaces.IExcelWorkBook.ButtunClick
  2.             If e.Shape.Name = "Button 1" Then
  3.                 Dim i As Integer
  4.                 i = ActiveWorkbook.ActiveWorksheet.Range("B2").Value
  5.                 ActiveWorkbook.Worksheets("Sheet1").Cells(i, 2).Value = i
  6.                 ActiveWorkbook.ActiveWorksheet.Range("B2").Value = i + 1
  7.             End If
  8.         End Sub '按钮/标签点击事件
复制代码















电话/微信:18049989370 QQ:857188287
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则  允许回帖邮件提醒楼主

快表软件是国内较早研究表格类软件开发平台的团队之一,迄今已有十多年的行业经验.致力于为企事业单位提供实用可靠的数字化平台。
  • 微信公众号

  • 微信小商店

  • 微信客服

  • Powered by Discuz! X3.4 | Copyright © 2022-2024, XiRong Soft. | 快表软件
  • 沪ICP备13033196号 | 营业执照 |上海西戎软件科技有限公司|沪公网安备31011502002146号|沪ICP备13033196号 |