ripple_naip
2012-08-29 13:01:25
[VBA]
何故分けた？？
投稿者からのアピールポイント
何でひとつの時と複数の時で分かれているかが謎です。 その後、この変数を使うときにもわざわざ１つor複数で分岐してるとか一体何がしたかたんだろうかと・・・・
If eqNum > 1 Then
ReDim multiEqCD(eqNum - 1)
'他multiEq～のReDimがいくつか
For LoopA = 0 To (eqNum - 1)
Set targetCellB = eqDbSheet.Cells.Find(eqIDs(LoopA), SearchOrder:=xlWhole)
multiEqCD(LoopA) = equiDbSheet.Cells(targetCellB.Row, 3)
'他multiEq～の代入文続く
Next
Else
Set targetCellB = eqDbSheet.Cells.Find(eqID, SearchOrder:=xlWhole)
eqCD = equiDbSheet.Cells(targetCellB.Row, 3)
'他の代入文続く
End If
使い方ヒント: 「これは臭う」という行を見付けたら、各行の
をクリックしてマーキングしておきましょう(要Twitter OAuth認証)
コメント(2)
「複数の場合は配列に」という仕様だっただけでは？（その仕様がウンコかどうかは場合によるかと）
コメント投稿には、twitter認証が必要です。
Twitter認証
「謎」じゃなく、ウンコ云々を評価するなら、そのメソッドが何をしたいのか理解するのが先じゃないかねぇ。
良く分からないので糞、とか、「俺の価値観」には相容れないから糞、というニュアンスの投稿多いけど、読むほうもいまひとつ共感しづらかったりするよ、うん。