运行宏，闪了一会，确不显示结果，

shuji1900

新手上路

写了一个计息天数的公示

其中 L列为余额，H列为实际放款，T2为上次总收息日（3月21日），U2为本次收息日（4月21日），P列为空，B列是合同号列，如果是相关的合同就合并单元格
现在我写了这个代码，希望能出结果
但是，执行宏时，鼠标闪了一会，但没出结果不知道为什么
求教大侠

liulang0808

建议楼主上传附件说明问题的

shuji1900

liulang0808 发表于 2018-4-25 20:21
建议楼主上传附件说明问题的

我在执行 “已还本金计息天数”的命令时，没有问题；但是在执行“未还本金计息天数”时，从p2到P113都不能正常显示，P114-116也显示的不正确
求教大神

liulang0808

shuji1900 发表于 2018-4-26 12:59
我在执行 “已还本金计息天数”的命令时，没有问题；但是在执行“未还本金计息天数”时，从p2到P113都不 ...

看了楼主的附件，有返回值啊？
另外楼主的合并单元格，这个操作，在代码里没有体现啊！所以不可能合并啊

shuji1900

liulang0808 发表于 2018-4-26 16:04
看了楼主的附件，有返回值啊？
另外楼主的合并单元格，这个操作，在代码里没有体现啊！所以不可能合并啊

为什么在我这边P列就是无法显示出来，有没有我设置的原因？B列，不是合并单元格，只不过之前隐藏了格子线

liulang0808

1. 
   
2. Sub 未还本金计息天数()
   
3. 
   
4. '
   
5. ' 余额为0的计息天数 Macro  L列为余额，J列为实际还款，H列为实际放款，T2为上次总收息日，U2为本次收息日
   
6. '
   
7. 
   
8. '
   
9. Dim i As Long, tianshu1 As String  '定义i 与天数
   
10.     For i = 2 To 116 Step 1  '定义循环
    
11.         Select Case Cells(i, "l").Value  '以余额为选项
    
12.             Case Cells(i, "l").Value = 0  '如果余额为0
    
13.                 tianshu1 = ""   '计息天数为空
    
14.             Case Cells(i, "l").Value <> 0   '如果余额不等于0
    
15.                 Select Case Cells(i, "b").Value   '以合同编号列为选项
    
16.                     Case Cells(i, "b").Value = "" '合同编号为空
    
17.                         tianshu1 = ""  '天数为空
    
18.                     Case Cells(i, "b").Value <> ""  '如果合同编号不为空
    
19.                         Select Case Cells(i, "h").Value  '以放款日为选项
    
20.                             Case Is <= Cells(2, "t").Value '放款日小于等于3月21日
    
21.                                 tianshu1 = Cells(2, "u").Value - Cells(2, "t").Value '计息日等于4月21日减去3月22日加1
    
22.                             Case Is > Cells(2, "t").Value '如果大于3月21日
    
23.                                 tianshu1 = Cells(2, "u").Value - Cells(i, "h").Value + 1
    
24.                         End Select
    
25.                 End Select
    
26.          End Select
    
27.          
    
28.      Cells(i, "p").Value = tianshu1
    
29.      Next i
    
30.      
    
31. End Sub
    

复制代码

liulang0808

楼主附件有两个模块，之前看了长代码部分
这次是修改了短代码部分，建议楼主参考下长代码部分，看看select case 语句该怎么写吧