トップページ⇒tech
1001コメント371KB

Excel VBA 質問スレ Part14

■ このスレッドは過去ログ倉庫に格納されています
0001デフォルトの名無しさん2010/01/06(水) 12:34:58
過去スレ
01 http://pc11.2ch.net/test/read.cgi/tech/1054356121/
02 http://pc11.2ch.net/test/read.cgi/tech/1168308855/
03 http://pc11.2ch.net/test/read.cgi/tech/1180192018/
04 http://pc11.2ch.net/test/read.cgi/tech/1189814602/
05 http://pc11.2ch.net/test/read.cgi/tech/1197448064/
06 http://pc11.2ch.net/test/read.cgi/tech/1205231499/
07 http://pc11.2ch.net/test/read.cgi/tech/1212587819/
08 http://pc11.2ch.net/test/read.cgi/tech/1219673793/
09 http://pc11.2ch.net/test/read.cgi/tech/1228372971/
10 http://pc12.2ch.net/test/read.cgi/tech/1235332603/
11 http://pc12.2ch.net/test/read.cgi/tech/1241885130/
12 http://pc12.2ch.net/test/read.cgi/tech/1247566074/
13 http://pc12.2ch.net/test/read.cgi/tech/1254281104/
05585572010/03/14(日) 12:23:52
自己解決しました
0559デフォルトの名無しさん2010/03/14(日) 16:11:54
NO　品名　　価格　数量　金額
１　　りんご　１００　　３　　３００
・・・

という連続したデータを

NO　　１　・・・
品名　りんご
産地　
数量　３　・・・・

というふうに転記させる方法を教えてください。
転記先のフィールドは、元のフィールド名のものがない場合もあり、
逆に元のフィールドに無いものが転記先にあったりします。
また、転記元や転記先のフィールドの順番は、入れ替わる場合があります。
うまいやり方がありましたら教えてください。
0560デフォルトの名無しさん2010/03/14(日) 17:34:39
>>559
どうかな。

１行目に作業用の空白行を追加する。

転記元の左端から1セルずつ値を読み、右に移動するループ（セルが空白になるまで）
　転記先の上端から1セルずつ値を読み、下に移動するループ
　　if転記元の値と転記先の値が同じならば
　　　作業用の行に転記先のセル位置を記入

（ここまでで転記先のセル位置を取得）
Ａ１　Ａ２　　　　　　　Ａ４
NO　品名　　価格　数量　金額
１　　りんご　１００　　３　　３００

あとは転記元のデータを1行ずつ処理。
0561デフォルトの名無しさん2010/03/14(日) 17:39:05
>>559
新しいほうのデータの１レコード分の配列を用意する
古いほうのデーターから該当する配列の位置に読み込む
新しいデータへ配列から書き出す
以後レコード分繰り返し
0562デフォルトの名無しさん2010/03/14(日) 18:22:14
別のシートにセルを一個ずつコピーしていけばいいのでは
0563デフォルトの名無しさん2010/03/14(日) 18:48:01
おれだったらVLOOKUPでぱぱっと片付ける
05644802010/03/14(日) 22:45:10
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
0565デフォルトの名無しさん2010/03/15(月) 14:15:40
Excel2007
Workbooks.Add
で新規にワークブックを作成する際に
オプション→数式で自動になるように作成することってできませんか？
今の状態は手動になっています。
05665652010/03/15(月) 18:09:02
自己解決？
元のプログラムが入っているブックのオプションが手動になっていたので自動に変えたら
新しくできたブックも自動になってました。

なんか、自分自身をコピーして作ってるみたいな？（よく判りませんが w
0567デフォルトの名無しさん2010/03/16(火) 11:39:35
WinXP Excel2003

Sub Input_Date(ByVal iDay As String)
ActiveCell.Value = CStr(iYear) _
& "/" & CStr(SpinButton1.Value) & "/" + iDay
ActiveCell.NumberFormatLocal = ComboBox1.Value
End Sub

いまのままだと何処のセルにも入力するようになっています。
指定したセルにのみ入力するよう変更したいのですが、どこを直せば良いでしょうか？
0568デフォルトの名無しさん2010/03/16(火) 12:59:16
>>567
ActiveCell
0569デフォルトの名無しさん2010/03/16(火) 16:40:50
VBAで、「どこぞのプロシージャ内で」、「別のプロシージャやイベントを設定・修正」するって出来る？
例えばBook/Formのロード時のイベントプロシージャで、
　btn_test_1
　btn_test_2
　　　…
　btn_test_10
…って感じのボタン10個について、forで回してそれぞれのClickイベントに同一の処理を上書きさせる、とか。
それともクラスモジュール作って〜な やり方しか無いのだろうか？
わかり辛い書き方でごめん。
0570デフォルトの名無しさん2010/03/16(火) 17:54:28
2003、ＸＰです。
株のシストレの計算をやらせるのに、ブック2枚を頻繁に行ったり来たりさせるようなモジュールはやはり相当遅くなるのでしょうか？

Ａ：計算する元の四本値データだけ入ったブック。(シートが35枚あって、それだけで既に80ＭＢのサイズ)
Ｂ：Ａから計算結果だけを出力させるブック。

一枚に詰め込むべきか、複数枚に分けて管理すべきか・・・
0571デフォルトの名無しさん2010/03/16(火) 18:11:19
>>570
単にデータを読み書きするだけなら大して遅くはならない。
いちいちSelectとかActivateとかやっちゃうと遅くなるんで、そうしないように注意してプログラムを作ればいい。
あとは、オブジェクト型変数とかWith句をできるだけ活用すること。
計算中は余分なイベントを止めるのもそこそこ効果がある。
0572デフォルトの名無しさん2010/03/16(火) 18:14:14
>>569
質問の1行目だけ見ると答えはNO。
だけどたぶん、別の方法でできることをわかってないだけの気がする。
0573デフォルトの名無しさん2010/03/16(火) 18:38:49
VBAでFX自動売買ソフトを作る事って可能でしょうか？

やりたい事

・業者orヤフー等からのレート取得
・発注機能

こんな感じです
0574デフォルトの名無しさん2010/03/16(火) 18:42:34
可能です
0575デフォルトの名無しさん2010/03/16(火) 18:46:01
是非作ってみたい
もしくはどなたかに作成していただきたいです

MT4だと業者に対応していないので・・
0576デフォルトの名無しさん2010/03/16(火) 19:00:54
プログラムもわからんのにそんな事言っててもどうしようもないと思うが
んで、誰がただでやるわけｗｗ？
0577デフォルトの名無しさん2010/03/16(火) 20:13:48
>>570
株価データの保存はDBに任せて、Excelは計算に専念させた方がスッキリすると思うけどね
0578デフォルトの名無しさん2010/03/16(火) 20:17:59
Cells(1, 2) = Cells(1, 1)
というマクロを作ったのですが、Cells(1,1)の文字数が多すぎると
#VALUE!
というエラーが出てしまいます。
Cells(1, 1)の値を他のセルにコピーするにはどうすればいいのでしょうか。
0579デフォルトの名無しさん2010/03/16(火) 20:27:13
まずは仕様書を書いてね
そしたら見積もり出すから
0580デフォルトの名無しさん2010/03/16(火) 20:28:36
>>578
そのエラーは文字列の長さとは直接は関係ありません。
まずB列の幅を広げて、セルB1の書式を確認してください。
0581デフォルトの名無しさん2010/03/16(火) 20:58:02
>>578
当方の環境下では
Cells(1, 2) = Cells(1, 1)
だと 半角256文字以上で#VALUE! になるね

Cells(1, 2).Value = Cells(1, 1).Value
だと大丈夫みたい　なぜかしらんけど

つか.Valueを付けるのが本来の使い方なんだけどね
0582デフォルトの名無しさん2010/03/16(火) 21:29:59
>>570
ADOつかてSQL書けよ
0583デフォルトの名無しさん2010/03/16(火) 22:30:23
>>581
XP、2003だけど下記コードでエラー出ない。
なんでだろ？

Sub test()
Cells(1, 1) = String(257, "あ")
Cells(1, 2) = Cells(1, 1)
End Sub

↑どっかおかしい？
0584デフォルトの名無しさん2010/03/17(水) 01:39:38
>>583
これでやったら912文字のところでエラーになった
Sub test()
　　For r = 1 To 1000
　　　　Cells(r, 1) = String(r, "あ")
　　　　Cells(r, 2) = Cells(r, 1)
　　Next
End Sub
0585デフォルトの名無しさん2010/03/17(水) 01:51:17
>>575
50万くらい出す気あるなら話聞いても良いよ。
0586デフォルトの名無しさん2010/03/17(水) 02:10:47
>>584
Sub celltest()
Cells(1, 1) = String(910, "あ")
Cells(1, 2) = Cells(1, 1)
End Sub

910文字まではOKってことだな。
>>578と>>581はどういう現象なんだろ？バージョンの問題かな？
0587デフォルトの名無しさん2010/03/17(水) 03:01:12
いや、911文字までOK。
ていうか、みんなOSとExcelのバージョンぐらい書こうよ。
うちはXPと2003。

ちなみにVBAを使わずにセルに直接入力した場合は1セル32767文字まで入る。
ttp://office.microsoft.com/ja-jp/excel/HP051992911041.aspx
0588デフォルトの名無しさん2010/03/17(水) 03:15:21
>>587
ん？
>>584だと911行目でエラーが発生してるから
911文字はエラー、910文字まではOKってことじゃないの？
OSとバージョンが同じだから、やっぱりバージョンの問題なんだろうな。
0589デフォルトの名無しさん2010/03/17(水) 03:22:49
doudemoii
0590デフォルトの名無しさん2010/03/17(水) 12:25:45
どうでもよくない。
>>578と>>581の状況が再現できないと回答もできないし、
自分が同じトラブルに遭う可能性だってあるわけだから解決できないと気持ちが悪い。
0591デフォルトの名無しさん2010/03/17(水) 12:47:26
>>589
だんだん話しについていけなくなっちゃったんだろうなｗ
0592デフォルトの名無しさん2010/03/17(水) 14:51:07
気持ち悪いから>>578早く戻って来い！
0593デフォルトの名無しさん2010/03/17(水) 16:29:57
>>581で再現できてんじゃん
0594デフォルトの名無しさん2010/03/17(水) 17:26:31
で、解決方法は？
0595デフォルトの名無しさん2010/03/17(水) 17:31:37
再現できないとか言ってるから、再現できてると言ったまで。
>>581によれば、Value付ければいいんじゃないの？
0596デフォルトの名無しさん2010/03/17(水) 17:47:44
>>594
Cells(1, 2) = Cells(1, 1).Valueにすればいい。
Cells(1, 2) = Cells(1, 1)と何が違うのかは知らん。
0597デフォルトの名無しさん2010/03/17(水) 17:53:15
解決できないから気持ちが悪いんじゃなくて、解決できてるけど仕組みがわからなくて
気持ちが悪いんじゃないの？
0598デフォルトの名無しさん2010/03/17(水) 18:11:26
初歩的な質問ですんません

セルに直接入力せずに三角形みたいなのをクリック（セルをクリックすると現れる三角形）すると
あらかじめ設定してた項目を取り出せるあの機能はなんて名前でしったけ？
またその設定はどこでやればいいですか？
お願いします。vista使いです
0599デフォルトの名無しさん2010/03/17(水) 18:16:36
>>598
ひょっとして、これのことか？

Excel講座 > セルをコンボボックスにする
http://www.serpress.co.jp/excel/no004.html
0600デフォルトの名無しさん2010/03/17(水) 18:35:25
うちだと910文字超えないとエラーにならないのに、
どうして>>581は256文字でエラーになるの？
もうちょっと再現の条件とか手順をkwsk
0601デフォルトの名無しさん2010/03/17(水) 18:45:27
>>599
そうそうそれそれ
どうもすんません
0602デフォルトの名無しさん2010/03/17(水) 19:41:37
>>598
セルにコンボボックスを仕込むより入力フォームを作って
ボタンぼんでシートに値がコピーされるように作った方がいいと思うが。
0603デフォルトの名無しさん2010/03/17(水) 20:40:45
テスト
0604デフォルトの名無しさん2010/03/17(水) 22:04:36
Excel2007
ブックを新たに作成するときにシートの枚数を3枚とか指定することは出来ないのでしょうか？
0605デフォルトの名無しさん2010/03/17(水) 22:19:57
テンプレートで
0606デフォルトの名無しさん2010/03/17(水) 22:20:48
>>604
Application.SheetsInNewWorkbook = 3
こういうこと？
0607デフォルトの名無しさん2010/03/17(水) 22:23:33
あ？テンプレの話？
2003だと
ツール→オプション→全般→新しいブックのシート数
で設定できる。2007はわからん。
0608デフォルトの名無しさん2010/03/17(水) 22:28:37
>>606
それです。ありがとう
テンプレートは？状態ですけどw
0609デフォルトの名無しさん2010/03/17(水) 22:30:49
>>608
とりあえずググれよ。（もう見てないだろうが・・・）
0610デフォルトの名無しさん2010/03/18(木) 06:32:14
>>600
どうしてExcelのバージョンすら明記しないのか不思議。馬鹿？
0611デフォルトの名無しさん2010/03/18(木) 13:18:25
>>610
話の流れからすると910文字までいけるのは、XPで2003だって二人が書いてるぞ。
バージョン明記してないのは質問者と>>581の解答者だ。

それはそうと、これだと10000行までいけるなｗ
Sub test()
　For r = 1 To 10000
　　Cells(r, 1).Value = String(r, "あ")
　　Cells(r, 2).Value = Cells(r, 1).Value
　Next
End Sub
06126112010/03/18(木) 13:44:40
おっと、>>611はXPで2003だ。
ちなみに、Win7の2007でも検証してみた。
　・Valueあり→10000行までいけた
　・Valueなし→8203行目でエラー
という結果。2007だとValueなしでもこんなにいけるんだなｗ
ってことは、質問者のバージョンは2002以前とエスパーしてみる。
それにしても、2007のVBEどっから起動するのかわからなくてビビったｗ
0613デフォルトの名無しさん2010/03/18(木) 15:21:35
>>611-612
>>600の「うち」の環境を書けと言ってるんだ、馬鹿。
じゃなければ、第三者が全体を把握できないだろ。
0614デフォルトの名無しさん2010/03/18(木) 15:41:08
>>611-612
Value付ければいいって結論が出てるのに、いつまで何やってんの？
0615デフォルトの名無しさん2010/03/18(木) 16:06:15
>>613
>>600は、910文字超えないとエラーにならないって書いてあるから
流れから2003だってわかると思うが？
流れを読まなくてもわかるように、レス内に明記するのがネチケット（笑）ということなら、
まぁ、そういうことなんだろうｗ

>>614
Valueは単純に“省略可能なもの”と認識してたんだが、
今回のケースで言うと、場合によっては省略してはいけないってことか？
すまん、素人にもわかるように説明してくれ。
0616デフォルトの名無しさん2010/03/18(木) 16:13:20
>>615
とことんアホだな。

仮にExcel 2003が911文字目からエラーになるということだとしても、
911文字からエラーになるからといってそれがExcel 2003とは限らないだろ。
高卒文系なのか？

何かを明らかにしたくてその話題に参加し、なおかつ相手に再現の手順を求めるのなら、
まず自分の情報を出せっつーこった。

> すまん、素人にもわかるように説明してくれ。

知るかアホ。
このスレは素人の好奇心を満足させるスレじゃねーよ。
0617デフォルトの名無しさん2010/03/18(木) 16:19:38
>>611
ド素人はこれだから困る。
セルに設定出来る最大文字数はヘルプにちゃんと書かれてる。
ヘルプ見ろ。
0618デフォルトの名無しさん2010/03/18(木) 16:24:40
エクセルVBAに詳しい人教えてください！
http://yutori.2ch.net/test/read.cgi/morningcoffee/1268888151/
0619デフォルトの名無しさん2010/03/18(木) 16:32:09
いつまでやってんだよ……
0620デフォルトの名無しさん2010/03/18(木) 16:32:10
>>616-617
論点がずれてますよ。
人のことを馬鹿とかアホとか高卒文系とかド素人とか言ってるけど、
話の内容を理解できていないのは、あなたの方ですね。
何かを明らかにしたくないなら、あなたはこの話題に参加しなくてもいいと思います。
0621デフォルトの名無しさん2010/03/18(木) 16:37:10
ずらしてんのはお前の方だ馬鹿。

これになんかコメントしてみろ、アホ。
> 仮にExcel 2003が911文字目からエラーになるということだとしても、
> 911文字からエラーになるからといってそれがExcel 2003とは限らないだろ。
> 高卒文系なのか？
0622デフォルトの名無しさん2010/03/18(木) 16:38:03
>>618
ソース見てボタンの名前調べればいいんじゃないの？
そんな単純なことじゃなくて？
0623デフォルトの名無しさん2010/03/18(木) 16:38:50
・Valueを付ければ問題ない
・Excelの仕様上、何文字まで設定出来るかはヘルプに書かれている

これ以上、何を知りたいの？
0624デフォルトの名無しさん2010/03/18(木) 16:41:05
話の流れからするとｗ、>>600=>>611じゃねーの？
馬鹿と言われて悔しかったのかな？
0625デフォルトの名無しさん2010/03/18(木) 16:41:30
>>621
http://hideyoshi.2ch.net/test/read.cgi/mental/1266008088/l50
とりあえず筋トレでもしてみたら？
0626デフォルトの名無しさん2010/03/18(木) 16:45:40
おまいらいつまでやってんだｗｗｗｗｗｗｗｗｗｗｗｗ
0627デフォルトの名無しさん2010/03/18(木) 16:50:36
>>625
反論不能か、高卒文系のド素人が。
もう黙っとけ。
0628デフォルトの名無しさん2010/03/18(木) 16:57:30
VBAからGroovyのプログラムを呼びたいんですが、何か方法はありますか？
Groovyに限らず、VBAから他の言語のプログラムを呼んで、返り値を使用する
ことってできるんですかね？
0629デフォルトの名無しさん2010/03/18(木) 16:58:28
一つのセルには200文字も必要ねーな。
50文字でも十分じゃね？
数式厨には足りないかも知らんけどｗ
超長ーい数式を得意としてるやつもいるからな。
0630デフォルトの名無しさん2010/03/18(木) 17:05:02
>>621
必死ですね。コメントを求められているのでレスしますね。
その事象が起きるからといって、Excel2003だという証明は私には出来ません。
学歴も聞かれてますね。おっしゃる通り文系ですが大卒です。
これでよろしいでしょうか？
0631デフォルトの名無しさん2010/03/18(木) 17:06:40
だよな。表計算ソフトなんだから50文字でも多いぐらいだ。
0632デフォルトの名無しさん2010/03/18(木) 17:09:01
超長〜い数式は勘弁してほしいｗ
0633デフォルトの名無しさん2010/03/18(木) 17:18:44
超長ーい数式とか配列数式とかSUMPRODUCTのフィルコピーが大好きなやつはほとんどアホばかり。
VBAで言えば変数使わないで何度も同じ値を取得してるようなもんだ罠。
数式でやるならVBAの変数に相当する作業セルを使えってこった。
0634デフォルトの名無しさん2010/03/18(木) 17:22:44
>>623
もういい加減アホとか言うのやめれ。
0635デフォルトの名無しさん2010/03/18(木) 17:25:04
ん？俺のことかな
すまん、今度からヴァカと書くことにするわ。
0636デフォルトの名無しさん2010/03/18(木) 17:27:44
>>630
証明できるかどうかなんて聞いてないんだよ。

>>615
> 流れから2003だってわかると思うが？
わかると思ってるなら、それは馬鹿ゆえだってことだ。

横からノイズ増やしといて、俺の知りたいことだけお前ら教えろとかいう奴はいらないんだよ。
わかった？
0637デフォルトの名無しさん2010/03/18(木) 17:31:39
ふぁいと！
俺は50文字でも十分すぐるから興味ナス
0638デフォルトの名無しさん2010/03/18(木) 17:32:35
>>630
お前も必死だよwww
0639デフォルトの名無しさん2010/03/18(木) 17:34:53
大卒文系って、裏・逆・対偶レベルの論理学も理解できないの？
今はやりのゆとりって奴？
0640デフォルトの名無しさん2010/03/18(木) 17:36:20
まぁ餅つけ
50文字でも十分ということで糸冬了
0641デフォルトの名無しさん2010/03/18(木) 17:39:24
まぁ、セルに表示できないような文字数を設定するというのは、基本的な使い方では
ないわけだから、自分がそのような処理を実装しなければならなくなったときに、
ターゲットとなるExcelの仕様上の制限を調べ、テストを十分にやれば良い。
0642デフォルトの名無しさん2010/03/18(木) 17:41:21
必要条件と十分条件を良くわかってない馬鹿SEのことを思い出した。
0643デフォルトの名無しさん2010/03/18(木) 17:43:09
CellsのデフォルトプロパティがValueじゃないってことじゃないかと思うけど、
調べるつもり無し。
0644デフォルトの名無しさん2010/03/18(木) 17:51:55
Cells(2, 1) = Cells(1, 1)
でエラーが発生するとき、
Range("B1") = Range("A1")
でもエラーが発生するね。
何故なのかはそれほど知りたくないけど、RangeのデフォルトプロパティはValueだって
思ってたので、ちょっとキモチワルイ。

やっぱり
Range("B1") = Range("A1").Value
と書くと動く。
まぁ、デフォルトプロパティは使うなってことかな。
0645デフォルトの名無しさん2010/03/18(木) 17:52:57
スレが伸びてると思ったら一人で暴れてるようだな。
文体でバレバレだｗ
0646デフォルトの名無しさん2010/03/18(木) 17:57:50
>>644
セルの文字数についてはバージョンによる違いだってわかるけど、
Valueの省略については色々調べてもわからなくて、昨日からずっと気持ち悪い。
納得できる答えをくれる神は降臨しないかと待ってるんだけど
スレ覗く度に荒れる一方で（ry
0647デフォルトの名無しさん2010/03/18(木) 18:22:47
>>646
納得できる答えが見つかっても、安全側に倒してデフォルトプロパティに頼らない
コードを書くしかないという状況は変わらないよ。
0648デフォルトの名無しさん2010/03/18(木) 18:24:50
>>645
バレバレｗ
0649デフォルトの名無しさん2010/03/18(木) 18:29:42
まぁどっちもひといが、この板的にはこれが一番ひどい。

>>611
>それはそうと、これだと10000行までいけるなｗ
0650デフォルトの名無しさん2010/03/18(木) 18:38:10
例えば

Sub test()
MsgBox TypeName(Range("A1").Value)
MsgBox TypeName(Range("A1"))
End Sub

とやると
Empty
Range
となる
0651デフォルトの名無しさん2010/03/18(木) 19:46:05
>>650
だから？
0652デフォルトの名無しさん2010/03/18(木) 19:54:40
>>611にガン擁護された>>600は、どのような登場の仕方をするのであろうか。
0653デフォルトの名無しさん2010/03/18(木) 20:44:22
>>623
256文字でエラーになるExcelのバージョン
0654デフォルトの名無しさん2010/03/18(木) 23:07:40
>>653
え！？それかよっ！！ｗｗｗ
0655デフォルトの名無しさん2010/03/18(木) 23:27:05
>>653
うち Excel2003(XP) と Excel97(Win98)あるんだけど
Excel97(Win98) だと256文字でエラーになる
0656デフォルトの名無しさん2010/03/18(木) 23:48:24
哲也君がVBAマクロを２昼夜かけて作ったんですよ。



これが本当の「マクロ ２夜連続」なんつって。
0657デフォルトの名無しさん2010/03/19(金) 02:04:41
>>653
だったら、初めから自分の環境の結果を書いとこうね。
俺は何もしないけど、お前ら俺の知りたいことを教えろパターンですな。
ちなみに俺は、これまで出ていないExcel 2000を持っていて実験もし結果もわかったが教えない。
■ このスレッドは過去ログ倉庫に格納されています