●EXCEL・VBA質問スレ Part2●
at TECH
[前50を表示]
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は最新状態にしてます。
最初は起動できるので、実行後の保存の時になんか悪いもんが残ったりしてるのかなぁという感じです。
みなさま、お心当たりあればどうぞご教示ください。
459:デフォルトの名無しさん
07/07/23 23:53:34
そのフォームをいい時と悪いときでエクスポートして比べてみたらいいんじゃ
460:458
07/07/24 00:24:55
エクスポートして比べてみたけど、同じでした。。
461:デフォルトの名無しさん
07/07/24 07:16:30
最小限の再現出来るソースを出せ
462:デフォルトの名無しさん
07/07/25 23:45:28
検索をするプログラムをもっと簡潔にしたいのですが。
いま2次元配列NK_ryuu(1 To 50, 1 To 15)で
NK_ryuu(x.1)にID
NK_ryuu(x.2)に項目A
NK_ryuu(x.3)に項目B
NK_ryuu(x.4)に項目C
と入っていてxは1から50まであります。
ここであるシートの中から項目ABC全部を持っている行を抜き出すのですが、
今は下のようになっていてforとifを2重3重に使っていてちょっと見た目が汚いです。
しかも項目やxが増えた場合に処理がものすごい勢いで重くなりそうです。
もうちょっと賢いやり方ありませんでしょうか？お願いします。
配列honban()に取得した行番号を格納しています。
463:462続き
07/07/25 23:46:08
Sub test()
With ActiveSheet
For x = 1 To 50
For i = 1 To 500
If .Cells(i, 2).Value = NK_ryuu(x, 2) Then
If .Cells(i, 3).Value = NK_ryuu(x, 3) Then
If .Cells(i, 4).Value = NK_ryuu(x, 4) Then
honban(j) = i
End If
End If
End If
Next i
Next x
End With
End Sub
464:デフォルトの名無しさん
07/07/26 08:24:32
すいません、質問をさせてください。
VBAではなく普通の関数なんですが、
3人の1ヶ月の勤務表があるとします。
Ａ Ｂ Ｃ Ｄ Ｅ
1 Ｙさん Ｍさん Ａさん
2 1日 ０ ２ 休
3 2日 ０ 休 休
: ：
31 30日 休 ０ １
とした時、（勤務表の数字は出勤時間を意味しており、0が朝、1が昼、2が夕方から出勤）
Ｅ列にその日の出勤が１人の場合のみ名前を出力するようにしたい場合、
現在は=IF(COUNT(B2:D2)=1,INDEX($B$1:$D$1,1,MATCH(0,B2:D2,0)),"")
と入力しておりますが、
これを一つの関数で行うことはできるのでしょうか？
VLookupの場合テーブルでないとエラーがでるので、
あれば教えていただけないでしょうか。
よろしくお願い致します。
465:464
07/07/26 08:31:02
追記です。
出勤する人が１人の場合は、
必ず勤務は朝からになります。（勤務表には０が入ります。）
466:デフォルトの名無しさん
07/07/26 12:16:14
>>465
>464では何故いけないの?
つーか、「1や2が存在しない」ことと「0の人の名前を得る」ことの
両方を同時に満足するような関数なんてあるわけないじゃん。
467:デフォルトの名無しさん
07/07/27 01:13:41
VBAはいつまで存続するんでしょ
468:デフォルトの名無しさん
07/07/27 01:39:11
>>467
キミが痴呆になるまで
469:デフォルトの名無しさん
07/07/28 10:08:25
エクセルで、
テキストファイルの印刷
を実行する方法を
教えてくれませんか？
pdfと同じようにシェルでやろうとしたらダメでしたorz
470:デフォルトの名無しさん
07/07/28 19:38:44
Private Sub CommandButton1_Click()
For i = 1 To 48
If Cells(1, 1) = Cells(i, 4) Then Cells(1, 2) = Cells(i, 5)
If Cells(3, 1) = Cells(i, 4) Then Cells(3, 2) = Cells(i, 5)
If Cells(5, 1) = Cells(i, 4) Then Cells(5, 2) = Cells(i, 5)
If Cells(7, 1) = Cells(i, 4) Then Cells(7, 2) = Cells(i, 5)
If Cells(9, 1) = Cells(i, 4) Then Cells(9, 2) = Cells(i, 5)
If Cells(11, 1) = Cells(i, 4) Then Cells(11, 2) = Cells(i, 5)
If Cells(13, 1) = Cells(i, 4) Then Cells(13, 2) = Cells(i, 5)
If Cells(15, 1) = Cells(i, 4) Then Cells(15, 2) = Cells(i, 5)
If Cells(17, 1) = Cells(i, 4) Then Cells(17, 2) = Cells(i, 5)
If Cells(19, 1) = Cells(i, 4) Then Cells(19, 2) = Cells(i, 5)
If Cells(21, 1) = Cells(i, 4) Then Cells(21, 2) = Cells(i, 5)
If Cells(23, 1) = Cells(i, 4) Then Cells(23, 2) = Cells(i, 5)
Next
End Sub
セルの値があらかじめ用意しているリストのと一致すると、
特定の文字を入力しようと こういうのを作りました
で、うまくいったのですが、
これだとそれぞれ１つのセルにしか記入できません。
たとえば１列目で、Cells(1, 3)にも何か書きたい場合はどうしたらよいでしょうか？
質問の意味が分かりづらかったらｽﾏｿ
471:デフォルトの名無しさん
07/07/28 19:48:59
For i=1 To 48
For m=1 To 12
j=2*m-1
If Cells(j,1)=Cells(i,4) Then Cells(j,2)=Cells(i,5):Cells(j,3)="何か"
Next
Next
472:デフォルトの名無しさん
07/07/28 19:53:23
>>471
速攻レスありがとうございます。
今仕事中でこっそり送信してるんで、時間ができたらやってみたいと思います。
473:デフォルトの名無しさん
07/07/28 20:18:42
記法とかオブジェクトの基本的な質問がちょくちょく出てくるのを見るに
VBAからプログラミングに入った人はある程度理解出来てきたなと思う頃
初心に返ってヘルプを一通り眺めてみるのが良さそうだね。
ランゲージリファレンスのメソッド・キーワードあたりの意味が一通りわかった時とか、
ウォッチウィンドウの使い方を理解した時涙出そうになったのを思い出した。
チラ裏ｽﾏｿ。
474:デフォルトの名無しさん
07/07/28 20:25:55
>>471
For m = 1 To 12
j = 2 * m - 1
↓
For j = 1 To 23 Step 2
475:デフォルトの名無しさん
07/07/28 21:10:24
470ですが
>>471 >>474氏 ｻﾝｸｽ
今やって見たら解決しました。
:(コロン）を使うというのを初めて知りました。
特に仕事でVBAが必要というわけではないので、１年に一回くらいしか使わないのですが
たまに使うと初歩的なことも忘れてしまいます。
ちなみに競馬のデータ分析に使いましたｗ
１万レース近くあるのでＶＢＡというかマクロというか分からんけど役に立ちます。
476:デフォルトの名無しさん
07/07/29 00:26:53
>>473
割と共感した
477:デフォルトの名無しさん
07/07/29 23:01:37 0
０～１１までの数字をランダムに、かつかぶらないように代入したいんですが
以下のコードだと数字が代入されない場合があるんです。何が原因なんでしょう・・
___＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
n1k = Int(Rnd * 12)
Do
n2 = Int(Rnd * 12)
Select Case n2
Case n1k
Case Else
n2k = n2
End Select
Loop Until n2k = n2
Do
n3 = Int(Rnd * 12)
Select Case n3
Case n1k
Case n2k
Case Else
n3k = n3
End Select
Loop Until n3k = n3
478:デフォルトの名無しさん
07/07/29 23:09:29 0
書ききれないので・・実際はn8kまであります。
479:デフォルトの名無しさん
07/07/29 23:29:12 0
Empty = 0がTrueになるから。
その冗長的なコーディングにはやむを得ない事情があるの？
あと抜粋でもせめて宣言部は書こうよ。
480:デフォルトの名無しさん
07/07/29 23:37:30 0
n*kが数値型変数やVariant型変数の場合
Int(Rnd * 12)の結果が0ならCase Elseでの代入を行わなくても｢n*k = n*｣がTrueになるからでは？
そういうのは配列に順に数値を代入してからランダムソートするといいよ
というか､そうするのが普通だろ
481:デフォルトの名無しさん
07/07/29 23:51:51 0
{0,1,2,3,4,5,6,7,8,9,10,11}
{0,1,2,3,4,5,7,8,9,10,11}
{0,2,3,4,5,7,8,9,10,11}
{0,2,3,4,5,7,8,9,11}
こういうイメージで配列を操作せよ
482:デフォルトの名無しさん
07/07/29 23:51:52 0
>>480
>>477に便乗で悪いんだけど、
０～１１までの数字をランダムに、かつかぶらないように代入したい
て時に俺は
Dim RndNum As Long
Dim NumCnt As Integer
'抜き出す数字の個数
NumCnt = 3
Set Dic = CreateObject("Scripting.Dictionary")
RndNum = Int(Rnd * 12)
Dic.Add RndNum, RndNum
Do While Dic.Count < NumCnt
RndNum = Int(Rnd * 12)
If Not Dic.Exists(RndNum) Then
Dic.Add RndNum, RndNum
End If
Loop
みたいなやりかたするんだけどダメ？
483:デフォルトの名無しさん
07/07/30 00:40:48
ダメではないけどDictionaryなんて使う必要ない
484:482
07/07/30 01:43:37
>>483
そか。
ちとランダムソートについて調べてみるよ
レスさんくす
485:デフォルトの名無しさん
07/07/30 02:31:58
全然詳しくないので質問させてください。
いつも仕事中にWebばかり見てる派遣クンが
「VBAがプログラムどおりに動かない原因を調べるのは僕の仕事ではありません。」
と言っています。
彼のVBAプログラムが動かないのを調べるのは誰の仕事でしょうか？
486:デフォルトの名無しさん
07/07/30 02:39:18
プログラムが失敗作と確定してるのだったら
そういうやつは辞めてもらえ
487:デフォルトの名無しさん
07/07/30 03:17:02
>>485
契約内容に因る
派遣ではなく業務請負なら間違いなくそれも彼の仕事のうちだけどね
一般的にはその派遣クンが悪いように見る人が多いかも知れないけど
契約内容によっては正しいことを言ってるかも知れない
それとこの質問において｢Webばかり見てる｣なんて情報は全く持って不要
彼の印象をなるべく悪くしようとしているようで浅ましい限りだ
488:デフォルトの名無しさん
07/07/30 10:34:02
vba おすすめ参考書は？
489:デフォルトの名無しさん
07/07/30 19:54:34
参考書とは言えないかもしれんが 「Excel VBA 実用サンプルコレクション」
異常にオブジェクト偏重なサンプル集だけどこの考え方は持っておくべきだと思う。
完全な入門ならちょっと敷居が高すぎるだろうけどね。
>>485って日本語の問題？動く物を作れで終了なんじゃw
490:デフォルトの名無しさん
07/07/30 19:59:21
セル範囲を画像化して保存する方法はありますでしょうか？
491:デフォルトの名無しさん
07/07/30 20:29:53
あるよ
492:デフォルトの名無しさん
07/07/30 22:57:49
素人な聞き方でｽﾏｿ
たとえば、
セルD1に「=A1&B1&C1」と入力したら「あいう」と表示されるとします。
（A1, B1, C1 にそれぞれ、あ、い、う が入っている）
セルD1 をセルD2に、paste spacial → values（＊英語エクセルです）で
コピペしたら、セルD2には「あいう」というテキストが入ります。
このpaste spacial → values の作業を省略できるような関数があったら教えてください。
例えば、A1の値を「わ」に変えるだけで、自動的に 「わいう」というテキストの入ったセルを
ゲットできるようにしたいのです。
493:デフォルトの名無しさん
07/07/30 23:07:07
質問させてください。
UserForm上にComboBoxを配置して
Initializeで初期値とRowsourseによってリストを与えるようにしています。
ComboBoxのリストを開くと最初は一番上のリストの値から順に表示され、
一度リストから値を選択してComboBoxに入れ、
再度リストを開くとその値があらかじめ選択されており、
その値の前後が表示されるようになってます。
（ 1 ～12月がリストにあり、5月を選び再度リストを開くと 5月が選択された状態で
リストをスクロールせずとも 3～ 7月の値が選択可能な範囲にある
ような状態です。）
最初からComboBoxの初期値の付近のリストを表示させるようにしたいのですが、
方法はありますでしょうか？
説明が不十分で分かりにくいかと思いますが、宜しくお願いします。
494:492
07/07/30 23:19:05
自己解決しそうです。
PASTE.SPECIAL 関数っていうのがあるみたいですね。
でも手元にある 2003 のエクセルにはないみたいですが・・・
調べてみます。
495:492
07/07/30 23:27:31
やっぱり分からなかった。
たぶんマクロでやるんですかね。素人レベルには難しいことならば諦めます。
496:デフォルトの名無しさん
07/07/30 23:28:20
Private Sub UserForm_Initialize()
ComboBox1.Value = "5月"
End Sub
497:デフォルトの名無しさん
07/07/30 23:30:30
>>496
ただ単にValueで値を持たせてもできないのですが・・
498:デフォルトの名無しさん
07/07/30 23:31:24
>>492
d2に=d1じゃだめなん？
499:デフォルトの名無しさん
07/07/30 23:34:48
>>497
五月になってない？
500:デフォルトの名無しさん
07/07/30 23:43:09
>>499
正確には1～12の値のみで初期値に5を入れて
ComboBoxの値は5になっている状態でリストを見ても
1(リストの一番上の値)から5くらいまでが表示された状態になってます。
要は値は入っていてもリスト上は何も選択されていない状態です
501:デフォルトの名無しさん
07/07/30 23:45:30
>>500
それは値は入っていても値は入っていない状態だからお手上げだな
502:デフォルトの名無しさん
07/07/30 23:55:44
>>501
お手上げですか
なにか手はないものでしょうか・・
503:デフォルトの名無しさん
07/07/31 00:03:14
>>498
はい。
家計簿を作ってるんですが、
1～12月までの費目別合計の推移を DSUM 関数で出しています。
=DSUM('1'!A:H,'1'!F1,分類!A1:A2) ←１月
=DSUM('2'!A:H,'2'!F1,分類!A1:A2) ←2月
=DSUM('3'!A:H,'3'!F1,分類!A1:A2) ←3月
（以下12月までつづく）
>>492 の例に当てはめると、セルD1に
=DSUM('1'!A:H,'1'!F1,分類!A1:A2)
と表示されています。
この数式を使えるようにするために、paste spacial → values の作業をしています。
「A1:A2」の部分だけを何度も変更できるように、
セルD1は複数のセルを＆でつないでおり、「A1:A2」の位置には特定のセルを指定し、
そのセルに好きなセル範囲を書くだけでいいようにしています。
504:デフォルトの名無しさん
07/07/31 00:16:55
>>502
Private Sub UserForm_Activate()
Me.ComboBox1.DropDown
Me.ComboBox1.Value = 5
End Sub
こうゆうこと？
505:503
07/07/31 00:51:56
当初考えていたやり方じゃないけど解決しました。
有難う御座いました。
506:デフォルトの名無しさん
07/08/01 13:38:16
Excelからメールを送ろうとCDOで組んだのですが宛先があっていれば普通に送れるのですが、アドレスが間違っていて存在しないアドレスに送っていてもエラーが帰ってきません。
このエラーを得る方法はありますか？
507:デフォルトの名無しさん
07/08/01 18:43:08
あります
でもExcelの話じゃないので､ここでは聞かないでね
508:デフォルトの名無しさん
07/08/01 19:06:24
CSVをADOの「Driver={Microsoft Text Driver (*.txt; *.csv)};DBQ=～」で扱うのは
office2000以上だと標準で利用できますか？
参照設定の設定も不要でいいんでしょうか？
509:デフォルトの名無しさん
07/08/01 19:07:12
当然参照設定は必要
510:デフォルトの名無しさん
07/08/01 19:15:24
>>509
マジ？なんも設定しなくても使えたんだけど・・・
ちなみに何を設定すればいいんですか？
511:デフォルトの名無しさん
07/08/01 19:18:37
もしかしてCreateObjectで参照してる？
512:デフォルトの名無しさん
07/08/01 19:28:25
Private Sub CommandButton1_Click()
Set rs = CreateObject("ADODB.Recordset")
Con = ""
Con = Con & "Driver={Microsoft Text Driver (*.txt; *.csv)};"
Con = Con & "DBQ=C:\Documents and Settings\Administrator\デスクトップ\新しいフォルダ;"
strSQL = "select * from test.csv"
rs.Open strSQL, Con, 0 '0=adOpenForwardOnly
cols = rs.Fields.Count
Do Until rs.EOF
Line = ""
For i = 0 To cols - 1
Line = Line & rs(i) & vbTab
Next
Debug.Print Line
rs.MoveNext
Loop
End Sub
513:デフォルトの名無しさん
07/08/01 19:29:32
こんなん書いて 今家でも試したけど出来た
CreateObjectだね
CreateObjectだと参照設定しなくても出来るということでおｋ？
514:デフォルトの名無しさん
07/08/01 20:05:43
>>506
URLﾘﾝｸ(www.asahi-net.or.jp)
ググったら見つけました
515:デフォルトの名無しさん
07/08/01 22:14:09
エクセルを開こうとするといきなりインストールしだしてエラー表示がでました。
プロパティを開いてプログラムを見ると不明なアプリケーションとなっております。
これは何故でしょう？
またこれを解決する方法はどうすればいいのでしょうか？
516:デフォルトの名無しさん
07/08/01 22:17:30
>>513
そうだよ。それが遅延バインディング。
欠点として、参照設定してきちんと型を指定して使う早期バインディングより
速度が遅いと、確かヘルプに書かれているはず。
517:デフォルトの名無しさん
07/08/01 22:18:02
初心者です。
if,do,for等の分岐式や繰り返しコードを使うと必ずバグが出ます。
バグが出ないように皆さん何か心がけている事ってありますか？
518:デフォルトの名無しさん
07/08/01 22:21:59
参照設定しないと遅いのもあるけど、コーディングしにくくない？
519:デフォルトの名無しさん
07/08/01 22:55:03
参照設定ってexcelファイルにするの？
ｅｘｃｅｌ環境にするの？
520:デフォルトの名無しさん
07/08/01 23:05:13
ブック単位だな。
ちなみに、普通のVBだとプロジェクト単位。
521:デフォルトの名無しさん
07/08/01 23:47:31
>>515
VBA関係ねえ
522:デフォルトの名無しさん
07/08/01 23:53:15
>>520
㌧
523:デフォルトの名無しさん
07/08/02 07:40:47
ADOで
csvテーブル（Microsoft Text Driver接続）と
Excelシートテーブル（Microsoft Excel Drive？接続）の
SQLでの連結ってできる？
次ページ最新レス表示スレッドの検索類似スレ一覧話題のニュースおまかせリスト▼オプションを表示暇つぶし2ch
4208日前に更新/289 KB
担当:undef