[[20151021094803]]　『急ぎ』（いぬ）　ページの最後に飛ぶ

『急ぎ』（いぬ）

buf = VBA.Mid(v, VBA.InStr(VBA.InStr(v, "_") + 1, v, "_") + 1, VB

こちらの数値をいれてくださいと指示されたのですがどの数値を変えればよいのですか？

一応1から999999999と限りなく数字がある設定にしたいのですが

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

 >>こちらの数値をいれてくださいと指示されたのですがどの数値を変えればよいのですか？

 ・こちらの「数値」って何ですか？　「数値」は 1 しかないのですが、そのことですか？？？
 ・「いれてください」とは、どこに何をいれろといわれたのですか？

 とにかく、まったくわかりません。

 買い物をしてきたけど、お母さんから買いなおしてきなさい　といわれました。
 何を何に買いなおしたらいいですかと そう、質問されても、回答者は困りますよねぇ。

 「急ぎ」なら、早く回答がでるように、きちんと要件を、回答者がわかるような内容で説明する努力をしてください。

（β） 2015/10/21(水) 10:05

すみません。　

あわてすぎて意味不明でした。

ファイルを各フォルダーに分けたいのですが（数字わけの予定）

ここまで作ってもらえたのですが

Sub Sample()

Dim FSO As Object

Dim F As String

Dim FindNo As String

Dim v

Dim buf

Const Fol0 As String = "C:\Users\s-kudou\Desktop" 'メインフォルダ

Set FSO = CreateObject("Scripting.FileSystemObject")

For Each v In FSO.GetFolder(Fol0).SubFolders
buf = VBA,Mid(v, VBA.InStr(VBA.InStr(v, "_") + 1, v, "_") + 999999999, VB
VBA.Len (v)
F = Dir(Fol0, 0)
Do Until F = ""
If ThisWorkbook.Name <> F Then
FindNo = VBA.Mid(F, VBA.InStr(1, F, "_") + 1, 7)
If FindNo = buf Then FSO.MoveFile Fol0 & F, v & "\"
End If
F = Dir
Loop
Next v
Set FSO = Nothing

End Sub

先ほど張ったやつだけひかっかるのでどこをいじればいいのかわからないです。
ちゃんと伝わってるでしょうか？
（いぬ） 2015/10/21(水) 10:13

ここはExcelの掲示板であり、VB.NETの質問をするところではないですよ？
元ネタは以下のようですが、このプログラムを引き継いだのでしょうか？
http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1480838909

もしかして、VB.NETのコーディングを、Excelで動かそうとしたとか？（そりゃ命令が違います…）
（???） 2015/10/21(水) 10:38

 ＞ buf = VBA,Mid(v, VBA.InStr(VBA.InStr(v, "_") + 1, v, "_") + 999999999, VB 
 ＞ VBA.Len (v)

 そこ、元ネタと違ってますけど？　　　　　　　　　　　　　　　　　ここ
 　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　↓
  buf = VBA.Mid(v, VBA.InStr(VBA.InStr(v, "_") + 1, v, "_") + 1, VBA.Len(v))

（半平太） 2015/10/21(水) 10:55

返信遅くなりました！

すみません。少しいじったものをコピーしてしまいました、。
ヤフーにあったのをいただいてたんですね。。
知りませんでした。

すれ違いみたいなので落とします。
申し訳ありませんでした。
（いぬ） 2015/10/21(水) 12:50

コメント返信：

[ 一覧(最新更新順) ]

[[20151021094803]] 『急ぎ』（いぬ） ページの最後に飛ぶ

[[20151021094803]]　『急ぎ』（いぬ）　ページの最後に飛ぶ