MOD能函数判断奇数偶数？

TP512926

cat183612 发表于 2015-1-1 22:53
谢谢鼓励…

自己将正数，负数，0，文本，逻辑值等用IF函数判断下，就知道你对IF函数理解是否正确了

lgcmeli

楼主分析得很有意思。挺好的思考。

dajiahaoxinku12

http://club.excelhome.net/thread-829393-1-1.html


http://club.excelhome.net/thread-885507-1-1.html

大鲁Luciano

给楼主赞一个，我这种真正零基础只会生硬使用Excel的小白真的觉得这种思考十分必要，我就是今天刚开始学函数看到用mod判断奇偶数时搜到这篇的，发现自己if的逻辑之前并不是真的明白

ning84

1. 
   
2. Sub ll()
   
3.     Dim ii, jj, Cc, Rr, Kk
   
4.     Dim Sht As Worksheet
   
5.     Dim oRng As Range, oRng1 As Range
   
6.       Set oRng = Selection
   
7.       Set Sht = oRng.Parent
   
8.       Set oRng = Sht.Range("J14:J300")
   
9.       Set oRng1 = Sht.Cells(2, "J").CurrentRegion
   
10.       oRng1.Copy
    
11.       Debug.Print oRng.Address, oRng1.Address
    
12.       For ii = 1 To oRng.Rows.Count
    
13.           If ii Mod oRng1.Rows.Count = 1 Then
    
14.             'Debug.Print oRng(ii, 1).Address
    
15.             oRng(ii, 1).PasteSpecial xlPasteFormats
    
16.             
    
17.           End If
    
18.       Next ii
    
19. End Sub
    
20. 
    
21. 
    

复制代码