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/ 75 名前：デフォルトの名無しさん mailto:sage [2010/01/20(水) 11:49:54 ] これからVBA勉強始めようと思うんですが、 プロのエンジニアでもプログラマでもなく、 JAVAの入門書を一冊読んでいる程度の者です。 テンプレにあるExcelのインスタンスの意味を教えてもらえないでしょうか？ 一応、クラス、オブジェクト、インスタンスというのは知っているつもりです。 76 名前：デフォルトの名無しさん mailto:sage [2010/01/20(水) 11:55:58 ] >>74 100万回ぐらいまわして自分で計測してはどうでしょう 一括の方が早いと思う >>75 エクセルのbookオブジェクト、もしくはアプリケーションのことじゃないか 要するにvbだけでできることはvbスレいけってことですね 77 名前：デフォルトの名無しさん [2010/01/20(水) 14:13:43 ] エクセル上に、画像ファイルとテキストファイルを読み込むボタンをそれぞれ 配置して、ファイル読み込みダイアログを出して選択されたファイルを エクセル上に表示させたいんだけど、誰か分かる人いる？ 78 名前：デフォルトの名無しさん mailto:sage [2010/01/20(水) 14:19:19 ] いる 79 名前：デフォルトの名無しさん mailto:sage [2010/01/20(水) 14:19:39 ] 皆んな分かる 80 名前：77 [2010/01/20(水) 14:27:36 ] 自己解決しからいいや。 81 名前：デフォルトの名無しさん mailto:sage [2010/01/20(水) 19:09:19 ] せっかく答えてもらって無礼な奴 82 名前：デフォルトの名無しさん mailto:sage [2010/01/20(水) 19:21:02 ] >>74 一括がもちろん速いが、FormulaR1C1は同じ結果になるが意味的に違うぞ。 Valueを使いなさい。 83 名前：デフォルトの名無しさん [2010/01/20(水) 22:54:15 ] テキストファイルを読み込んでエクセル上のラベルに表示させたいのですが どうしたらいでしょう 84 名前：デフォルトの名無しさん mailto:sage [2010/01/21(木) 12:22:51 ] api関数を使用しています。 Declareで宣言する時に、引数をbyvalで指定してるのに、結果が 引数に代入されてくるのはなぜですか？ 本来であれば、byrefで指定するべきではないのでしょうか？ 85 名前：デフォルトの名無しさん mailto:sage [2010/01/21(木) 16:06:07 ] 2010βのマクロの実行速度って2007より遅くなってる？ mougにそのように書いてあったが、俺んとこは2010βが速い。 おまいらどうよ。 86 名前：デフォルトの名無しさん mailto:sage [2010/01/21(木) 16:22:10 ] >>83 ttp://officetanaka.net/excel/vba/file/file08.htm 87 名前：デフォルトの名無しさん mailto:sage [2010/01/21(木) 20:53:47 ] 2000、XPです。VBAさわりだして数日です。 任意のサイコロの出目の和の組み合わせ数を全てシート上に書き出すマクロを組みたいと思ってます。 例えば6面ダイスを3回振る(3d6)　だったら 1 0 2 0 3 1 4 3 5 6 6 10 …のような結果になるようにしたいのです。 ただループの組み方をいくら考えてもそれらしきものが思いつきませんorz どなたか考え方のヒントいただけませんか； 88 名前：デフォルトの名無しさん mailto:sage [2010/01/21(木) 22:02:59 ] >>87 一番簡単なのは 全ての組み合わせをループで行って(この場合３重ループになる) それぞれの合計値によって"組み合わせ数を表示する"セルへ カウントアップしていく (セルB1の値 = セルB1の値 + 1　って感じでね) 処理速度だしたいなら 同じ事を配列変数で行って　最後にセルへ書き出す 89 名前：デフォルトの名無しさん mailto:sage [2010/01/21(木) 22:16:18 ] サイコロの目で0って何で？ 90 名前：88 mailto:sage [2010/01/21(木) 22:32:06 ] >>89 自分はこう解釈した 1 0 は　出目の和が 1になる 組み合わせが　0ではないかと(当然だけど) 3 1 は　出目の和が 3になる 組み合わせは出目が "1", "1" ,"1"の　1組しかないので 1 91 名前：デフォルトの名無しさん mailto:sage [2010/01/21(木) 22:34:55 ] Sub 数学わからんからシラミ潰し() Dim a, b(100), c(100), d, e, f a = InputBox("サイコロの数を入れてね") f = InputBox("目の数を入れてね") Do e = a For d = 1 To a e = e + c(d) Next b(e) = b(e) + 1 c(1) = c(1) + 1 If c(1) = f Then c(1) = 0 For d = 2 To a If c(d) = f - 1 Then c(d) = 0 Else c(d) = c(d) + 1 Exit For End If Next If d = a + 1 Then Exit Do End If Loop For d = 1 To 100 Cells(d, 1) = b(d) Next End Sub 92 名前：デフォルトの名無しさん mailto:sage [2010/01/21(木) 22:39:16 ] >>90 成る程 流石だ 93 名前：デフォルトの名無しさん [2010/01/21(木) 22:47:20 ] スマン エラー出るな ２行目の最後 f as byte にしてくれ 大量にサイコロ使う時は100のとこを好きな数に増やしてくれ 94 名前：デフォルトの名無しさん mailto:sage [2010/01/22(金) 00:04:57 ] 再帰で書いてみた。 Private diceNum As Long Private face As Long '目の数 Private result(100) As Long Sub 数学わからんからシラミ潰し2() diceNum = InputBox("サイコロの数を入れてね") face = InputBox("目の数を入れてね") Call Count(0, 0) For i = 1 To 100 Cells(i, 1) = result(i) Next i End Sub Sub Count(Sum As Long, nTimes As Long) If nTimes = diceNum Then result(Sum) = result(Sum) + 1 Exit Sub End If For i = 1 To face Call Count(Sum + i, nTimes + 1) Next i End Sub 95 名前：87 mailto:sage [2010/01/22(金) 00:30:50 ] ありがとうございます、考えていた通りの結果に計算してくれます！ 完成されたものをいただけるとは； イルカとグーグル先生に尋ねつつ一文一文調べてみます。 96 名前：デフォルトの名無しさん mailto:sage [2010/01/22(金) 02:33:51 ] 2003,xpです。 あるセルにオートシェイブで図形が書かれているか判定したいのですが、どのようにすれば判定できますか？ 宜しくお願いします。 97 名前：デフォルトの名無しさん mailto:sage [2010/01/22(金) 06:15:42 ] シェイプにはbottomrightcellプロパティ topleftcellプロパティが有るから それ使えばいい 98 名前：デフォルトの名無しさん mailto:sage [2010/01/22(金) 09:54:06 ] >>96 Shapes.Count 99 名前：デフォルトの名無しさん mailto:sage [2010/01/22(金) 10:23:12 ] >>96 参考に oshiete.gogaku-ryugaku.net/qa3634541.html 100 名前：デフォルトの名無しさん mailto:sage [2010/01/23(土) 12:32:06 ] ある文字から何番目の行になるか出すIF文はあるのでしょうか 「見出し項目」 製品A 製品B 　・ 製品X 「小計」 のような並びになっている時に、小計から、見出し項目までの行を数えて、 何個の製品名があるかを出したいのですが、よく分かりませんでした。 よろしくお願いします。 101 名前：100 mailto:sage [2010/01/23(土) 12:36:32 ] 説明が抜けていました。 「見出し項目」 ・・ 「小計」 で対になる並びは、複数ありますので、 小計から、直近の見出し項目までの行数を出したのですが、 そのようなやり方があれば、お願いします。 102 名前：デフォルトの名無しさん mailto:sage [2010/01/23(土) 12:42:27 ] >>101 If文だけじゃ無理。不可能じゃないけど効率が悪すぎる。普通はWhile文を使う。 103 名前：デフォルトの名無しさん mailto:sage [2010/01/23(土) 12:43:09 ] 97,98,99 ありがとう、解決しました 104 名前：デフォルトの名無しさん mailto:sage [2010/01/23(土) 14:43:05 ] キーボードから１０個数字を入力し、その数字の中から最大値を｢最大値｣という文字とともに メッセージボックスで表示するのはどう書けば良いんでしょうか。 恐らくMaxSearch()を使えば良いという事は分かるのですが、書き方が分かりません・・・。 どなたかご教授願います。 105 名前：デフォルトの名無しさん mailto:sage [2010/01/23(土) 15:06:41 ] excel vba maxsearch で検索してみれ 106 名前：104 mailto:sage [2010/01/23(土) 15:45:29 ] >>105 検索もしてみたのですがアドウェア関係ばかり出てしまい、肝心のVBAは全然出ないのです ひとつそれらしき物がありましたが、どうにも私には理解できず・・・ 107 名前：デフォルトの名無しさん mailto:sage [2010/01/23(土) 16:40:44 ] =Max(Search("<70 And >=50",A1:A10)) じゃ、vbaの本でも立ち読みしてくれば 108 名前：デフォルトの名無しさん [2010/01/23(土) 19:53:51 ] VBAのプロファイラ、みたいなのどーやったらいいの？ マクロや自作関数を組み込みすぎて重たくなりすぎた 109 名前：デフォルトの名無しさん mailto:sage [2010/01/23(土) 22:04:09 ] >>108 全くのプログラム無知なんですが 面倒だけど メッセージボックスそれぞれに書いとくのは駄目ですかね 110 名前：デフォルトの名無しさん mailto:sage [2010/01/23(土) 23:43:08 ] オートフィルターで質問です。 オートフィルターを解除したいのですが、 その方法自体は問題ないのですが、フィルターがかかっていないときに それをやるとエラーになるので、フィルターがかかっているいないの 判定ができる方法か、エラーがでない方法は無いでしょうか？ 111 名前：デフォルトの名無しさん mailto:sage [2010/01/24(日) 05:24:03 ] MsgBox Worksheets("Sheet1").AutoFilterMode 112 名前：デフォルトの名無しさん mailto:sage [2010/01/24(日) 11:45:01 ] On Error Gotoでエラーを無視するという方法もある。 バカっぽいのでおすすめしないが、ちゃんとした方法をいちいち調べるのが面倒な時はたまに使う。 113 名前：デフォルトの名無しさん [2010/01/24(日) 12:07:11 ] On Error Resume Next じゃねーの？ 114 名前：デフォルトの名無しさん mailto:sage [2010/01/24(日) 17:22:43 ] バカっぽいので無視する 115 名前：デフォルトの名無しさん mailto:sage [2010/01/24(日) 21:37:20 ] 無条件で一度、オートフィルターを解除するとか 116 名前：デフォルトの名無しさん mailto:sage [2010/01/25(月) 01:17:38 ] Excel2007でフォーム上にシートを表示（スプレッドシート？） できない様なのですが、同じような機能ってありますか？ シートは閲覧のみでも大丈夫です。 どなたかご指導よろしくお願いします。 117 名前：デフォルトの名無しさん mailto:sage [2010/01/25(月) 19:16:10 ] ロダにあげる→開く　でブラウザからシート表示できる 118 名前：デフォルトの名無しさん mailto:sage [2010/01/25(月) 20:06:43 ] 横からすみません。 いま、得点の集計シートを作っているのですが、 1位のセルを赤の太枠で囲むということをやろうとしています。 で、 If Target.Column <> 4 Then Exit Sub '4列目(D列)以外の変更は考慮しない。 i = Target.Row If Cells(i, 7).Value = "1" Then '1行x3列の範囲を選択する Range(Cells(i, 1), Cells(i, 6)).Select '太い赤枠で囲む With Selection.Borders(xlEdgeLeft) .LineStyle = xlContinuous .Weight = xlThick .ColorIndex = 3 というところまではできたのですが、初めの「4列目の1行目から12行目までに数値が入力され、 その中で最大の数の場合に実行する」という条件がどうしてもわからず・・・ お知恵を貸していただければ助かります。 119 名前：デフォルトの名無しさん mailto:sage [2010/01/25(月) 23:01:34 ] >>117 回答感謝します。 それはフォーム上全て操作できるものなのでしょうか？ なんとか調べて試してみます。ありがとうございました。 120 名前：デフォルトの名無しさん mailto:sage [2010/01/25(月) 23:47:42 ] >>118 ワークシート関数　MAX 121 名前：デフォルトの名無しさん mailto:sage [2010/01/26(火) 00:00:12 ] >>110 オートフィルターでソートしてるときだけ解除 If ActiveSheet.FilterMode = True Then ActiveSheet.ShowAllData End If 122 名前：デフォルトの名無しさん mailto:sage [2010/01/27(水) 10:19:27 ] ActiveCellの上と下の空白セルを選択したいです。 A1 あああ A2 (空白) A3 (空白) A4 [ActiveCell] A5 (空白) A6 いいい のとき実行すると、A2〜A5が選択された状態になる、を期待しています。 よろしくお願いいたします。 123 名前：デフォルトの名無しさん [2010/01/27(水) 12:45:02 ] With Selection .NumgerFormat = "@" .Replace What:="hogehoge", Replacement:="01" End With このようなコードを書いたのですが、実行して見てみるとセルの書式自体は 文字列型になっているのにも関わらず表示は"1"となってしまっています "01"と表示させたいのですが、何故こんなことになってしまうのでしょうか？ また、解決策も教えていただきたいです よろしくお願いします！ 124 名前：デフォルトの名無しさん mailto:sage [2010/01/27(水) 12:47:08 ] >>122 1） ActiveCell.Rowで行番号取得。 2） 1行目かを判定し、違えば1)の行番号-1から1までForでまわして非空白チェック。 3） 非空白がヒットしたらその行番号＋1を変数に保持してExit For　ヒットしなければ1を変数を保持。 4） ActiveCellが最終行かを判定し、違えば1）の行番号+1からCells.Rows.CountまでForでまわしてチェック。 5） 非空白ヒットすれば行番号-1を変数に保持してExit。（しなければCells.Rows.Count） 6） 3）と5）の変数を使って目的範囲をSelect 125 名前：デフォルトの名無しさん mailto:sage [2010/01/27(水) 21:33:26 ] >>122 Range(ActiveCell.End(xlUp), ActiveCell.End(xlDown)).SpecialCells(xlCellTypeBlanks).Select 126 名前：デフォルトの名無しさん [2010/01/28(木) 12:31:46 ] どなたか>>123わかる方、よろしくお願いします。何卒… 127 名前：デフォルトの名無しさん mailto:sage [2010/01/28(木) 13:26:32 ] >126 Ａ列ずらっと　hogehoge　とか　00hogehoge　10hogehoge　などいくつか入れてみて、 Ａ列まとめてセルの表示形式を文字列にしておいて、 [Ctrl]＋[Ｈ]で　hogehoge　を　01　に置換してみるとわかります。 hogehoge、00hogehoge　→　1 10hogehoge　→　1001 というように、手作業での置換も同じ結果です。 selectionのvalueを変数に転記してから .value = replace(変数,"hogehoge","01") みたいにしたらどうですか？ 128 名前：デフォルトの名無しさん mailto:sage [2010/01/28(木) 13:47:17 ] >>127 試してみます！ もし詰まっちゃったらまた質問させてください ありがとうございました！ 129 名前：デフォルトの名無しさん mailto:sage [2010/01/28(木) 16:18:28 ] >>123 これ、なんでできないんだろうな。ちゃんと文字列型にした後に値入れてんのに 130 名前：デフォルトの名無しさん mailto:sage [2010/01/28(木) 17:35:15 ] 手動でやるとこんなコードになる Selection.NumberFormatLocal = "@" ActiveCell.FormulaR1C1 = "01" 131 名前：デフォルトの名無しさん mailto:sage [2010/01/28(木) 17:40:43 ] すまそ、Replaceの問題なのか ならば、いったん文字を取り込んで書き直すんじゃないの 132 名前：デフォルトの名無しさん mailto:sage [2010/01/29(金) 03:26:32 ] Replaceしてから書式設定したらどうなるんだ？ 133 名前：デフォルトの名無しさん [2010/01/29(金) 10:52:38 ] >>132 そりゃ"1"になるに決まってるよ 134 名前：デフォルトの名無しさん mailto:sage [2010/01/29(金) 14:40:22 ] 結局文字形式で数字を セルに入れたいときは FOR〜で回すしか手がないんか 135 名前：sage [2010/01/30(土) 00:50:08 ] 2003,xpです ある列"A"にオートシェイブで1行目から"○"が各行のセルに表示されていて、 "○"が表示されなくなったら"○"を次の行のセルに表示させようとしています。 　bottomrightcell,topleftcellなど使ってみましたがうまくいきません。 　どのようなプログラムにしたらよいでしょうか？どなたか宜しくお願いします。 136 名前：デフォルトの名無しさん mailto:sage [2010/01/30(土) 09:13:46 ] セルの左上の座標 (x, y) = (Cells(R, C).Left, Cells(R, C).Top) セルの右下の座標 (x, y) = (Cells(R, C).Left + Cells(R, C).Width, Cells(R, C).Top + Cells(R, C).Heigth) 137 名前：デフォルトの名無しさん [2010/01/30(土) 15:02:59 ] 社内ＬＡＮを組んでいます ブックＡのマクロでブックＢを編集し、保存するマクロがあります 他人がブックＢを編集していると読み取り専用でブックＢを開いてしまい保存する段階でエラーとなります 他人がブックＢを編集中であるかどうか判定するにはどうすればよいでしょうか？ 138 名前：デフォルトの名無しさん mailto:sage [2010/01/30(土) 15:06:44 ] ttp://sanryu.net/acc/tips/tips261.htm 139 名前：デフォルトの名無しさん [2010/01/30(土) 15:16:46 ] >>138 解決しました ありがとうございました 140 名前：デフォルトの名無しさん mailto:sage [2010/01/30(土) 17:53:56 ] 16進数を扱うデータリストを作っています E0〜E9の段(224〜233)がExcelの仕様で勝手に指数関数と見なされて「0.00E+00」などという表記をされてしまいます それは16進数のE0であって10進数の224の事なんですと… 同様のことが16進数のEが挟まる度に頻繁に生じます VBAのマクロで文字列矯正をすることで対処できそうですがどんなコードで対処できますか？ 御指南くださいませ 141 名前：デフォルトの名無しさん mailto:sage [2010/01/30(土) 18:00:45 ] >>140 セルの書式を文字列にしておく 142 名前：デフォルトの名無しさん mailto:sage [2010/01/30(土) 18:05:17 ] >>141 扱う量と試行回数が今後も継続的に多くなるからその案は駄目です 指数を無効にさせることが目的なので ttp://soudan1.biglobe.ne.jp/qa2030753.html ググったらこんなようなのが見つかったんだけど上手く作動できてない コード合ってるのかな？ csv開く時に指数無効で文字列で読んでくれないと困るぅぅぅ 143 名前：デフォルトの名無しさん mailto:sage [2010/01/30(土) 18:37:26 ] テキストで読み込み、カンマでスプリットする 144 名前：デフォルトの名無しさん mailto:sage [2010/01/30(土) 18:41:41 ] www.f3.dion.ne.jp/~element/msaccess/AcTipsCSV001.html こんな現象が起きてると予想 145 名前：デフォルトの名無しさん mailto:sage [2010/01/30(土) 19:46:14 ] csvを読み込んで、 セルの書式を文字列にしてセルに再書き込みでは？ 146 名前：kaimiyu [2010/01/31(日) 07:13:11 ] マクロ、VBA超初心者ですが、仕事で必要とされているのでがんばります。 さて、質問ですが、 現在、エクセルからリンクをはって、テキストコマンド(バーコードプリンタに印字させるコマンド) を開き、そこからプリンタを選択して印字しておりますが、それだと手間なので、マクロやVBAで エクセル上にボタンを作成し、そのボタンを一回押すだけで、印字までできますか？ 補足ですが、テキストコマンドは、エクセルシートとは別のテキストファイルです。 よろしくお願いします。 147 名前：デフォルトの名無しさん mailto:sage [2010/01/31(日) 07:43:36 ] ★6 わからなければとりあえず「マクロの記録」（Alt, T, M, R） 148 名前：kaimiyu [2010/01/31(日) 08:13:37 ] 147 どうもありがとうございます。 マクロでもやってみたのですが、別ファイルを開くまででとまってしまい、 それから、印刷→プリンタ指定→印刷実行は手動で行っています。 それをエクセルのボタンから一発でやりたいのですが。。。可能ですか？ 149 名前：デフォルトの名無しさん mailto:sage [2010/01/31(日) 10:24:10 ] 可能だし マクロの記録みて 150 名前：デフォルトの名無しさん mailto:sage [2010/01/31(日) 14:56:13 ] 印刷専用アプリ起動してそれを操作したいんだろ。だとしたらマクロの記録だけじゃどうやってもだめ。 お手軽なところではSendKeysとか使ってコントロールする方法があるけど、そのままでは動作があまり安定しない。 こういう時はuwscというフリーウェアおすすめ。 ウィンドウやボタンを指定して操作できるからうっかりマウスをさわったり、常駐ソフトがポップアップ出してきても大丈夫。 151 名前：デフォルトの名無しさん mailto:sage [2010/01/31(日) 18:15:01 ] どなたかお願い致します。 フォーム上で、textbox(技術検索番号)に入力した番号をシート（全データ）のB列から検索し、シート内の番号と 同じ行の各種データをフォーム上の対応したtextboxに返すというプログラムを作成しています。 以下のプログラムは書いてみたんですが、実行すると既に選択されているセルの情報ばかり返ってきます。 番号と一致したセルをアクティブにすればいいかなと思ったんですが…いまいち分かりません。 宜しくお願い致します。 Private Sub 技術検索ボタン_Click() Dim sn As String Dim sa As Range '検索番号とエリアの設定 sn = 技術検索番号.Value Set sa = Sheets("全データ").Range("B4").End(xlDown) '検索の処理 With Sheets("全データ") Set found = Worksheets("全データ").Cells.Find(sn, , xlValues) '見つからない場合の処理 If found Is Nothing Then MsgBox ("技術コードが見つかりません。") '見つかった場合の処理 Else Me.会社名表示.Value = Cells(ActiveCell.Row, 4) Me.処理機郵便番号表示.Value = Cells(ActiveCell.Row, 5) Me.処理機住所表示.Value = Cells(ActiveCell.Row, 6) Me.電話番号表示.Value = Cells(ActiveCell.Row, 10) Me.メールアドレス表示.Value = Cells(ActiveCell.Row, 9) Me.事業区分表示.Value = Cells(ActiveCell.Row, 11) End If End With End Sub 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 なんてのは欠陥というより下手くそだね セレクトするコードと目くそ鼻くそだよ

---

---

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

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