●EXCEL・VBA質問スレ Part2●

●EXCEL・VBA質問スレ ..

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

5:デフォルトの名無しさん
 07/05/27 07:15:06 
>>1 
Part3の間違い。次スレはPart4ね

6:デフォルトの名無しさん
 07/05/27 18:21:25 
乙>1 
 
んで結局前スレ971=976は消えちゃったのか？ 
ttp://pc11.2ch.net/test/read.cgi/tech/1168308855/971 
ttp://pc11.2ch.net/test/read.cgi/tech/1168308855/976

7:デフォルトの名無しさん
 07/05/27 20:17:43 
次スレはモーグに立ててね

8:デフォルトの名無しさん
 07/05/27 23:31:11 
>>4 
VB6はVista環境でもOKだからな、終わりなのは.NET1.1なんだよな

9:デフォルトの名無しさん
 07/05/28 01:27:22 
▼━過去スレを見たい人━━━━━━━━━━━━━━━━ 
o2onで気長にまってたら落ちてくるかも。 
 
o2on･･･2chのdatファイルを共有するP2Pソフトです。 
現段階ではまだαバージョンですので、マターリいきましょう。 
 
公式サイト 
ttp://o2on.net/wiki/

10:デフォルトの名無しさん
 07/05/28 02:09:10 
複数の文字列変数tmp(g))がcells(l,4)に存在するか調べています。 
out(syutu)が複数個あるにもかかわらず②では1つしかみつかりません。 
②のやり方で動作させたいのですがうまく動作しないので 
①でがまんしています。②のなにがいけないでしょうか。。。 
 
①   
 Do Until tmp(g) = "" 
     For l = 1 To 2000 
      If tmp(g) = Cells(l, 4) Then 
       out(syutu) = Cells(l, 1) & "," & Cells(l, 2) & "," & Cells(l, 3) & "," & Cells(l, 4) 
       syutu = syutu + 1 
      End If 
     Next l 
     g = g + 1 
    Loop 
  
②  
   Do Until tmp(g) = "" 
     l = 1 
      Do Until Cells(l, 4) = "" 
       If tmp(g) = Cells(l, 4) Then 
        out(syutu) = Cells(l, 1) & "," & Cells(l, 2) & "," & Cells(l, 3) & "," & Cells(l, 4) 
　       syutu = syutu + 1 
       End If 
       l = l + 1 
      Loop 
    g = g + 1 
   Loop

次ページ