Excel VBA質問スレ Part9

Excel VBA質問スレ Pa ..

369:デフォルトの名無しさん
09/01/05 13:14:41
>>368
Select Caseが105ってのは、実際にカウンタ変数のMod 10に対する
条件分岐のみのループの処理時間を計った結果
それぞれ500万回*3回の平均から算出した値

そもそもが単一条件の場合でも、Select CaseはIfより遅いからね

370:デフォルトの名無しさん
09/01/05 14:13:14
セル、グラフ、フォーム等の情報を利用してフォーム形成することはできますか？
例えば
名前　値　ラジオボタン
という行が連なるフォームを作る場合、
グラフの凡例数、セルの列数、フォームで入力した数分等、行が作成される感じにしたいのですが。
（フォームの大きさに入りきらない場合はスクロールバーを出す）

371:デフォルトの名無しさん
09/01/05 14:19:16
ユーザーフォーム上のコントロールを動的に生成したいってことなら出来るよ

372:デフォルトの名無しさん
09/01/05 14:22:53
>>371
調べ方が足りませんでした。すみません。　VBA　可変　フォームとかぐぐってました。
コントロール　動的　VBAでぐぐったらできそうな感じです。
ありがとうございました。

373:デフォルトの名無しさん
09/01/05 18:24:45
>>369
IfやELseIfのネストより遅いのは確かだが、Orより遅いわけねーって。
実測してみろよ。
Private Declare Function timeGetTime Lib "winmm.dll" () As Long
Sub foo1()
　　Dim i&, t1&, t2&
　　t1 = timeGetTime
　　For i = 1 To 5000000
　　　　Select Case i Mod 10
　　　　　　Case 5, 6, 9
　　　　　　Case Else
　　　　End Select
　　Next
　　t2 = timeGetTime
　　MsgBox t2 - t1
End Sub
Sub foo2()
　　Dim i&, j&, t1&, t2&
　　t1 = timeGetTime
　　For i = 1 To 5000000
　　　　j = i Mod 10
　　　　If j = 5 Or j = 6 Or j = 9 Then
　　　　Else
　　　　End If
　　Next
　　t2 = timeGetTime
　　MsgBox t2 - t1
End Sub
foo1がショートサーキットだって知らなかったんじゃないの？
なんなら実証してみせるが、やり方くらい知ってるよな。

374:デフォルトの名無しさん
09/01/05 19:51:47
>>373
・timeGetTimeではなく組込のTimerを使ったこと
・Select Caseでも平等にするためにi Mod 10の結果を変数に取っていること
・結果をMsgBoxではなくDebug.Printで出力したこと
以外は同じコードだよ

ちなみに実証方法は知ってる
Select Caseがカンマ区切りがショートサーキットなのは知ってるからわざわざ
Select Caseでやったことは無いが、デバッグの一手法でもあるからな

375:373
09/01/05 21:26:44
>>374
i Mod 10の値を処理で使わないんなら>>373が平等なコード。
仮にfoo1でi Mod 10を変数にとってもfoo1が速いぞ？
おめーんとこじゃ遅いのか？

376:デフォルトの名無しさん
09/01/05 21:35:16
> i Mod 10の値を処理で使わないんなら>>373が平等なコード。
そうでもない

> おめーんとこじゃ遅いのか？
うん

377:373
09/01/05 21:40:10
OrもSelect Caseもお互いに速さでベストをつくせばそうなるじゃん。
おまえは最速のコード書けないんだろ？

378:373
09/01/05 21:41:57
後ろは読んでなかったが、おれのとこと逆になるらしいな。
俺のとこはSelect Caseが速い。

379:デフォルトの名無しさん
09/01/05 22:00:24
実際の処理に置いて必ずModで算出した値を使うというわけではない以上
条件分岐のステートメントに入る前の時点で、条件となる値が変数に代入されているという
同じ状況を作ることが平等になる

Modを使う場合に限定して、IfとSelect Caseのどちらを使った方が速いかを検証するなら、
君の言うとおりベストを尽くして最速コードを書くべきだけどね

380:デフォルトの名無しさん
09/01/05 22:12:28
なんか分かってないなぁ。
Modで算出した値を使わないなら>>373になるんだよ。
まぁどこまで行っても平行線だからもういいが、他のやつらはどっちが速いんだろ？
まぁ速さなんて俺はどっちでもいいけどな。
このような使い方なら普通の美意識を持ってたらSelect Caseだし。

381:デフォルトの名無しさん
09/01/05 22:19:50
>>380
foo1が速かった

382:デフォルトの名無しさん
09/01/05 22:24:07
>>381
ﾄﾝｸｽ
j = i Mod 10
Select Case j
としても？

おれのとこはそれでもfoo1が速いが。

383:デフォルトの名無しさん
09/01/05 22:26:51
>>382
逆転した

384:デフォルトの名無しさん
09/01/05 22:31:23
>>383
ふーん、俺のとこと違うな。
まさかjを変数宣言してないとかじゃないよな？

385:デフォルトの名無しさん
09/01/05 22:33:56
>>384
してなかった

したら差は縮まったけどまだ
foo2が速い

386:デフォルトの名無しさん
09/01/05 22:35:45
>>385
おいおい、しっかりしてくれよ。
jをLong型で宣言したらそうなるか教えてくれ。

387:デフォルトの名無しさん
09/01/05 22:36:45
すまん、また後ろ読んでなかった。

388:デフォルトの名無しさん
09/01/05 22:41:46
>>386
＆で宣言したよ
30位foo2が速い

389:デフォルトの名無しさん
09/01/05 22:42:49
まぁModで算出した値を使わないなら>>373が平等な比較だが、とりあえず変数に代入したら
人によっては違うということは分かった。
ちなみに俺はWindows xp とExcel2007だ。

390:デフォルトの名無しさん
09/01/05 22:44:22
ちなみに
Excel2002です

391:デフォルトの名無しさん
09/01/05 22:47:06
>>390
ﾄﾝｸｽ。

392:361
09/01/05 23:18:31
>論理で「Aでないか、Bでないか、Cでない」ならの類なのですが、
>列5 列6　列9なら、イベント処理し、「そうでないなら」、exitする　の
>「そうでないなら」はどう書いたものでしょうか？
訊き方が悪かったみたいですね。結局、次のこれで、希望する動きをしています。

If Not (Target.Column = 5) And Not (Target.Column = 6) And Not (Target.Column = 9) Then Exit Sub

393:デフォルトの名無しさん
09/01/06 00:21:36
文章だけだと伝わりづらいと思いますが、質問です。

ハイパーリンク　│　転記情報1
ハイパーリンク　│　転記情報2

EXCELシートの一覧表に上のようにハイパーリンクが張られた一列を作り、
それをWEBブラウザでプレビューできるようにしています。

WEBブラウザ上のリンクをクリックすると、
新しくEXCELシートを呼び出し、
クリックした行の情報(一番上のハイパーリンクをクリックしたなら転記情報1)を
呼び出したシートに転記する処理を作りたいと思っています。
EXCELシートならリンクをクリックすると同時にそのセルがアクティブになるので同行の情報も簡単に転記できそうですが、
WEBブラウザ上でもこれと同じような情報転記は可能でしょうか？

394:デフォルトの名無しさん
09/01/06 03:38:21
>>392
背中がムズムズする……

395:デフォルトの名無しさん
09/01/06 05:39:55
>>394
気持ちは解る
条件式にnotと=を併用するヤツってもうね…

396:デフォルトの名無しさん
09/01/06 07:33:05
<>

397:デフォルトの名無しさん
09/01/06 09:47:49
>>392
「Aでないか、Bでないか、Cでない」ではなく「Aでもなく、Bでもなく、Cでもない」だろ？
前者だと必ずTrueだからな。
それは置いといて、普通イベント処理ならIntersect使うから列番号では判定しないが、どうしても列番号で判定したいとか基本のお勉強なら
Select Case Trget.Column
　　Case 5, 6, 9
　　　　'処理1
　　Case Else
　　　　Exit Sub
End Select
’処理2

処理2がなければ、何もわざわざCase Elseで抜ける必要なし。
というか抜ける記述は普通はしない。

398:デフォルトの名無しさん
09/01/06 09:49:54
何、今更？

399:デフォルトの名無しさん
09/01/06 09:59:59
>>392
書き忘れたがTarget.Columnを三度も取得しちゃいかん。
どうしてもAndとかOrを使うんなら、いったん変数に取得してから判定するんだな。

400:デフォルトの名無しさん
09/01/06 10:02:35
>>398
昨晩のアフォの>>365か？
無視してすまんね。

401:デフォルトの名無しさん
09/01/06 10:29:05
悔しかったの？

402:デフォルトの名無しさん
09/01/06 10:30:29
シートに商品名が20,000件程度入力されている状態で
テキストボックスに商品名の一部を入力⇒キーワードが含まれるセルのデータを
リストボックスに追加　という処理を考えていたのですが
下記の方法で試してみるとかなり時間がかかってしまいます
高速に処理をさせるには根本的な方法の見直しが必要でしょうか？

　dSelectForm.ListBox1.Clear
　LastRow = Sheet1.Range("C65536").End(xlUp).Row
　For i = 2 to LastRow
　　Ans = 0
　　Ans = WorksheetFunction.Find(inputKey, Sheet1.Cells(i, 3))
　　If Ans <> 0 Then
　　　dSelectForm.ListBox1.AddItem Sheet1.Cells(i, 3)
　　End If
　Next

403:デフォルトの名無しさん
09/01/06 10:59:47
相変わらずの人がいるなｗ

404:デフォルトの名無しさん
09/01/06 11:20:39
>>402
ループのお勉強なら基本的には配列の勉強かな？
データ範囲を２次元配列に取得して回すとか、AddItemは遅いから1次元配列にため込んでListプロパティで設定するとか。
WorksheetFunction.FindじゃなくInStr使うとか。
たしかExcel2000以降ならFilter関数が簡単。
WorksheetFunction.Transpose(範囲)で1次元配列を取得して、Filter関数にかけてからListプロパティで設定。

405:デフォルトの名無しさん
09/01/06 16:29:31
イベント処理だし元の質問からも判断してわざわざExitで抜けるようなコードは必要ないと思う。
条件に「合う」場合だけ判定して処理するように書くのが普通だね。

定番はIfだけど質問者のレベルから考えてコンマ何秒の速度差を考える必要はないと思うし
見た目のわかりやすさと保守のしやすさからCaseをすすめとく。
条件が増えたときに簡単に数字が追加できるから。

406:デフォルトの名無しさん
09/01/07 01:50:36
2008年1月2日を08.01.02と表記してるセルを計算に使う方法ってありますか？
08.01.02と表記されたセルから08.01.01と表記されたセルを引くと1という答えが算出される処理を作りたいです。

407:デフォルトの名無しさん
09/01/07 03:34:54
>>406
セルの表示形式で「yy.mm.dd」

408:デフォルトの名無しさん
09/01/07 05:57:34
>>405
俺は誰かみたいに「何、今更？」なんて言わんが、そのような条件が三つ以上でIfステートメントでOr判定するくらいなら
Select Caseステートメントの方が速いし分かりやすいし定番だと思うよ。
あと知らなくていいことだが、Select CaseステートメントでCase Elseとか、If ThenステートメントでElseとかは
何もそこで処理しなくても書いた方が速くなるね。
まぁ俺は書かないけど。

409:デフォルトの名無しさん
09/01/07 06:18:38
>>406
数式でよけれべ普通に=A1-B1なんてやりゃできる。
もし表示形式が日付形式になるようなら、G/標準とか0にすりゃいい。
2007では計算元の表示形式が日付でも普通に1になるが、たしか2003では数式セルは日付にならなかったっけ？

計算元の表示形式が文字列で、VBAでやりたいのなら
MsgBox CDate(Cells(1,1).Value)-CDate(Cells(1,2).Value)
MsgBox DateValue(Cells(1,1).Value)-DateValue(Cells(1,2).Value)
などとやりゃできないか？

410:デフォルトの名無しさん
09/01/07 07:26:12
if not hoge is nothing then

って構文が気持ち悪いんですけど、何か代替えはありませんか？

411:デフォルトの名無しさん
09/01/07 07:53:25
そんなこといったらVBAなんて気持ち悪い構文だらけですが何か？

412:デフォルトの名無しさん
09/01/07 08:23:23
「代替え」なんて変な言葉を使う人に言われたくありません。
もしかして、「代替」を「だいがえ」って読んじゃう頭の弱い人やそれらに無意識に迎合しちゃう人ですか?

413:デフォルトの名無しさん
09/01/07 08:34:53
>>410
If ObjPtr(hoge) <> 0 thenでよくね？
俺はこんなことしないけどね。

414:デフォルトの名無しさん
09/01/07 10:38:45
それならもっとシンプルにできる
If ObjPtr(hoge) Then
こういう書き方を知らないと意味がわからなくなるけど

415:デフォルトの名無しさん
09/01/07 12:12:25
>>412
URLﾘﾝｸ(dictionary.goo.ne.jp)

416:デフォルトの名無しさん
09/01/07 12:25:38
not ～ nothingは俺も気持ち悪いと思う
直訳すると「ないアルよ」みたいな回りくどい二重否定の表現って
英語だと普通に出てくるから設計者は何の疑問も持たなかったんだろうなあ

俺もまだVBAを勉強中だから知らないだけかもしれないけど、
インスタンス化されてることを、いちいち論理を反転しなくても直接判定できるような
構文か関数ってないの？自分で作るしかない？

417:デフォルトの名無しさん
09/01/07 16:19:22
別にこの仕様でおかしくもないと思うけどねぇ
そもそもがNothingのときに何かをするってことの方が多いんだからさ
有ることと無いこと、両方とも否定文を使わずに判定出来るのが一番かもしれないが
どちらかのみと言うなら、無いことを判定する方法を用意すべきだろ

418:デフォルトの名無しさん
09/01/07 17:08:30
if hoge is not nothingと書けるのが一番良い

419:デフォルトの名無しさん
09/01/07 17:21:50
余計変だw

420:デフォルトの名無しさん
09/01/07 18:39:23
>>415
変な言葉が定着しつつあることはその引用で判るが、それで何が言いたいの?
# 頭使うことを知らない人は、自分で考えることを放棄するから困る。

421:デフォルトの名無しさん
09/01/07 18:42:58
いっそのこと
If hoge = Nothing
If hoge <> Nothing
でいいじゃん。
なんだよ突然Isって。わざわざ演算子を使い分ける妙なこだわりが理解できん。桂正和マニアかよ。

422:デフォルトの名無しさん
09/01/07 19:10:25
代替～(ダイタイ～)
の同音異義語が有る場合などに
代替え～(ダイガエ～)
と重箱読み使うのは昔からあること

変な言葉でもなければ、最近になって定着しつつあるのではなく以前からあったもの
件の場合は重箱読み使うのが適切と言える状況ではないが、誤用や間違いではない
"代替"の意味で"代変え"を使っているなら完全な誤用だけどね

そもそも、言葉というのは変化していくもの
最近になって定着しつつあるのだとしても、それを頭ごなしに否定するのは愚かしい
頭使うことを知らない人は、誤用と変化の違いを見極めることなく
自分の中の古い知識だけで物事を断定しがちだが、もっと柔軟な頭と広い視野を持たないと困るよ

423:デフォルトの名無しさん
09/01/07 19:32:33
AndAlsoやOrElseってVBAには無いんだったっけ？

424:デフォルトの名無しさん
09/01/07 19:50:59
>>412
いや、”だいがえ”が正しいんじゃないかな。
もしかして”だいがい”って呼んでるの？

425:デフォルトの名無しさん
09/01/07 19:54:09
CやJavaが長年培ってきた洗練された構文をかなぐり捨ててVBはいったいなにがしたかったのだろう。
なぜ}のかわりにEndと入力しないといけないのか理解に苦しむ。
見やすくない上に３文字も打たないといけない。ばっかじゃないか？

426:デフォルトの名無しさん
09/01/07 19:55:49
馬鹿発見。「だいたい」と読むのだよ。つーか、>422に書いてあるだろ。

427:デフォルトの名無しさん
09/01/07 19:56:12
いやいや、オリジナルのBASICはCより古いぞ。
その古臭い構文をVBも引きずっているというだけ。
だからこそBasicを名乗っているわけだが。

428:デフォルトの名無しさん
09/01/07 19:56:28
>>425
CやJavaとbasicはどっちが古いと思っているのかね。

429:デフォルトの名無しさん
09/01/07 20:00:04
オリジナルのベーシックと今のVBはかなり違うじゃん。
古いベーシックから新しいVBになるにあたって
CやJavaで解決されている構文を見習えばよかったのだ。

430:デフォルトの名無しさん
09/01/07 20:00:56
C#でも使ってろ。

431:デフォルトの名無しさん
09/01/07 20:05:32
>>430
エクセルのマクロでC#って使えるの？

432:デフォルトの名無しさん
09/01/07 20:06:30
それよりなんでキーワードの先頭は大文字なんだろう
目がチカチカする
小文字ならまだメリハリが出て読みやすいと思う

433:デフォルトの名無しさん
09/01/07 20:12:55
エクセルのセルに入っている文字列の特定の文字の上にオートシェイプを置きたいって質問した人です。

質問させてください。

エクセルの現在のフォントでの文字列の幅を取得するには、

１．HWNDをNULLでデバイスコンテキストを取得する。
２．コンパチブルなDCをつくり、フォントをエクセルのフォントと同じものをセレクト。
３．GetTextExtentPoint32を呼び出して論理単位で文字列幅を得る。
４．（モードがMM_TEXTだと仮定して）ピクセルなので、ポイントに変換する。
　　（DPIはGetDeviceCapで取得）
５．エクセルのシートのズームが80%なら0.8をかける

であっていますか？

434:デフォルトの名無しさん
09/01/07 20:22:18
>>429
VBが登場した頃は、まだパソコン用の高級言語の人気が
CとPascal（これはBegin～Endって書く言語）で2分していて、
C系の構文が良いという評価が固まっていなかったのだと思う。

>>432
VB登場の少し時代は全部大文字だったから、そこからは進歩したと言えると思う。

435:デフォルトの名無しさん
09/01/07 20:27:07
変わったと言うより大幅に拡張されてるね。
根っこの部分はN-BASICの時代から変わってないから
昔覚えた変なテクニックが意外とそのまま使えたりするんだよな。
このあたりN-BASICやN88-BASICの記憶がないとなかなか同意してもらえないと思う。

例えばこんなNextの書き方、VBから始めた人は知らないんじゃないかな。

For i = 1 To 10
For j = 1 To 10
　　(処理)
Next j, i

436:デフォルトの名無しさん
09/01/07 20:31:28
>>435
あったなぁ・・

そうだ、For文みて思い出したけど、VBは１からカウントするのが好きくね？
配列とか。あれキモイ。

まともな人間なら数字は０からカウントするものだ。
という言葉を思い出した。

437:デフォルトの名無しさん
09/01/07 20:36:44
fortranなんかは1からだろ
数学も1から
C系で0ベースなのはメモリの配置とか低レベルな理由

438:デフォルトの名無しさん
09/01/07 20:38:03
>>436
配列はN-BASICもVBも0からだろ。

439:433
09/01/07 20:39:17
あのー。少しは私のことも思い出してあげてください。。(^^;)

440:デフォルトの名無しさん
09/01/07 20:40:30
>>439
修飾(ボールドとかイタリックとか)も考慮しないとずれるよ

441:デフォルトの名無しさん
09/01/07 20:43:21
>>440
嗚呼～。ほんとだ。そうですよね。。

あ、433のやり方で大筋はOKで、かつ、ボールドも考慮みたいな感じでしょうか？

442:デフォルトの名無しさん
09/01/07 21:25:06
>>407 >>409
表示形式色々変えたんですけど、
Msgboxで表示しても0だし、EXCELのセル上に表記しても＃VALUEになります。
なんでなのでしょう。
EXCELのバージョンは2000です。

443:デフォルトの名無しさん
09/01/07 21:27:33
>>441
細かいことを言えば、Excelは同じセル内でも1文字ごとにフォントを変更できる。
すべてに対応するのはけっこうめんどくさそう。

444:デフォルトの名無しさん
09/01/07 21:28:40
>>442
元の日付けデータがシリアル値になってないんでねーの？

445:デフォルトの名無しさん
09/01/07 21:31:48
>>443
そういやそうですね。ちょっとそこらへんも含めて作ってみます。

446:デフォルトの名無しさん
09/01/07 21:50:11
VBAっていつ無くなるんだっけ？次のバージョンから？

447:デフォルトの名無しさん
09/01/07 21:55:32
>>444
そもそも08.02.01のような表記をシリアル値にする方法がわからないのですが。
=DATEVALUE("08.02.01")
みたいに表記してもVALUEになるだけですし。

448:デフォルトの名無しさん
09/01/07 22:01:53
>>447
VBA関係ないよな
=DATEVALUE(SUBSTITUTE("08.02.01",".","/"))
次に何かわからないことがあったら総合相談所行ったら？

449:デフォルトの名無しさん
09/01/07 22:03:37
>>446
Mac版の2008ではなくなったけど、その次でまた復活する予定。
Win版はなくならない。

450:デフォルトの名無しさん
09/01/07 22:18:53
>>449
サンクス
本職はＣ＋＋だけどＶＢＡ使えると経理の女の子から結構重宝されるので助かる

451:デフォルトの名無しさん
09/01/07 23:29:12
てか、事務職でVBAって何に使うんだよｗ

452:デフォルトの名無しさん
09/01/07 23:49:34
１行目が項目名で、２行目から２０１行目までデータが入っています。
オートフィルター後のＡ列のデータを取得したい。
どんなマクロになりますか？

453:デフォルトの名無しさん
09/01/08 00:20:50
うぇー　Workbook.Save False すると Wrokbook_Before_Close動かん

454:デフォルトの名無しさん
09/01/08 00:29:40
>>452
オートフィルタの実行はAutoFilterメソッド
結果を配列として取り出すのはCurrentRegion.SpecialCellsメソッド

>>451
単純作業をVBAで自動化してやるとけっこう喜ばれるよ
毎日在庫を確認して発注伝票を印刷してFaxで送信するとか
中小だとアバウトな部分が多くて完全な自動化は難しいから
できるところだけやる

455:デフォルトの名無しさん
09/01/08 00:35:23
>>451
どんだけ想像力ねぇの？

456:デフォルトの名無しさん
09/01/08 00:35:29
下記のような感じで、セルに他のセルを参照した値を入力したいのですが、
下記の入力方法だと、絶対参照になってしまいます。
相対参照にする指定方法をご存じないでしょうか？

Cells(i + 1, 9).Value = "=" & Cells(i, 9).Address & "+" & Cells(i + 1, 6).Address

457:デフォルトの名無しさん
09/01/08 00:43:52
>>451
Officeって言うくらいだから・・・

458:デフォルトの名無しさん
09/01/08 00:53:51
>>456
Cells(i, 9).Address(False, False)

459:デフォルトの名無しさん
09/01/08 01:14:30
OS:WinXP
Ver:Office2000

以下のマクロが意図したとおりに動きません。
aの値によってaddstに入力した値に異なる係数をかけた値を作りたいのですが、
係数をかけたはずのaddをセルに入力してみるとゼロになっています。
参考文献にはCaseの後はコンマで区切って複数条件を入れれるとありますが、
それはできないのでしょうか。。
なおプログラム自体は上記係数を無視する他は問題なく動いています。

Dim a As Integer
（中略：aはFor構文で1から18まで増える)
Dim addstd As Double
Dim add As Double

addstd = 0.3
Select Case a
Case 3, 4, 8, 11, 13, 18
add = addstd
Range("A5").Value = add
Case 2, 6, 7, 10, 15, 17
add = addstd / 2
Range("A5").Value = add
Case 1, 5, 9, 12, 14, 16
add = addstd / 3
Range("A5").Value = add
End Select

460:デフォルトの名無しさん
09/01/08 01:22:28
>>458
ありがとう

461:デフォルトの名無しさん
09/01/08 01:49:40
>>459
表示形式

462:デフォルトの名無しさん
09/01/08 02:57:09
ウォッチやDebug.Printで値を見るくらいは自分でやれよ

ほんと、VBA使いって問題起こるとそこで思考停止してしまい
試行錯誤することが出来ない奴が多いよな

エラー出たらそこで終わりってなら機械と同じだぜ
処理速度では機械に敵わないんだから機械以下とも言える

463:デフォルトの名無しさん
09/01/08 06:24:19
多いって何人だよ

464:459
09/01/08 08:48:02
ありがとうございます。ググってみました。
もしかすると、これに近い問題でしょうか。
URLﾘﾝｸ(questionbox.jp.msn.com)

また、デバッグ方法もありがとうございました。
VBAというか、プログラミング的なものを初めて2日目なもので、まだよく使い方がわかっていませんでした。
今から会社に行っていろいろ試してみようと思います！

465:デフォルトの名無しさん
09/01/08 09:05:06
>>459
計算自体はできてるようなので
書式設定の少数点以下の桁数が0になってるんじゃ？

466:デフォルトの名無しさん
09/01/08 09:52:07
非アクティブシートの選択セルを操作する事は可能ですか？

467:デフォルトの名無しさん
09/01/08 10:48:21
無理

468:デフォルトの名無しさん
09/01/08 15:28:00
VBAを作成してもらいたいのですが
もし作成していただけるようでしたらメールをお願いします。

1つの縦列から文字や数字を抽出し、横行書き出す作業を繰り返すマクロの作成をお願いしたいです。

469:468
09/01/08 15:30:04
メール入力し忘れてました(´Ａ｀)

470:デフォルトの名無しさん
09/01/08 19:05:09
幾ら出すの？

471:デフォルトの名無しさん
09/01/08 19:42:27
カラダで良かったら...

472:デフォルトの名無しさん
09/01/08 20:41:14
>>468
形式を選択して貼り付け→行列を入れ換える

473:デフォルトの名無しさん
09/01/08 23:45:40
EXCELのWebブラウザでプレビューの機能を使って作ったブラウザをVBAで閉じるにはどうしたらいいんですか？

474:デフォルトの名無しさん
09/01/09 00:43:19
Webbrowser.Fuck

475:デフォルトの名無しさん
09/01/09 00:44:26
OS：XP
Version：2003

取得したデータをセルに表示させる処理を作ったのですが
少し処理速度が遅いので、配列を使って処理しようと思っています。
その際、特定データに対してセルの色付けを行っているのですが
配列を使って最後にRangeオブジェクトで貼り付ける場合、どのタイミングで
セルに色付けするのがいいんでしょうか？

配列に入れる処理中に色付けをするぐらいしか思い浮かばないのですが
どなたか知恵を貸して下さい

476:デフォルトの名無しさん
09/01/09 00:50:04
> 配列に入れる処理中に色付けをする
それでいいじゃん、何か問題有るの？

477:デフォルトの名無しさん
09/01/09 03:10:36
>>473
穴だらけのコードだけど、とりあえず…
環境依存かもしれない

Option Explicit

Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long
Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Const GW_HWNDLAST = 1
Public Const GW_HWNDNEXT = 2
Public Const WM_CLOSE = &H10
Public Const ml = 255
Dim wh1 As Long

' コールバック関数
Public Function EnumWindowsProc(ByVal Handle As Long, ByVal lParam As Object) As Long
　　Dim strClassName As String * ml
　　Dim strCaption As String * ml
　　GetClassName Handle, strClassName, ml　　' クラス名取得
　　GetWindowText Handle, strCaption, ml　　　 ' キャプション取得
　　If Left(strClassName, 7) = "IEFrame" And Mid(strCaption, 4, 22) = "Documents and Settings" Then wh1 = Handle
　　EnumWindowsProc = True
End Function

Private Sub test1()　'「ブラウザでプレビュー」を閉じる
　　wh1 = 0
　　Dim Ret As Long
　　Ret = EnumWindows(AddressOf EnumWindowsProc, ByVal 0&)
　　If wh1 <> 0 Then Call PostMessage(wh1, WM_CLOSE, 0, 0)
End Sub

478:デフォルトの名無しさん
09/01/09 09:28:53
>>475
とりあえず大雑把なアドバイスをしておく

できる限りセルへのアクセスを減らす

決まった色の取得にRGBを何度も呼ばない
定数を使うか初期化の段階でLong型の変数に入れておいてそれを使う

的外れなアドバイスだったらスマソ
具体的にどんな処理をしてるのか分かればもう少し細かく何か言えるかも知れん

479:デフォルトの名無しさん
09/01/09 16:28:17
名前の定義のリストをシートに作成し、それを変更して一気に登録しています。
そこで困った事が発生しました。

シート名がS1とかだと名前の前後にシングルコーテーションが付きますね。
セルから取り出した値は先頭の1文字が外されます。
仕様だとは思いますが、シングルコーテーションも一緒に取り出す方法等が
あるのでしょうか？

480:デフォルトの名無しさん
09/01/09 16:45:36
>>479
リストを作る時に先頭にシングルコーテーションをもう1つ入れておく
もしくはシート名と名前で列を分ける(使う時に編集する)

この程度しか思いつかないな・・・

481:452
09/01/09 23:15:14
452 ：デフォルトの名無しさん：2009/01/07(水) 23:49:34
１行目が項目名で、２行目から２０１行目までデータが入っています。
オートフィルター後のＡ列のデータを取得したい。
どんなマクロになりますか？

>454 ：デフォルトの名無しさん：2009/01/08(木) 00:29:40
> >>452
> オートフィルタの実行はAutoFilterメソッド
> 結果を配列として取り出すのはCurrentRegion.SpecialCellsメソッド
との答えをいただき、
いろいろとやってみるのですが、全くのお手上げ状態です。

フィルター後の上２件分の例示マクロをお願いします。

482:デフォルトの名無しさん
09/01/09 23:25:47
>>481
もうちょっと質問を具体的に。
(1)フィルターの条件は？
(2)フィルターかけたあとどうしたい？

483:452
09/01/10 00:31:08
(1) フィルターの条件はデータが1又は0となっているので、1を該当データとしてかけています。
(2) フィルターをかけた後は可視セルを対象に、「A列の各コード（３桁）を取得したい。」
おおよそ、20～50件程が該当データになります。
取得した後の配列から、その各要素を取り出すことは自分でできると思います。
随分以前ですがやったことはありますので。

484:デフォルトの名無しさん
09/01/10 01:11:17
>>483
1か0か判定するだけなら、わざわざオートフィルタ使わなくてもForループで順に見てけばいいんでない？
要素数も大して多くないんだし。とりあえず…

B列が1の物だけをオートフィルタで抽出
Range("A1").AutoFilter Field:=2, Criteria1:="=1"

A列の可視セルの内容をすべて書き出す
For Each c In Range("A1").CurrentRegion.Columns(1).SpecialCells(xlCellTypeVisible).Cells
　　Debug.Print c.Value
Next

485:デフォルトの名無しさん
09/01/10 08:15:13
VBAを用いてプリンタに印刷させようと考えています。
それ自体はPrintOutメソッドを使えばできると思っているのですが、その際、プリンタのトレイまで指定することは可能でしょうか。
例えば、このシートを印刷する時はA4のトレイ、このシートを印刷する時は手差しのトレイから、という感じで。

486:デフォルトの名無しさん
09/01/10 09:20:27
>>485
出来るよ
手動でトレイの選択などが出来る状態なら
その辺の制御をするドライバやAPIは入ってるわけだから
それをプログラムから叩けば良いだけ

でもそれはVBAではなくVBの分野(>>1参照)
印刷対象がExcelのシートだろうと、プリンタのハード的制御はExcel関係ないのでスレ違い

487:452
09/01/10 10:10:00
>>484
おかげで、所期目的が達成できました。サンクス。

488:デフォルトの名無しさん
09/01/10 11:09:59
>>485
>それ自体はPrintOutメソッドを使えばできると思っているのですが、・・・

484氏の回答を得て、機嫌がいいので　(~_~);
そうゆう設定は、PrintOutメソッドでは出来ない。
それで、vbaとしての回答は、印刷ダイアログボックスを呼び出して、選択することになる。
Application.Dialogs(xlDialogPrint).Show

但し、excel4マクロ（vbaではない扱いをされている）の世界だとどうだか知らない。
(xpでは見ていないが、97(たぶん?)と)2007ではマクロの記録で、また、
excel4マクロが記述されている。が、これは、触らない方が無難。

489:デフォルトの名無しさん
09/01/10 11:17:02
xp は2003 の誤記です。

490:デフォルトの名無しさん
09/01/11 16:30:56
↓のようなWindowオブジェクトの用途がよくわかりません。

Dim window1 As Window

workbookでもなくworksheetでもないんですよね？？
どなたかご教授お願いします。

491:デフォルトの名無しさん
09/01/11 16:53:34
用途が判らなければ、使わなければいいのでは?

492:デフォルトの名無しさん
09/01/11 17:04:46
>>490
大雑把に説明すると、Windowsというのは画面上に表示された状態の物。
ブックやシートは画面に表示されてなくても、例えばHDDに保存されたファイルの中にも存在する。
ブックを開いたらWindowが作られる、みたいに考えておけばいい。

493:デフォルトの名無しさん
09/01/11 17:44:48
>>492
ありがとう。
自分が作るプログラムには特に必要はなさそうです。
自分のPCでは
Set window1 = Workbooks(1)　
でwindow1には”PERSONAL.XLS”が入ります。
勉強になりました。

494:デフォルトの名無しさん
09/01/11 20:05:41
A（伝票番号）B（日付）C（店名）D（金額）
となっていて、C列の店名ごとに並べ替えてあります。
C列の店名が変わるごとに列A～Dに太線を入れたいので以下のようにしました。

Sub test()
With Range("C1", Range("B65536").End(xlUp)).Offset(, 250)
.Formula = "=IF(C2="""","""",IF(C1<>C2,1,""""))"
.Value = .Value
On Error Resume Next
With Intersect(.SpecialCells(xlCellTypeConstants) _
.EntireRow, Range("A:D")).Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThick
End With
On Error GoTo 0
.ClearContents
End With
End Sub

これだとデータが１件（１行分）しかない場合線が引けません。
データが１件でも区切り線が引かれるようにするには
どのようにすれば良いですか？

495:デフォルトの名無しさん
09/01/11 20:24:15
>>494
努力だけは認めるが、無駄が多すぎる。
店名が同じかどうか判定するのに、わざわざワークシート関数なんか使わなくてもVBAだけでやればいいだろうに。
Sub test()
　　r = 2
　　While Cells(r, 3) <> ""
　　　　If Cells(r, 3) <> Cells(r - 1, 3) Then
　　　　　　With Range(Cells(r, 1), Cells(r, 4)).Borders(xlEdgeTop)
　　　　　　　　.LineStyle = xlContinuous
　　　　　　　　.Weight = xlThick
　　　　　　End With
　　　　End If
　　　　r = r + 1
　　Wend
End Sub

496:デフォルトの名無しさん
09/01/11 20:37:40
>>495
考えすぎたみたいです。解決しました。
ありがとうございましたm(_ _)m

497:デフォルトの名無しさん
09/01/11 20:43:27
>>494
オレの知らないテクニック満載で何やってんのか理解できねえ

498:デフォルトの名無しさん
09/01/11 20:46:09
すみませんｗ

499:デフォルトの名無しさん
09/01/12 07:19:54
2007の質問ですー
図形の操作がらみが「マクロの記録」に残らないんですが
以前のバージョンのように記録させる方法ないでしょうか？

500:デフォルトの名無しさん
09/01/12 08:23:04
>>499
ない

501:デフォルトの名無しさん
09/01/12 17:55:50
初歩的な質問で申し訳ありません。教えていただけますでしょうか。

下図①のように、クラスと番号と氏名が入力されているファイルがあります。
下図②のように、クラスと番号のみが入力されているファイルがあります。
クラスと番号の２つをキーに、図①から②に氏名をとってきたいのですが、
どのようにしたら良いでしょうか。
キーが１つであれば、VLOOKUPで出来るのですが、２つになって困っています。
宜しくお願いします。

図①　　　　　　　　　　　　図②
クラス　番号　氏名　　　　　クラス　番号
１　　　１　　相沢　　　　　　１　　　１
１　　　２　　加藤　　　　　　１　　　２
１　　　３　　佐藤　　　　　　２　　　１
１　　　４　　館山　　　　　　２　　　２
２　　　１　　安西　　　　　　２　　　３
２　　　２　　木村　　　　　　
２　　　３　　工藤

502:デフォルトの名無しさん
09/01/12 17:57:54
Excel総合相談所 76
ｽﾚﾘﾝｸ(bsoft板:942番)

942 名前：名無しさん＠そうだ選挙にいこう[] 投稿日：2009/01/12(月) 17:51:11
【1 OSの種類　　　　 .】 WindowsXP
【2 Excelのバージョン　】 Excel2007
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】可
【5 検索キーワード　　】 VLOOKUP　値の取り出し

下図①のように、クラスと番号と氏名が入力されているファイルがあります。
下図②のように、クラスと番号のみが入力されているファイルがあります。
クラスと番号の２つをキーに、図①から②に氏名をとってきたいのですが、
どのようにしたら良いでしょうか。
キーが１つであれば、VLOOKUPで出来るのですが、２つになって困っています。
宜しくお願いします。

図①　　　　　　　　　　　　図②
クラス　番号　氏名　　　　　クラス　番号
１　　　１　　相沢　　　　　１　　　１
１　　　２　　加藤　　　　　１　　　２
１　　　３　　佐藤　　　　　２　　　１
１　　　４　　館山　　　　　２　　　２
２　　　１　　安西　　　　　２　　　３
２　　　２　　木村　　　　　　
２　　　３　　工藤

503:デフォルトの名無しさん
09/01/12 21:11:53
こんなスレにホイホイ質問して良かったのか？
俺はマルチポストでも構わず答えちまう男なんだぜ。

俺なら、どっかのセルにクラスと番号を結合させた物を作る。
cells(i,1).value & "-" & cells(i,2).value をforでまわしてどっかに作る。
図1と図2に同じ処理。
後はfindでsetするなり、好きに料理しろ。

504:デフォルトの名無しさん
09/01/12 21:50:33
実行中のマクロより呼び出すことで、実行を中断しデバッグ可能な状態にする
コマンドはありますか？

マクロの自動記録で試しましたが記録されませんでした。

505:デフォルトの名無しさん
09/01/12 21:58:38
>>504
勘違いかも知れんが、Stopとかブレークポイントの事か？

506:デフォルトの名無しさん
09/01/12 22:28:43
>>505
そうです。
ブックを開いてマクロ実行する運用の中で、
一定の条件が成立した時に止めたいのですが、
ブックを開く度にブレークポイントを手動で設定するのは
現実的ではないのでブレークポイントはちょっとNGと思ってます。
イメージとしては以下のような感じです。

if xxxxx then
application.stop ← ここで止めたい
end if

ブレークポイントをマクロより動的に設定できるか、
ブックに保存できる方法でも助かります。

507:デフォルトの名無しさん
09/01/12 22:30:16
>>506
errとerr.number使えばいいんじゃねーの？

508:デフォルトの名無しさん
09/01/12 22:34:30
MsgBoxやInputBox出せばそこで止まるぞ
止まったらEsc押すといい

509:デフォルトの名無しさん
09/01/12 22:37:15
>>508はダメだった、すまね

510:デフォルトの名無しさん
09/01/12 22:53:25
じゃあSTOPでいいんじゃね？
止まったところでイミディエイトウィンドウで変数の内容を見たり書き換えたり自由にできる。

実行再開はCONT (嘘)

511:デフォルトの名無しさん
09/01/12 22:58:17
SendKeys "{Break}"

ごめん嘘

512:デフォルトの名無しさん
09/01/13 01:58:50
debug.assert false じゃダメなん？

513:505
09/01/13 17:18:25
>>506
そのままでいいじゃん
for i=1 to 5

514:505
09/01/13 17:20:27
>>506
途中で送信してしまった

for i=1 to 5
　　if i=3 then
　　　　stop
　　endif
next i

みたいに。

515:デフォルトの名無しさん
09/01/13 20:24:40
単に止めるだけなら
for i=1 to 5
　　if i=3 then stop
next i
って書く。

516:デフォルトの名無しさん
09/01/13 21:12:47
俺は処理が1行でもThenの後ろには書かない
もちろん、If ... Then ... else ...もやらない

517:デフォルトの名無しさん
09/01/13 21:36:38
>>514
>>515
ありがとうございました。
stopで止まりました。

518:デフォルトの名無しさん
09/01/13 21:51:33
>>516
すいません
そのわけを教えてください

519:デフォルトの名無しさん
09/01/13 22:15:21
クラスモジュールについてドップリ勉強できる書籍はないだろうか？

520:デフォルトの名無しさん
09/01/13 22:39:31
勉強するほどのものじゃないんじゃ

521:デフォルトの名無しさん
09/01/13 22:54:17
IPアドレスを
123.456.789.10
からx番目のIPアドレスを求めるような
ＥＸＣＥＬ関数かＶＢ関数を探してるのですが、
そんな便利なものありませんか？

522:デフォルトの名無しさん
09/01/13 23:17:28
x番目って何よ？

523:デフォルトの名無しさん
09/01/13 23:23:36
Split("123.456.789.10", ".")(x)でいいんじゃねーの

524:デフォルトの名無しさん
09/01/13 23:25:33
>>522
すみません。
123.254.90.10から
1番目は、123.254.90.11
2番目は、123.254.90.12、
…
という意味です。
上のIPアドレスの範囲も間違えて、あぁぁぁ、出直してきます。
失礼しました。。。。

525:デフォルトの名無しさん
09/01/13 23:28:29
単なる足し算じゃね

526:デフォルトの名無しさん
09/01/14 00:02:10
うーん
Sub test()
　　For x = 1 To 10
　　　　A = Split("169.254.100.10", ".")
　　　　A(3) = A(3) + x
　　　　Debug.Print Join(A, ".")
　　Next
End Sub

527:デフォルトの名無しさん
09/01/14 01:48:01
123.254.90.256とかやりそうな奴だな

528:デフォルトの名無しさん
09/01/14 20:38:53
123.54.90.999 とかやってくれたら笑えるんだけど

529:デフォルトの名無しさん
09/01/15 00:29:42
OSはXP
EXCELは2003です。

1．EXCEL上に別のEXCELシートを開くハイパーリンクを貼る
2．リンク先のシートが開くと同時に

Private Sub Workbook_Open()
Workbooks("Book1").Close
End Sub

みたいな感じで処理を走らせ、リンクで開いたシート自体を閉じる

のような処理を入れるとシートが閉じられた後、EXCELがおかしくなります。
アクティブになっているEXCELシート以外のシートがアクティブにできないし、
新たに別のシートも開けなくなります。

ハイパーリンクとリンク先のシートを閉じる処理って同時には行えないんですかね？

530:デフォルトの名無しさん
09/01/15 01:01:19
>>529
イベント処理中でブックを閉じると実行中のインスタンスが開放されて暴走するんだっけ、
なんかそんなのがあったような気がする。

531:デフォルトの名無しさん
09/01/15 03:44:25
開く方に
Book1閉じるって書くしかないんじゃね

532:デフォルトの名無しさん
09/01/15 04:02:02
マクロ専用のブックを1つ用意して、それは閉じないようにするとか

533:デフォルトの名無しさん
09/01/15 18:17:44
すみません。質問させて下さい。

Excel2002のシートにラベルコントロールを貼付けました。
それをクリックすると、マウスカーソルがコントロールから離れるまで
コントロール全体のサイズが若干大きくなってしまいます。
これは仕様でしょうか？
もし対処方がありましたら、御教示下さい。

534:デフォルトの名無しさん
09/01/15 18:20:29
>>533
フォーカス位置を示す点線で囲まれた状態のことを言ってんなら、それは仕様

535:デフォルトの名無しさん
09/01/15 18:37:33
>>534
回答ありがとうございます。

ラベルのキャプションのテキストのサイズも変化するので、
フォーカスの点線ではないと思われます。

キャプションのテキストは通常状態ですと文字が滲んでおり、
クリックしてラベル全体が大きくなると文字がハッキリすることから、
ラベルをクリックしたときのサイズが正しいような気がします。

536:デフォルトの名無しさん
09/01/15 19:37:27
質問です。

book1をアクティブにした状態のまま、book2の特定のセルに書き込みをしたいのです。
で、

Windows("book2.xls").Cells(1, 2) = 1

とやったのですが、エラーが出ます。
正しくはどうやればいいのでしょうか？

537:デフォルトの名無しさん
09/01/15 22:06:50
× ブック．セル = 値
○ ブック．シート．セル = 値

538:デフォルトの名無しさん
09/01/16 18:33:12
すいません質問です。
VBAを使い年賀状を作成しなければならないのですがまず何からどうしたらよいかさえわかりませんm(_ _)m
お願いします。汗

539:デフォルトの名無しさん
09/01/16 18:40:34
まずは作成しなければならない状況に陥らせた人に聞くべきだろう

540:デフォルトの名無しさん
09/01/16 18:48:41
マクロ記録しながらシートで作ればいいよ

541:デフォルトの名無しさん
09/01/16 19:00:27
この時期だと年賀状じゃなくて寒中見舞いだぞ

542:536
09/01/16 19:27:50
>>537
レスありがとうございます。

さっそくやってみました。

Windows("book1.xls").Sheets("Sheet1").Cells(1, 2) = 1

とやったのですが、やはりエラーが出ます。
なぜなのか、さっぱりわかりません。
しつこいようですが、教えて下さい<(_ _)>

543:デフォルトの名無しさん
09/01/16 20:03:41
ちょっとはぐぐれよ。オブジェクト名やメソッド名がおかしいだろ。

Sub test()
　　Workbooks("book1.xls").Activate
　　Workbooks("book2.xls").Worksheets("Sheet1").Cells(2, 1) = 1
End Sub

544:デフォルトの名無しさん
09/01/16 23:03:00
Excel 2000ですがマクロのステップ数が大きくなると、
ブックのファイルサイズがMB単位で肥大化して困ってますが、
皆さんどうしてますか？

545:デフォルトの名無しさん
09/01/16 23:17:27
そんな現象おきないのでどうもしてないが

546:デフォルトの名無しさん
09/01/16 23:24:57
どんだけ巨大なマクロを作ってるんだか。
ワークシートを操作するマクロを何度も走らせるとファイルが太る可能性はあるが、
それならシートの再構築でダイエットできるかもしれない。

547:デフォルトの名無しさん
09/01/16 23:27:09
以下の構成で、hogeよりfugaにあるクラスを生成(new)しようとすると、
「ユーザ定義型は定義さていません」エラーとなります。
クラスでないモジュールの場合はそのまま呼び出せてます。
名前空間の問題と思われますが解決方法はありますでしょうか？

hoge.xls → fuga.xla（参照設定）

548:デフォルトの名無しさん
09/01/16 23:31:21
>>546
マクロは相当な量です。
再構築は以前試した時は多少は改善しました。
でも、まっさらなブックにマクロのみ貼り付けても、
それ以上は小さくならなかったのでコレが限界かと。

549:デフォルトの名無しさん
09/01/16 23:32:49
>>543
おおおおお、ありがとうございました！！

550:デフォルトの名無しさん
09/01/16 23:34:08
Variant型をできるだけ使わないようにするとか

551:デフォルトの名無しさん
09/01/17 00:30:00
>>547
URLﾘﾝｸ(support.microsoft.com)

552:デフォルトの名無しさん
09/01/17 10:08:15
シートをそれぞれ別ブックに保存する方法教えて。
保存名はシートの名前で。

553:デフォルトの名無しさん
09/01/17 11:38:51
それを手動でやる方法すら思いつかないの？
思いつくならそれをマクロの記録で録ることすら
思いつかないの？馬鹿なの？死ぬの？

554:デフォルトの名無しさん
09/01/17 11:44:17
>>552
ワークシートコレクションに対するループの中で
(1) シートが1枚のブックを新規作成
(2) そこへシートをコピペ
(3) 名前を付けて保存
(4) 新規ブックを閉じる
を繰り返す

とりあえず>>1の★5の理由によりまずは自分で作ってみれ。方法は★6で。

次ページ