Results of 1 - 1 of about 14704 for VBA�������������� (0.003 sec.)
- [[20151021094803]]
- #score: 3410
- @digest: 561dce7f6918f49b5d6f75f43037c556
- @id: 69138
- @mdate: 2015-10-21T03:50:59Z
- @size: 2676
- @type: text/plain
- #keywords: 999999999 (16477), findno (14996), fol0 (14761), 元ネ (4074), instr (3015), movefile (2896), ネタ (2701), ヤフ (2304), フー (1745), subfolders (1560), 買い (1074), 各フ (1060), getfolder (903), 味不 (893), 指示 (893), 信遅 (855), 努力 (832), buf (740), 急ぎ (671), vb (659), 答者 (632), 水) (605), 2015 (583), 数値 (549), fso (534), と指 (525), vba (494), 命令 (481), 値」 (377), v (349), 「数 (344), ォル (334)
- 『急ぎ』（いぬ）
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... - http://www.excel.studio-kazu.jp/wiki/kazuwiki/201510/20151021094803.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 97026 documents and 607985 words.
訪問者：