●EXCEL・VBA質問スレ Part2●

●EXCEL・VBA質問スレ Part2● at TECH

[前50を表示]
300:デフォルトの名無しさん
07/07/03 11:31:57
Set objIE = CreateObject("InternetExplorer.application")
で、IEを起動しています。
なんらかの操作で、IEのウインドウが最小化された場合に備えて、それを「元のサイズに戻す」の
処理を行いたいのです。
検索してみたところ、VBでは、SW_SHOWNA　の利用で良いみたいですが、
同様の処理をVBAで行いたいのです。
ojbIEに対して処理を加える方法は無いでしょうか？
他に考えたのは、API32を参照しobjIEとは関係なく処理を行うですが、そうした方が良いのでしょうか？
よろしく御願いします。

301:デフォルトの名無しさん
07/07/03 12:10:35
>>300
>>16

302:デフォルトの名無しさん
07/07/03 12:41:01
厳しいなあｗ

303:300
07/07/03 16:21:57
Declare Function ShowWindow Lib "user32.dll" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long

If objIE.Top < 0 Then
ShowWindow objIE.hWnd, 9 'SW_RESTORE　アクティブにもなる。
End If

で解決しました。objIE.Top < 0 は怪しいですが、良しとします。

304:デフォルトの名無しさん
07/07/03 18:42:33
>>295
それ、A1:E1ならできるけど
A1:A5だとうまくいかない。なんでだろ？

305:デフォルトの名無しさん
07/07/03 20:17:56
>>302
× スレ違い指摘が厳しい
○ 質問者がVBAの範疇を理解してない

306:デフォルトの名無しさん
07/07/04 17:34:35
VBAというか、プログラミングの初心者です。
変数のスコープ（有効範囲？）のことでハマッっています。

UserForm1のなかの冒頭でPublicとして宣言した変数aの値を
（この値は同じくUserForm1内にPublicとして記述されたプロシージャによって代入される）
UserForm2のなかのプロシージャ内でmsgbox(a)として表示しようとするのですが、
値が空白になってなにも表示されません。
UserForm1 UserForm2のすべてのプロシージャをPublicにしても同じです。

こんなボケに対する、どなたかツッコミをお願いします。

307:デフォルトの名無しさん
07/07/04 17:47:03
Msgbox(UserForm1.a)

理由：ユーザフォームはモジュールではなくクラスだから

308:304
07/07/04 19:03:53
自己解決。
これでいけた。

Range("A1:A5") = Application.Transpose(Array("あ", "い", "う", "え", "お"))

309:306
07/07/04 22:42:37
>>307
助言くださったとおり、うまくいきました。理由を書いてくださったのがヒントになり、
Public変数をUserFormではなく標準モジュールのほうで宣言すればいいことに
気がつきました。どうも有難うございました。

310:デフォルトの名無しさん
07/07/05 12:37:25
＞Public変数をUserFormではなく標準モジュールのほうで宣言すればいい

死ね

311:デフォルトの名無しさん
07/07/05 21:18:05
あの子ったら、また私のパンティを……。
　
息子の康彦を学校へ送りだし、洗濯にかかろうとした美沙緒は、
洗濯機のなかに無造作に放りこまれた自分のパンティを見て、大きく溜め息をついた。

困ったわ。どうすればいいのかしら？……
　パンティを手に持ったまま、美沙緒は考えこんでしまった。
　
康彦は十四歳の中学二年生。七つ年上のいまの夫と大恋愛に落ちた美沙緒が、
周囲の猛反対を押しきって、十八歳のときに産んだ子だ。
　
その康彦の不可解な行動に美沙緒が最初に気づいたのは、もう一年近くも前のことになる。

312:デフォルトの名無しさん
07/07/05 21:23:27
小学生の頃､同じｸﾗｽのﾔｼんちに行った｡ｿｲﾂの姉ちゃんは高校生でｷﾚｲだった｡

化粧してるのをﾎﾞｹｰと見てた｡
｢何で見てるの?｣
やさｰしく微笑んでくれた｡
｢ち､ちゅｰしたい!｣
おいら､とっさに言った｡
姉ちゃん､頭なぜなぜして､ｵﾃﾞｺにちゅｰしてくれた｡
｢口紅ついちゃったわね｣
ｺｯﾄﾝでｷﾚｲにしてくれた｡
おいら､ｺｯﾄﾝを奪って逃げた｡

次の日､姉ちゃんに告った｡
｢お姉ちゃん､彼氏いるの｣
おいら｢ならば､貴様を殺して永遠に我と共に｣
姉ちゃん｢よかろう｡来るが良い｣
虚空を突き破る轟音｡空気を切り裂く甲高い音｡
おいらの口から鮮血があふれ出す｡
おいらの拳は僅かに届かず､逆に手刀が胸に突き刺さっている｡崩れ落ちるおいら｡
おいら｢･･･これで､貴様は俺を忘れないだろう｡ぐ･･｣
姉ちゃん｢忘れはせぬ｡貴様の魂我が心と共に｡悲しき男よ｡誰よりも愛深く､拳でしか愛を語れぬゆえに｣
死してなおその男の顔に浮かぶ表情は喜びであったか悲しみであったか｡
その時､一陣の風が吹いた｡
愛に死んだ修羅の魂を運び去るように｡

313:：
07/07/06 22:24:01
　　　　　００年　　０１年　０２年　０３年
　　　　　売上高　

キャベツ　５００　　４００　３００　　２００
ニンジン　６００　　３００　４００　　５００
トマト　　４００　　４００　５００　　４００
レタス　　３００　　５００　６００　　３００

年代別に最も多い売上高の野菜を調べるためのアルゴリズムってどうすればいいんですか？
上の例で言うと００年の売上高がもっとも高いのはニンジンなのでマクロをつかって００年
ニンジン、０１年レタスというようにセルに順番に出していきたいんですがどうすればいいんで
しょうか？

314:デフォルトの名無しさん
07/07/06 23:04:40
>>313
VBAを使うまでもない。よってスレ違い。

315:デフォルトの名無しさん
07/07/06 23:18:00
>>310
＞死ね

って、どういう意味ですか？

316:デフォルトの名無しさん
07/07/06 23:24:52
>>315
つ[辞書]
つ[goo.ne.jp]

317:：
07/07/07 01:04:04
>>314
課題でどうしてもＶＢＡを使ってやらないとだめなんです。
まだはじめたばかりで普通にやったほうが早いんですけど。
せめてどのような文法を使ったらいいのかだけでも教えてもらえませんか？

318:デフォルトの名無しさん
07/07/07 01:54:03
>>317
ここは宿題スレじゃない

319:デフォルトの名無しさん
07/07/07 11:55:37
　　　　　００年　　０１年　０２年　０３年
　　　　　売上高　

キャベツ　５００　　４００　３００　　２００
ニンジン　６００　　３００　４００　　５００
トマト　　　４００　　４００　５００　　４００
レタス　　　３００　　５００　６００　　３００
　　　　　　ニンジン　レタス　レタス　ニンジン

320:>314
07/07/07 14:28:49
Sub CHEATFROM2CH()

For c = 2 To 5
val1 = 0
val2 = ""
For r = 2 To 5

If Cells(r, c) > val1 Then
val1 = Cells(r, c)
val2 = Cells(r, 1)
ElseIf Cells(r, c) = val1 Then
val1 = val1
val2 = val2 & "と" & Cells(r, 1)
ElseIf Cells(r, c) < val1 Then
val1 = val1
val2 = val2
End If

Next r
Cells(12, c) = val1 & "円の" & val2
Next c

End Sub

もっと削れるけど、このままの方がわかり易くていいだろ…

321:デフォルトの名無しさん
07/07/07 16:26:12
シート2に顧客番号と名前のリストを置いて、
シート1のA1に、例えば「10」と入力した時にそれに対応するシート2の
顧客番号10番の名前を、シート1のA2に表示させたいんですが。
初心者の俺でもできるかなと思いましたが分かりませんでした。　orz

よろしくお願いいたします。

322:デフォルトの名無しさん
07/07/07 16:56:22
>>321
それを何故VBAでやりたい?
シートだけでできるっしょ。

323:デフォルトの名無しさん
07/07/07 17:06:56
Ｂ列にhh:mm:ss形式で入っている時刻をまず文字列（’シングルクォーテーションをいれるみたいなイメージなんですが）にして、
次にＡ列の文字列と連結してＣ列に表示していきたいのですが、
Ｂ列のhh:mm:ss形式をそのままの形で文字列にするにはどうすればよいのでしょうか？

324:デフォルトの名無しさん
07/07/07 17:28:31
しょうがねぇなぁ……
手元にOpenOfficeしかないから適当に読み替えて試してくれ。

>>321
顧客番号がA列、名前がB列として、
A2
=vlookup(a1;シート2.a1:b9999;2)

>>323
C5
=a5&text(b5;"hh:mm:ss")

325:321
07/07/07 17:59:42
>>324
早速のレスありがとうございました！
試してみてエラーが出たので悩みましたが、
=VLOOKUP(A1,Sheet2!A1:B9999,2,TRUE)
でうまくできました！

2人でやっているお店で店長が入院してしまい、自分１人ですべてこなすために
手書きでやっていた部分の仕事をどうしても合理化しなくてはいけなかったので
とても助かりました。ありがとうございました。

326:321
07/07/07 18:56:36
すみません、追加で質問させてください。

顧客が9999人だった時に、10000以上の数字を誤入力してしまうと
9999番目の人が表示されてしまいます。データの入力規則で縛ろうにも、
毎日顧客は増えていきますのでその度に手直しできません。
良い知恵がありましたらよろしくお願いいたします。

327:デフォルトの名無しさん
07/07/07 18:57:55
数式を穴があくまで見つづけろボケ

328:：
07/07/07 22:05:29
>>320
まじでありがとうございます。
自分もこんなふうにできるようになりたいです

329:デフォルトの名無しさん
07/07/07 22:09:53
>>328
1週間くらい勉強すれば､このくらい出来るようになるよ

330:：
07/07/07 22:29:29
お世辞だよ

331:デフォルトの名無しさん
07/07/07 22:44:56
初心者なのですが、質問させて下さい。
環境はWinXP＋Excel2003です。

VBAでFor文を使ったネスト構造を作っています。
3階層のネスト構造の場合、
各変数x,y,zとして以下のロジックを作ってみました。

For i = 1 to 3
For j = 1 to 3
　　　　if i = j then exit for

　　　　For k = 1 to 3

if j =k then exit for
if k=i then exit for

　　　　　　<処理>

Next k
Next j
Next i

期待としては、同じ数が出たときだけスルーするロジックになって欲しかったのですが。
実際には、そうはならず、9パターン中、1-2-3と1-3-2と2-1-3と2-3-1と3-1-2と3-2-1の
6パターン処理されるつもりだったのに、2-3-1と3-2-1の2パターンしか処理されませんでした。

ロジックのどこがおかしいのでしょうか。
おそらく、exit for の設定を私が判っていないせいの様な気がするのですが…

332:デフォルトの名無しさん
07/07/07 23:03:30
そりゃぁ、exitでforから抜けちゃってるからねぇ。

333:デフォルトの名無しさん
07/07/07 23:06:37
うすうす気付いてるようだけど､ループのスキップではなく､ループの終了(Exit For)をしてるから
1=1でExit Forすると､以後の2～3は処理されない

For i = 1 To 3
　　If i = 1 Then Exit For
　　Debug.Print i
Next i

で､2と3が出力されませんと言ってるようなもの

一致条件でExitではなく､不一致条件内に内部ループや処理を置けばいい

334:デフォルトの名無しさん
07/07/07 23:32:36
>>332
>>333

迅速なレスをありがとうございました。
やはり、Exit Forが悪いと言うことで、
当該部分を削除し、以下のように変更したところ、期待通りの結果が出来ました。

if i = j then
elseif j = k then
elseif i = k then
else

<処理>

endif

適切なヒントを下さり、本当にありがとうございました。

335:>326
07/07/08 01:15:38
引数に"TRUE"を使うからそうなる。
"TRUE"だと完全一致しなくてもデータを読んでしまうので
"FALSE"（完全一致必須）にするのが一般的

蛇足すると、Sheet2がデータ専用なら行数を限定する必要は無い
VLOOKUPのデータ元参照式には、参照範囲のズレを防ぐため普通$を付ける。
てことでこんなんが妥当かな。
=VLOOKUP(A1,Sheet2!$A:$B,2,FALSE)

ところでここVBAスレなんだけど…

336:321
07/07/08 02:56:27
>>335
詳しく解説していただき本当に感謝です。
正直、TRUEやFALSEの意味もろくに分かっていなかった自分です。
スレタイだけ見てここで質問してしまい、大変お邪魔しました。

337:デフォルトの名無しさん
07/07/08 07:08:08
>>335
ExcelとVBAの質問スレらしいよ

338:デフォルトの名無しさん
07/07/08 07:55:16
×ExcelとVBAの質問スレ
○ExcelのVBAの質問スレ

例えスレ立て主の意図が前者だろうと､2chの規則的には
プログラム技術板でExcelのVBA以外の話は板違いになるからね

339:デフォルトの名無しさん
07/07/08 11:08:17
すこしスレ違いだが、皆さん大丈夫？

URLﾘﾝｸ(itpro.nikkeibp.co.jp)
Excelレガシー問題

340:デフォルトの名無しさん
07/07/08 12:02:44
SOXで大変なのは全体最適を考えてこなかった
その記事で言う情報システム部門の方なんじゃね？

未だ運用もはっきりしないのにあと半年少々でどうするんだろ。

341:デフォルトの名無しさん
07/07/08 15:40:12
８０以下なら赤
９０以下なら黄色
１００以下なら緑

といったようにセルに入力された値によって
背景色が変わるという列を作りたいのですが
どうすればいいのでしょうか？

342:デフォルトの名無しさん
07/07/08 16:35:29
それをVBAでしたいの？
そうでなければスレ違い。条件付き書式ググれ。

343:デフォルトの名無しさん
07/07/08 16:57:28
現在、Excelファイルが60,000ファイルほどあります。
その全ファイルから、一部分(一番上の5行ほど)だけ別のエクセルファイルにコピーするロジックを作りました。
ロジックの概要は以下の通りです。

処理の内容としては、すでに開いているブックから他のブックを開いて、必要な部分をコピー後にクローズさせています。

Set wb2 = Workbooks.Open(Filename:="aaa.xls")
Set ws2 = wb2.Worksheets("Sheet1")

　　　　　　＜処理＞

ActiveWorkbook.Close saveChanges:=False

Set newbook = Nothing

上のロジックでコピーを行っていると、最初の1,000ファイルぐらいはサクサクオープン/クローズの処理が出来るのですが、
段々オープン/クローズの時間が遅くなってきて、最期は「xxx.xlsはファイルが読み取り専用か、読み取り専用フォルダにあります(略)」
と表示され、ファイルオープンが出来なくなります。

なお、エラーが出るファイルも、一回Excelを閉じると、正常に表示できるので、ファイルが壊れているわけではなさそうです。

この場合、問題の原因がVbaなのか、ハードウェアなのか、OSなのかよく分かりません。
もし何かご存じのことがありましたら、教えていただけませんでしょうか。

344:デフォルトの名無しさん
07/07/08 19:15:00
問題の原因はおまえのプログラム

345:デフォルトの名無しさん
07/07/08 21:04:23
>>343
お望みのことでなくて、恐縮ですけど、
60,000個のファイルから、それぞれ5行を別のエクセルファイルに
コピーしていくと、300,000行になりますよ。
エクセルって、65,536行までないですけど...
それに、何万行もあるファイルの操作は、それだけで、
処理がのろのろ...になるのは、避けようが無いと思ふ...

346:デフォルトの名無しさん
07/07/08 21:41:41
大丈夫、今のExcelはもっと長い。

それはさておき、5行ずつ選択して選択範囲だけcsvで保存して、後でまとめてマージってのはどうだろう。

347:デフォルトの名無しさん
07/07/09 00:32:33
>>344
その可能性が高いとは思うのですが、どうも納得できない部分もあります。
具体的な原因をお教えいただけますか？

>>345
私の説明が悪くて申し訳ないです。
実際には、5行分の内容を配列でまとめて、1行に流し込んでいます。
そのため、実際には1ファイル1行のサイズでコピーをしています。

ご指摘のあったとおり、確かに全てをコピーすると行が足りなくなる可能性が有ります。
私が欲しいデータは、全データ中の一番上と一番下の部分だけなので、
レスを頂いた後で、if文で一番上と一番下だけコピーするようにしたら、コピー行はほとんど無くなりました。

けれど、やはり1000ファイルを超えた当たりから、読み込みが遅くなり、
最期に読み込みエラーが出てきてしまいます。

>>346
おっしゃられるとおり、CSVにした方が良いのかも知れません。
とはいうものの、気になる問題が二つあります。

一つは、範囲指定をした上でCSV形式で保存する方法を私が知らないことと、
もう一つは、VBAでCSVファイルを大量に読み込んで加工できるかどうか、
また、数千ファイルを読み込んだ時点でエラーが発生するかも知れないという不安です。
難易度はどれくらいでしょうか？

348:デフォルトの名無しさん
07/07/09 01:23:02
>>347
ひとつのsheetにまとめるかわりにcsv形式でまとめる
openとwrite使えばOK
エラーの原因はリソースを食いつぶすからだろ
おそらくこれでだいぶリソースの使用が減ると思うが
全部処理できるかはわからない

349:デフォルトの名無しさん
07/07/09 07:11:07
> 一つは、範囲指定をした上でCSV形式で保存する方法を私が知らないことと、
知らなければ勉強すればいいだけ。生まれたときからこの世の全てを知ってる人間なんて居ない。

> もう一つは、VBAでCSVファイルを大量に読み込んで加工できるかどうか、
問題ない。
以前約　6'140'000　個のcsvを扱ったことがある。(時間は掛かったけど､放置して置いたらエラーも出ずに無事完了)
キミが扱う　60,000　個程度ならなんてことないはず。
当然csvはExcelにブックとして開かせるんじゃなくて､348も言ってるように直接ファイルにアクセスすること。
それについても解らなければ勉強しよう。

難易度は｢入門者→初心者｣の移行レベルくらい
これが出来たら､VBA入門者(門を潜っただけ)ではなくVBA初心者(初歩的なことなら出来る)を名乗っても良い

350:デフォルトの名無しさん
07/07/09 10:13:29
>>343
newbookは開放してるけど、wb2やws2は開放しないのか？

351:デフォルトの名無しさん
07/07/09 19:34:56
Excel2003でユーザフォームをもちいて抽出フォームを作成しているのですが
コマンドボタンを押すと
配列(多次元)のデータをユーザフォーム上に表示させるには
どのパーツを使えばいいのでしょうか？

352:デフォルトの名無しさん
07/07/09 20:59:27
>>351
Grid系

353:デフォルトの名無しさん
07/07/09 21:42:18
>>352
Webで検索してもあまり情報が出てこないのですが
オススメな参考書とかありますか？

354:デフォルトの名無しさん
07/07/09 22:01:16
>>351
listbox

355:デフォルトの名無しさん
07/07/09 23:21:22
>>348
>>349

レスをありがとうございました。

今日、超巨大書店でVBAの辞典を買って来て、OPENとかCSV形式での保存方法を勉強しました。

おかげさまで、今バックグラウンドでエクセルファイルをCSVファイルに変換するマクロ流してます。
23:15の時点で5,000ファイルほど変換できました。
変換スピードはあまり落ちていないので、余計なリソースを食うアプリを立ち上げないようにしておけば、
何とか最期まで行けるかも知れないと思い始めました。

で、今気がついたんだけど、エクセルのファイル数が実は600,000ファイルだったw

ぶっ続けで処理を流しても4日位、電源OFFの時間を考えれば1週間位かかりそうです。
CSVファイルを読み込むのも出来ましたので、まだ問題はいくつか残ってますが、
何とか頑張れば出来そうな光明が見えてきました。

プライベートPC上でやっていると（今はホットゾヌ上から書いていますが）あちこちのアプリも重くなるので、
折を見て、変換＆計算処理専用のマシンを購入した方が良いのかも知れないと思い始めました。

色々とヒントを下さって、ありがとうございました。

356:デフォルトの名無しさん
07/07/09 23:45:14
VBAはvariant使わずにきちんと宣言するのとしないのでは実行時間がかなり違ってくるよね。
膨大な処理をするときは1ファイルあたりの処理時間をきちんと計ってコードを組むとかなり早くなったよ。
10倍ぐらいは変わった。

357:デフォルトの名無しさん
07/07/10 01:06:57
Sub JoinTime()

Cells(2, 3) = Cells(2, 1) & Text(Cells(2, 2), "hh:mm:ss")

End Sub

これを実行すると、
「コンパイルエラー：：Ｓub またはFunctionが定義されていません。」
とエラーが出てしまいます。
どう対処すればよろしいでしょうか？

358:デフォルトの名無しさん
07/07/10 01:17:06
>>357
↓を付け足す
Function Text(a, b)
　Text = Format(a, b)
End Function

359:デフォルトの名無しさん
07/07/10 01:25:40
>>358
できました。
すばやい、レスありがとうございました。

360:デフォルトの名無しさん
07/07/10 01:34:50
超初心者の質問で申し訳ないです。。
VBAを使って、画面に表示された方向キー（↑↓←→）を押して、1分間にどれだけ成功できるか・・・
のような感じのゲームを作ることはできないものでしょうか？
頭の中でふと浮かんだのですが、プログラムを組もうとすると進めなくて困っています。
もしわかる方おりましたら、可能か不可能かだけでも結構ですので教えてくださいm(_ _)m

361:デフォルトの名無しさん
07/07/10 01:42:30
>>360
URLﾘﾝｸ(cgi30.plala.or.jp)

362:デフォルトの名無しさん
07/07/10 01:48:41
>>361
誘導ありがとうございます。
スレ違いでした。失礼しました。

363:デフォルトの名無しさん
07/07/10 11:57:18
>>361
スレチだが、そこのCell雀の完成度の高さにびっくりした。

364:デフォルトの名無しさん
07/07/10 22:35:57
ExcelとVBAでマインスイーパー作ったりできますか

365:デフォルトの名無しさん
07/07/10 22:39:42
やる気と根気があればできるはず
がんばれ

366:デフォルトの名無しさん
07/07/10 23:20:05
暇で作った事あるけど同等のゲームならすぐ出来るよ。
UIまでコピーしようと思うとそれなりに大変だろうけど。

367:デフォルトの名無しさん
07/07/11 00:10:18
>>339
excelをそのまま基幹で使う会社
なぞ、どうぞ逝ってくれ

368:デフォルトの名無しさん
07/07/11 18:47:02
medianをVBAで使ってたら特定の数列で無限ループしやがるorz
しかも同じ数列単体で検証しても問題なし
しょうがないからロジックくんだがこんな経験したことある人いる？
ＸＰでも２００３でも再現した
数列ったってこんなんだぞ。0, 0, 0.6, 0

369:デフォルトの名無しさん
07/07/11 21:55:59
携帯から失礼します。　
VBAはﾕｰｻﾞｰﾌｫｰﾑを勉強し始めたレベルなのですが　
Win32 API の存在を知り、エラー音とかに使ってみたくなりました。　
具体的にどのように記述すれば良いでしょう？　
ご教授いただけますか？

370:デフォルトの名無しさん
07/07/11 22:31:45
>>369
スレ違いもここまで来るか…
ｽﾚﾘﾝｸ(tech板)

嫌味ではなくVBAを勉強し始めたレベルでは意味不明だと思われ。
ざっと教授するだけで数百ページの本になる。

371:デフォルトの名無しさん
07/07/11 22:48:02
mciくらいならVBAでもすぐできるだろうに

372:デフォルトの名無しさん
07/07/11 23:10:39
ハマりました～どなたか助けてください～(´Д｀;)

開発環境：
Windows 2000, Excel 2000

要件：
ダイアログ（フォーム）を使い、フォルダ名で、または新しいファイル名で、
後に使うファイル保存先パスを取得、変数に格納しておきたい。

追加事項：
保存先を指定してパスを取得するだけで、その時点ではファイルを開かない。

そこで、DialogオブジェクトやFileDialogについて調べているのですが…
・今一般的で情報の多いApplication.FileDialogは、2000にはないっぽい。
・MSDNでは、Dialogオブジェクトについての説明が極端に少ないっぽい。
・xlOpenFileでは、実現できないっぽい。xl～定数は使えたり使えなかったり。
等などで、どっぷりハマッてしまいました。

タスケテー

373:デフォルトの名無しさん
07/07/11 23:28:36
>>372
ちょっと邪道だけどこんなのでどうかな？
動いたらBrowseForFolderのオプションは調べてくれ。

Dim Shell
Dim Ret

Set Shell = CreateObject("Shell.Application")
Set Ret = Shell.BrowseForFolder(0, "選ばないか", 0)

If Not Ret Is Nothing Then
Debug.Print Ret.Items.Item.Path
End If

374:デフォルトの名無しさん
07/07/12 11:54:13
ごめん
範囲Aと範囲Bの重なっているセルの取得って
どうやるんだっけ？

プロパティかなんかであった気がしたんだけど
ヘルプ見てもみつからなかった(´・ω・｀)

375:デフォルトの名無しさん
07/07/12 13:22:36
>>374
Intersect(範囲A,範囲B)

376:374
07/07/12 13:38:04
>>375
おぉありがとん(｀・ω・´)

377:デフォルトの名無しさん
07/07/12 22:58:16
>>373
遅ればせながらレスありが㌧(・∀・)
なんか、GetSaveAsFileNameっていうまんま直球どストレートな
メソッド発見しますた～お騒がせしました～

378:デフォルトの名無しさん
07/07/12 23:35:57
Sub Bound()
ActiveSheet.UsedRange.Clear
Columns("A:AO").ColumnWidth = 2

n = 1
Range("A1").Select
Do While IsEmpty(ActiveCell.Offset(n, 0))
x = ActiveCell.Offset(n, 0).Row
If x < 2 Or 30 < x Then n = -n
For chien = 1 To 30
ActiveCell = ""
ActiveCell.Offset(n, 0) = "○"
Next chien
ActiveCell.Offset(n, 0).Activate
Loop
End Sub

上下運動を2回繰り返して止めるにはどうしたらよいでしょうか?
ご教授願います。

379:デフォルトの名無しさん
07/07/13 00:11:06
exit do

380:デフォルトの名無しさん
07/07/13 00:36:18
378です。
どういう風に入れたら良いでしょうか？
すみません、宜しくお願いいたします。

381:デフォルトの名無しさん
07/07/13 02:19:26
>>378
なにげに試したら楽しくなってきたので俺も適当に作ってみた

'API
Private Declare Sub Sleep Lib "KERNEL32.dll" (ByVal dwMilliseconds As Long)

Const UpperBound As Long = 2 '1以下はエラー
Const LowerBound As Long = 30
Const SleepTime As Long = 50
Const ico As String = "○"　'バウンドさせる文字
Const Col As Long = 1　'列(この辺は定数にしない方が斜めとかいけるから指定しない方が良さげ)

Private Sub Down(ByVal Speed As Long)
Dim r As Long
For r = UpperBound To LowerBound
Cells(r - 1, Col) = ""
Cells(r, Col) = ico
DoEvents
Sleep SleepTime + Speed
Next
End Sub

Private Sub Up(ByVal Speed As Long)
Dim r As Long
For r = LowerBound To UpperBound Step -1
Cells(r + 1, 1) = ""
Cells(r, Col) = ico
DoEvents
Sleep SleepTime + Speed
Next
End Sub

382:381の続き
07/07/13 02:33:11
Private Sub bound2()
Dim BoundCount As Long
For BoundCount = 1 To 10
Down -(BoundCount * 4)
'Downで表示されっばなのを削除
Cells(LowerBound, Col) = ""
Up -(BoundCount * 4)
'Downで表示されっばなのを削除
Cells(UpperBound, Col) = ""
Next
End Sub

updownの引数で加速と減速可能にっ！
この調子でいけばブロック崩しとかできんのかね？

で、378の質問に全く答えない俺ｗ
なんてのは可愛そうなんで、
>>380
上下した時に「1回上下したとカウント」して
カウントが2になったらExit Doすればok
どこで1回上下したかを判断する場所は
自分でコード組んだならわかるっしょ？

383:デフォルトの名無しさん
07/07/13 09:46:41
>>381さん・・・
>378です。

学校の課題で・・・
for　nextを使用して動いたマス目で2回動いた事にしていたのですが、
それでは不十分と言う事で・・・（TT)

試行錯誤して早7日目・・・
どうしようもなく、皆様にお知恵を拝借しようとした次第です。

宜しければ教えて下さいませ。

384:デフォルトの名無しさん
07/07/13 10:30:54
不十分の意味がわからない、どうしたいんだ

385:デフォルトの名無しさん
07/07/13 11:28:40
>>383
>If x < 2 Or 30 < x Then n = -n
反転の判定をしている、ここで処理してもらいたかったんじゃないのか？

386:384
07/07/13 14:36:56
俺は>>381じゃないが、そういうことならこれで
If x < 2 Or 30 < x Then n = -n: i = i + 1
If i > 3 Then Exit Do

387:デフォルトの名無しさん
07/07/13 20:01:34
会社での昼休み、
ウイルスバスターが動いててすごく重いけど、
どうしても直したいマクロがあって、開いていじってた。

ＰＣがフリーズした。

ＰＣの電源を切って再起動したら、マクロもろともExcelファイルが破損してた。
「アプリケーションの回復」でも回復できない、深刻な破損との事。修復不可能。
こういう時に限ってバックアップとってない。
マクロもエクスポートしてない。
仕方ないので、いちから作り直した。

バックアップは、きちんと取りましょうという教訓でした…

388:デフォルトの名無しさん
07/07/13 21:53:28
教訓というか初心者以外では常識だよね
というか､うちでは世代別バックアップを取るマクロをExcel起動と同時に自動で回しっぱなし
\backup\yyyy_mm_dd\FileName\[yyyy_mm_dd-hh_mm__ss]FileName.xls
にバックアップが自動保存され､前日以前の物があれば日付単位で個別圧縮(cab)して
退避ディレクトリにコピー､更に1週間以上前の物は退避ディレクトリの書庫は残して
バックアップディレクトリのファイルは削除
ここまでは自動で､退避ディレクトリの書庫を定期的にメディアに焼くのだけは手動

まあメディアに焼いたところで､トラブル時もHDD上の1週間分だけで復旧は事足りることがほとんどだけどね

389:デフォルトの名無しさん
07/07/13 21:55:37
FolderShareをつかって他のパソコンと同期させておくだけでも最低限のバックアップにはなると思う。

390:デフォルトの名無しさん
07/07/13 22:24:26
俺はソフトで差分バックアップしてる
重要なデータExcelだけじゃないし楽だし早い

391:デフォルトの名無しさん
07/07/13 23:27:17
>>381さん
>>386さん

＞３７８です。

ご教授頂き有難うございます。
>>386さんのを使用して出させて頂きました。

有難うございました！

392:デフォルトの名無しさん
07/07/14 09:54:31
>>390
外部からだと作業の途中経過のバックアップは取れないからな
問題が起きたときに前回保存時まで戻されるのは勘弁してほしいってデータは
外部の汎用バックアップソフトではなく､内部のマクロで途中経過のバックアップを取った方がいい

393:デフォルトの名無しさん
07/07/14 12:56:32
バックアップとは言え、マクロ動かしっぱなしにしてたらメモリ食わない？

394:デフォルトの名無しさん
07/07/14 13:32:56
>>392
俺の使ってるソフト、圧縮機能はない
URLﾘﾝｸ(www.forest.impress.co.jp)
開いているファイルでもバックアップできるし作業途中で保存していればその分更新される
Officeのように自動保存機能があるソフトならより万全
途中経過が保存される前にPC固まったら駄目だけど、そのマクロも同じだろ？

395:デフォルトの名無しさん
07/07/14 18:04:44
>>393
当然食うよ
搭載メモリ量の10000分の1以下だから気にならないけどね

>>394
マクロの場合
> 作業途中で保存していれば
なんて条件は付かない
保存もマクロでやるからね
Officeの自動保存機能はバグあるし

396:デフォルトの名無しさん
07/07/15 10:15:02
VBA画面だとスクロールボタンが使えなくて不便だな。
ぐぐったら「Intelipoint 4.1を入れると直る」と出てきたけど、
うちのMicrosoftマウスはこのバージョンに対応してないしな。

397:デフォルトの名無しさん
07/07/16 12:01:06
Excel2000のVBAプログラミングでウィザード形式のユーザーフォームって
つくれますか？　StarSuiteのBasicにはその仕様があるのですが、
VBAに関してはググってもなかなか直に解説してあるページがみつからなくて。

現在、同じサイズのユーザーフォームをいくつか用意してそれを順番に表示させる
ことで「ウィザードもどき」にしているんですが・・・・

398:デフォルトの名無しさん
07/07/16 20:33:23
>>397
コンテナになるコントロール使えば良いだけの話
これで解らなければあとはVBAではなくVBの分野なので
そっちの方向で勉強してね

399:デフォルトの名無しさん
07/07/17 00:11:19
>>398
どうも有難うございます。調べてみます。

400:デフォルトの名無しさん
07/07/17 10:11:14
学校の課題で、セルA1～A10 にそれぞれ10，20，30……100と表示し、その和をB1に表示するプログラムを作成せよ。
という課題が出て、試行錯誤してたのですが、詰まってしまいました。
ヒントとして、↓が出ていて、その通りにやったつもりなのですが、セルA1～A10にはゼロしか出てこなくてorz

１．次元数10の配列を宣言し、Forループを利用して数値(10~100)を作成する。
２．Forループを利用して和を計算する
３．Forループを利用して数値（10～100）を表示する。
４．和を表示する。

↓がいま現在のプログラムです。

Sub 課題1()
Const N = 10
Dim A(N)

For T = 1 To 10
A(N) = A(T) * 10
Next T

S = 0
For j = 1 To N
S = S + A(j)
Next j

For C = 1 To 10
Cells(C, 1) = A(N)
Next

End Sub

どなたかご教授願います。

401:A(T) * 10じゃなくてT * 10
07/07/17 10:40:03
>>400
それのどこがVBAの質問なのかと。basicの基本以下のレベルジャマイカ。

402:デフォルトの名無しさん
07/07/17 11:21:45
>>400
debug.printから出直せ。その方が君の為だ。

403:>>401 それを指摘するならA(T) = T * 10だな
07/07/17 11:27:02
>>400
ループ制御変数と個数の定数が混在しているぞ。

404:デフォルトの名無しさん
07/07/17 14:52:21
最近の学校の課題はエクセルVBAをやらせるのか…。
>セルA1～A10にはゼロしか出てこなくてorz
　↑当たり前だ。403の名前欄を参照。
>Cells(C, 1) = A(N)
　↑全部のセルに同じ値が出るに決まってるだろ。

まさかプログラマを目指してるとか言わないよな？

405:400
07/07/17 18:14:05
400です。皆さんのレスを参考に17：00から試行錯誤し直してやっと完成したので報告します。
下のプログラムで表示させることができました。本当、ありがとうございました。

Sub 課題1()
Const N = 10
Dim A(N)

For T = 1 To 10
A(T) = T * 10
Next T

S = 0

For j = 1 To N
S = S + A(j)
Cells(j, 1) = A(j)
Next j

S = 0
For c = 1 To N
S = S + A(c)
Cells(1, 2) = S
Next c

End Sub

406:デフォルトの名無しさん
07/07/17 18:19:26
Dim a(10)
For i = 1 To 10
a(i - 1) = i * 10
Next
s = a(0)
For i = 2 To 10
s = a(i - 1) + s
Next
For i = 1 To 10
Range("A" & CStr(i)) = a(i - 1)
Next
Range("B1").Value = s

407:デフォルトの名無しさん
07/07/18 09:54:41
>>405
どう見てもこの後ループを纏めることになるので、先回りしておけ。

408:デフォルトの名無しさん
07/07/18 13:21:11
開いていないファイルのセルデータをＶＢＡで直接取得する方法ってありますか？

現状はセルに式を入力してから変数に代入、セルを削除
または該当ファイルを開いて取得、ファイルを閉じるみたいな感じです

409:デフォルトの名無しさん
07/07/18 13:27:58
バイナリ解析して直接描くならひらかずにどうぞ

410:デフォルトの名無しさん
07/07/18 13:44:57
>>408
そのファイルがCSVならそれほど難しくないでしょう。

411:408
07/07/18 14:12:48
>>409
難しくて私には分かりません

>>410
ファイルはCSVではなくEXCELブック形式です

ファイルを開けば
A = Workbooks(ファイル名).Sheets(シート名).Range(範囲)
で取得できるのでどこかを少し弄ればどうにかなるのかなと思ったんですけど・・・

412:デフォルトの名無しさん
07/07/18 14:21:39
内部的に開いていいなら(表示はしない)簡単だけど､全く開かずとなると無理っす
バイナリ解析するにも先ずはファイルをOpenしないと始まらないし

413:デフォルトの名無しさん
07/07/18 16:03:15
>>412
どうやら無理そうですね

開かずに済むセルに入力して・・・　の方法で処理しようと思います
ありがとうございました

414:デフォルトの名無しさん
07/07/18 18:48:05
>>408
VBAじゃないけど参照で良ければ。
='c:\Documents and Settings\hoge\My Documents\[book1.xls]Sheet1'!a1
とか

415:デフォルトの名無しさん
07/07/18 20:21:15
>>413
VBA以前のExcel4マクロ(だっけ)なら簡単にできるはず。
Excelの関数と同じくVBAから使用することも可能
ヘルプは英語版ならMSから無料で落とせる。

416:デフォルトの名無しさん
07/07/18 20:29:52
とりあえずサンプル見つけたので＞Excel4マクロ

Cells(1, 1) = Application.ExecuteExcel4Macro("'C:\My Documents\[Book2.xls]Sheet1'!R1C1")

URLﾘﾝｸ(oshiete1.goo.ne.jp)

417:デフォルトの名無しさん
07/07/18 21:21:50
そのExecuteExcel4Macro使う方法が>>412も言ってる
> 内部的に開いていいなら(表示はしない)簡単だけど
の方法でしょ。でも､これだって開いてないわけではないので､この方法では嫌なんだとさ。
内部的に開いて良いなら他にもいくつか方法はあるんだけどね。

因みにExecuteExcel4Macroを使ってセルの値を取得する方法は
かなり有名で解説サイトはいっぱいあるから英語版ヘルプなんて必要無いが
空セルを取得すると空文字やEmpty値ではなく0が返ってくるという不都合がある。
つまり､数値の0が入ってるセルと何も入ってないセルを区別出来ない。

418:デフォルトの名無しさん
07/07/18 22:05:36
皆さん、MSOfficeのスキル高そうですけど、関係する資格などはお持ちですか?

私の勤める会社は、持っている資格を全て棚卸して一覧にまとめよ、なんて御触れが出ました。

ひけらかしたい奴は全部書くし、変なプロジェクトに引っ張られたくない人は応分に隠し、
こんなに資格もってんならウチにいなくてもなんとかなるだろう、とリストラの対象になりたくない人は適当に描いていました。

スキルを保有するのはいいが、ヘタに見せると悪影響があるなんて、初めて知った2007年の夏でした。

419:デフォルトの名無しさん
07/07/18 22:11:08
>>417
> この方法では嫌なんだとさ。

たぶん内部的に開くの意味よくわかってないだけだと思うが

>または該当ファイルを開いて取得、ファイルを閉じるみたいな感じです
これが嫌なんだろう

420:デフォルトの名無しさん
07/07/19 00:00:30
VBAで配列の宣言時に初期化ってできないのですか？
下のようにできると聞いたのですが、実際やってみると「=」が駄目なのか
コンパイルエラーになってしまいます。

Dim Moji() As String = {"ABC", "DEF", "GHI"}

421:デフォルトの名無しさん
07/07/19 00:37:15
VBならできるけどVBAは駄目です

422:デフォルトの名無しさん
07/07/19 11:03:09
そんなことはない

423:デフォルトの名無しさん
07/07/19 11:06:18
正確にはVBの2002以降ね
VBでもVB6では出来ないし､当然VB6準拠のVBAでも出来ない

VB6で出来ることはコントロールと特殊なオブジェクト絡み以外ほとんどVBAでも出来るから問題ないが
VB2002で大きく変わったので､VB2002以降用の解説読んでそれをVB6やVBAでやろうとして
出来なくて混乱しちゃう奴って結構居るみたいだね

424:デフォルトの名無しさん
07/07/19 11:13:42
Dim Moji() As Array("ABC", "DEF", "GHI")

425:デフォルトの名無しさん[
07/07/19 21:44:55
VB6でもArray使えば、配列の初期化できるのか。でも、多次元は無理なのかな

426:デフォルトの名無しさん
07/07/19 22:25:34
VBAでSub プロシージャでは値渡しも参照渡しもできるのですが
Func プロシージャでは値渡ししかできません。参照渡しのやり方ってどうやるのでしょうか。

427:デフォルトの名無しさん
07/07/19 23:29:02
ByVal?

428:デフォルトの名無しさん
07/07/19 23:29:40
ごめんちがた

429:デフォルトの名無しさん
07/07/20 00:00:33
>>426
普通にできるだろ

430:426
07/07/20 00:25:26
↓こんな感じの作ってやってみたけど、表示されるのは"A"
ちなみにFunction→Subに変えたらちゃんと"B"が表示されます。
使い方がまずいのでしょうか？

Sub test()
Dim tmp As String
tmp = "A"
func1 (tmp)
MsgBox tmp
End Sub

Function func1(ByRef tmp As String)
tmp = "B"
End Function

431:デフォルトの名無しさん
07/07/20 00:31:45
Sub test()
Dim tmp As String
tmp = "A"
c=func1(tmp)
MsgBox tmp
End Sub

Function func1(ByRef tmp As String)
tmp = "B"
End Function

432:426
07/07/20 00:45:38
>431氏の通りにしたらできました。
式にしないと駄目ということなんですかね。

433:デフォルトの名無しさん
07/07/20 00:46:22
func1 tmp

434:429
07/07/20 00:47:32
>>430

　　136　デフォルトの名無しさん　　mail:sage　 2007/02/02(金) 00:10:24

> ＶＢＡは自分で作った関数を使う際、
> 引数にかっこをつけてはいかんのです。
ハズレ

自作関数の場合ではなく､基本的にSub､Functionプロシージャ(メソッド)を呼ぶ場合､
戻り値を取る場合とCallで呼ぶ場合以外は()を付けない。MsgBox関数の場合だとこんな感じで使う。
[1] MsgBox "test", vbOkOnly
[2] Call MsgBox("test", vbOkOnly)
[3] ret = MsgBox("test", vbOKCancel)

自作関数の場合でも戻り値を取る場合とCallで呼ぶ場合は()付けなきゃダメだし
自作関数じゃなくても､[1]のように使うときは()付けてはいかんのです。
ややこしいのは､引数一つの関数の場合。
[4] Inc hoge
[5] Inc (hoge)
Sub Inc(Value As Long)
　　Value = Value + 1
End Sub
[4]の方だと変数hogeが+1され､[5]の方だと変化しない。
引数一つの関数をCallを省略し引数に()を付けて呼ぶと､引数は値渡しになる。
基本的に参照渡し値渡しは呼び出される側で指定するので､[5]は殆ど使われない。
意味も知らずに間違って使ってる奴は居そうだけどな。。

435:デフォルトの名無しさん
07/07/20 01:12:19
回答ありがとうございます。
VB独特の仕様なんで覚えるしかないみたいですね。
また間違えそう・・・

436:デフォルトの名無しさん
07/07/20 01:20:28
func(tmp)
func (tmp)
とは違うだろ
下はc=func((tmp))
のようなもの
上のような書き方は存在しない

437:デフォルトの名無しさん
07/07/20 02:51:18
>>430
引数に何もしなければ参照渡し
()でくくると値渡し

Sub test()
Dim tmp As String
tmp = "A"
func1 tmp
MsgBox tmp
End Sub

Function func1(tmp As String)
tmp = "B"
End Function

438:デフォルトの名無しさん
07/07/20 06:55:09
つまり、外せる括弧は外せと言うことだな。

439:デフォルトの名無しさん
07/07/20 17:44:58
func1 -tmp
としたら誰もtmpで値が受け取れるとは思わないだろ
同じことだよ

440:デフォルトの名無しさん
07/07/21 18:13:02
つまり、外せる演算子は外せと言うことだな。

441:デフォルトの名無しさん
07/07/22 01:49:28
エクセルの処理を一瞬だけ止める命令ってどんなのがありますか？
調べたところ、waitを使って、現在時間を調べてそこから1秒待ちをする、などは分ったのですが、
私がやりたいのは、コンマ１秒だけ処理を止めるというものをやりたいんです。

ですが、いまいちコンマ何秒だけ処理を一時停止させるという方法が分かりません。
初歩的な質問で申し訳ないのですが、教えていただけないでしょうか。

442:デフォルトの名無しさん
07/07/22 02:44:42
>>441
Win32APIのSleep使えばいいだけだよ
㍉秒指定なので､コンマ1秒なら100㍉秒指定で

443:441
07/07/22 07:24:57
解決しました。ありがとうございます。

444:デフォルトの名無しさん
07/07/22 12:21:00
444

445:初心者☆
07/07/22 16:04:23
DataAdd関数のところで
「コンパイルエラー：
SubまたはFunctionが定義されておりません」
と出るのですが、なぜエラーになるのかがわかりません。
わかる方おしえてください。
ちなみに、
DataAdd("d", data_length, Now)
みたいなカンジで使ってます。

446:デフォルトの名無しさん
07/07/22 16:50:00
そんな関数あるのか？

447:デフォルトの名無しさん
07/07/22 16:56:25
>>445
クリティカルで答えを言ってやる。おまいさんが参考している本が分かった

DataAdd ×
DateAdd ○

こういうこった

448:デフォルトの名無しさん
07/07/22 17:10:15
教えて下さい。

10品目　月の入荷から各個人に日々の払い出しを行い。
入荷数から払い出しを引いた在庫数がわかるようなマクロはどうすればいいでしょうか？
シートを分けたいです。

449:デフォルトの名無しさん
07/07/22 19:24:12
エスパーじゃない普通の人間に判るように書け。

450:デフォルトの名無しさん
07/07/23 14:55:39
VLOOKUPで検索して参照している値を変更したいのですが
どうやったらいいのでしょう？

-------------
1　　AAA
2　　BBB
3　　CCC
4　　DDD
-------------

3　　CCC
↑
3って入力すると右にCCCって出てくる
そのCCCをXXXって変えると元のデータのが

1　　AAA
2　　BBB
3　　XXX
4　　DDD

ってなるようにしたいです。VBA使わないと出来ないですかね？
なるべくExcel関数だけで作りたいのですが・・・

451:デフォルトの名無しさん
07/07/23 19:12:45
>>450
ここはVBAでやりたい人の為のスレだよ
まあExcelの本スレにも書かれている通り､関数では値の書き換えは出来ないので
どっちにしろVBAでやるしかないけどね

452:デフォルトの名無しさん
07/07/23 20:51:08
このスレ初めて見つけたときエクセルとＶＢＡの質問スレだと思った。
スレタイいじったほうがいいんじゃないスかね

453:デフォルトの名無しさん
07/07/23 20:58:14
板見りゃわかるっちゃわかるけど、スレタイだけ見るとそうだね。

454:デフォルトの名無しさん
07/07/23 21:53:41
まあExcelでプログラム技術系の話と言ったらVBAしか無いもんな

455:デフォルトの名無しさん[
07/07/23 22:05:50
バイナリファイルを作るマクロ作成したんですが
常に新規作成で作ることできますか？
Open "ファイル名" For Binary As #1
↑こんな感じで最初やってみたんですが、新規ファイルがある場合でも
単純に頭から上書きするみたいで困っています。

456:デフォルトの名無しさん
07/07/23 22:49:33
kill

457:デフォルトの名無しさん
07/07/23 23:12:51
>>454
いやいやExcelとプログラムを絡めるだけなら、
オートメーションで他言語から操作するなんてこともあるぞ。

まあその言語特有の事情を除けば、VBAでやるのと何も変わらないが。

458:デフォルトの名無しさん
07/07/23 23:36:53
UserFormのUserForm_Initializeで変数と画面の
初期化をしていますが、ここのロジックを通ってUseeFormが
表示されたあと、画面をUnload Meしてブックを保存して閉じると、次回起動時に

「問題が発生したため、Microsoft Office Excelを終了します。
ご不便をおかけして申し訳ありません。」
と出て、強制終了してしまいます。

ただし、次の場合はエラーが出ずに起動できます。
・保存せずに閉じた場合。
・マクロを無効にして起動し、保存した場合（orしない場合）
・VBEを表示させて実行した場合。

デバッグしたらエラーにならず実行されるので、原因がつかめず困っています。

いろいろ手探りでやってみたところ、２回目の起動の時、
UseeFormにあるコントロールにアクセスすると落ちてしまうようです。
例えば、、
　UserForm.lb_KUBUN.Caption = "" とか、
　cb_Save.Enabled = True　といった感じです。

UseeFormには２００近いラベルがあります。
あとは２２のフレームと、１４のコマンドボタン、リストボックスとコンボボックスが１つずつで、
テキストボックスはありません。ブックの大きさは１Ｍくらいです。
Office Updateは最新状態にしてます。

最初は起動できるので、実行後の保存の時になんか悪いもんが残ったりしてるのかなぁという感じです。

みなさま、お心当たりあればどうぞご教示ください。

次ページ