Excel VBA 質問スレ Part14

1 名前：デフォルトの名無しさん mailto:sage [2010/01/06(水) 12:34:58 ] 過去スレ 01 pc11.2ch.net/test/read.cgi/tech/1054356121/ 02 pc11.2ch.net/test/read.cgi/tech/1168308855/ 03 pc11.2ch.net/test/read.cgi/tech/1180192018/ 04 pc11.2ch.net/test/read.cgi/tech/1189814602/ 05 pc11.2ch.net/test/read.cgi/tech/1197448064/ 06 pc11.2ch.net/test/read.cgi/tech/1205231499/ 07 pc11.2ch.net/test/read.cgi/tech/1212587819/ 08 pc11.2ch.net/test/read.cgi/tech/1219673793/ 09 pc11.2ch.net/test/read.cgi/tech/1228372971/ 10 pc12.2ch.net/test/read.cgi/tech/1235332603/ 11 pc12.2ch.net/test/read.cgi/tech/1241885130/ 12 pc12.2ch.net/test/read.cgi/tech/1247566074/ 13 pc12.2ch.net/test/read.cgi/tech/1254281104/ 152 名前：デフォルトの名無しさん mailto:sage [2010/01/31(日) 18:39:31 ] >>151 ActiveCell.Row　を　found.Row へ変更 153 名前：デフォルトの名無しさん mailto:sage [2010/01/31(日) 18:39:40 ] >>151 動作確認してないけど、こうじゃないかな Me.会社名表示.Value = Cells(found.Row, 4) Me.処理機郵便番号表示.Value = Cells(found.Row, 5) Me.処理機住所表示.Value = Cells(found.Row, 6) Me.電話番号表示.Value = Cells(found.Row, 10) Me.メールアドレス表示.Value = Cells(found.Row, 9) Me.事業区分表示.Value = Cells(found.Row, 11) 154 名前：デフォルトの名無しさん mailto:sage [2010/01/31(日) 19:01:32 ] >>152 >>153 お二人ともありがとうございます！ 実行してみたところ、正常に動きました。 ちょっと感動しました。 違うシートがアクティブ（実際"全シート"は隠します）な時にも検索 できるようにしたいしたいので、ちょっと模索してきます。 わからなかったらまた質問させてください。 ありがとうございました。 155 名前：デフォルトの名無しさん [2010/01/31(日) 19:22:10 ] >>154 今のままで、できるんじゃないかい？ 156 名前：デフォルトの名無しさん mailto:sage [2010/01/31(日) 20:06:09 ] >>155 他のシート（セルも）がアクティブになっていた場合なんですが、 なぜかtextboxに値が出てきませんでした。 ’見つからない場合の処理’は出来てたんですが… なので確実にするためにシートを定義してActivateしました。 ご指摘ありがとうございます。 157 名前：デフォルトの名無しさん mailto:sage [2010/01/31(日) 20:16:26 ] >>156 With Sheets("全データ") があるんだからそれを活用して Me.会社名表示.Value = .Cells(found.Row, 4) のように Cellsの前に　ドットをつける 158 名前：デフォルトの名無しさん mailto:sage [2010/01/31(日) 20:36:15 ] >>157 さっき自分でやった方法と違い、フォームの後ろで シートが切り替わらなくても検索できました！ 感謝します。 と同時にもう少し勉強が必要だと痛感しました… 159 名前：デフォルトの名無しさん [2010/02/01(月) 03:47:36 ] エクセル2007.ＸＰ． 質問です。よろしくお願いします。詳しい方ぜひ教えてください。 VBAによるあるサイトの自動ログインについてです。 よさげなサイトを発見してためしてみたのですがよくわかりませんでした。 ttp://kikky.net/pc/vba_autologin.html このプログラムの途中にかいてある下記の意味がわかりません。 'form.id部分はサイトのソースに合わせる 'form.password部分はサイトのソースに合わせる 'form部分はサイトのソースに合わせる 解る方いたらおしえてください。よろしくおねがいします。 また、使用例としてyahooでの自動ログインのやり方を少しおしえていただきたいのです、 すみませんがよろしくお願いします。 160 名前：デフォルトの名無しさん mailto:sage [2010/02/01(月) 06:10:06 ] ttp://www.ken3.org/cgi-bin/group/vba_ie.asp 161 名前：デフォルトの名無しさん mailto:sage [2010/02/01(月) 10:34:29 ] >>156 foundはRangeオブジェクトなんだから、わざわざ行番号を取得する必要はない。 行番号を取得するプログラムのほとんどは回り道の欠陥プログラムだ。 Me.会社名表示.Value = .Cells(ActiveCell.Row, 4) なんてしないで Me.会社名表示.Value = found.Offset(,2).Value とすればよい。 162 名前：デフォルトの名無しさん mailto:sage [2010/02/01(月) 10:36:09 ] 間違った。 Me.会社名表示.Value = .Cells(founfl.Row, 4) なんてしないで Me.会社名表示.Value = found.Offset(,2).Value とすればよい。 163 名前：デフォルトの名無しさん mailto:sage [2010/02/01(月) 18:34:00 ] >>162 offsetも一度検討してたんですが、その時もActiveCellで考えてました。 ありがとうございます。 ＞行番号を取得するプログラムのほとんどは回り道の欠陥プログラムだ。 大変参考になりました！頭に叩き込んどきます 164 名前：デフォルトの名無しさん mailto:sage [2010/02/01(月) 22:50:34 ] ログインが必要なファイルサーバにファイルをコピーしたいのですが ファイルサーバへの接続が上手くいきません。 どなたかアドバイスお願いします。 165 名前：デフォルトの名無しさん mailto:sage [2010/02/01(月) 23:00:24 ] ttp://www.moug.net/faq/viewtopic.php?t=46965&sid=35bd0a78b60e9ce710a0ff9baaf11ef4 166 名前：デフォルトの名無しさん mailto:sage [2010/02/02(火) 19:34:59 ] >>163 欠陥プログラムなんて事は無いから真に受けない方が良いよ。 167 名前：デフォルトの名無しさん mailto:sage [2010/02/02(火) 20:12:59 ] 自分も　回り道であるかもしれないけれど 欠陥プログラムは言い過ぎだとおもう さぞかし >>161 は、綺麗なコードを書いているのだろうね プロ(笑)なプログラマの言う事は理解できん 168 名前：デフォルトの名無しさん mailto:sage [2010/02/03(水) 01:10:19 ] >>167 別に俺はプロじゃねーし。 まぁプロが行番号なんか使ってたら俺ら素人に笑われるわな。 169 名前：デフォルトの名無さん [2010/02/03(水) 15:39:54 ] html 用の色指定　#FF00FF　とか　#EE82EE　を VBA用にRGB(250,0,250)の形式に変換したいが、 どんな関数をつかえばいいの？ 170 名前：デフォルトの名無しさん mailto:sage [2010/02/03(水) 15:44:56 ] えっ 171 名前：デフォルトの名無しさん mailto:sage [2010/02/03(水) 18:35:01 ] 何をしたいのかわからないけど 16進数を10進数にする 172 名前：デフォルトの名無しさん mailto:sage [2010/02/03(水) 20:57:32 ] CLng("&H" & Value) 173 名前：デフォルトの名無さん [2010/02/03(水) 22:52:54 ] >172 謝謝、男毛先 174 名前：デフォルトの名無しさん mailto:sage [2010/02/04(木) 08:15:25 ] >>168 データベースの2次元配列構造を使用する時には、 range.row や range.column を多用するぜ。 と言うか、可読性や速度を考えても、遠回りじゃなくて直線的なロジックだよ。 列は固定で行は変動する場合とかね。 for i = 1 to range.row なんかも欠陥プログラムって言われてる？ 175 名前：デフォルトの名無しさん mailto:sage [2010/02/04(木) 13:05:09 ] >>174 >>168じゃないが rangeオブジェクトから行番号や列番号なんてただの数値を取り出して、その数値をもとにどこのブックのどこのシートのCells(*,*)なんて実行時バインドで参照を作り出すのはアホだな Rangeオブジェクトならどこのブックのどこのシートかなんて内包されてるんだから、それを利用するのが当然だろう for i = 1 to cells(rows.count,1).end(xlup).row なんてのは欠陥というより下手くそだね セレクトするコードと目くそ鼻くそだよ 176 名前：デフォルトの名無しさん mailto:sage [2010/02/04(木) 15:32:43 ] >>175 目くそ様乙であります！！ 177 名前：デフォルトの名無しさん mailto:sage [2010/02/04(木) 18:08:46 ] >>175 引用間違ってるよ。 178 名前：デフォルトの名無しさん mailto:sage [2010/02/04(木) 22:24:30 ] 使い捨てのマクロでそんなことにこだわる必要はないが 他人にも使わせるツールなら意識して欲しいかな しかし、>>151の内容はVBAの必要なくね？ ワークシートにVLOOKUPで十分 179 名前：151 mailto:sage [2010/02/04(木) 22:40:26 ] >>178 たしかに今考えればいならいような気がします… 180 名前：151 mailto:sage [2010/02/04(木) 22:48:16 ] 連投すみません。 さっき、いらないような…と言いましたが、番号が見つからない場合に MsgBoxでエラーを出したかったんです。 それと、VBAで書きかったっていうのがありまして。 181 名前：デフォルトの名無しさん mailto:sage [2010/02/04(木) 22:52:53 ] >>178 他人に使わせるだけのマクロなら汚くてもいいんじゃない？ 分る人にソース見られたとき困るだけ。 182 名前：デフォルトの名無しさん mailto:sage [2010/02/05(金) 05:12:07 ] 個人的には lookup系は使わずVBA それ以外はセル操作で出来るのなら極力 VBAを使わないというのが好き 183 名前：デフォルトの名無しさん mailto:sage [2010/02/05(金) 06:44:05 ] >>151にVLOOKUPはないね。 使い捨てブックならかまわないけど。 184 名前：デフォルトの名無さん [2010/02/05(金) 11:49:35 ] 下記で右辺のRGBでコンパイル・エラーargument not optionalがでて 進めません。（XP + Excel2000） Sub Test() Dim myIndex As Variant Dim length As Integer myIndex = Array("235,180,200", "255,110,80", "255,0,0") For i = 0 To 2 ActiveSheet.Shapes.AddShape(msoShapeRectangle, 0, 50 * i, 100, 50 * (i + 1)).Select Selection.ShapeRange.Fill.ForeColor.RGB = RGB(myIndex(i)) 'error Next i End Sub 185 名前：デフォルトの名無しさん mailto:sage [2010/02/05(金) 13:21:40 ] >>184 文字列を渡してどうする 186 名前：デフォルトの名無しさん mailto:sage [2010/02/05(金) 21:18:11 ] >Cells(*,*)なんて実行時バインドで参照を作り出すのはアホだな まじか。 俺はOffsetはその値に達するまで内部でループするから遅いだろうと考えていた。 たとえば、 L = 60000 Offset(L)は６万回ループするが、 Cells(L, 0)なら一発でその場所に移動できるのだと。 187 名前：デフォルトの名無しさん mailto:sage [2010/02/05(金) 21:18:21 ] >>184 もっと良いやり方があるかも知れないけれど 現在のコードを尊重する形で考えてみた 下記ではどうでしょう Sub Test() Dim myIndex As Variant Dim length As Integer myIndex = Array(Array(235, 180, 200), Array(255, 110, 80), Array(255, 0, 0)) For i = 0 To 2 　ActiveSheet.Shapes.AddShape(msoShapeRectangle, 0, 50 * i, 100, 50 * (i + 1)).Select 　Selection.ShapeRange.Fill.ForeColor.RGB = RGB(myIndex(i)(0), myIndex(i)(1), myIndex(i)(2)) Next i End Sub 188 名前：デフォルトの名無さん [2010/02/05(金) 23:24:09 ] >>187,185 ありがとう。こうしました。 Sub Test() Dim myIndex As Variant Dim length As Integer myIndex = Array(RGB(235, 180, 200), RGB(255, 110, 80), RGB(255, 0, 0)) For i = 0 To 2 　ActiveSheet.Shapes.AddShape(msoShapeRectangle, 0, 50 * i, 100, 50 * (i + 1)).Select 　Selection.ShapeRange.Fill.ForeColor.RGB = myIndex(i) Next i End Sub 189 名前：デフォルトの名無しさん mailto:sage [2010/02/06(土) 01:32:22 ] selectしなくてもいいじゃん 190 名前：デフォルトの名無しさん mailto:sage [2010/02/06(土) 01:43:19 ] >>186 ひどい勘違いだな 内部でループなんかするわけないじゃん とにかくCellsを多用するコードは不細工だ 事前バインドの方が楽で簡潔 191 名前：デフォルトの名無しさん mailto:sage [2010/02/06(土) 07:54:23 ] DBをExcelに展開して作業するんだけど、offsetだけじゃ無理。 cells(foundcell.row,1).value とか普通に使ってtる。 192 名前：デフォルトの名無しさん mailto:sage [2010/02/06(土) 08:27:51 ] 参照設定 193 名前：デフォルトの名無しさん mailto:sage [2010/02/06(土) 08:34:39 ] なんだか、アーリーバインディングを勘違いしてる奴が居るな。 難しい言葉を使おうとしなくていいんだよ。 194 名前：デフォルトの名無しさん [2010/02/06(土) 09:56:19 ] Range.CopyFromRecordset 195 名前：デフォルトの名無しさん mailto:sage [2010/02/06(土) 10:15:47 ] >>193 勘違いしてねーよ。 アーリーバインディングの方がコーディング楽だろ？ お前Cells使ってるのか？ 196 名前：デフォルトの名無しさん mailto:sage [2010/02/06(土) 16:57:38 ] ログデータから取得したリストがあり、頭に種別を表す連番1〜16が振ってあります。 このリストを上からチェックしていき、種別番号が1ならA列から始まる表に、2ならD列から始まる表に という具合に、種別ごとの表に落とし込みたいと考えています。 それぞれの列に落とし込むことはできたのですが、貼り付ける行が前の列からの続きになってしまい悩んでいます。 具体的には、A1〜A10が種別1、D1〜D5が種別2、G1〜G10が種別3としたいのに、 A1〜A10が種別1、D11〜D15が種別2、G16〜G20が種別3となってしまうのです。 If hantei = 1 Then Range("A" & i + 100).Formula = (参照式) 197 名前：196 mailto:sage [2010/02/06(土) 17:04:34 ] すみません。途中で書き込んでしまいました； それぞれの種別表の頭を揃えるには、どうしたら良いでしょうか？ 今のところ、それぞれの表でソートをするしかないのかと考えていますが、 状況によりログのリストがどれぐらいの長さまで伸びるか読めないため、 かなりの幅を持たせないといけないので、その表の直下を使えなくなってしまうのが難点です。 何か良い方法があれば、よろしくお願いします。 198 名前：デフォルトの名無しさん mailto:sage [2010/02/06(土) 17:06:27 ] 今、画像の表示（サムネイル一覧）や変換（BMP→tiffなど）するソフトを VBAで作ることを考えています。 画像の表示は、ともかく変換をどうすれば良いか検討がつきません。 ｱﾄﾞﾊﾞｲｽ何か頂けないでしょうか？ OS：WindowsXp Excel：2000 199 名前：デフォルトの名無しさん mailto:sage [2010/02/06(土) 17:25:22 ] >>196 Range("A65536").End(xlUp).Select 200 名前：デフォルトの名無しさん mailto:sage [2010/02/06(土) 17:59:03 ] >>199 2007から行数変わったじゃん 201 名前：デフォルトの名無しさん mailto:sage [2010/02/06(土) 20:24:51 ] 行数、列数が拡張されたのは2007の時だけじゃないし Rows.Countでそのシステムの最大行数が求まる 202 名前：デフォルトの名無しさん mailto:sage [2010/02/07(日) 02:14:42 ] フォームに入力された値で数値計算をするプログラムを組んでいます。 ’各テキストボックスが空欄だった時の対処 If Me.YJ1.Value = "" Then MsgBox("空欄があります。") ElseIf Me.YJ2.Value = "" Then MsgBox("空欄があります。") ElseIf Me.YJ3.Value = "" Then MsgBox("空欄があります。") ・ ・ ・ （YJ23まで） ’（空欄対処の続きで）各テキストボックスが数字以外だったときの対処 ElseIf IsNumeric(YJ1) Then MsgBox("半角数字で入力してください。") ElseIf IsNumeric(YJ2) Then MsgBox("半角数字で入力してください。") ElseIf IsNumeric(YJ3) Then MsgBox("半角数字で入力してください。") ・ ・ ・ （YJ23まで） Else sum_t = YJ1*0.15+YJ1+0.79+　…（YJ23まで） という風なプログラムを現在組んでいます。 空欄の検出はしてくれるんですが、YJ23まで半角数字なのに"半角数字で…"のエラーが出ます。 半角数字以外ならスペースや空欄などもすべてエラーとして吐き出してくれるにはどうしたらいいですか？ 203 名前：デフォルトの名無しさん mailto:sage [2010/02/07(日) 03:10:19 ] ttp://homepage1.nifty.com/rucio/main/technique/InputChk2.htm 204 名前：デフォルトの名無しさん mailto:sage [2010/02/07(日) 05:20:15 ] >>203 ありがとうございます！参考にさせてもらいます！ 205 名前：デフォルトの名無しさん mailto:sage [2010/02/07(日) 06:26:06 ] >>195 やっぱり勘違いしてるね。 206 名前：デフォルトの名無しさん mailto:sage [2010/02/07(日) 07:03:38 ] しつこいやっちゃなぁ。 実行時バインドのコードばっか書いてる三流プロか？ 207 名前：デフォルトの名無しさん mailto:sage [2010/02/07(日) 08:07:23 ] 190のcellsは不細工で事前バインドが云々の解説でもしておくか。 配列とかはおいといて、単純に範囲をループする場合の実行時バインドと事前バインドの一例 もっとも不細工(cells(i,1)の形が実行時バインド) dim i as long For i = 1 To cells(rows.count,1).end(xlup).row 　　　If cells(i,1).value="foo" then 　　　　　cells(i,2).hogehoge 　　　end if Next i まだまだ不細工(Itemプロパティが実行時バインド) dim r as range dim i as long set r =range(cells(1,1),cells(rows.count,1).end(xlup)) for i=1 to r.count 　　　If r.item(i,1).value="foo" then 　　　　　　r.item(i,2).hogehoge 　　　end if next i 上の二つよりまとも(cは事前バインド) dim r as range dim c as range set r =range(cells(1,1),cells(rows.count,1).end(xlup)) for each c in r 　　if c.value="foo" then 　　　　c.offset(,1).hogehoge 　　end if next c 208 名前：デフォルトの名無しさん mailto:sage [2010/02/07(日) 08:10:50 ] 言っとくけどCellsは事前バインドだが、Cellsの後ろに隠れてるItempプロパティ(実際は_Dedaultプロパティ)が実行時バインドね。 209 名前：デフォルトの名無しさん [2010/02/07(日) 08:14:34 ] Selectionを使うのは実行時バインド？ 210 名前：デフォルトの名無しさん mailto:sage [2010/02/07(日) 08:17:38 ] (cは事前バインド)は(cもOffsetも事前バインド）だった。 211 名前：デフォルトの名無しさん mailto:sage [2010/02/07(日) 08:23:01 ] >>209 Selectionをそのまま使えば実行時バインドだよ。 ただしSellectionを任意の変数(たとえばセル範囲ならRange型の変数)に格納してその変数を使えば事前バインド。 212 名前：デフォルトの名無しさん mailto:sage [2010/02/07(日) 09:27:36 ] 不細工云々はどうでも良いんだけど、 column固定でrowはfoundcellの場合、どうすりゃいいんだよ。 213 名前：デフォルトの名無しさん mailto:sage [2010/02/07(日) 10:58:03 ] >>212 161じゃないけど、発見した行の4列目ならfound.EntireRow.Cells(4)ってことかな？ しかしまぁ>>151は検索範囲がB列と書いていながら、実際のコードは何故か Set found = Worksheets("全データ").Cells.Find(sn, , xlValues) と全セルになってるな。 214 名前：デフォルトの名無しさん mailto:sage [2010/02/07(日) 11:09:02 ] >>151をよく見ると心配な点がいっぱいあるね。 技術検索番号ってまさか単純な数字じゃないだろうな。 LookAt:=xlWholeを書いてないと1で10とかも引っ掛かるかるしなぁ。 Withも意味なしてないし。 215 名前：151 mailto:sage [2010/02/07(日) 13:58:07 ] >>214 技術検索番号は今のところ10001〜10165までの数値です。 おっしゃるとおり10でも10001が検索されてしまっていました。今現在は、皆さんの意見を参考にして Private Sub 技術検索ボタン_Click() 　Dim sn As String 　 '検索番号の設定 　sn = 技術検索番号.Value 　'検索の処理 　　With Sheets("全データ") 　　　Set found = Worksheets("全データ").Range("B:B").Find(sn, , LookAt:=xlWhole) 　　'見つからない場合の処理 　　If found Is Nothing Then 　　MsgBox ("技術コードが見つかりません。5桁の数字を正しく入力してください。") 　　'見つかった場合の処理（フォーム上のtextboxに値を代入） 　　Else 　　　Me.会社名表示.Value = .Cells(found.Row, 4) 　　　Me.処理機郵便番号表示.Value = .Cells(found.Row, 5) 　　　Me.処理機住所表示.Value = .Cells(found.Row, 6) 　　　Me.電話番号表示.Value = .Cells(found.Row, 10) 　　　Me.メールアドレス表示.Value = .Cells(found.Row, 9) 　　　Me.事業区分表示.Value = .Cells(found.Row, 11) 　　　End If 　　　End With End Sub としています。特にエラーは出てないんで、大丈夫そうなのですが… もし何かありましたら宜しくお願いします。 216 名前：196 mailto:sage [2010/02/07(日) 14:54:05 ] >>199 ありがとうございます。 End()を使ったことがなかったので少し手間取りましたが、希望通りの動作をしてくれました。 217 名前：デフォルトの名無しさん mailto:sage [2010/02/07(日) 18:48:43 ] >>215 みなさんの意見って>>161の意見は参考にしてないなｗ まぁここに限らずよくない方法が採用されるのが掲示板の常なのでしょうがないね。 しかしどうしても行番号使うにしても、５回も同じ行番号を取得しちゃいかんぜよ。 何度も使うものは変数に格納してから使わないと。 参考までに行番号は取得しないで列番号をそのまま使うならこんな方法もある。 Else以下だが Set found =found.EntireRow.Cells Me.会社名表示.Value = found(4).Value Me.処理機郵便番号表示.Value = found(5).Value Me.処理機住所表示.Value = found.Row(6).Value Me.電話番号表示.Value = found(10).Value Me.メールアドレス表示.Value = found(9).Value Me.事業区分表示.Value = found(11).Value 実行時バインドになるが、Offsetと違って列番号がそのまま使える。 found(4)はfound.Item(4)の略ね。 またSet found =found.EntireRow.Cellsの部分は同じ変数に代入するのがお行儀が悪いって人も稀にいるけどな。 気になるなら別の変数にすればいい。 218 名前：デフォルトの名無しさん mailto:sage [2010/02/07(日) 18:54:31 ] おっとfound.Row(6).Valueは間違いね。 219 名前：デフォルトの名無しさん mailto:sage [2010/02/07(日) 21:05:40 ] >>207 お前、オブジェクトとプロパティが良くわかってないだろ 220 名前：デフォルトの名無しさん mailto:sage [2010/02/07(日) 21:27:49 ] またへんなのが出てきたな。↑ 例えばCellsはRangeオブジェクトへの参照を返すプロパティーさ。 221 名前：デフォルトの名無しさん mailto:sage [2010/02/07(日) 21:30:59 ] >>219は自分は何でも分ってて、他人は分ってないと思ってる基地外だな。 もういいから引っ込め。 222 名前：デフォルトの名無しさん mailto:sage [2010/02/07(日) 21:50:57 ] 取り込み中のところすんませんけど、一つ教えてください Excel2007 MsgBox "〜" ←このメッセージの部分の文字に色を付けて表示したりする事って出来ますか？ 223 名前：デフォルトの名無しさん mailto:sage [2010/02/07(日) 22:14:11 ] 出来ないと思う。 www.h3.dion.ne.jp/~sakatsu/ktMsgBox_Syntax.htm ここのアドインを試してみたら？ 224 名前：デフォルトの名無しさん mailto:sage [2010/02/07(日) 22:31:05 ] >>223 教えていただき、有難うございます！ 調べてみます。 225 名前：デフォルトの名無しさん mailto:sage [2010/02/07(日) 23:34:38 ] 俺はVBAは結構できると思っていたが実行時バインドとかまったく意識していなかった。 今日は勉強になった。 226 名前：デフォルトの名無しさん mailto:sage [2010/02/08(月) 00:36:40 ] >俺はVBAは結構できると思っていたが 多分激しく勘違いしてるんだと思ふ。 227 名前：デフォルトの名無しさん mailto:sage [2010/02/08(月) 06:30:55 ] 俺も仕事でVBAを4年ほど使ってるけど、まだまだ知らない事が多いんだなぁ。 とつくづく感じた。 VBAが馬鹿にされてるんじゃなくて、俺が馬鹿だったんだ。 228 名前：デフォルトの名無しさん mailto:sage [2010/02/08(月) 08:19:12 ] 事前バインドは実行時バインドより速いって認識でいいの？ 229 名前：デフォルトの名無しさん mailto:sage [2010/02/08(月) 09:11:46 ] >>228 大体そうだが逆もある。 たとえばRange("A1")とCells(1,1)は１個の処理なら実行時バインドの後者が速い。 ただWithでくくって多くの処理を行うのであれば事前バインドの前者が速いけどな。 速い遅いより、事前バインドならピリオド打って頭の数文字を打てばその打った 文字から始まるメンバが出てくるから、そこから選べばいいから長いメンバ名のときは楽だな。 だからWith Selectionとして多くの処理をするより、適合する型の変数にSelectionをセットして With 変数とした方が楽だよ。 230 名前：デフォルトの名無しさん mailto:sage [2010/02/08(月) 09:15:32 ] 上のピリオド云々はVBEのオプションの自動メンバ表示にチェックがついてるときの話ね。 231 名前：デフォルトの名無しさん mailto:sage [2010/02/08(月) 09:58:19 ] いい加減、お前うざいよ 232 名前：デフォルトの名無しさん mailto:sage [2010/02/08(月) 10:00:06 ] 同意。 ﾊﾞｲﾝﾄﾞｦﾀ･･･ｲﾗﾈ 233 名前：デフォルトの名無しさん mailto:sage [2010/02/08(月) 10:02:22 ] 別にうざくはないが 234 名前：デフォルトの名無しさん mailto:sage [2010/02/08(月) 10:04:01 ] >>220 で、何を何に「バインド」すんの？ 235 名前：デフォルトの名無しさん mailto:sage [2010/02/08(月) 10:23:30 ] VB(A)の世界では、Dim a As Rangeなどと、変数宣言時にオブジェクトの型を指定するのが 事前バインディング、Dim a As Objectと総称型で宣言し、Set a = ...と実行時に変数に結びつけるのが 実行時バインディングというのが普通で、上で言われてるような文脈で使われるのは 初めて見た。 あってるのか、間違ってるのか知らんけど。 236 名前：デフォルトの名無しさん mailto:sage [2010/02/08(月) 10:27:45 ] ちなみに、コンパイルする言語では、コンパイル時に呼び出しを決定できるものが事前バインディングで、 実行時にしか決定できないものを実行時バインディングという。 付け加えると、VBAでは一般に事前バインディングの方が速いというのはその通りで、 オブジェクトを変数に代入しておいて使う方が速いというのもその通り。 ただ、「Selectionをそのまま使えば実行時バインドだよ。」という言い方は初めて見た。 このような使い方をするのかどうかは知らない。 237 名前：デフォルトの名無しさん mailto:sage [2010/02/08(月) 10:42:24 ] 測ってみればいいのに。基本は実測だよ。 For i = 0 To 100000 　　' ここにコード Next s = Range("A1").Value => 1416ms s = Cells(1, 1).Value => 670ms s = r.Cells(1, 1).Value => 858ms '事前にdim r as range, set r = range("A1")を実行 結論： Cells(x, x)を使わない奴は馬鹿。 238 名前：デフォルトの名無しさん mailto:sage [2010/02/08(月) 10:45:58 ] それやってないけど、r.valueが最速だろ。 239 名前：デフォルトの名無しさん mailto:sage [2010/02/08(月) 11:05:58 ] つーか、>>207で最後のコードが速いのは、事前バインドなんか全然関係なくて、 cells(i,1)でrangeオブジェクトを参照するより、for cell in rangeで参照した方が速いってだけじゃね？ 240 名前：デフォルトの名無しさん mailto:sage [2010/02/08(月) 11:14:44 ] 古いＰＣだが 11sec: s = Range("A1").Value 05sec: s = Cells(1,1).Value 04sec: s = r.Value 241 名前：151 mailto:sage [2010/02/08(月) 12:22:11 ] 横からすみません。分かりにくい点が多数あると思いますがお願いします。 　　　A　　　　B　　　　　C　　　　D　　　　　E　　　l　　　F 1　名前　　りんご　バナナ　みかん　　ブドウ　 l　　余り　 2　たけし　　１　　　　　０　　　　０　　　　　４　　　l　　　0 3　ともこ　　０　　　　　２　　　　０　　　　　４　　　l　　0.25 4　とおる　　１　　　　　２　　　　３　　　　　０　　　l　　0.73 5　さちこ　　１　　　　　２　　　　０　　　　　０　　　l　　　0 6　たける　　０　　　　　０　　　　０　　　　　４　　　l　　0.84 ・ ・ ・ というような表を作っています。 フォームでりんごを選択し検索すると、りんごを食べれる【たけし・とおる・さちこ】 を検索（B2:E6から１を検索）し、与えます。 余りがあればさっき与えた人以外のところに持っていき、与えます。 それを繰り返して、条件付き組み合わせのような形で検索したいと思っています。 この場合ですと、リンゴを100個持っているとすると、　※（）内は残個数 ・たけし（0） ・とおる（73）→たけし（0） ・とおる（73）→さちこ（0） ・さちこ（0） の４パターンが検索されます。 各パターンで残個数が0になれば検索終了です。 このようなシステムは可能でしょうか？ また、可能ならヒントを頂けると嬉しいです。宜しくお願いします。 242 名前：151 mailto:sage [2010/02/08(月) 12:40:38 ] ちなみに、 りんご＝１ バナナ＝２…　という関連付けはすでにしています。 243 名前：デフォルトの名無しさん mailto:sage [2010/02/08(月) 12:48:45 ] >>239 >>207で速さのことなんか何にも書いてないじゃん。 不細工かどうかだろ？ 244 名前：デフォルトの名無しさん mailto:sage [2010/02/08(月) 13:57:49 ] >>241 他人に上手く説明できないことは、自分でも理解していないことである 245 名前：デフォルトの名無しさん mailto:sage [2010/02/08(月) 14:20:57 ] エスパーの出番だな 246 名前：デフォルトの名無しさん mailto:sage [2010/02/08(月) 15:11:09 ] 概してExcelに検索処理をさせることが間違いのもと 247 名前：デフォルトの名無しさん mailto:sage [2010/02/08(月) 23:12:59 ] >>241 ようするにナップザック問題の亜種だろ リンゴが99個で最初にとおるを選んだとき、残りの個数は割り切れない数になるけど、そういう時はどうすんの？ 248 名前：デフォルトの名無しさん mailto:sage [2010/02/08(月) 23:47:16 ] >>247 ここではリンゴとしましたが、実際はトン（ｔ）で計算します。 小数点以下も考えるので、99×0.73＝72.27（ｔ）が次の人へ…となります。 説明不足でした。申し訳ありません。 ナップザック問題というヒントを参考にさせてもらいます。 249 名前：デフォルトの名無さん [2010/02/09(火) 00:19:12 ] 下記test1で「あ」を図の真ん中に表示したい。 test2では文字をとりだせない。 Sub test1() ActiveSheet.Shapes.AddShape(msoShapeRectangle, 10, 10, 50, 50).Select With Selection .Characters.Text = "あ" End With Range("a1").Select End Sub Sub test2() MsgBox ActiveSheet.Shapes(1).Characters.Text End Sub 250 名前：デフォルトの名無しさん mailto:sage [2010/02/09(火) 03:10:36 ] >>249 Sub test1() 　　With ActiveSheet.Rectangles.Add(10, 10, 50, 50) 　　　　.Text = "あ" 　　　　.HorizontalAlignment = xlHAlignCenter 　　　　.VerticalAlignment = xlVAlignCenter 　　End With End Sub Excel任せだと少しずれてしまうのは仕様。 ぴったり中央に文字を出したいときは、背景が透明のテキストボックスを 図形の上に重ねて、座標を自分で計算するしかない。 Sub test2() 　　MsgBox ActiveSheet.Shapes(1).TextFrame.Characters.Text End Sub あと、質問するときはもうちょっと文章を丁寧に書け。 「やりたい」「できない」だけじゃ質問になってない。 テンプレも使うこと。 251 名前：デフォルトの名無しさん mailto:sage [2010/02/09(火) 11:55:15 ] >>250 ここにテンプレあったか？ 252 名前：デフォルトの名無しさん mailto:sage [2010/02/09(火) 12:20:13 ] >>251 >>2

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef