Excel VBA質問スレ Part8

Excel VBA質問スレ Pa ..

261:デフォルトの名無しさん
08/09/17 20:30:38
時間の許す限りエラーの内容くらい小一時間考えよう

262:デフォルトの名無しさん
08/09/17 20:37:01
質問者と回答者よりも講釈師の方がが多いスレ

263:デフォルトの名無しさん
08/09/17 21:21:15
板全体に言えるわけだが
すれ違い甚だしい質問だとか煽りだとか
ここはまだまし

264:デフォルトの名無しさん
08/09/17 21:42:26
>>262
質問者　回答者　講釈師
貴方はどれに該当しますか？

265:デフォルトの名無しさん
08/09/17 21:43:55
ﾇﾙﾎﾟ

266:デフォルトの名無しさん
08/09/17 21:51:22
ﾎﾟﾙﾇ

267:デフォルトの名無しさん
08/09/17 21:52:59
>>262は煽り専門要員だよ

268:y
08/09/17 23:26:36
>>254
念のため補足しますが、>>248のコードは決して最善の方法ではありません。
合致する会員番号でふるいをかけ、その中から種別ごとに最大３つまでの
アイテムを取り出していく取捨選択の過程を、視覚的に理解するために利用してください。

仕組みが単純なので、コードが短くて済むというのが唯一の利点ですが、
マスタデータの行の表示・非表示を切り替えて実現する「検索システム」というのは、
>255でも指摘をいただいていますが、普通はやらないでしょう。
（数がたくさんになると、けっこう動作が重くなってしまいます）

まじめに実装するとすれば、取捨選択の考え方はそのまま生かすとしても、
転記の仕方に改良の余地があります。適当な二次元配列を用意して、
取捨選択したデータを一行ずつ追加していき、最終的に配列ごと任意のセルに
書き込む、というのが一般的なやり方になると思います。

>>256
TextBoxのMouseDownイベントプロシージャ内で、Commandbars("登録されているCommandbar名").ShowPopup を
実行すれば、そのタイミングで表示されます。ユーザー設定のショートカットメニューも表示できます。
ちなみにMouseDownイベント発生時は、Button引数が定数xlSecondaryButton と等しければ、右クリックと判断できます。

269:デフォルトの名無しさん
08/09/18 01:50:36
さすがy

270:デフォルトの名無しさん
08/09/18 05:40:38
うぜぇ

271:デフォルトの名無しさん
08/09/18 09:07:55
>>257っす。

>>258
申し訳ないっす。ブレークポイントで調べてみたらここらしいです。
　　　　　　If (Cells(i, 1).Value <> Cells(i - 1, 1).Value) Then
→　　　　　　　Range(Cells(i, 1), Cells(i, 6)).Borders(xlEdgeTop).LineStyle = xlMedium
　　　　　　End If

>>259
うぉ、できました！
罫線の種類とか太さとか、指定する先が間違っていたのですね。

>>260
そこまで親切に表示されませんでした。orz
出てきたのは、
　実行時エラー '1004':
　アプリケーション定義またはオブジェクト定義エラーです。
でした。あ、verはexcel2003です。

>>261
小一時間考えて駄目だったので聞いてみました。orzorz
Cのコンソール系しか打ったことが無いので、感覚的につかめなくて。

ともあれ、無事にできたので。
ありがとうございました。m(_ _)m

272:デフォルトの名無しさん
08/09/18 14:26:11
>>266

!ｯｶﾞ

273:デフォルトの名無しさん
08/09/18 18:15:17
>>242をわざわざVBA使ってまでやってる理由が分からんな…
関数だけで何とでもなりそうだｗ

274:デフォルトの名無しさん
08/09/18 19:42:37
>適当な二次元配列を用意して、
>取捨選択したデータを一行ずつ追加していき、最終的に配列ごと任意のセルに
>書き込む、というのが一般的なやり方になると思います。

はぁ？
何でお前ごときが一般論を語れるんだよ？

275:デフォルトの名無しさん
08/09/18 20:49:36
>>274
お前ごときがここにくんな

276:デフォルトの名無しさん
08/09/18 22:30:24
今独学でVBAを学んでいます。
皆さんにお聞きしたいのですが、
独学で学ぶにお薦めの本はありますか？

大村あつし著　かんたんプログラミング　EXCEL VBA基礎編
と　できるシリーズのVBAを読んでいます。

277:デフォルトの名無しさん
08/09/18 23:40:24
>>276
漏れの場合はVBAに関する知識はほとんどネットやヘルプで調べたものだったりするし・・・
VBとかやってるならオブジェクトブラウザとヘルプだけでも何とかなると思う
便利なテクニックとかはネットで拾い集めて行く

最初に手に入れたVBAの本に載ってたサンプルがコンパイル通らなかったから
本は全然信用してないだけだけどなｗ
でも1冊だけ役に立った本があったな・・・
「Excel VBA逆引き大全」とかだったかな？

278:デフォルトの名無しさん
08/09/19 01:19:38
すいません。
VBA作成経験なく、ここを答えを求める場として
使うことに申し訳なく思っています。

複数のExcelファイルを指定する。
当該ファイルを新ブックにして保存する。
→その際、シート名が重複しても問題なし
　新ブックのファイル名はあらかじめ指定したものを

このようなマクロをつくることは可能でしょうか。
前述のとおり、まったく経験なしなので、
サンプル、たたき台程度で構いませんので、
ご教示いただけたら嬉しいです。

279:デフォルトの名無しさん
08/09/19 01:57:51
相変わらずyきめぇｗ

280:デフォルトの名無しさん
08/09/19 02:05:09
>>278
さっぱり意味がわかりません。

281:デフォルトの名無しさん
08/09/19 02:08:42
>>277
>VBとかやってるならオブジェクトブラウザとヘルプだけでも何とかなると思う
できる奴の戯言だな

282:デフォルトの名無しさん
08/09/19 04:03:48
>>278
簡単だよ。

283:デフォルトの名無しさん
08/09/19 06:07:09
>>275
アホ？

284:デフォルトの名無しさん
08/09/19 06:25:29
>>281
いや普通できると思うできないのは文盲

285:デフォルトの名無しさん
08/09/19 06:26:23
>>283
ゆとり乙

286:デフォルトの名無しさん
08/09/19 06:37:00
ここの奴ら「簡単」だの「出来て当たり前」だの口ばかり達者で
入門書レベルの事しか回答出来ないから笑える

287:デフォルトの名無しさん
08/09/19 06:43:18
>>286
お前だろそれ

288:デフォルトの名無しさん
08/09/19 07:01:00
あらあらｗ

289:デフォルトの名無しさん
08/09/19 07:04:32
vbogl.tlbのedxさんめちゃくちゃいい人だ。メールしたら速攻返事きたｗ

290:デフォルトの名無しさん
08/09/19 07:05:18
誤爆した

291:デフォルトの名無しさん
08/09/19 07:06:03

>>278
複数ファイルのブック内のシートを結合するマクロなら昔適当に作ったのがあるけど

292:デフォルトの名無しさん
08/09/19 08:52:57
>>278
まとめると
複数ファイルのブック内のシートを結合する
シート名は重複している場合がある
だよな？
シート数は全部でどのくらいになるんだ？
あまり多いと1つのブックに収まらないよ

293:デフォルトの名無しさん
08/09/19 09:10:07
>>292
すいません、追加・変更があります。

○○システムの情報　ブック*2
□□システムの情報　ブック*2
（全部で5システム）

上記1ブックに1シートのみ

これをシステムごとに1ブックとして新規に保存。
なので、計5ブックができる。

これを一回でやりたいです。

下記の情報をあらかじめ指定（変更可）
- 各システムの情報ブック
- 新ブックの名前

を考えています。

294:292
08/09/19 10:40:41
>>293
かなり手抜きだが書いてみた
コピー後のシート名は指定するように作った
マクロを入れるブックに
A列（ファイルバス）| B列（コピー後のシート名）
○○システム
C:\A1.xls| Sheet○○1
C:\B1.xls| Sheet○○2
C:\C1.xls
○×システム
C:\A2.xls| Sheet○×1
C:\B2.xls| Sheet○×2
C:\C2.xls

といった感じにデータ入れて以下のマクロを動かす
(AとBはコピー元Cがコピー先)

295:292
08/09/19 10:41:55
Sub Macro1()
Dim wkAWorkbook As Workbook
Dim wkBWorkbook As Workbook
Dim wkCWorkbook As Workbook
Dim i As Long

For i = 0 To 1
With ThisWorkbook.Worksheets(1)
'コピー元1つ目を開く
Set wkAWorkbook = Workbooks.Open(.Cells(2 + i * 4, 1))
'1つ目を新規ブックにコピー
wkAWorkbook.Worksheets(1).Copy
Set wkCWorkbook = ActiveWorkbook
'コピーしたシートをリネーム
ActiveSheet.Name = .Cells(2 + i * 4, 2)

改行多すぎので次レスに続く

296:292
08/09/19 10:43:09

'コピー元2つ目を開く
Set wkBWorkbook = Workbooks.Open(.Cells(3 + i * 4, 1))
'2つ目を上でコピーしたブックにコピー
wkBWorkbook.Worksheets(1).Copy after:=wkCWorkbook.Sheets(1)
'コピーしたシートをリネーム
ActiveSheet.Name = .Cells(3 + i * 4, 2)

'開いた時に見栄えが悪いので1つ目のシートを選択
wkCWorkbook.Sheets(1).Select
'名前をつけて保存
wkCWorkbook.SaveAs (.Cells(4 + i * 4, 1))
'終了処理
wkAWorkbook.Close
Set wkAWorkbook = Nothing
wkBWorkbook.Close
Set wkBWorkbook = Nothing
wkCWorkbook.Close
Set wkCWorkbook = Nothing

End With
Next i
End Sub

専ブラじゃないのでずれて見づらいかも知れんなｗ

297:デフォルトの名無しさん
08/09/19 20:49:06
頭悪そうなコード

298:デフォルトの名無しさん
08/09/19 21:05:31
変数名のつけかたって、読んだ参考書や勉強したサイトにけっこう影響されない？

299:デフォルトの名無しさん
08/09/19 21:08:44
変数名のセンスが悪いな

300:y
08/09/19 21:23:03
>>276

「ＶＢＡの絵本」（アンク）
アンクの絵本シリーズは、その言語の仕組みや考え方を、豊富なイラストを用いて直感的に
伝える工夫がなされています。他人に薦めた本の中で、「分かりやすかった」という反応がいちばん
多かったのがこの本です。ACCESS VBAの内容も包括しているので、将来的にも役に立つでしょう。
概念の説明が中心で用例は乏しいので、メイン本にはできませんが、「かんたんプログラミング」を
持っているのであればそれで足りると思います。

「Excel VBAのプログラミングのツボとコツがゼッタイにわかる本～最初からそう教えてくれればいいのに」（秀和システム）
「絵本」よりも実際性があり、個人的には一押しです。解説文と図の取り合わせがとても洗練されており、
文脈の多義性によるストレスや誤読を最小限に抑えようとする、手厚い推敲の跡が感じられます。新しい本なので
まだ他人に薦めたことはありませんが、アマゾンでは好評なようです。

「ＶＢＡポケットリファレンス」（技術評論社）
ヘルプがあればリファレンス本はいらない、という声もありますが、個人的には手離せません。
ページをめくるより、ヘルプを開いた方が速いような気もするかもしれませんが、
書式指定子の一覧、よく使うオブジェクトのプロパティ一覧など、よく開くページに
付箋を貼って机に置いておくだけで、パッと見たい時には最速のツールになり、ディスプレイも汚れないので
思考が中断されません。（※ただし、ヘルプを使って調べる習慣は、それはそれで必要です）

「逆引き」本（各社）
>276で既に上がっていますが、豊富な用例がほしい時は逆引き本です。ただ、「やりたいこと」をもとに
用例を探す場合、インターネット検索のほうがより楽な場合が結構あることも覚えておいてください。
「ＶＢＡ　＋　（やりたいことに関連するキーワード）」で検索すると、似たようなことを既にやっている人の
コードが割と簡単に見つかったりします。

301:y
08/09/19 21:24:04
他にも良書はたくさんあるので、上にこだわることはありませんが、ひとつだけ、初心者が解説書を選ぶ上で
ぜひ注意してほしい点は、VisualBasicEditorの使い方、特にデバッグの作法を丁寧に解説している章があるかどうかです。
ステップ実行、ローカルまたはウォッチウィンドウでの変数の監視、イミディエイトウィンドウからの介入、これらの意味を
早いうちに知り、使いこなせるかどうかが、その後の上達に明らかに影響します。

302:デフォルトの名無しさん
08/09/19 21:27:08
たいしたデバッガじゃないからヘルプで十分だよ

303:y
08/09/19 21:56:25
>>273
Excel2007なら、オートフィルタの抽出条件で「上位○位まで」という設定が可能になったので、
それを組み合わせれば、フィルタだけで何とかなるような気がします。
ただ関数だけでやるとなると…　いい方法が思いつきません。

304:y
08/09/19 22:28:11
すみません。>>300の「>276で既に上がっていますが」は、「>277」の間違いです。
さらに内容も、結構>277とかぶってしまっています。失礼しました。

305:292
08/09/19 23:27:08
>>297
頭悪そうなレス

>>299
センスが良いネーミングをぜひとも教えてくれ

貶すことしか知らない無能って多いな

306:デフォルトの名無しさん
08/09/19 23:31:05
あらあらｗ

307:デフォルトの名無しさん
08/09/20 00:29:08
先週金曜日あたりから突然会社のExcel2002がおかしくなった。ネットワークが切断されたかなんたらで、ファイルにアクセスできないやらなんたらというのがおきるようになった。
コンパイルするとファイルサイズが600kbから740kbになる場合とならない場合があり、（ソースはバックアップから同じ様にに変更したのに）大きくなった場合、実行すると強制終了になるという症状も現れた。
自宅の２００３では問題なかったがためしに２００２に変更。SP3を適用したまでは問題なかったが会社と同じバージョンになるよう、全部の更新を適用したところ同じ症状となった
ためしに最新のKB8951551を削除するとあっさり解決した・・。同じ目にあってる人いますか？
解決にいたるまでめちゃくちゃ苦労したよ・・・。（いやまだ会社のエクセルでは試せてないけど・・・）

308:デフォルトの名無しさん
08/09/20 01:39:41
IDでないのにわざわざコテつけて煽るってなにこいつ

309:デフォルトの名無しさん
08/09/20 02:37:18
初心者です、お世話になります。
他の板で質問したあとに、こちらで質問すべきだったと気付きましたマルチポストですが勘弁してください。
セルＡ１とB１にそれぞれシリアル値による時間が入っています。
セルの書式設定により時間が表示されています。
ユーザーフォームの中のラベル１にＢ１からＡ１を引いた時間を時分秒の形で表示したいのです。
Ａ１は開始時間、Ｂ１は終了時間、ラベル１は所用時間と考えてください。
Label1.Caption = Range("B1") - Range("A1").value
とやるとシリアル値っぽいのが出るのですが、時間を表示したいのです。
助けてくださいませ。

310:デフォルトの名無しさん
08/09/20 03:58:49
>>292
ホントありがと。
まったくプログラム経験なしだけど、
書いていただいたものをもとに
勉強含め動かしてみたいと思います。

感謝します。

311:デフォルトの名無しさん
08/09/20 08:40:23
>>309
DateDiff関数でintervalに"s"を指定して秒単位の差分を取得、
後はそこから時分秒に分割して文字列に結合して完成、って所？

312:デフォルトの名無しさん
08/09/20 09:24:11
>>305
一生そのままで朽ち果てろ

313:デフォルトの名無しさん
08/09/20 10:14:55
ジョン３兄弟

314:y
08/09/20 13:55:32
>>309

>311のやり方で可能ですが、他にこういう書き方も。
Label1.Caption = Format(Range("B1") - Range("A1"), "hh:nn:ss")

315:デフォルトの名無しさん
08/09/20 16:18:39
>>311 >>314
アドバイスどうもありがとうございます。
テストをしてみたのですが、両方とも「’実行時エラー’438：オブジェクトは、このプロパティまたはメソッドをサポートしていません。」
というエラーが出てしまいます。
私は知識不足なので対応がわかりません。
これは、どういうことなのでしょうか？

316:デフォルトの名無しさん
08/09/20 16:35:45
>>311 >>314
失礼しました、できました。
ほんとうにありがとうございました。

317:デフォルトの名無しさん
08/09/20 19:35:44
hh:mm:ssでなくて？

318:デフォルトの名無しさん
08/09/20 20:41:32
nnでもいけるんだよね

319:y
08/09/21 00:37:26
そうですね。
書式指定子 "m" または "mm" は、時刻の分も表しますが、日付の月も表します。それによる混乱を回避するため、
分のみを表す指定子「n」が実装されている、という話を何かの本で読んだことがあります。
ヘルプには、「"h" または "hh" の直後、あるいは "ss" の直前に "m" を指定した場合、月ではなく分が表示されます」とあります。
逆に言うと、mだけを独立して使うと、分ではなく月を表します。つまり分のみを表示させたい状況では、どうしても「n」を使う必要があります。
そういうわけで、分は最初から「n」を使う習慣をつけておいたほうが、間違いが少ないように思います。

320:デフォルトの名無しさん
08/09/21 00:47:17
うざ

321:デフォルトの名無しさん
08/09/21 03:56:03
>>320
なんでこいつこのスレに粘着してるの？

322:デフォルトの名無しさん
08/09/21 08:47:58
Excel 2009を使用しております。

テーブルを作成し、いくつか項目を入力した状態で、
GUIでテーブルの見出し行にある矢印メニューボタンを押した時に表示される
フィルタのメニューの処理を、VBAから行うにはどのようにすればよいでしょうか？

例えば、TODOリストを想像してください。
ボタンを配置して、ボタンを押すと、
テーブルの1つの列の「開始日付」が今日のもので、
「状態」列が「未完」となっているもののみを表示する。
また、他のボタンを押すと、元に戻る（というか全部表示）。
といったようなことをしたいのです。

画像を見てもらったほうが早いので、説明画像も作成しました。
URLﾘﾝｸ(sylphys.ddo.jp)

どのようなクラスのオブジェクトにアクセスすればいいかだけでも、手がかりがあればと思います。

323:y
08/09/21 09:13:13
>>322
チェックを入れたり外したりする操作を、「マクロの記録」（>>1★6）を使って記録して、
生成されたコードを見れば、どんなオブジェクトにアクセスしているか手がかりが
得られると思います。

324:デフォルトの名無しさん
08/09/21 09:37:36
>>321
うざいからだろｗ

325:デフォルトの名無しさん
08/09/21 09:42:50
>>323
ありがとうございます。
基本的なことを聞いてしまった様な気がします。テンプレ嫁よ俺。

「開始日付」を「今日」のみ選択、「状態」を「途中」「予定」「スキップ」のみ選んだ時は、
こんな感じで記録されていました。

　　ActiveSheet.ListObjects("作業記録").Range.AutoFilter Field:=2, Criteria1:= _
　　　　xlFilterToday, Operator:=xlFilterDynamic
　　ActiveSheet.ListObjects("作業記録").Range.AutoFilter Field:=1, Criteria1:=Array _
　　　　("途中", "予定", "スキップ"), Operator:=xlFilterValues

ListObjectsでListObject(テーブル)が得られて、そのRangeにAutoFilterをかますんですね・・・。

326:デフォルトの名無しさん
08/09/21 15:51:36
質問なのですが、
同一ファイル内で、シート１上の左側にはシート１の内容、右側にはシート２の内容
のように分割して表示することは可能でしょうか？
（ウィンドウを別々に開くのではなく）
もしやり方があるのであれば教えてください。
Excel2003を使用しています。

よろしくお願いします。

327:デフォルトの名無しさん
08/09/21 17:20:23
スレ違い

328:デフォルトの名無しさん
08/09/21 20:07:05
質問です。
-------------------------------------------
【やりたいこと】
(1).ファイル保存ダイアログでファイル名を選択させる。
(2).新規ファイル名を入力することも可能にする。
(3).ファイル保存時に選択可能なファイルタイプ（拡張子）をVBAで指定する。

【直面している問題】
・Office.FileDialog で msoFileDialogSaveAs を指定すると(3)を満たす方法がわからない
・Office.FileDialog で msoFileDialogFilePicker を指定すると(2)を満たす方法がわからない

【環境】
WindowsXp SP3 + Excel2002 SP3
-------------------------------------------
よろしくお願いします。

329:デフォルトの名無しさん
08/09/21 21:06:15
>>328です。事故解決しました。
Excel.Application.GetSaveAsFilename
を使えばよかったんですね。

スレ汚し失礼。

330:デフォルトの名無しさん
08/09/24 00:40:37
ExcelVBAって、.netよりもVB6に近いですか？

331:デフォルトの名無しさん
08/09/24 07:22:11
うーん。その質問は難しいな。
似てるけど全くの別物と思っておいた方がいいよ。

332:デフォルトの名無しさん
08/09/24 13:31:46
いやVB6とほとんど同じ

333:デフォルトの名無しさん
08/09/24 15:45:03
VB6でオブジェクトブラウザ開いてみな VBAがあるでよ

334:デフォルトの名無しさん
08/09/24 16:05:39
>>330-332
何処に焦点当てるかで変わってくる
VB6とVBAは、構文規則は全く同じ
組込関数はほとんど同じ
組込オブジェクトは全然別物

>>333
そのVBAとVisual Basic for Applicationは意味違うからw

335:デフォルトの名無しさん
08/09/24 18:37:44
Worksheets("表").Range("A2").Select

と記述するとA2にデータの未入力状態ということで実行エラーが出てしまうのに、

With Worksheets("表")
　　.Select
　　.Range("A2").Select
End With

と記述するとエラーが出ずに問題なく実行されるのはなぜなの？

336:y
08/09/24 21:36:05
あるセル範囲に対してSelectメソッドを実行したとき、
そのセル範囲が含まれるシートが選択されていなければ、
実行時エラーが発生する仕様になっているためです。

>335の下のコードは、シートを選んでから、セル範囲を選んでいるので、エラーは発生しません。
上のコードも、「表」シートが選んである状態であれば、エラーは発生しません。

337:デフォルトの名無しさん
08/09/24 21:57:49
＞Worksheets("表").Range("A2").Select
こうすればいい。
＞Worksheets("表").Select
＞Worksheets("表").Range("A2").Select
# って、既に歪の人が書いていたか。

338:デフォルトの名無しさん
08/09/24 23:27:58
ｽﾚﾁでしたら誘導願います。
xp・excel2002で、関数が物足りなくなってきたのでマクロとVBAの勉強始めました。
ネットで検索するとaccessにもVBAとかマクロとか関数も？あるようです？

同僚に挫折したaccessのVBAの本ならあるから1500円で譲るよ。と言われたのですが、
exceｌとaccessのVBAは同じものですか？全く別物でしょうか？？
すみません、宜しくお願いします。

339:デフォルトの名無しさん
08/09/24 23:33:34
>>338
AccessVBAの本ではVBの勉強にはなるかもしれないがExcelVBAの勉強にはならないので
1500円も出すくらいならちゃんとした本を買いましょう。

340:デフォルトの名無しさん
08/09/24 23:37:41
>>338
VBAそのものは同じだけど操作対象が全く別物なのでお勧めできない

341:デフォルトの名無しさん
08/09/24 23:44:40
>>339 >>340
レス㌧くすです。

つまり、同じものだけど違うものだから？エクセルのVBAの本を買うべき。
と言うことですね？ありがとうございました。
危うく、accessの本を読んでexcel挫折するところでしたｗ

342:デフォルトの名無しさん
08/09/25 00:42:24
いらないならタダでくれればいいのにセコイ同僚だな

343:デフォルトの名無しさん
08/09/25 15:13:33
Dim Cnt, Num As Integer
Dim Tbx As TextBox
Num = 0
For Cnt = 1 To 9
Num = Num + 1
Set Tbx = "TextBox" & Num
Tbx.Text = ""
Next

VBAは変数の型を自動変換してくれると考えて、これを実行すると、
「コンパイルエラー：型が一致しません」と出ちゃいます。無理かな。

344:デフォルトの名無しさん
08/09/25 16:09:13
>>343
>Dim Tbx As TextBox
>Set Tbx = "TextBox" & Num←何がしたいんだ？

TextBoxは文字列ではないからコンパイル通らなくて当たり前だな
Set Tbx = Worksheets(1).OLEObjects("TextBox" & Num)
なら理解できる

345:デフォルトの名無しさん
08/09/25 16:39:59
>>344
サンキュー！！！！！！！！！

346:デフォルトの名無しさん
08/09/25 16:45:25
ちなみに余計なお節介かもしれんけど
Dim Cnt, Num As Integer　と書くとｃｎｔはVariant型だぞ

347:デフォルトの名無しさん
08/09/25 17:07:39
>>346
わざわざ有難うございます。いただいたアドバイスをヒントに修正しました。
やりたかったのはUserForm1のコントロールTextBox1～9までの値をクリアすることでした。

Private Sub CommandButton5_Click()

' TextBox1～9までのTextプロパティの値をクリアする
Dim iCnt As Integer, iNum As Integer, oTbx As Control
iNum = 0
For iCnt = 1 To 9
iNum = iNum + 1
Set oTbx = UserForm1.Controls("TextBox" & iNum)
oTbx.Text = ""
Next

End Sub

348:デフォルトの名無しさん
08/09/25 18:48:29
ExcelVBAExpressEditionってないの？

349:デフォルトの名無しさん
08/09/26 09:26:40
えっえっえっえっ
えっろっびっでぉー

350:デフォルトの名無しさん
08/09/26 18:02:31
>>348
excelが対象なのに、VBAだけじゃ意味無いだろｗ
おとなしくメモ帳に書いとけ。

351:デフォルトの名無しさん
08/09/27 22:33:47
Hになればなるほど、固くなるものってな～んだ？

352:デフォルトの名無しさん
08/09/27 22:35:18
鉛筆の芯

353:デフォルトの名無しさん
08/09/27 22:53:05
エクセルにVBAが付いてくる…一般
VBAにエクセルが付いてくる…マ
>350は素人

354:デフォルトの名無しさん
08/09/27 23:28:04
> VBAにエクセルが付いてくる…マ
これ、笑うところ？
あ、マってプログラ"マ"じゃなくて"マ"ヌケってことか
それなら納得

プログラマがこんな本質を違えた愚かな発想するわけないもんなw

355:デフォルトの名無しさん
08/09/28 00:02:57
VBAって、いわゆるスクリプトだろ？
サクラエディタにでも書けばいいじゃん。

356:デフォルトの名無しさん
08/09/28 00:09:48
Excel 2008ではVBAサポートが廃止されました

357:ちら裏
08/09/28 06:12:41
VBとVBA,VB.NETは共にプログラミング言語文法の名前がVisual BASICというだけで
３つとも全部違うと思って欲しい。

それぞれ用途がかなり違う。文法も基本的な部分は同じでも、
実際にコードしてみると、かなーり違うことがわかる。

例えばVBA（もしかしてVB.NETも)では識別子に漢字交じり日本語が使える。

DLLなどの外部モジュールを最も簡単に呼び出せるのはVB。
VB.NETでは網羅されて使いやすいCLRが使える。
Excel付属のVBAでは、これらは出来ないか出来ても酷く面倒

しかしExcelのVBAは
精々ユーザー定義関数の定義や、外部ファイル入出力関係の
典型処理の組み込みや、フールプルーフ目的のフォーム作成
といった補助的な利用に留めておくべきで、ExcelをVB
環境の一種として取り扱うのはやめたほうがいい。
（VBを学ぶ環境としては余り適していない）

358:デフォルトの名無しさん
08/09/28 08:25:19
Visual Studio Tools for Applications
って何かと思っていたら、VBAの次世代版だったのか。
Office2003からVBAと並行して使えるようになっていたのな。
.NET2.0ベースで、VB.NET以外にもC#が使えるのは楽しそうだなあ。

>>356
VBAサポート打ち切ったら、マジ売れなくね？

359:デフォルトの名無しさん
08/09/28 12:22:40
>>357
ひどい知ったかなので、初心者は信じないように。

360:デフォルトの名無しさん
08/09/28 12:56:22
>>359
失敗の経験も貴重だから、確かにそうだな。

361:デフォルトの名無しさん
08/09/28 14:37:52
>>358
2008で「切り捨てて」AppleScriptに変更したら非難ごうごうで（当たり前）
次でやっぱりVBAを復活させるってさ

362:デフォルトの名無しさん
08/09/28 21:06:11
>>360
意味がわからん

363:高島彩
08/09/29 15:57:37
ワークシートつかわないでVBAでRSSの値とるやり方おしえて

364:HIRO ◆225xxx6ZSE
08/09/29 16:07:10
　　　, - ,----､　
　　（Ｕ（　　　　）　
　　｜　|∨Ｔ∨　　皆さん、>>363をよろしくお願いします。
　　（＿_）＿）

365:高島彩
08/09/29 16:12:29
　　　　　　　＿＿＿＿
　　　　　／∵∴∵∴＼
　　　　 /∵∴∵∴∵∴＼
　　　　/∵∴∴,（･）（･）∴|　　／￣￣￣￣￣￣￣
　　　　|∵∵／　　 ○　＼|　＜　 >>364　氏ねよ！！
　　　　|∵ /.　　ミ　|　彡 | 　　＼＿＿＿＿＿＿＿
　　　　|∵.| 　＼＿__|＿／| 　　　＿＿＿
　　　　＼|　　　＼__ノ　／　　／　　　＼　　
　　　　　　＼＿＿＿／　　 /∧　　　　　＼
　　　　　　／　　　　　　）　　| ×　　　　　　　|　＿　　　　　_
　　　　　/　,ｲ　、　　ﾉ/　　　|●（　　　　　―＝￣　｀ヽ,　＿
　　　　/　/　|　　　（〈　∵. ・＼　〈＿_　>　　゛　、＿―
　　　｜　!　ヽ　　ｰ＝-￣￣＝_＼＿（／　,　´ノ
　　　｜ |　　　｀iー＿＿＝―＿　;,　／　／／　　
　　　 !、ﾘ　　-=＿二＿＿￣_=;,　／　／　,'
　　　　　　　　/　 /　　　　　　　／　／| 　|
　　　　　　／　 /　　　　　　　!､＿／ / 　〉
　　　　　／＿/　　　　　　　　　　　　 |_／
　　　　　ヽ､＿ヽ

366:デフォルトの名無しさん
08/09/29 21:36:04
>>363
ごく普通にやればいいだけだよ
VBやCでやるのと同じように

つーか、ワークシート使わない方法になると>>1にも書いてある通り
VBAではなくVB分野になるのでスレ違いだな
あとは自分で調べましょう

367:HIRO ◆225xxx6ZSE
08/09/30 00:14:01
　　　, - ,----､　
　　（Ｕ（　　　　）　 >>366
　　｜　|∨Ｔ∨　　ありがとうございます。
　　（＿_）＿）

368:デフォルトの名無しさん
08/10/01 00:19:39
URLﾘﾝｸ(www.nicovideo.jp)
ニコ動で一時期流行った侵略ゲームをExcelで再現してみたのですが、
やはり（？）あまり速度が出ません。
いろいろ頑張ってみたのですが、自分の限界に達したようなので、
速度が向上する方法がありましたらアドバイスをいただけると助かります。

URLﾘﾝｸ(uproda11.2ch-library.com)

369:368
08/10/01 00:36:04
バージョン：Excel2007
ＯＳ：Vista

私の環境では、ウィンドウを最大化しておかないと何故かフリーズしやすいです。
フリーズというか、画面は固まりますが裏では動いています。

370:デフォルトの名無しさん
08/10/01 03:44:42
>>368
全く試さない上でVBA素人の俺が脊髄反射レス

・基点となるセルからoffsetで上下左右1ずつ隣のセルの値を取得して、
それを評価した方がいいんｼﾞｬﾏｲｶ

・セルのプロパティのアクセスを都度行うのは重いから、
一度マップ範囲を c = Range("x:y") のように配列に入れて、
値から何とかした方がいいんｼﾞｬﾏｲｶ

・ScreenUpdating を最初から False に(ry
嘘ですごめんなさい

371:デフォルトの名無しさん
08/10/01 07:26:33
Private Sub CommandButton1_Click()
Randomize

Dim hsXmax As Integer 'マップの横最大値
Dim hsYmax As Integer 'マップの縦最大値
Dim hsMap() As Integer 'マップの戦闘力格納用配列変数
Dim i As Integer '行番号
Dim j As Integer '列番号
Dim hsMaxPow As Integer '最大戦闘力
Dim x As Integer 'For用

hsXmax = Cells(6, 57).Value
hsYmax = Cells(5, 57).Value

ReDim hsMap(1 To hsYmax, 1 To hsXmax)

For x = 1 To 1000

Application.ScreenUpdating = False

'マップに戦闘力を設定。マップの一番外側は必ず白色
For i = 2 To hsYmax - 1
For j = 2 To hsXmax - 1
If Cells(i, j).Interior.Color <> RGB(255, 255, 255) Then '白色以外のセルに戦闘力を設定
hsMap(i, j) = Int((99 * Rnd) + 1)
End If
Next j
Next i

372:デフォルトの名無しさん
08/10/01 07:27:04
'戦闘結果算出
For i = 2 To hsYmax - 1
For j = 2 To hsXmax - 1
If hsMap(i, j) <> 0 Then 'セルに戦闘力が設定されている場合
'そのセルを含め、上下左右のセルの戦闘力の最大値を取得する
hsMaxPow = WorksheetFunction.Max(hsMap(i, j), hsMap(i - 1, j), hsMap(i, j - 1), hsMap(i + 1, j), hsMap(i, j + 1))
If hsMap(i - 1, j) = hsMaxPow Then '上のセルが最大だった場合は、上と同じ色にする
Cells(i, j).Interior.Color = Cells(i - 1, j).Interior.Color
ElseIf hsMap(i, j - 1) = hsMaxPow Then '左のセルが最大だった場合は、左と同じにする
Cells(i, j).Interior.Color = Cells(i, j - 1).Interior.Color
ElseIf hsMap(i + 1, j) = hsMaxPow Then '下のセルが最大だった場合は、下と同じ色にする
Cells(i, j).Interior.Color = Cells(i + 1, j).Interior.Color
ElseIf hsMap(i, j + 1) = hsMaxPow Then '右のセルが最大だった場合は、右と同じ色にする
Cells(i, j).Interior.Color = Cells(i, j + 1).Interior.Color
End If
End If
Next j
Next i

Application.ScreenUpdating = True

Next x

End Sub

373:368
08/10/01 07:43:19
↑はソースのコピペです。
一応貼っときます。

戦闘力はランダムのはずですが、
何故か名古屋が強い気がします・・・

374:デフォルトの名無しさん
08/10/01 14:08:29
>>368
フリーズは再現できなかったけどとりあえず軽くしてみた
やったことは
1.色を配列に入れてこねくり回すようにした
2.色が変化しない時は再設定しないようにした
3.気に入らなかったのでElseifをSelect Caseにした

375:374
08/10/01 14:08:53
Option Explicit
Sub CommandButton1_Click()
Randomize

Dim hsXmax As Integer 'マップの横最大値
Dim hsYmax As Integer 'マップの縦最大値
Dim hsMap() As Integer 'マップの戦闘力格納用配列変数
Dim hsColor() As Long 'マップの色格納用配列変数
Dim hsColor_old() As Long 'マップの色格納用配列変数(比較用)
Dim i As Integer '行番号
Dim j As Integer '列番号
Dim hsMaxPow As Integer '最大戦闘力
Dim x As Integer 'For用
Dim hsCells As Object
hsXmax = Cells(6, 57).Value
hsYmax = Cells(5, 57).Value
ReDim hsMap(1 To hsYmax, 1 To hsXmax)
ReDim hsColor(1 To hsYmax, 1 To hsXmax)
ReDim hsColor_old(1 To hsYmax, 1 To hsXmax)

With Range(Cells(1, 1), Cells(hsYmax, hsXmax))
'シートから色を取得
For i = 2 To hsYmax - 1
For j = 2 To hsXmax - 1
hsColor(i, j) = .Cells(i, j).Interior.Color
Next j
Next i

376:374
08/10/01 14:10:02
For x = 1 To 1000
Application.ScreenUpdating = False
'マップに戦闘力を設定
'マップの一番外側は必ず白色
For i = 2 To hsYmax - 1
For j = 2 To hsXmax - 1
If hsColor(i, j) <> vbWhite Then '白色以外のセルに戦闘力を設定
hsMap(i, j) = Int((99 * Rnd) + 1)
End If
Next j
Next i
hsColor_old = hsColor
'戦闘結果算出
For i = 2 To hsYmax - 1
For j = 2 To hsXmax - 1
If hsMap(i, j) <> 0 Then 'セルに戦闘力が設定されている場合
'そのセルを含め、上下左右のセルの戦闘力の最大値を取得する
hsMaxPow = WorksheetFunction.Max(hsMap(i, j), hsMap(i - 1, j), hsMap(i, j - 1), hsMap(i + 1, j), hsMap(i, j + 1))
Select Case hsMaxPow
Case hsMap(i - 1, j) '上のセルが最大だった場合は、上と同じ色にする
hsColor(i, j) = hsColor(i - 1, j)
Case hsMap(i, j - 1) '左のセルが最大だった場合は、左と同じにする
hsColor(i, j) = hsColor(i, j - 1)
Case hsMap(i + 1, j) '下のセルが最大だった場合は、下と同じ色にする
hsColor(i, j) = hsColor(i + 1, j)
Case hsMap(i, j + 1) '右のセルが最大だった場合は、右と同じ色にする
hsColor(i, j) = hsColor(i, j + 1)
End Select
End If
Next j
Next i

377:374
08/10/01 14:10:48

'マップ(シート)に色を反映
For i = 2 To hsYmax - 1
For j = 2 To hsXmax - 1
If hsColor(i, j) <> hsColor_old(i, j) Then
.Cells(i, j).Interior.Color = hsColor(i, j)
End If
Next j
Next i

Application.ScreenUpdating = True
Next x
End With
End Sub

378:デフォルトの名無しさん
08/10/01 15:41:37
どこかのセルが変更された時に処理（以下、処理A）が走るようにしています。

最初の処理（以下、処理B）でセルを変更しています。
処理Bのときだけ処理Aを走らせないようにしたいのですが、
どうしたらいいでしょうか。

379:デフォルトの名無しさん
08/10/01 16:09:13
>>378
Application.EnableEvents = False
かな？

380:デフォルトの名無しさん
08/10/01 16:31:03
>>379
まさにそれでした。ありがとうございました。

最初「Application.EnableEvents = False」の一行見たとき意味わかりませんでしたが、
ググッたら使い方でてきて何とかなりました。

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

381:368
08/10/01 22:30:32
>>370
>>374
ありがとうございます。
予想以上に速くなりすぎていて驚きました。
色を配列に入れるところまで考えが至りませんでした。

ところで、戦闘力はランダムのはずなのに勝者に偏りがありすぎます。
いくつかのマップで10戦ずつやってみたところ、
愛知県マップ・・・名古屋9勝、西三河1勝、東三河0勝
「目（上中下の３色）」マップ・・・上9勝、中0勝、下1勝
「田（４色）」マップ・・・左上8勝、左下2勝、右上0勝、右下0勝
という結果で、左上に近いほど強いとしか思えません。
謎です・・・

382:デフォルトの名無しさん
08/10/01 23:44:27
>>381
謎でもなんでもないじゃん。
・hsMapの値が整数で0-100程度でしかないから最大値を取るセルが複数できやすい。
・Select Caseで上左の順でチェックしているから上や左が優先されやすい。
つまり、上や左から侵食されやすい傾向があるわけ。

最大値を取るセルが複数ある場合に微妙に優先度を調整するか、
値の変動幅を大きく取って最大値を取るセルが一つになるようにするかってところかな。

383:デフォルトの名無しさん
08/10/02 05:20:47
Excel2000 で 255文字以上のフルパスの存在チェックで　DIRでチェックしようとすると「ファイルが見つかりません。」になるんですが回避するにはどうすれば良いですしょうか？

if dir( 255文字以上のパス ) <> "" then

384:デフォルトの名無しさん
08/10/02 05:48:56
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.fileExists(ぱす) = False Then
でいけたかも。他にあれば教えてください。

385:368
08/10/02 07:45:57
>>382
それは私も考えました。
それが原因なら、判定の順序を「下→右→上→左」とすれば、
下や右が強くなるはずです。

順序を変えてやってみましたが、
名古屋8勝、西三河2勝、東三河0勝
上7勝、中3勝、下0勝
左上7勝、左下1勝、右上2勝、右下0勝
と、やはり左上に近いほど強いようです。
まあ、10回程度だと偶然偏りができることも考えられますが・・・

386:374
08/10/02 10:40:57
>>365
比較する順序ではなく色を入れ替えるタイミングの問題では？

　Select Case hsMaxPow
　　　Case hsMap(i - 1, j) '上のセルが最大だった場合は、上と同じ色にする
　　　　　hsColor(i, j) = hsColor_old(i - 1, j)
　　　Case hsMap(i, j - 1) '左のセルが最大だった場合は、左と同じにする
　　　　　hsColor(i, j) = hsColor_old(i, j - 1)
　　　Case hsMap(i + 1, j) '下のセルが最大だった場合は、下と同じ色にする
　　　　　hsColor(i, j) = hsColor_old(i + 1, j)
　　　Case hsMap(i, j + 1) '右のセルが最大だった場合は、右と同じ色にする
　　　　　hsColor(i, j) = hsColor_old(i, j + 1)
　End Select

と更新前の色を入れてやれば少しは改善するかもしれません

387:デフォルトの名無しさん
08/10/02 14:59:02
マクロを実行してファイルを閉じ、再び同じウィンドウで
マクロ入りのファイルを開いても、マクロが実行できません。

VBAを使っていろいろ処理して終了させます。
処理の中では画面更新の抑制やら色々やってます。

マクロを実行したbookを閉じてから、マクロが入った
ファイルを開くと、右クリックで新規ウィンドウ等を
やらない限りは必然的に、既に開いているExcelを使って
ファイルが開かれると思うのですが、そうなるとマクロが
動かないんです。

セキュリティの問題ではなくマクロが無いファイルのような
そんな扱いです。やはり、色々標準の機能を殺しているのが問題で
それが終了しても保持され続けているのが問題なのでしょうか？？

388:デフォルトの名無しさん
08/10/02 15:20:53
>>387
セキュリティの設定は何になっているんですか？
低になっていてかつApplication.EnableEventsがFalseだった場合
マクロは自動実行されないはずなので何も起きていないだけでは？

389:デフォルトの名無しさん
08/10/02 20:31:10
1行目と3行目を選択（1行目を選択してからCtrl+3行目を選択）すると、
Range("1:1,3:3").Select
と言うコードが得られますが、
変数を用いて、a行目とb行目を選択する場合には、どのように記述すれば良いのでしょうか。

よろしくお願いします。

390:デフォルトの名無しさん
08/10/02 20:41:43
>>389
Dim a As Integer, b As Integer
Rows(a & ":" & b).Select

391:390
08/10/02 20:45:59
動かなかった・・・orz

Dim a As Integer, b As Integer
a = 1: b = 3
Range(Rows(a).Address & "," & Rows(b).Address).Select

392:デフォルトの名無しさん
08/10/02 21:42:23
お世話になります。
for loopの入れ子でループを抜けたいときは
gotoするのが一般的なんでしょうか？
gotoってあんまり使うなと言われているので
For intI = 3 To 65535
For intJ = 1 To 255
'条件が一致すればここからいっきに２つのループを抜けたい
Next intJ
Next intI

あとループ変数って単純にi,j,kとするか
なにかしらわかりいい名前をつけるのかどちらがいいのでしょうか
よろしくお願いします。

393:デフォルトの名無しさん
08/10/02 21:48:27
多重ループ脱出は数少ないgotoの出番だぞ。
（無論そのための仕組みが存在する言語なら話は別だが）

ループ変数はi,　j,　kとするのが単純かつ分かりやすい。
intIですらやめてくれと言うところだ。

394:デフォルトの名無しさん
08/10/02 22:11:03
なるほど　そうでしたか
ありがとうございました

395:デフォルトの名無しさん
08/10/02 22:40:28
>>393
プログラムが大きくなってくると1文字の変数は探しにくい
やりたいことにもよるだろうが
1文字で済ませる癖は付けないほうがいいと思う

396:デフォルトの名無しさん
08/10/02 23:09:51
>>395
それはプロシージャを分割した方がいいんじゃないかな

397:デフォルトの名無しさん
08/10/02 23:23:45
クラスモジュールと
標準モジュールの違いがいまいちわからん

クラスはオブジェクトとして使ったりコンパイルしてDLLとして参照すると
名前でプロシージャーを呼び出せるってことなのか？

標準だと他のモジュールのって呼び出せない？

398:デフォルトの名無しさん
08/10/02 23:39:33
>>389
union(rows(a),rows(b)).Select

399:368
08/10/02 23:51:05
>>374
ありがとうございます。
強さが均等になりました。
言われてみれば、あのプログラムでは左上が強くなるのも当然ですね。
実は、初期はちゃんと古いマップから色を持ってきていたのですが、
高速化のためにいろいろやっているうちに、古いマップを省略してしまったようです。

400:デフォルトの名無しさん
08/10/03 00:02:25
>>395
ループ自体をForで探せばいいじゃない。
あと、ループ変数をi,　jとしないなんてVB以外では聞いたことないってただの個人的経験だけど。

401:デフォルトの名無しさん
08/10/03 09:05:00
>>397
VBA分野の話じゃないね、スレ違い

402:デフォルトの名無しさん
08/10/03 09:26:22
>>392
2重ループ脱出はForとDoを併用するのが常套手段

For intI = 3 To 65535
　　Do Until intJ = 255
　　　　Exit For
　　Loop
Next intI

403:デフォルトの名無しさん
08/10/03 19:39:08
Do/Loopを使うと速度が落ちちゃうじゃないか、とか言ってみる。

404:デフォルトの名無しさん
08/10/03 20:28:55
>>402
それは無い

405:デフォルトの名無しさん
08/10/03 22:13:12
ループ抜けの話が出ていたので、質問をさせてください。
例えば、

for i = 1 to 100
if cells(i,1).value like "hoge" then
set cl = cells(i,1)
end if
next

のような形で、該当する最初のセルに処理をした時点でループを抜けるにはどのように記述すれば良いのでしょうか。
上記だと2つ以上の該当があった場合、後のセルがsetされてしまいます。

406:>401
08/10/03 23:22:31
( ﾟдﾟ)

407:デフォルトの名無しさん
08/10/03 23:40:02
>>405
セルをセットした後にExit For

408:デフォルトの名無しさん
08/10/04 00:55:23
ほとんど基礎もできていませんがアドバイスお願いします

自宅にﾊﾟｿがないので平日会社で試すしか方法がないのですが、何枚かのｴｸｾﾙﾌｧｲﾙを開きセルA6に別の表から拾った値を引っ張ります
これがシートならば全シートを選んでVLOOKの式でもA6に入れればいいのでしょうが各ﾌｧｲﾙを別々に保存しなければなりません

一度一つのﾌｧｲﾙにまとめて入力後またばらしてもいいのですがそれならﾌｧｲﾙを開けて手入力する手間とさほど変わりません
多くて40ﾌｧｲﾙです

どうぞよろしくお願いしますm(_ _)m

409:デフォルトの名無しさん
08/10/04 01:25:38
>>408
その情報だけだと使えそうな手段は2つくらいしか思いつかない
1.VBAで表をまとめてLOOKUP
2.VBAで該当する値を直接取りにいく

>一度一つのﾌｧｲﾙにまとめて入力後またばらしてもいいのですが
何がしたいのかよく分からないｗ

>ﾌｧｲﾙを開けて手入力する
これは目視で値を確認していって該当する値を移すってことでしょうか？

>多くて40ﾌｧｲﾙです
40ﾌｧｲﾙ見るだけなのかすべて更新するのかどちらでしょうか・・・

410:デフォルトの名無しさん
08/10/04 01:47:52
早速のﾚｽを有難うございます。説明が至らずすみません
おそらくあまりに初級なので難しく捕らえていらっしゃるかもしれません
見に行く表にはA列に番号(12桁)B列にも番号(9桁)がありこれが多くても40種の意味です。重複はしていない番号ばかりです
そしてA列の番号がﾌｧｲﾙ名にもなっている1枚ｼｰﾄしかないﾌｧｲﾙのセルA4に先程の12桁が入っているがｾﾙA6に今までは手入力で9桁番号を入れていました
目視です。一応FIND窓で捜しはします…

独立させずｼｰﾄとしてまとめたら一度に処理できるかと考えたのですが、、

次ページ