当前位置：首页 → 问答吧 → yaozong老师请继续帮我改答问题

yaozong老师请继续帮我改答问题

时间：2011-08-06

来源：互联网

请老师帮忙修改下代码，并把你写的代码加入到录入数据按钮的代码里为盼，谢谢

附件

请教录入数据出现下标越界的问题.rar(27.38 KB)

2011-8-6 20:21, 下载次数: 15

作者: 风和日月发布时间: 2011-08-06

1、下标越界--程序中涉及到1至10月的表在附件中不见了。（指定的表找不到）
2、你这个表专业性太强了，起息日期到底引用哪列数据为正确，确实不理解，无从着手也。

作者: yaozong 发布时间: 2011-08-06

谢谢老师，我有重把附件上传了，请抽空把代码修改一下

附件

请教录入数据出现下标越界的问题重.rar(27.48 KB)

2011-8-7 07:18, 下载次数: 6

作者: 风和日月发布时间: 2011-08-07

引用:

原帖由风和日月于 2011-8-7 07:18 发表
谢谢老师，我有重把附件上传了，请抽空把代码修改一下

Sub 起息日期()
'Worksheets("sheet3").Activate '激活表3(这句引用错了/改用下一句）
Worksheets("数据表").Activate '激活表3
For i = 2 To Cells.Find("*", , , , 1, 2).Row '3至最后数据行的循环
If Cells(i, 29) = "" Then                   '判断/如果b列等于空白时
   Cells(i, 74) = Cells(i, 55).Value       '循环行的L列等于N列值
Else                                     '否则
   Cells(i, 74) = Cells(i, 38).End(1).Value '循环行的L列等于L列向左有数据列的值
End If                                     '退出判断
Next                                           '下一个/结束循环
End Sub

作者: yaozong 发布时间: 2011-08-07

谢谢老师，当我按下数据录入按键时连同老师写的代码一同运行，使录入新的结算日期74列单元格同步更心便从更新日期日起计算利息，请老师把您写的代码加入到录入数据代码中一起联动，谢谢为盼

作者: 风和日月发布时间: 2011-08-07

试试看，是否为你要的结果（代码未改，只引用“起息日期”子程序）
参考附件。

附件

请教录入数据出现下标越界的问题重2.rar(29.87 KB)

2011-8-7 09:39, 下载次数: 4

作者: yaozong 发布时间: 2011-08-07

谢谢老师，是这个结果，下面有一段代码，我是从论坛上老师们的作品上抄的修改了一下可用于我做表，用于录入数据按钮
但不知代码的意思，请老师抽空解答一下

Dim i, x, flag
x = 2
If Sheets("录入表").Cells(2, 3) <> "" And Sheets("录入表").Cells(2, 4) <> "" Then

Do While Not (IsEmpty(Sheets("数据表").Cells(x, 2).Value))
      x = x + 1
Loop

flag = 0
For i = 1 To x
      If Sheets("数据表").Cells(i, 2) = Sheets("录入表").Cells(2, 2) Then
         flag = 14
         Exit For
      End If
Next

If flag = 14 Then
      x = i
End If

If Sheets("录入表").Cells(2, 2) = "" Then

作者: 风和日月发布时间: 2011-08-07

老师你好，在使用您的代码过程中出现了一点问题
就是在指定日期区域记录满后不能正确反映正确的记息日期和起息日期
体现出来是本行一列为空的后一个单元格数据
请帮忙解决为盼