奥古斯丁也玩hip-pop 2022-02-13 15:07 采纳率: 100%
浏览 23
已结题

关于excel 宏VBA编程中,用程序生成数据时遇到的一个问题


Sub makenum()
Dim maxnum As Long
Dim a As Long
a = 1
maxnum = 50
For i = 2 To maxnum
For j = i To maxnum
Dim juge As Boolean
juge = False
For k = 2 To i
If i Mod k = 0 And j Mod k = 0 Then juge = True
If juge = False And i + j <= maxnum Then
Range("A#").Value = i
Range("B#").Value = j
Range("C#").Value = i + j
Range("D#").Value = i * j * (i + j)
a = a + 1
End If
Next
Next
Next
End Sub

如上是我的代码段,没学过VBA语法不太懂,我的愿望是#代替的地方用a这个变量控制来使每次写入数据时都是这一列的顶格。

  • 写回答

1条回答 默认 最新

      报告相同问题?

      相关推荐 更多相似问题

      问题事件

      • 系统已结题 2月21日
      • 已采纳回答 2月13日
      • 创建了问题 2月13日

      悬赏问题

      • ¥30 VB6.0操作 webview2内核的浏览器如何精确实现网页弹窗处置
      • ¥15 pr导出的视频打不开,提示“缺少编解码器”怎么解决
      • ¥15 html里js获取php参数值不成功,帮改代码
      • ¥20 如何控制ant design的InputNumber组件 最多输入5位小数
      • ¥15 c语言学生基本信息管理系统
      • ¥100 火车头采集器采集求解
      • ¥88 关于#运行时间 时间重叠 和非重叠#的问题,如何解决?
      • ¥15 C语言,密切接触者追踪
      • ¥20 关于计算机网络问题,请附带讲解
      • ¥30 自动识别图像目标并判断