Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


44917 / 76735 ←次へ | 前へ→

【36827】Re:項目に応じたシートの振分け
回答  Kein  - 06/4/14(金) 18:31 -

引用なし
パスワード
   どこが難しいのでしょーか ?

Sub シート振り分け2()
  Dim MyF As String, Buf As String, Sn As String
  Dim Ary As Variant
  Dim i As Long
 
  With Application
   MyF = .GetOpenFilename("CSVファイル(*.csv),*.csv")
   If MyF = "False" Then Exit Sub
   .ScreenUpdating = False
  End If
  Sheets("Sheet1").Cells.ClearContents
  For i = 1500 To 4000 Step 500
   Worksheets(CStr(i)).Cells.ClearContents
  Next i
  Open MyF For Input Access Read As #1
  Do Until EOF(1)
   Line Input #1, Buf
   Ary = Split(Buf, ",")
   Sheets("Sheet1").Range("A65536").End(xlUp).Offset(1) _
   .Resize(, UBound(Ary) + 1).Value = Ary
   Select Case Ary(2)
     Case 1000, 1500, 2000, 2500, 3000, 3500, 4000
      Sn = CStr(Ary(2))
      Sheets(Sn).Range("A65536").End(xlUp).Offset(1) _
      .Resize(, UBound(Ary) + 1).Value = Ary
   End Select
   Erase Ary
  Loop
  Close #1
  Application.ScreenUpDating = True
End Sub

0 hits

【36795】項目に応じたシートの振分け 初心者のトトロ 06/4/14(金) 2:50 質問
【36805】Re:項目に応じたシートの振分け Jaka 06/4/14(金) 12:18 発言
【36811】補足 Jaka 06/4/14(金) 13:56 発言
【36822】Re:項目に応じたシートの振分け 初心者のトトロ 06/4/14(金) 17:36 お礼
【36810】Re:項目に応じたシートの振分け Kein 06/4/14(金) 13:42 回答
【36826】Re:項目に応じたシートの振分け 初心者のトトロ 06/4/14(金) 18:24 質問
【36827】Re:項目に応じたシートの振分け Kein 06/4/14(金) 18:31 回答
【36830】Re:項目に応じたシートの振分け 初心者のトトロ 06/4/14(金) 19:09 お礼
【36832】Re:項目に応じたシートの振分け 初心者のトトロ 06/4/14(金) 21:04 質問
【36837】Re:項目に応じたシートの振分け Kein 06/4/14(金) 22:03 発言
【36840】Re:項目に応じたシートの振分け 初心者のトトロ 06/4/14(金) 22:29 お礼
【36861】項目に応じたシートの振分け 続き 初心者のトトロ 06/4/16(日) 23:37 質問
【36870】Re:項目に応じたシートの振分け 続き Kein 06/4/17(月) 10:35 回答
【36908】Re:項目に応じたシートの振分け 続き 初心者のトトロ 06/4/17(月) 21:52 質問
【36910】Re:項目に応じたシートの振分け 続き Kein 06/4/17(月) 22:26 回答
【36914】Re:項目に応じたシートの振分け 続き 初心者のトトロ 06/4/18(火) 0:05 お礼

44917 / 76735 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free