Excel VBA質問スレ Part5

Excel VBA質問スレ Pa ..

263:デフォルトの名無しさん
08/01/04 09:52:52
>>259
再現した。　ワークシートの存在を確認するしかないかな？
　　Dim s As Worksheet
　　For Each s In Me.Worksheets
　　　　If UCase(s.Name) = UCase("20.1月") Then
　　　　　　s.Range("A1").Value = "='D:\[計算書.xls]20.1月'!$J$3"
　　　　　　Exit For
　　　　End If
　　Next
あるいは、可能であればワークシート別のイベントで処理させるとか。

264:かな
08/01/04 09:57:33
だれか教えてん♪

265:デフォルトの名無しさん
08/01/04 10:43:44
>>238 >>244 >>264
URLﾘﾝｸ(www.google.co.jp)
まぁ釣りだとは思うんだけど…

266:まな
08/01/04 10:52:16
>>264
手とり足とり、組んずほぐれつ？

267:デフォルトの名無しさん
08/01/04 17:41:29
すいません、ＸＰでＥＸＣＥＬ２００３です。
複数のセルに数式が入れてあるのですが、
その数式から導かれた値が、ある一定の値を超えた場合そのセル番号を表示させるプログラムを作ろうと考えています。

このようなことは可能でしょうか？
もし可能ならどのようなプロパティやメソッドを使えばいいのか教えてください。
後は本も買ってきたのでできるだけ自分でやりたいと思いますので、ヒントだけでもありがたいです。

268:デフォルトの名無しさん
08/01/04 17:44:47
>261
EXCELの設定で表示しないようにできるんですかね･･･。

>262
NW.Cells(tate, yoko).Formula = Replace(str_cell, this_Date, Nxt_Date)
　　　　　　　　　　　　　　　~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
　　　　　　　　　　　　　　　 ↑ ='D:\[計算書.xls]20.1月'!$J$3 が入る
　　　　　　　　　　　　　　　　　　　　　　　　　 ~~~~~~
　　　　　　　　　　　　　　　　　　　　　　　　　　↑このシートは存在しない。
『シートの選択』ダイアログが表示される･･･。

>263
やっぱりダイアログが表示しますよね。ない場合シート作成させるしかないですかね･･･？

269:デフォルトの名無しさん
08/01/04 17:53:43
>>215
つOn Error

270:デフォルトの名無しさん
08/01/04 22:16:05
>>268
NW ?

271:263
08/01/05 11:58:51
>>268
シート作る必要があるの？
どうせエラー（"#REF"）になる式なんか入れないで、263の例みたいに空白のままじゃダメ？

>>270
どうせローカル変数名でしょ、New Worksheet の頭文字。てか、そこ突っ込まなくても・・・

272:デフォルトの名無しさん
08/01/07 17:08:47
XP、Excel2003で、改ページの枠を固定することはできるでしょうか。
この固定とは、保護等で管理者以外は触れないようにするということです。
ウィンドウの固定ではなく、改ページ範囲の固定です。

ご存知の方がいましたら、ご教授願います。

273:デフォルトの名無しさん
08/01/07 17:20:25
>>272　追記です。
結合したセルがあります。
そのセルに対する設定変更(書式、結合解除、フォント)は不可とし、
入力のみ可能とすることはできますか？

ご存知の方がいましたら、ご教授願います。

274:デフォルトの名無しさん
08/01/07 20:01:11
対象とするアクションが起こった場合にパスワード等を求めるとかじゃだめかな？

275:デフォルトの名無しさん
08/01/07 23:30:12
テキストボックスの余白自動設定解除に手間取った。
なんか簡単な方法ってないの？

276:デフォルトの名無しさん
08/01/08 08:29:16
｢手間取ってる｣ではなく｢手間取った｣ってことは
一応目的は達成されてるわけだよね

ではそれを提示してください
コード貼ってもブックをうpしても構いません
そしたらそれより簡単な方法があれば教えましょう

それが嫌ならさようなら

277:デフォルトの名無しさん
08/01/08 12:52:16
散々既出ぽい話題ですが、エクセルで、
先頭の0を消さずにcsvで書き出ししたいのですが、
以下の式では当然不可能で・・・

Option Explicit
Sub eight()
Dim eight As String
Dim bigeight As String

Range("a1").Value = 8
bigeight = Range("a1").Value + 100000000
MsgBox bigeight
eight = right(bigeight, 8)
MsgBox eight
Range("A2").Value = eight
MsgBox eight
End Sub

関数で同じことをやると出来るのですがゴミデータが出て、
コンマの数が変わってしまいます。

278:デフォルトの名無しさん
08/01/08 13:17:17
変数の型について勉強しましょう
文字列数値と数値の違いを理解しましょう
プロシージャ名と変数名を同じにするセンスを何とかしましょう

279:デフォルトの名無しさん
08/01/08 13:48:25
>>277
セルの書式設定(F)　→　表示形式：ユーザー定義　→　種類(T)：00000000　（８桁固定）

280:デフォルトの名無しさん
08/01/08 14:13:45
>>279
おお。
これをVBAで指定するには？

281:デフォルトの名無しさん
08/01/08 14:18:49
てか、そもそもセルに転記しなければ良いのか（・∀・；）

282:デフォルトの名無しさん
08/01/08 14:53:59
>>281
転記するにしても、セル（範囲）ごと持っていけば済むよ。
Range("A1").Copy　Range("A2")

283:デフォルトの名無しさん
08/01/08 15:06:19
あ、表示形式ってマクロ記録できるんだ。
これで、解決・・・かな

284:デフォルトの名無しさん
08/01/08 15:24:41
礼も言えないゆとりであった

285:デフォルトの名無しさん
08/01/08 23:22:13
質問なのですが、ユーザーフォームの中に80コのテキストボックスを作りたい。
プログラムでループ文を使いテキストボックスを横に4×縦に20で一気に作る方法はありますでしょうか？

286:デフォルトの名無しさん
08/01/08 23:45:08
あります
LeftとTopを調整しましょう
コード教えては厳禁

287:デフォルトの名無しさん
08/01/08 23:50:48
調整とはユーザーフォームの設定ということですか？
プログラムだけで可能なのですよね？
もう少しだけヒントをお願いできないでしょうか？

288:デフォルトの名無しさん
08/01/08 23:55:08
別にそこまで厳しくせんでも。　Excel2003ではできる。
Set ctrl = Me.Controls.Add("Forms.TextBox.1")
って感じに追加して、ctrlのプロパティを調整する。
MSFormsに追加するのに、これでいいのか？という気もするが。

289:デフォルトの名無しさん
08/01/09 00:14:18
できました！あとは80コスペースを空けて作る方法を考えてみます。
288さん有難う御座いました。

290:デフォルトの名無しさん
08/01/09 00:16:15
丸投げを助長する
寄生虫が増殖する
らしいです

291:デフォルトの名無しさん
08/01/09 00:33:43
丸投げと、できるだけズバリなヒントを欲しているのとは確実に違うと思うわけだが。

292:デフォルトの名無しさん
08/01/09 14:20:42
278=284=290

293:デフォルトの名無しさん
08/01/09 14:30:40
しかし>>284には同意せざるを得ない

294:デフォルトの名無しさん
08/01/09 14:36:58
礼なんぞいらん。邪魔。

295:sage
08/01/09 14:47:15
IDが無いと誰が誰かワカラン

296:デフォルトの名無しさん
08/01/09 18:11:06
質問です。

Dim c1 as Collection
Dim c2 as Collection
Set c1 = New Collection
c1.Add "a"
c1.Add "b"
Set c2 = c1

この次に、
c1.Remove(1) 'c1の最初のアイテムを削除
とやるとc2のアイテムも"b"だけになりますよね。

これはたぶんc2が、c1と同じCollectionオブジェクトを
指しているためなんだな、と理解しています。

理解できないのは、c1.Remove(1)ではなく、
Set c1 = Nothing
とした場合です。

c2もNothingになるのかと思いこんでいましたが、
実際c2には、"a"も"b"も、ちゃんと残っていました。
これはなぜでしょうか？

297:デフォルトの名無しさん
08/01/09 18:25:52
a=1
b=a
a=0
にしてもb=0にならないのと同じ

298:デフォルトの名無しさん
08/01/09 18:27:51
「変数そのもの」と「変数が指す先」の区別を理解しませう。
set c1=nothingは、変数そのものへの操作で、変数が指す先にたいしては、
ほとんど影響しない。(唯一、リファレンスカウントにだけ影響するんだっけか。)

299:デフォルトの名無しさん
08/01/09 18:29:59
それはNothingキーワードが実体を解放するものではないため

300:デフォルトの名無しさん
08/01/09 19:41:42
数値の代入式の場合は、値そのものをコピーする。
オブジェクトの代入式の場合は、値を保存してある場所（参照）をコピーする。
なので、c1の要素を消すと、c2の要素も消えるが、
Set c1 = Nothing　とした場合は、c1と値そのものとの関連が削除されるが、値そのものは残ってる。
全ての参照が削除された時点で、値そのものも削除される状態になる。

301:296
08/01/09 20:12:40
>>298
>>299
>>300
レスありがとうございました。
よくわかった、つもりです。
次のような理解でよろしいでしょうか...

Set c1 = Nothing によって、変数c1に格納された参照は削除される。
しかし参照先の実体を、まだ変数c2が参照している。
そのため、実体はメモリ上に存続する。
このあとで更に、Set c2 = Nothing とすると、
実体を指す参照がすべて無くなる。
すると、その実体が自動的に解放される。

302:デフォルトの名無しさん
08/01/09 21:28:25
質問なんですが、
セルの値（自動で変化する）が変わった瞬間に所定のコードを実行する（JavaScriptでいうところのonchange見たいな）、
と言うのは如何すればいいんでしょうか？

303:デフォルトの名無しさん
08/01/09 21:40:07
changeイベントを使えばいいよ

304:デフォルトの名無しさん
08/01/09 22:57:14
>>303
㌧ｸｽです
なるほど、ワークシート単位ではチェンジイベントがあるんですね。
早速やってみます。

305:デフォルトの名無しさん
08/01/10 13:29:04
1から10000までの数字を全部掛けたときに
末尾に並ぶ0の個数を求めるのをVBAでおながいします

306:デフォルトの名無しさん
08/01/10 13:47:41
Excelどころか言語すら関係ないアルゴリズムの話か

>>305→>>2★4

307:デフォルトの名無しさん
08/01/10 13:51:31
>>305
というか桁数が膨大になるので計算機を使っても無理かと。
代数的な解法があるんじゃないですか？数学板の質問スレに質問しては？

308:デフォルトの名無しさん
08/01/10 14:02:10
じゃあ100まででもいいです

309:デフォルトの名無しさん
08/01/10 14:07:59
>>307
アルゴリズム次第では桁数は膨大にならないよ
だって総桁数を調べるのではなく､0の数を数えるだけだから

なんにしろスレ違いだけど

310:デフォルトの名無しさん
08/01/10 15:05:43
セルのコピー、ペーストをvbaで行った後に、コピー元のセルを囲っている
網のようなラインが消えないのですが、これをvba内で
解除するにはどうすればいいでしょうか。

311:デフォルトの名無しさん
08/01/10 15:26:51
>>310
Application.CutCopyMode = False

これはちゃんとExcel VBAの質問だな

312:sage
08/01/10 15:31:47
>>311
お、早速
ありがとうございます

313:デフォルトの名無しさん
08/01/10 16:28:25
オートフィルタを使ってデータベースの集計をしているのですが

1列目　2列目　　3列目
A　　　B　　　　タイトル

という風になっています。1列目と2列目は評価項目でA,B,C,D,E,Fのいずれかが記入されています
現在これをカウントしているVBAが、

3行目をオートフィルタで集計したいタイトルで搾り出す
1行目をAで抽出後、SubtotalでAの数をカウント
2行目をBで抽出後、Subtotalで…

となっています。昔はこれで十分だったのですが、次第にタイトルが増えてきて
全部やるとなると膨大な時間がかかるようになってきてしまいました。
1つのタイトルに付き単純に12回抽出→数えるとやっているので…

いちいちAで抽出→数える、Bで抽出→数える…と繰り返さずに、
タイトルで絞った後にCoutIFのようにAはいくつ、Bはいくつみたいな具合でやる方法はないでしょうか？
CountIFだと非表示のセルのA～Fまで集計してしまって困っています

314:デフォルトの名無しさん
08/01/10 16:39:34
よーわからんけど..

Sub hogera_vs_mogera()
For i = 1 To 8
hoge = Range("A" & i).Value
If hoge = "A" Then hoge_counter = hoge_counter + 1
Next i
MsgBox hoge_counter
End Sub

315:デフォルトの名無しさん
08/01/10 18:11:37
>>313
ピボットテーブルレポート使ってみて。

316:デフォルトの名無しさん
08/01/10 19:41:52
セルに名前が　"hoge"
とついてる場合
range("hoge").value = "ほげほげ"
と操作できますが

この名前　"hoge" の行　列の値を得る方法を
教えて下さい　hogeが(1,5)なら
int row = 1
int col = 5
のように得たいです。

317:デフォルトの名無しさん
08/01/10 19:56:30
Range("hoge").Row
Range("hoge").Column

318:デフォルトの名無しさん
08/01/10 23:06:12
質問なのですが、
Public Type SyainData
　　Id As Long
　　Name As String
End Type

Dim Kyo(5) as SyainData
と宣言しループ処理で関数の引数として２番目のNameを渡したいのですがどうすればいいですか？

319:デフォルトの名無しさん
08/01/10 23:19:01
Kyo(2).Name

320:デフォルトの名無しさん
08/01/10 23:23:03
319さん、ByRefコンパイルエラーと表示されます。

321:デフォルトの名無しさん
08/01/10 23:26:15
319さん
ちなみにAユーザーフォームからNameに入力して
標準モジュールに定義してある構造体にそれぞれ格納した値をBユーザーフォームに出力したいのです。

322:デフォルトの名無しさん
08/01/11 00:19:38
関数の呼び出し方と、関数の定義くらい書いたら？　（先頭の、Sub/Function～の行）
判断する情報が少なすぎる。

323:316
08/01/11 09:24:37
>>317
ありがとうございました(^▽^)

324:デフォルトの名無しさん
08/01/11 10:14:12
VBAで実行中に「vbcritical」と共に、「400」って
数字が表示されるエラーはなんですか？

325:デフォルトの名無しさん
08/01/11 14:21:13
msgboxやinputboxの外観をもっと可愛くしたい！

326:デフォルトの名無しさん
08/01/11 14:33:31
ｽﾏﾝ連投・・・
>>325はどうでもいいです

VBAを含むxlsを「共有」した途端に、そのvbaの挙動が微妙に変わってしまいました。
vbaの内容は、セル範囲をrangeで指定して、最下行にペーストするだけなんですが・・・。
なんか、ちょっとずれる感じなんです。ウィンドウの固定が原因かも。

共有と同時にVBAがロックされるので、原因の確かめようが無い状態(T-T

327:デフォルトの名無しさん
08/01/11 15:27:54
質問の仕方すら何かズレてるみたいだし、しょうがないね。　そういう星の下に生まれたんだよ。

328:326
08/01/11 16:19:52
共有の関係で、ペースト先の結合がバラバラになった模様・・・orz
こればっかりはどうしようもないですかね

保護されたセルに書き込むというのはvbaで何とかなりましたが・・・

329:デフォルトの名無しさん
08/01/11 16:48:30
>>325
つAssistant

330:デフォルトの名無しさん
08/01/11 18:07:53
>>329
なるほど、カイル君が使えるんですね・・・
ありがとうございます

331:デフォルトの名無しさん
08/01/11 19:37:54
>>328
このスレはオマイの進捗報告書かと

332:デフォルトの名無しさん
08/01/12 13:39:08
ｗｉｎxpでExcel2003を使用しています。

VBA-Editorからの実行は正常で、ワークシート上のコマンドボタンからの実行だと
時々、Excelが強制終了します。
コードは変えていないのに、上記の状況が発生しないときもあります。

バグだと思うのですが、発生しない時もあるので、原因がつかめません。
そんな事ってありますか？

333:デフォルトの名無しさん
08/01/12 13:49:06
>>332
あるよ。何か、以前にも出てたと思う。
クラスをインプリメントして、何かややこしいことしようとしてるヒトが居て、
エラーが出たり出なかったりするという話があった。基本的にはそれと同じ系統の問題では？

334:デフォルトの名無しさん
08/01/13 01:40:25
ｗｉｎxpでExcel2003を使用しています。
以下のコードは、都道府県ごとに１枚のデータシートを作成する処理なんですが、コードが１行づつどんな作業を意味しているのかがわかりません。
１行ごとにどのような処理をしているのかの説明をよろしくお願いします。長文で申し訳ありません。

Sub まとめ()
Dim i As Integer　'カウンタ変数iの宣言
Dim n As Integer　
Dim MyS1 As Worksheet　'ワークシート型オブジェクトMyS1を宣言
Dim MyC As Worksheet

Worksheets.Add before:=Worksheets("全国")
ActiveSheet.Name = "data"
Set MyS1= Worksheets("data")
With Worksheets("全国")
MyS1. Range(MyS1.Cells(1,1),MyS1.Cells(11,12))=.Range(Cells(1,1),.Cells(11,12)).Value
End With

i=12
For Each MyC In Worksheets
If MyC.Name<> "data" Then
n = 12
MyS1.Cells(i,1)=MyC.Name
i=i+1
Do While MyC.Cells(n,2).Value<>""
MyS1.Range(MyS1.Cells(i,1),MyS1.Cells(i,12))=MyC.Range(MyC.Cells(n,1),Mc.Cells(n,12)).Value
i=i+1
n=n+1
Loop
End If

335:デフォルトの名無しさん
08/01/13 01:45:30
Sub まとめ()←死ね
Dim i As Integer　'カウンタ変数iの宣言←死ね
Dim n As Integer　←死ね
Dim MyS1 As Worksheet　'ワークシート型オブジェクトMyS1を宣言←死ね
Dim MyC As Worksheet←死ね
←死ね
Worksheets.Add before:=Worksheets("全国")←死ね
ActiveSheet.Name = "data"←死ね
Set MyS1= Worksheets("data")←死ね
With Worksheets("全国")←死ね
MyS1. Range(MyS1.Cells(1,1),MyS1.Cells(11,12))=.Range(Cells(1,1),.Cells(11,12)).Value←死ね
End With←死ね
←死ね
i=12←死ね
For Each MyC In Worksheets←死ね
If MyC.Name<> "data" Then←死ね
n = 12←死ね
MyS1.Cells(i,1)=MyC.Name←死ね
i=i+1←死ね
Do While MyC.Cells(n,2).Value<>""←死ね
MyS1.Range(MyS1.Cells(i,1),MyS1.Cells(i,12))=MyC.Range(MyC.Cells(n,1),Mc.Cells(n,12)).Value←死ね
i=i+1←死ね
n=n+1←死ね
Loop←死ね
End If←死ね

336:デフォルトの名無しさん
08/01/13 04:26:19
こんなひどい丸投げを久しぶりに見た・・・

337:デフォルトの名無しさん
08/01/13 05:08:47
replace "\n" "←死ね\n"

338:デフォルトの名無しさん
08/01/13 05:10:22
>>334
随分酷いコードだな
VBA始めて3日くらいの奴が書いたコードだろ

こんな下劣なコードの説明なんてまっぴらだぜ

339:デフォルトの名無しさん
08/01/13 14:25:58
ある意味、微笑ましいコードだなｗ　　VBならでは、とでも言うか。

340:334
08/01/13 14:39:48
わからないのなら、レスくださらなくて結構です。
わかる方のみでお願いします。

341:デフォルトの名無しさん
08/01/13 14:58:48
>>340
どうもすみません・・。

342:デフォルトの名無しさん
08/01/13 15:17:23
要はググれということだ

343:デフォルトの名無しさん
08/01/13 15:18:17
>>340
判るんだけどさぁ、それを説明するのはスレ違いだし、そもそも野暮だろ?

344:デフォルトの名無しさん
08/01/13 15:56:32
>>340は馬鹿女

345:デフォルトの名無しさん
08/01/13 16:01:13
馬鹿かどうかは重要じゃない
大事なのは写真だ

346:デフォルトの名無しさん
08/01/13 16:06:19
>>340
１行ずつ説明が必要とかいう時点でおかしいと思わないか？
Dim i As Integerにも説明が必要なのか？どのレベルでだ？
Dimが何を意味して、Integerが何を意味するかまで解説するのか？
あるいは内部でIntegerがどのように管理されているかまで必要か？

処理ってのはある程度の塊で説明するのが普通だろ？
「ここはクラスの平均点を計算する」みたいな感じでよ。
文法がわからないのであれば入門書買うなりググるなりすればいい。
ピンポイントなら教えてやれても全部教えろとか金取りたくなるわ。

347:デフォルトの名無しさん
08/01/13 16:07:50
写真なんかはどうでもいい。
動画だ。動画をよこせ。

348:デフォルトの名無しさん
08/01/13 16:11:57
クリーチャーが「あたしはできる女なのよ！」とか自己紹介してる動画とかか？

349:デフォルトの名無しさん
08/01/13 21:03:19
質問ですが、組み込みダイアログボックス（例えばApplication.Dialogs(xlDialogPrint).Show）の
ウィンドウハンドルを取得するには、どうすればよろしいでしょうか？

APIを使って行うと思いますが、Excel本体やユーザーフォームのウィンドウハンドルの取得であれば
ググれば出てきたのですが、組み込みダイアログボックスのウィンドウハンドルの取得は
見つけることができなかったので、よろしくお願いします。

350:デフォルトの名無しさん
08/01/13 21:15:02
Spy.exe

351:デフォルトの名無しさん
08/01/14 06:14:32
>>334
i=12
iに12を設定する

For Each MyC In Worksheets
MyCごとの処理です

If MyC.Name<> "data" Then
n = 12
MyC.Nameがdataと違うときは、nに12を設定する

MyS1.Cells(i,1)=MyC.Name
i=i+1
MyC.NameをMyS1 の(12,1)に設定して、iを13にする

Do While MyC.Cells(n,2).Value<>""
MyCの(12,2)が空じゃなければ、以下の処理を繰り返す

MyS1.Range(MyS1.Cells(i,1),MyS1.Cells(i,12))=MyC.Range(MyC.Cells(n,1),Mc.Cells(n,12)).Value
MyS1の(13,1)から(13,12)に、 MyCの(12,1)から(12,12)を設定する

i=i+1
n=n+1
Loop
iを14に、nを13にして Do Whileに戻り、
MyCの(13,2)が空じゃなければ、また処理を繰り返す
MyS1の(14,1)から(14,12)に、 MyCの(13,1)から(13,12)を設定する
その次はMyS1の(15,1)から(15,12)に、 MyCの(14,1)から(14,12)を設定する
というふうに、iとnは1ずつ大きくなり、MyCの(n,2)が空になると処理をやめる

End If

352:デフォルトの名無しさん
08/01/14 07:47:13
URLﾘﾝｸ(zoomtv.web.fc2.com)

353:デフォルトの名無しさん
08/01/14 08:10:03
>>351
やさしいにもほどがあるな

354:デフォルトの名無しさん
08/01/14 09:41:33
教えたがりは一種の荒らし

355:デフォルトの名無しさん
08/01/14 10:18:46
中途半端なヤツほど、簡単な質問に答えたがる。

結局、自分自身の頭の整理をしてるんだろうな。

356:デフォルトの名無しさん
08/01/14 10:53:34
>>353-355
君たち気持ち悪いよ。

357:デフォルトの名無しさん
08/01/14 11:21:53
このスレ気持ち悪いよ

358:デフォルトの名無しさん
08/01/14 11:31:16
このスレ気持ち悪いよ　

359:デフォルトの名無しさん
08/01/14 11:48:28
このスレ気持ち悪いよ

360:デフォルトの名無しさん
08/01/14 13:42:05
おいおいどう見ても皮肉のレスだろ
求めてる答えがあれなら質問の意味がないと思うぞ

361:デフォルトの名無しさん
08/01/14 14:04:34
だれも回答しないから自分で書いたんだろうな

362:デフォルトの名無しさん
08/01/14 18:30:10
質問スレって所で答えては駄目だと。じゃぁ、このスレの存在意義って何さ。

363:デフォルトの名無しさん
08/01/14 18:50:09
教えたがり撲滅

364:デフォルトの名無しさん
08/01/14 18:58:48
>>362
ごきぶりほいほい

365:デフォルトの名無しさん
08/01/14 20:43:59
要は面倒なことはやりたくないだけだろw

366:デフォルトの名無しさん
08/01/14 22:43:08
>>362
> 質問スレって所で
そう､ここは質問スレであって､
自社商品を購入してくれた顧客相手のサポートセンターでも
受講料を支払ってくれた生徒相手のスクールでも無い

367:デフォルトの名無しさん
08/01/14 23:14:23
要は面倒なことはやりたくないだけだろ

368:デフォルトの名無しさん
08/01/14 23:15:24
ここは無知な人間をののしるためのスレに決まってんじゃん

369:デフォルトの名無しさん
08/01/14 23:21:18
昔はそれなりにレスが付いていたが、今となっては・・・ね

370:デフォルトの名無しさん
08/01/15 00:05:33
Excel VBA回答スレが必要だな

371:デフォルトの名無しさん
08/01/15 00:41:49
質問です。
OS: xp pro
EXCELバージョン :2003

RGB値を使いセルの塗りつぶしを行いたいと思い、
Cells(1, 1).Interior.Color = RGB(227, 229, 223)と記述しました。
しかし実際セルの色を見てみるとまったく違う色が塗られていました。
色を解析するソフトでその色のRGB値を調べてみるとRGB(204,255,204)でした。
もうわけわかりません、アドバイスお願いします。

372:デフォルトの名無しさん
08/01/15 00:51:12
>>371
RGB(255, 0, 0)なら赤になるか？
なるならcells( i, j )にRGB( i, j, 0 )を入れたときに正しいグラデーションになるか？
RGB解析ソフトでRGB(255, 0, 0)等が正しく読み取れるか？

これくらい試してみてくれないか？

373:デフォルトの名無しさん
08/01/15 01:21:22
>>372
ありがとうございます、試してみました。
RGB(255, 0, 0)なら赤になるか？→　なりました。
cells( i, j )にRGB( i, j, 0 )を入れたときに正しいグラデーションになるか？
→
For w_row = 1 To 256
For w_gyo = 1 To 256

ThisWorkbook.Sheets(3).Cells(w_row, w_gyo).Interior.Color = RGB(w_row, w_gyo, 0)
Next
Next
を試したところ正しいグラデーションにはなりませんでした。
参考画像です。URLﾘﾝｸ(nagamochi.info)
ツール→オプション→色で表示したい色を追加すると表示できました。
これ以外には方法はないのでしょうか？

374:デフォルトの名無しさん
08/01/15 01:25:01
>>371
ｴｸｾﾙは全てパレット管理。
パレットの色しか表せない。パレット以外の色をVBA等で選んでも近いパレットの色を使用させられる。
　　↓
すなわちパレットを変更すればいい

＞ツール→オプション→色で表示したい色を追加すると表示できました。
＞これ以外には方法はないのでしょうか？
その表示できた方法をマクロの記録で記録してやればいい。

375:デフォルトの名無しさん
08/01/15 01:46:21
>>374
解決できました、ありがとうございました。

376:デフォルトの名無しさん
08/01/15 11:36:29
>>351
ありがとうございました！

377:334
08/01/15 11:42:32
>>351
そんなことを聞いているわけじゃありません、冗談は勘弁してください。

378:デフォルトの名無しさん
08/01/15 14:45:05
もっと言ったれw

379:デフォルトの名無しさん
08/01/15 18:52:50
>>334=377

ぷっっ　て、ところだけど、何をききたいのか、言ってみたら。
折れが笑ってあげるからw

380:379
08/01/15 20:05:12
解決しました

381:デフォルトの名無しさん
08/01/15 20:49:36
>>380
おまい、アンカーもようつけんで、・・・www

382:379
08/01/15 20:52:47
>>380
は偽者です。

383:379
08/01/15 21:08:38
>>382
お前も偽物だろうがw

384:379
08/01/15 21:32:44
俺は偽物ですよ

でも>>380は本物ですよ

385:デフォルトの名無しさん
08/01/16 01:17:42
>>379
＞>>334=377
いいえ、等しくありません。

386:デフォルトの名無しさん
08/01/16 10:06:13
>>373
どうでもいいが、RGB()関数って256を指定してもエラーにならないのか、知らなかった。

387:デフォルトの名無しさん
08/01/16 13:00:24
項目とデータを含んだ2次元配列変数A,B　たとえばA(30×2),B(100×2)があり、
Bの100個の項目のなかからAの項目30に該当するものをそのままAのデータに代入したい
ということを考えています。ワークシート上で行う場合はlookup関数を使えばよいのですが
マクロのままで高速に行う方法はないものでしょうか？
ワークシート関数を使ったとしても一度ワークシートにデータを書き出さなければ
つかえないのでしょうか？色々調べても分からなかったので
どなたか御教示頂けると嬉しいです。

388:デフォルトの名無しさん
08/01/16 13:26:11
>>387
ん？　というか、既に処理を書いてるんだったら、
VBAで処理してからワークシートに吐いた方が、そりゃ若干早いはずだと思うが。

389:デフォルトの名無しさん
08/01/16 13:46:00
あ、すみません。Bの項目、データは揃っていますが、Aは項目だけで
B100個の項目の一部でAの30個の項目と重複しているものを検索、抽出して
Aの該当する項目のデータとして代入しようとしています。
ワークシートの上でやるのなら、lookup関数をつかえば良いのでしょうが
ワークシートを一切いじらずに配列の内部処理だけで同様な操作を高速に
できないかと悩んでいる次第です。

390:デフォルトの名無しさん
08/01/16 14:21:54
>>389
Dim i, j As Integer
Dim AKey(30), AValue(30), BKey(100), BValue(100)

For i = 0 To 29
　　For j = 0 To 99
　　　　if AKey(i) = BKey(j) Then AValue(i) = BValue(j)
　　Next j
Next i

こういう事かな？
この程度の個数ならワークシートでやってもほぼ一瞬だと思うけど。

391:デフォルトの名無しさん
08/01/16 17:41:03
質問。

セル[A2:C2]に英語・数学・国語の得点が入っている。合計点を計算し、
セル[D2]に入れるマクロを作成しなさい。
また、合計点が270点以上の時には「大変よくできました」、
180～269点のときには「よくできました」、
180点未満のときには「がんばろう」というメッセージをセル[E2]に表示しなさい。

英語の得点は90点
数学の得点は85点
国語の得点は100点　とする。

よろちくね。

392:デフォルトの名無しさん
08/01/16 18:03:29
>>391
それは質問とは言わないような・・・。

Sub Macro()
　Range("D2") = Range("A2") + Range("B2") + Range("C2")

　Select Case Range("D2")
　Case Is >= 270
　　Range("E2") = "大変よくできました"
　Case Is >= 180
　　Range("E2") = "よくできました"
　Case Else
　　Range("E2") = "がんばろう"
　End Select
End Sub

393:デフォルトの名無しさん
08/01/16 19:17:08
デフォルトプロパティの省略はやめましょう
少なくとも他人にコードを渡すときは

394:デフォルトの名無しさん
08/01/16 21:49:52
2007で作ったマクロは何であんなに重くなるんだ。
一旦５．０で保存したら軽くなったんだけどまともに動かなくなるし。
これから2007が標準になっていくのかと思うと憂鬱だ。

395:デフォルトの名無しさん
08/01/16 21:59:19
うちの会社、未だに2000使ってて、GJ!!!
自宅の自前PCも、2000のまま。サポートし続けろよ＞MS

396:デフォルトの名無しさん
08/01/16 22:02:13
Office 2000
メインストリームサポート : 2004 年 6 月 30 日終了
延長サポート期間 : 2004 年 7 月 1 日から 2009 年 7 月 14 日まで
(修正プログラムサポートには最新のサービスパックがインストールされている必要があります)

397:デフォルトの名無しさん
08/01/17 10:00:49
>>390　ありがとうございます。
やりたいことはそういうことなのですが、
その書き方だと要素が膨大になった時は明らかに遅くなると思います。
VBA上で高速に行う書き方などご存知ありませんでしょうか？

398:デフォルトの名無しさん
08/01/17 10:22:24
>>397
アルゴリズム的な話なら､手法はいろいろあるが､｢VBA上で高速に行う書き方｣ではなく
｢VB言語で高速に行う書き方｣になるので､例えExcelでやるとしてもスレ違いだよ >>2★3★4

399:デフォルトの名無しさん
08/01/17 11:14:43
>>397
参照される側(ここではB)をCollectionにすればO(n)なるよ。

Dim i As Integer
Dim AKey(30), AValue(30)
Dim B As New Collection

For i = 0 To 29
　AValue(i) = B.Item(AKey(i))
Next i

400:デフォルトの名無しさん
08/01/17 11:51:13
各都道府県に分けられているデータをdataという名前のシートに集計するプログラムを作成したいです。
簡単に言いますと１つのシートに４７個のシートを入れたいです。
よろしくお願いします

401:デフォルトの名無しさん
08/01/17 12:51:36
>>392 さん
ありがとうございます。

402:デフォルトの名無しさん
08/01/17 20:37:20
>>400

>１つのシートに４７個のシートを入れたいです。

意味不明
１つのブックに47個の県別シートを作りたいという意味なのか？
逆に県別に47個あるシートから1つのdataって言う名前のシートに集計したいってことなのか？
どのセルに何をどういう条件で集計するのかも書いていない。

403:デフォルトの名無しさん
08/01/17 22:54:26
質問です、VBA構造体配列を初期化したいのですがどうすればいいですか？
調べたのですがよくわかりませんでした。

404:デフォルトの名無しさん
08/01/17 23:16:07
初期化用の構造体を作って代入

405:デフォルトの名無しさん
08/01/18 00:46:52
初期化用関数作る

406:デフォルトの名無しさん
08/01/18 01:31:22
403です。
404.405さん以外のやり方を探しているのですがEarseの使い方やZreoMemoryの使い方がわからないです

407:デフォルトの名無しさん
08/01/18 02:43:12
＞Earseの使い方やZreoMemoryの使い方がわからないです
そりゃそうでしょう、そんなものありませんから。

408:デフォルトの名無しさん
08/01/18 08:27:07
>>403
その辺の仕様はVB6と一緒です
つまり>>2★3★4

409:デフォルトの名無しさん
08/01/18 11:59:04
VBAを実行する前に、このブックが共有されているかどうか
調べて、結果を返す方法は無いでしょうか。

410:デフォルトの名無しさん
08/01/18 12:20:06
>>409
Workbook.MultiUserEditing で調べられるけど、これはVBAだからダメってこと？

411:デフォルトの名無しさん
08/01/18 12:25:45
VBA実行してからまたきてね♪

412:デフォルトの名無しさん
08/01/18 12:31:44
ありがとうございます！
いえ、multiuserediting の存在を知りませんでした・・

413:397
08/01/18 14:55:18
>>398,>>399さん、判りました。自分でもまた試してみます。
ありがとうございました。

414:デフォルトの名無しさん
08/01/18 18:11:23
使えねーな

415:デフォルトの名無しさん
08/01/18 19:41:23
Worksheet_Changeで対応できない書式の変更にリアルタイム反応するためユーザーが入力した書式などをリアルタイム監視するプログラムを作成したところ、終了条件の問題に突き当たり処理に悩んでます。

'-----------------------------

Private EndFlg As Boolean

Sub Worksheets_Activate
EndFlg = False
Call 監視処理
End Sub

Sub Worksheets_Deactivate
EndFlg = True
End Sub

Sub 監視処理
Do
（処理）
DoEvents
Loop Until EndFlg = True
End Sub

'------------------------------

このようなものが、ほとんどのワークシートに書いてある状態です。
Loop Until EndFlg = True　の直後にメッセージボックスを設け確認したところ、Worksheet_Activateのあるシートに移動するとその場では終了せず、Activateのないシートに移動した瞬間に終了します。
たとえばActivateのあるシートA、BとActivateのないシートCがある場合
A→C、B→Cは正常な終了が確認できるのですが
A→B、B→Aは終了メッセージが出ません。
A→B→A…を延々繰り返したあとにCを選択すると、終了メッセージがA⇔Bした回数に比例して複数出るため多重起動であると断定できました。

Activateのないシートをはさまずに開放する方法ありませんでしょうか。

416:デフォルトの名無しさん
08/01/18 20:16:17
TextBox1の入力に応じてlistboxの内容を決め、
クリックされた項目とTextBox1の入力を考慮して
TextBox2の内容を決めるということをやろうとしています。
後述のように書こうとしました。

Private Sub TextBox1_Change()
'入力に応じてワークシートからhaniにアドレスを取り出す
以下略
With UserForm1.ListBox1
.ColumnCount = 1
.RowSource = hani.Address
End With
End Sub

Private Sub ListBox1_Click()
'先ほどの入力とリストの結果からテキスト2の内容を決める。
UserForm1.TextBox2.Value =　以下略
End Sub

このようにするとPrivate Sub TextBox1から
Private Sub ListBox1_Click()に受け渡されるのは
haniの内容だけで、それ以外の変数を渡そうとしても
上手くいかず困っています。callの構文を使えば良いのでしょうか？
色々調べてみても判らずどなたかアドヴァイス頂けると嬉しいです。

417:デフォルトの名無しさん
08/01/18 22:25:58
初歩的ですみません。
VBAで、あるセル範囲にある数式の答えを出力するにはどうすればいいんでしょうか？

Range("A1:A5")="b2/2＋b5"みたいにすると数式がそのまま出力されるし・・・

418:デフォルトの名無しさん
08/01/18 22:31:50
>>417
それが初歩的だとわかるぐらいならじゅうぶん中級車さ

419:デフォルトの名無しさん
08/01/18 22:32:42
>>415
ループが入れ子になってると思う。
監視処理を各シートにを書くんじゃなくて、どこか一枚に

Sub 監視処理
　Do
　　if !SheetA.EndFlg(0) = False Then （処理）
　　if !SheetA.EndFlg(1) = False Then （処理）
　　　・・・
　　DoEvents
　Loop Until 監視終了=True
End Sub

とか何とか書いて、実行しておけばいいんじゃないかな？

>>416
言ってる意味がよく判らないけど、
TextBox1_Change()内で使ってる変数を、ListBox1_Click()内でも使いたい、
と言う事なら、グローバル変数でも使えばいいんじゃないの？

>>417
Range("A1:A5") = "=b2/2＋b5"

420:デフォルトの名無しさん
08/01/18 23:11:24
>>415
DoEvents ステートメントは、ウィンドウズメッセージとイベントプロシージャの処理が終わるまで
戻ってこないから、多分、AのDeactivate⇒即座にBのActivateが走ってる状態。
ちょっと構造を見直した方がいいかもね。

421:デフォルトの名無しさん
08/01/19 17:14:35
OS XP、Excel2003

普段は、VBエディタから挿入 → 標準モジュールで
Module** といったファイルを作成してコードを書いています。

このModule** というファイルを自分の好きな名前にするのにはどうしたら良いのでしょうか？

422:デフォルトの名無しさん
08/01/19 17:25:27
右クリックの名前を変更かF2でできたと思う。

423:421
08/01/19 19:16:55
>>422
ご解答ありがとう御座います。
しかし、右クリックしても「名前を変更」が見つかりません。
また、F2ではオブジェクトブラウザという表示になるのですが
名前を変更する方法がわかりません。

分かる方みえましたらお願いします。

424:デフォルトの名無しさん
08/01/19 19:22:37
>>423
プロパティウィンドウ→オブジェクト名を変える

425:デフォルトの名無しさん
08/01/19 19:23:18
>>423
プロパティウィンドウの、（オブジェクト名）を変更すると変わる。

426:416
08/01/19 21:26:44
>>419 ありがとうございます。グローバル変数にしたら解決しました。

また基本的な質問ですみませんが
マクロを起動した瞬間にリストboxに
候補を表示させようとしました

Private Sub UserForm1_initialize()
Set com1_r = Range("A1:A5")
With UserForm1.ListBox2
.ColumnCount = 1
.RowSource = com1_r.Address
End With
End Sub

のように書いても表示されません。
他のPrivate Sub TextBox1_Change()等に
書いた時は表示されるのですが
一体何が誤っているか御指摘頂けませんでしょうか？

427:421
08/01/19 21:29:38
>>424
>>425
教えて頂いた方法で出来ました。
大変ありがとう御座いました。お二人に幸あれ。

428:デフォルトの名無しさん
08/01/19 21:56:53
>>426
そのコードをそのままこちらで実行してみたけど、問題なく動いたよ。
何か別の場所でミスしてるんでは？

例えば、
値を表示させたいリストボックスのオブジェクト名が ListBox2 ではなく ListBox1 だった、とか
代入元のセル A1:A5 の値がマクロ起動時には空白だった、とか。

今一度、確認すべし。

429:質問
08/01/19 22:40:54
Visual Basic Editerの画面で何かの拍子に下記のように
操作パネルが統合されなくなってしまいました。
どうすれば元通りにできるでしょうか？よろしくお願いします！

URLﾘﾝｸ(members.at.infoseek.co.jp)

430:デフォルトの名無しさん
08/01/19 23:08:09
>>428　Private Sub UserForm1_initialize()
だとgeneralになっていたので
Private Sub UserForm_initialize()
に直すとUserFormになって動きました。
作ってるのはUserForm1なのに不思議ですね。
ともかく有難うございました。

431:デフォルトの名無しさん
08/01/19 23:51:21
>>430
画面のコントロール以外（フォーム、クラス等）のイベントプロシージャ名は、
オブジェクト名に影響されないハズなんだけどね。何でだろ？

でも、言われてみれば違和感あるよな。今気づいたｗ

432:429
08/01/19 23:52:15
自己解決しました。
プロジェクトエクスプローラで「ドッキング可能」にしたら直りました。
下記にも載ってました（＾＾）
URLﾘﾝｸ(www2.moug.net)

433:デフォルトの名無しさん
08/01/19 23:52:47
>>429
メニューの、ツール ⇒ オプション ⇒ [ドッキング] タブを確認してみて。

434:デフォルトの名無しさん
08/01/20 00:16:46
>>400
47個あるシートから1つのdataと言う名前のシートに集計したい場合は多分これです。

Sub　test()
　Dim　ws　As　Worksheet
　Dim　r　As　Range
　Dim　rr　As　Range

　With　Worksheets("data")
　　　　　　Set　rr　=　.Range("A1")
　　　　　　For　Each　ws　In　Worksheets
　　　　　　　　　　If　ws.Name　<>　.Name　Then
　　　　　　　　　　　　　Set　r　=　ws.Range("A1").CurrentRegion
　　　　　　　　　　　　　rr.Resize(r.Rows.Count,　r.Columns.Count).Value　=　r.Value
　　　　　　　　　　　　　Set　rr　=　rr.Offset(r.Rows.Count)
　　　　　　　　　　End　If
　　　　　　Next
　End　With
End　Sub

435:デフォルトの名無しさん
08/01/20 00:28:12
>>427
祈われるまでもなく幸ねぇよｗ

>>400
もうちょい詳しく書かないと失礼だぞぅ

436:デフォルトの名無しさん
08/01/20 00:30:46
range変数で格納できる範囲はRange(Cells(1, 1), Cells(5, 4))
のような一枚のワークシート上の範囲だけでなのでしょうか？
1枚目のRange(Cells(1, 1), Cells(5, 4))と2枚目のなんたらのように
別のsheetにわたった範囲の格納などしたい場合はどうすればいいのでしょう

437:デフォルトの名無しさん
08/01/20 00:57:59
>>436
それは無理。　クラスの概念を知らないと分からないかもしれないけど。

別々の変数に持たせるしかないと思う。もちろん、配列やコレクションは使えるはず。

438:デフォルトの名無しさん
08/01/20 20:46:37
Excelの分析ツールを使ってランダムにサンプルを取り出して計算するシート作ったのですが
Application.ScreenUpdating = False
て書いてもサンプル取り出すたびに再計算画面が出てしまいます
画面更新しないようにするにはどうしたらいいですか?

Sub MonteSample()
Dim myMonte As Integer
Dim i As Integer
Dim myMsg As String, myTitle As String
Dim myFun As Range
Dim myAv As Long, myStd As Long, myMax As Long, myMin As Long
Dim n As Long
Dim mysouce As Range
Dim mydat As Range
Dim mydats As Range
myMsg = "計算回数を入力してください"
myTitle = "モンテカルロ・シュミレーション"
myMonte = Application.InputBox(prompt:=myMsg, Title:=myTitle, Default:=30, Type:=1)
If Range("A12") = "" Then
MsgBox "A12のセルから損益のデータを入力してください", vbOKOnly + vbExclamation
End
End If

Range("D12:D1011").Select
Selection.ClearContents
Range("K32:K100").Select
Selection.ClearContents
Range("i32:i33000").Select
Selection.ClearContents

Application.ScreenUpdating = False

439:デフォルトの名無しさん
08/01/20 20:48:04
For i = 1 To myMonte
Range("A12").Activate
Set mydat = ActiveCell.CurrentRegion
Set mydats = mydat.Offset(1, 0).Resize(mydat.Rows.Count - 1, _
mydat.Columns.Count)
Application.Run "ATPVBAEN.XLA!Sample", mydats, _
ActiveSheet.Range("D12:D1011"), "R", 1000, False
Range("I65536").End(xlUp).Offset(1).Select
ActiveCell.Value = Range("E1011")
Range("D12:D1011").Select
Selection.ClearContents
Next i
Range("N4").Value = myMonte
Range("I31").Activate
Set myFun = ActiveCell.CurrentRegion
myFun.Offset(1, 0).Resize(myFun.Rows.Count - 1, _
myFun.Columns.Count).Select
myAv = Application.WorksheetFunction.Average(myFun)
Range("N5").Value = myAv
myStd = Application.WorksheetFunction.StDev(myFun)
Range("N6").Value = myStd
myMin = Application.WorksheetFunction.Min(myFun)
Range("N7").Value = myMin
myMax = Application.WorksheetFunction.Max(myFun)
Range("N8").Value = myMax
Range("K32").Value = myMin
Range("K33").Select

440:デフォルトの名無しさん
08/01/20 20:49:08
For i = 1 To 49
n = ActiveCell.Offset(-1).Value
ActiveCell.Formula = Int((Abs(myMin) + myMax) / 49) + n
ActiveCell.Offset(1).Select
Next i
Range("L32:L81").Select
Selection.FormulaArray = Application.WorksheetFunction.Frequency(myFun, Range("K32:K81"))

Set mysouce = Range("L32:L81")

ActiveSheet.ChartObjects(1).Activate
ActiveChart.SetSourceData Source:=mysouce, PlotBy:=xlColumns

Application.ScreenUpdating = True

End Sub

441:デフォルトの名無しさん
08/01/20 21:03:23

Application.ScreenUpdating = False
Application.ScreenUpdating = True

↓
Application.EnableCalculation = False
Application.EnableCalculation = True

442:デフォルトの名無しさん
08/01/20 21:22:32
>>441
再計算しない場合はそんなのあるのか、ありがとう。
でも、変えてみたけど実行時エラーでてだめだった、
ワークシートで再計算してるから使えないのか
ワークシートの再計算はそのままで画面の更新だけ止めるのはできないのかな

443:441
08/01/20 22:05:30
折れには、試す気もないのでわからない。
続けての回答を待っているといけないから、折れには以後書くことはないと伝えておくよ。

あと、折れが使うのは
Application.EnableEvents = False　（と True）
Application.Visible = False　（と True）

444:デフォルトの名無しさん
08/01/20 22:17:22
>>443
いろいろありがと
新しいこと少し覚えられてよかったｗ
まあ、うまくいかなかったけど趣味で使ってるだけだから
そのうちできるようになると思うのでゆっくりやります

445:デフォルトの名無しさん
08/01/20 23:58:30
>>442
全くためしてないんだが

Application.ScreenUpdating = 画面の更新をするか
Application.EnableCalculation = 再計算してるか

を考えれば幸せになるんじゃね？

俺的には全部コードでやっちゃうがｗ

446:441
08/01/21 01:01:55
>>442での「実行時エラー」ってのが、気になった・・・
application.run関係ぐらいしか実行時エラーが出うる箇所はないように見えた。

もしかしたらだけど、ここが参考になるかも
　URLﾘﾝｸ(www.geocities.jp)

おやすみ

次ページ