在VBA中引用IF公示碰到的问题
VBA \u5f15\u7528\u8303\u56f4\u95ee\u9898\u5c06 Rows("1:1281" _ )
\u6539\u4e3a\uff1arows("1:\u201c & T2 &")\u201d , \u524d\u63d0\u662f\u4f60\u8981\u786e\u8ba4\u4ece1-T2 \u5355\u5143\u683c\u5185\u90fd\u662f\u6570\u5b57\u3002
\u5047\u5982\u662f[T2]\uff5e10000 \u5219\u6539\u4e3a \u5c06Rows("1:1281"\uff09\u6539\u4e3a Range("T2:T10000"),
\u4e0d\u77e5\u9053\u4f60\u8bf4\u7684\u662f\u4e8c\u7ef4\u5750\u6807\u8fd8\u662f\u4e09\u4f4d\u7acb\u4f53\u5750\u6807\uff0c\u5148\u544a\u8bc9\u4f60\u4e8c\u7ef4\u5750\u6807\u3010\u5750\u6807\u539f\u70b9\u5728\uff080,0\uff09\u3011\u65f6\u7684\u6c42\u89e3\u65b9\u6cd5\uff1a
1\u3001\u6253\u5f00EXCEL,\u65b0\u5efa\u4e00\u4e2a\u8868\u683c\uff0c\u5728sheet1\u4e2d\u7684B\u5217\u8f93\u5165\u8fd9\u4e9b\u70b9\u7684\u6a2a\u5750\u6807\uff0c\u5728C\u5217\u8f93\u5165\u5bf9\u5e94\u7684\u7eb5\u5750\u6807\uff0c\u5728A1\u8f93\u5165=CHAR(ROW(A1)+64)\uff0c\u4e0b\u62c9\u586b\u5145\u5230B\u3001C\u5217\u975e\u7a7a\u533a\u57df\u6240\u5bf9\u5e94\u7684\u884c\uff08\u8bbe\u7f6eA\u5217\u7684\u76ee\u7684\u662f\u4e3a\u4e86\u7ed9\u8fd9\u4e9b\u70b9\u8bbe\u4e00\u4e2a\u4ee3\u7801\uff0c\u8fd9\u6837\uff08B1\uff0cC1\uff09\u5bf9\u5e94\u7684\u70b9\u5373\u4e3a\u70b9A\uff0c(B2,C2)\u5bf9\u5e94\u7684\u70b9\u5373\u4e3a\u70b9B\u2026\u2026\uff09\uff1b
2\u3001\u6309alt+f11\u6253\u5f00VBA\u7f16\u8f91\u5668\uff0c\u53cc\u51fb\u5de5\u7a0b\u7a97\u53e3\u7684sheet1,\u5728\u5f39\u51fa\u7684\u4ee3\u7801\u7f16\u8f91\u533a\u7c98\u8d34\u5982\u4e0b\u4ee3\u7801\uff1a
Sub CaculateD()
endrowno = Cells(1, 1).CurrentRegion.Rows.Count
For i = 1 To endrowno - 1
For j = i + 1 To endrowno
Cells(j - 1, i + 4) = Cells(i, 1) & Cells(j, 1) & "\u4e24\u70b9\u7684\u8ddd\u79bb\u4e3a" & Format(Sqr((Cells(i, 2) - Cells(j, 2)) ^ 2 + (Cells(i, 3) - Cells(j, 3)) ^ 2), "0.00")
Next j
Next i
End Sub
\u5c06\u5149\u6807\u505c\u5230Sub CaculateD()\u540e\u9762\uff0c\u6309F5\u8fd0\u884c\uff1b\u6216\u8005\u5230\u5de5\u5177\u2192\u5b8f\u2192\u5b8f \u4e2d\u53bb\u6267\u884c\u4ee3\u7801\uff0c\u7ed3\u679c\u5c06\u81ea\u52a8\u8f93\u5165\u5230sheet1\u7684E1:W19\u533a\u57df\uff08\u4ee520\u4e2a\u70b9\u4e3a\u4f8b\u6240\u5f97\u533a\u57df,\u70b9\u66f4\u591a\u7684\u8bdd\uff0c\u533a\u57df\u66f4\u5e7f\uff09\uff0c\u8c03\u6574\u597dE\u5230W\u5217\u7684\u5217\u5bbd\uff0c\u5373\u53ef\u770b\u5230\u4f60\u60f3\u8981\u7684\u7b54\u6848\uff01
\u5982\u679c\u662f\u4e09\u4f4d\u7a7a\u95f4\u7684\u70b9\u7684\u8bdd\uff0c\u601d\u8def\u4e00\u6837\uff0c\u53ea\u662f\u516c\u5f0f\u7a0d\u5fae\u590d\u6742\u7684\uff0c\u6839\u636e\u4e0a\u8ff0\u601d\u8def\uff0c\u76f8\u4fe1\u4f60\u80fd\u5f97\u51fa\u7ed3\u679c\u3002
因为"在字符串中表示需要转义，即"" = "
Cells(sRow, sColumn + 14) = "=IF(SUM(RC[-14]:RC[-2])=0,"""",SUM(RC[-14]:RC[-2]))"
什么问题，写出来啊
绛旓細鍥犱负"鍦ㄥ瓧绗︿覆涓〃绀洪渶瑕佽浆涔夛紝鍗"" = "Cells(sRow, sColumn + 14) = "=IF(SUM(RC[-14]:RC[-2])=0,""",SUM(RC[-14]:RC[-2]))"
绛旓細Cells(r, 2).FormulaR1C1 = "=IF(ISERROR(COUNTIF(SecurityCenter!C,""Pass"")),""-"",COUNTIF(SecurityCenter!C,""Pass""))"C涓嶆槸浠ｈ〃绗笁鍒楋紝VBA涓鍗曞厓涓牸鏄敤RC鏍煎紡鏉ヨ〃绀虹殑銆備綘鍙互杩欐牱璇曡瘯锛屽綍鍒跺畯锛岀劧鍚庤緭鍏ヤ綘鐨勫叕寮忋傜湅鐪嬪綍鍒惰繘鍘荤殑鍏紡鏄粈涔堟牱瀛愮殑銆
绛旓細浣犲湪绗竴涓猄UB涓墦寮鏂囦欢锛屽鏋溾淪UB 鍒嗚鲸椤垫暟鈥濅笉闇瑕佸娆¤璋冪敤骞茶剢灏卞湪绗竴涓猄UB涓瘡琛IF璋冪敤涓涓嚱鏁般傗淪UB 鍒嗚鲸椤垫暟鈥濅娇鐢↖F...THEN...END IF 灏卞彲浠ヤ簡锛屼笉闇瑕佺敤ELSE锛屽洜涓哄畠姣忓湪閫昏緫涓婂苟涓嶉渶杩炵画銆
绛旓細'灏唖heet1涓鍚嶇浉鍚岀殑瀛︾敓鎵鍦ㄧ殑琛屽鍒跺埌sheet2涓 Dim rng As Range Dim i As Integer Dim c As Range i = 1 For Each rng In Worksheets(1).Range("B2:B1582")'涓嬮潰杩欏彞涓殑countif鍑芥暟寮曠敤鏈夐棶棰 If Application.WorksheetFunction.CountIf(Range("B:B"), rng) > 1 Then rng.EntireRo...
绛旓細鍦ㄦ墦寮鐨勪唬鐮佺紪杈戞閲岄潰绮樿创濡備笅鏂圭殑浠ｇ爜锛岀劧鍚庣洿鎺ュ崟鍑VBA缂栬緫鍣ㄥ彸涓婅鐨勫叧闂寜閽細Sub 璇勫畾绛夌骇()Dim i As Integer For i = 3 To 11 t = Sheets(1).Cells(i, 2).Value '鍙栧緱鎴愮哗 If t >= 90 Then j = "A"ElseIf t >= 80 Then j = "B"ElseIf t >= 70 Then j = "C"...
绛旓細Worksheets("闈炲父鐢ㄤ欢璁㈣揣绠＄悊").Cells(5, 11) = "=IF(J5=""",IF(I5=""",0,$C$1-I5),J5-I5)"Worksheets("闈炲父鐢ㄤ欢璁㈣揣绠＄悊").Cells(5, 11).Copy Range(Cells(6, 11), Cells(20, 11))绗竴鍙ヤ唬鐮侊紝鍦↗5鍗曞厓鏍艰缃叕寮忥紝绗簩鍙ヤ唬鐮侊紝灏咼5澶嶅埗鍒癑5 -J20鍖哄煙銆傜浉褰撲簬浣犲弻鍑讳竴鏍凤紝...
绛旓細vba if璇彞鎵ц娴佺▼濡備笅锛歷ba if璇彞瀹炰緥鍓栨瀽 姝ら鍏变袱娈典唬鐮侊細绗竴娈碉細Sub 闅忔満鏁()[a1].Value = Int(Rnd * 20)[c1].Value = Int(Rnd * 20)End Sub 瑙ｉ噴锛欰1銆丆1鍗曞厓鏍肩殑鍊间负闅忔椂鐢熸垚鐨20浠ュ唴鐨勬暣鏁般俁nd鏄VBA涓殑闅忔満鍑芥暟锛屼篃鍙互浣跨敤excel宸ヤ綔琛ㄤ腑鐨勫叕寮忔潵鍙栦唬涓婁竴娈典唬鐮侊紝濡備笅锛歋ub ...
绛旓細if鈥︹hen鈥︹nd if缁撴瀯 璇ョ粨鏋勭敤浜庡崟閫夋嫨鍒ゆ柇璇彞鎵ц锛屽叿浣撶敤娉曠湅涓嬮潰瀹炰緥 瀹炰緥锛氬浜庣涓鍒楃殑绗竴琛屽埌绗崄琛屽崟鍏冩牸锛屼綔濡備笅鍒ゆ柇锛屽鏋滃崟鍏冩牸涓虹┖鍊间簡閭ｄ箞鍦ㄧ浉搴旂殑绗簩鍒楀崟鍏冩牸杈撳嚭鈥VBA鏁欑爺瀹も 绋嬪簭锛 Sub 鍒ゆ柇璇彞() Dim i As Integer For i = 1 To 100 If Cells(i, 1) = "...
绛旓細闂1锛if琛ㄧず鍒ゆ柇锛岀湅浣犺繖鍓嶈竟sht1=sht2杩欐潯浠舵劅瑙夋棤鐢ㄧ殑璇淬傞棶棰2锛氳繖娈典唬鐮佹劅瑙夋病鐢 闂3锛氭縺娲籹ht1銆傞棶棰4锛氭寚鐨勬槸鎶婂壀璐寸増涓婄殑鍐呭绮樿创鍒版縺娲荤獥鍙ｇ殑閫変腑浣嶇疆銆俛ctivesheet鎸囩殑鏄縺娲荤殑绐楀彛锛.paste鎸囩殑鏄妸鍓创鐗堜笂鐨勫唴瀹圭矘璐翠笂鍘
绛旓細濡傛灉鎮ㄧ殑浠ｇ爜鎶ラ敊锛屽彲鑳芥槸鍥犱负浠ヤ笅鍘熷洜涔嬩竴锛氭偍鐨勪唬鐮佷腑鐨凷heet190瀵硅薄娌℃湁琚纭畾涔夈傛偍鐨勪唬鐮佷腑鐨凜ells鏂规硶鐨勫弬鏁颁笉姝ｇ‘銆傛偍鐨勪唬鐮佷腑鐨凴ange鏂规硶鐨勫弬鏁颁笉姝ｇ‘銆傛偍鐨勪唬鐮佷腑鐨処F鍑芥暟鐨勫弬鏁颁笉姝ｇ‘銆傛偍鐨勪唬鐮佷腑鐨凷tDev鍑芥暟鐨勫弬鏁颁笉姝ｇ‘銆傚缓璁偍妫鏌ヤ唬鐮佹槸鍚﹀瓨鍦ㄤ互涓婇棶棰橈紝骞舵牴鎹敊璇彁绀鸿繘琛屼慨鏀广傚鏋滄偍浠嶇劧...
