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/ 655 名前：デフォルトの名無しさん mailto:sage [2010/03/18(木) 23:27:05 ] >>653 うち Excel2003(XP) と Excel97(Win98)あるんだけど Excel97(Win98) だと256文字でエラーになる 656 名前：デフォルトの名無しさん mailto:sage [2010/03/18(木) 23:48:24 ] 哲也君がVBAマクロを２昼夜かけて作ったんですよ。 これが本当の「マクロ ２夜連続」なんつって。 657 名前：デフォルトの名無しさん mailto:sage [2010/03/19(金) 02:04:41 ] >>653 だったら、初めから自分の環境の結果を書いとこうね。 俺は何もしないけど、お前ら俺の知りたいことを教えろパターンですな。 ちなみに俺は、これまで出ていないExcel 2000を持っていて実験もし結果もわかったが教えない。 658 名前：デフォルトの名無しさん mailto:sage [2010/03/19(金) 06:32:11 ] 俺はウチとまったく同じ環境の結果がガイシュツだから書かなかっただけなんだけど、 同じことを何度も書かなきゃいけないの？ 役所に出す書類だな、まるで。 659 名前：デフォルトの名無しさん mailto:sage [2010/03/19(金) 06:38:42 ] それが知りたいんだったら、既出の情報をまとめるなりなんなりしろよ。 餓鬼かよ。 660 名前：デフォルトの名無しさん mailto:sage [2010/03/19(金) 07:31:23 ] 私女だけど、たった1行の実験結果を書かずに言い訳を何行も書く男の人って 661 名前：デフォルトの名無しさん mailto:sage [2010/03/19(金) 08:40:37 ] まとめなきゃ把握できないほどの情報量か？ 数えてないけど3例ぐらいしか出てなかっただろ。 662 名前：デフォルトの名無しさん mailto:sage [2010/03/19(金) 08:55:26 ] ＸＰ　2003です ググっても中々みつからないんだけど、 手動で選択したセル範囲の数字を一気に計算(仮に10倍)とかするのってVBAで出来るの？ あとついでに、セル範囲の一番右下の座標も取りたいんだけどやり方教えてください。 663 名前：デフォルトの名無しさん mailto:sage [2010/03/19(金) 09:11:53 ] >>661 いつまでやってんだ 664 名前：デフォルトの名無しさん mailto:sage [2010/03/19(金) 09:13:07 ] >>662 前半：できる。rangeを関数の引数に取りfor each 後半：一発でできるかどうかは知らん 665 名前：デフォルトの名無しさん mailto:sage [2010/03/19(金) 09:15:03 ] >>682 VBAでもちろん出来るが手操作でも出来る。 どっかのセルに10と書いて、コピー、形式を選択して貼り付け、乗算 一個の選択した矩形範囲の右下隅のセルを操作したければ Selection(Selection.Count).**** Excel2003はこれで大丈夫だが、Excel2007は全セルを選択したとき CountプロパティがLong型なので入りきれなくてエラーになる。 そこまで考慮するなら With Selection 　.Item(.Rows.Count*.Columns.Count).**** End With 座標って行番号とか列番号とかアドレスが必要なケースは滅多にないだろう。 全くないというわけではないが。 666 名前：デフォルトの名無しさん mailto:sage [2010/03/19(金) 09:15:04 ] >>661 ほら、お前もスレを確認しないと状況がわからないだろ。 >>653の知りたかったことなんて誰も知らないんだから、状況をまとめて あとこのバージョンの動作を教えてくれってやるのが筋。 667 名前：デフォルトの名無しさん mailto:sage [2010/03/19(金) 09:59:47 ] >>653 Excel 2000では256文字目でエラーになる。 これで全部揃った？揃ったならまとめくらいしてもバチはあたらないよ。 668 名前：デフォルトの名無しさん mailto:sage [2010/03/19(金) 10:08:55 ] Excel95がまだ出てなーなｗ 669 名前：デフォルトの名無しさん mailto:sage [2010/03/19(金) 10:26:54 ] だれか知ってる人がいたら教えてくれ。 A1の表示形式がG/標準のとき Debug.Print Format(Range("a1"), Range("a1").NumberFormat) とやると"M32032ral"が返るんだが、これって何？ 670 名前：デフォルトの名無しさん mailto:sage [2010/03/19(金) 10:28:49 ] いかん、Valueつけるの忘れたわ 671 名前：デフォルトの名無しさん mailto:sage [2010/03/19(金) 10:31:38 ] A1の値を書くのも忘れたわ 1の場合ね 672 名前：デフォルトの名無しさん mailto:sage [2010/03/19(金) 10:38:56 ] >>669 知ってるのか知らないのかわからないが、それ、Formatの第二引数の指定方法が間違ってる。 673 名前：デフォルトの名無しさん [2010/03/19(金) 11:18:49 ] 競艇のネット自動投票プログラム作っています。自動ログインは完成しましたけど、 次の画面の投票する競艇場選択のボタンを押す方法が分かりません。 押したいボタンのHTMLソースは以下 <input value="福　 岡" onclick="jyocd(22)" tabindex="2" type="BUTTON"> ボタンの名前(name)が無いから通常のやり方ではできません。 また、 SendKeys "{TAB 5}" SendKeys "{ENTER}" で５番目の競艇場をクリックではできましたが、最終レースが終わると その競艇場選択ボタンが消えますので、必ずしも××競艇場が５番目とは限らないのです。 検索等で昨日１日中調べてみましたが解決しません。。。助けてください。 674 名前：デフォルトの名無しさん [2010/03/19(金) 12:08:09 ] データについているハイパーリンクの中の数字を取り出して（〜info.php?chr=25121とあったら568311）、もしAという数字だったら、その列の情報を全て、シートAにコピー という仕組みを作りたいと思っております。 ハイパーリンクの中の数字を参照するには、どうしたらよろしいのでしょうか？助けていただけると助かります。 675 名前：デフォルトの名無しさん mailto:sage [2010/03/19(金) 12:57:29 ] >>672 どこが？ まさかNumberFormatLocalってんじゃないだろうね。 もしそう思ってるならそっちが間違ってる。 そんなことはないとは思うけど。 676 名前：デフォルトの名無しさん mailto:sage [2010/03/19(金) 12:58:20 ] まとめました。扱える文字数はバージョンの違いってわかるんですけど、 何故Valueを省略するとエラーが出るのか、どなたか教えて頂けませんか？ 【バージョン不明】 256文字以上でエラー >>578（質問者）、>>581、>>596 911文字以上でエラー >>600 【バージョン記述あり】 Win98＆97（256文字以上でエラー） >>655 OS不明＆2000（256文字以上でエラー） >>655 XP＆2003（911文字以上でエラー） >>583（>>588?）、>>584（>>587?）、>>586 Win7＆2007（8203文字以上でエラー） >>612 677 名前：676 mailto:sage [2010/03/19(金) 13:01:21 ] 訂正ですorz OS不明＆2000（256文字以上でエラー）は>>667でした。 678 名前：デフォルトの名無しさん mailto:sage [2010/03/19(金) 13:14:44 ] あぁ分ったわ。 NumberFormatは"General"だから Gは元号のGで明治だからM eは和暦の年 nは分 eは和暦の年 ralはGeneralの右3文字だな。 結局Formatじゃ駄目でWorksheetFunction.Textってことか。 俺の間違いだったわ。 679 名前：デフォルトの名無しさん mailto:sage [2010/03/19(金) 14:42:54 ] >>678 いやいや、ヘルプ見ろよ 680 名前：デフォルトの名無しさん mailto:sage [2010/03/19(金) 14:46:07 ] >>676 それ多分OS関係ない。 > 何故Valueを省略するとエラーが出るのか、どなたか教えて頂けませんか？ 多分、今ここにいる奴は答えられないから、これまでに回答がないんだよ。 モーグにでも行けば？ 681 名前：デフォルトの名無しさん mailto:sage [2010/03/19(金) 17:50:13 ] >>674 > chr=25121とあったら568311 の法則がよくわからない。 Aは数字じゃない。 16進？でもなそさうだし。 682 名前：デフォルトの名無しさん mailto:sage [2010/03/19(金) 17:53:43 ] >>679 FormatもWorksheetFunction.Textも似たようなもんだろうと思ってた俺が 馬鹿だったが、Formatのヘルプの表示書式指定文字なんて一部しか載ってないね。 とりあえず"s","h","n","g","aaa"などが抜けてる。 "General"はWorksheetFunction.TextにはあるがFormatにはないということだな。 683 名前：デフォルトの名無しさん mailto:sage [2010/03/19(金) 18:01:50 ] 範囲指定していっぺんに10倍はVBAでもできる。 「形式を選択して貼り付け、乗算」をマクロの記録してみ。 684 名前：デフォルトの名無しさん mailto:sage [2010/03/19(金) 18:12:10 ] Formatのヘルプの最後にある表示書式指定文字だが、あれは一覧じゃなかったか。 685 名前：デフォルトの名無しさん mailto:sage [2010/03/19(金) 18:14:19 ] >>682 ホントだ。ローカルのヘルプは抜けてるのがある。 オンラインヘルプなら全部出るみたいだけど。 686 名前：デフォルトの名無しさん mailto:sage [2010/03/19(金) 18:26:38 ] >>682 あと"p"とか"ccc"とか"ooo"とか"ww"とかもあるみたいね。 Format(1,"ww")が53、Format(1,"www")が531になるがなんのこっちゃ。 687 名前：デフォルトの名無しさん mailto:sage [2010/03/19(金) 18:47:18 ] "p"じゃなくて"q"だったわ。 "ccc"も"c"ね。 Format$(シリアル値,"yyyy/mm/dd")とするところを Format$(シリアル値,"c")としても同じみたい。 >>685 オンラインのヘルプどこ？ さっきから探してるんだが見つからん。 MSDNかな？ 688 名前：デフォルトの名無しさん mailto:sage [2010/03/19(金) 18:54:35 ] cはcountryのcだと予想して地域オプションをいじくってみたら、案の定 Format$(シリアル値,"c")は必ずしもFormat$(シリアル値,"yyyy/mm/dd")と 同じじゃなかったわ。 689 名前：662 mailto:sage [2010/03/19(金) 19:51:07 ] >>664-665 回答ありがとうです。本当にたすかりました。 面倒なんで「(どっかのセルに10と書いて)コピー、形式を選択して貼り付け、乗算」をマクロ記録させてそれでやり過ごしました。 690 名前：デフォルトの名無しさん mailto:sage [2010/03/19(金) 20:03:49 ] Formatの奴うざいよ？ Valueの奴と同じちゃうんかと思われるレベル。 691 名前：デフォルトの名無しさん mailto:sage [2010/03/19(金) 20:15:38 ] うざくてすまんね。 Value関連は考えすぎだな。 629と633と637は俺だけどな。 692 名前：デフォルトの名無しさん mailto:sage [2010/03/19(金) 20:21:00 ] というわけど、今後は>>690のハイレベルな回答を期待しましょうねｗ 693 名前：デフォルトの名無しさん mailto:sage [2010/03/19(金) 20:38:21 ] ヘルプ見ろでFAだろ。 質問者はまだ見れてないようだが。 694 名前：デフォルトの名無しさん mailto:sage [2010/03/19(金) 20:42:05 ] めんどくさいけど探してやった。 ほれ。 msdn.microsoft.com/ja-jp/library/59bz1f0h(VS.80).aspx 695 名前：デフォルトの名無しさん mailto:sage [2010/03/19(金) 20:47:20 ] それVBAも一緒なの？ 696 名前：デフォルトの名無しさん [2010/03/19(金) 20:51:40 ] ブイバのことは俺に任せろ！ 697 名前：デフォルトの名無しさん mailto:sage [2010/03/19(金) 21:04:53 ] >>693 クソ生意気な奴だなぁ。 ヘルプくらいは真っ先に見てるさ。 俺の見れるヘルプにはcやwwwは見れないんだよ。 お前がそういうなら探せばどっかにあるんだろうけどね。 Formatで検索して出てくる下には書いてない。 Format 関数 ヘルプ > 関数 > D-G Format 関数の使用例 数値表示書式指定文字 (Format 関数) 文字列表示書式指定文字 (Format 関数) 数値を表すその他の書式 (Format 関数) もうどうでもいいけどな。 698 名前：デフォルトの名無しさん mailto:sage [2010/03/19(金) 21:09:18 ] >>694 お、ありがとう。 そこにあったか。 どうでもいいと書いたがこれから見るわ。 699 名前：デフォルトの名無しさん mailto:sage [2010/03/19(金) 21:14:54 ] >>693=694の俺なんですが・・・ 700 名前：デフォルトの名無しさん mailto:sage [2010/03/19(金) 21:18:56 ] なんというツンデレ！！ おまいら何やってんだよｗｗｗ 701 名前：デフォルトの名無しさん mailto:sage [2010/03/19(金) 21:25:30 ] >>699 ふーん？ 結局お前もまともにヘルプ見てなかったと言うことかｗ >>694もリンク先見たけど、cやwwwは載ってないわ。 ExcelヘルプでFormatで検索しても出てこなかったが、表示書式指定文字で検索したら出てきたよ。 702 名前：デフォルトの名無しさん mailto:sage [2010/03/19(金) 22:21:05 ] >>701 日付の書式のヘルプ初めて見たよ。 cとかooooとかwwとか今まで知らんかった。 703 名前：デフォルトの名無しさん mailto:sage [2010/03/19(金) 22:35:11 ] >>702 同じく。 しかしヘルプでFormatじゃなくFormat関数と最後まで打てば日付関連の書式は出てきたな。 手抜きはいかんな。 またうざいとか言われるからこのへんにしとくよ。 704 名前：デフォルトの名無しさん mailto:sage [2010/03/19(金) 22:53:23 ] >>703 「Format 日付」でも出てくるよ。 間にスペース入れればAnd検索だな。 705 名前：デフォルトの名無しさん mailto:sage [2010/03/19(金) 23:16:10 ] >>704 ﾄﾝｸｽ Formatだけでも2ページめにあったね。 ヘルプはカーソル当ててF1しか普段使わないから、オンラインヘルプの使い方知らなかった。 706 名前：デフォルトの名無しさん mailto:sage [2010/03/20(土) 02:51:23 ] いつからこのスレは自分が発見したことのメモ帳になったんだ 707 名前：デフォルトの名無しさん mailto:sage [2010/03/20(土) 02:53:16 ] >>701 で、結局そのヘルプのありかをこのスレにフィードバックするつもりは無いのか。 やっぱValueの奴とレベル一緒だわお前。 708 名前：デフォルトの名無しさん mailto:sage [2010/03/20(土) 03:37:26 ] >>672でちゃんと使い方が間違ってると教えてもらってるのに、何なのこいつ。 709 名前：デフォルトの名無しさん mailto:sage [2010/03/20(土) 07:56:45 ] >>672 >>669だが、夜会合ですぐレス書かなくてすまんな。 ヘルプは>>671や>>704のおかげで読めたよ。 俺も実は探せてなかったもんでね。 ヘルプ読めと言いながらVBAのヘルプじゃないものを教えた人もいたみたいだが。 710 名前：デフォルトの名無しさん mailto:sage [2010/03/20(土) 08:02:40 ] まちがった >>701や>>704のおかげな 711 名前：デフォルトの名無しさん mailto:sage [2010/03/20(土) 08:09:44 ] >>707 ヘルプのありかは>>701はフィードバックしてるんじゃね？ 表示書式指定文字で検索って書いてあるし。 Excelヘルプをオンラインヘルプに読み替えればいいんじゃね？ 712 名前：デフォルトの名無しさん mailto:sage [2010/03/20(土) 10:14:12 ] ヘルプ見ろで切れまくる奴はいるは、ヘルプ見つけられない奴続出だわ、レベル低すぎ。 お前ら一体今までどうやってプログラミングしてたんだよ？ 何でもググってコピペしてたんじゃねーの？ 713 名前：デフォルトの名無しさん [2010/03/20(土) 10:14:17 ] エクセルVBAであるサイトのラジオボタンを自動で選択するマクロを作っているんだけど その方法が検索で調べた方法じゃできなくて困っています。 HTMLのラジオボタンの部分のソースは <input name="kumiban1" value="1" onclick="check1(this)" tabindex="3" type="RADIO"> となっています。 "kumiban1"のvalue="1" をクリックしたいのです。 714 名前：デフォルトの名無しさん mailto:sage [2010/03/20(土) 10:37:36 ] >>713 同じページ内に同じ名前の name="kumiban1" が複数あった場合は objIE.document.all("kumiban1") だとエラーになる。 そういう時は objIE.document.all("kumiban1")(0) 、objIE.document.all("kumiban1")(1) のように番号を付ける。 自分のチェックしたいボタンが何番目かは自分で調べてね。 715 名前：デフォルトの名無しさん mailto:sage [2010/03/20(土) 10:50:18 ] >>712 まぁまぁ、レベルの高いと思われる>>694でさえ見つけられなったんだから。 俺もF1キーで大体事足りてるしね。 ところで2010では有名なFindメソッドの使用例の間違い、直ってるか誰か知らない？ 俺未だにISDNだからベータ落とせない。 前トライしたら途中で切れてばっか。 716 名前：デフォルトの名無しさん mailto:sage [2010/03/20(土) 10:53:30 ] >>712 コピペでマクロ作って社内で高評価 ↓ 自分で考えなければできないようなことをさせられる ↓ コピペ技術だけじゃどうにもなんねぇ・・・でもまともに組んだことねぇ ↓ そうだ！聞いて教えてもらう←いまここ ↓ 結局できない ↓ 評価右肩下がり 717 名前：デフォルトの名無しさん mailto:sage [2010/03/20(土) 10:54:51 ] >ISDN マジか！！ まだいるんだなぁ… テレホ思い出したわ つうか、ネカフェとか行ってDLしてくりゃいいんじゃねぇの？ 718 名前：デフォルトの名無しさん mailto:sage [2010/03/20(土) 11:10:16 ] かわりにダウンロードしてくれる友達とかいないの？ 719 名前：デフォルトの名無しさん mailto:sage [2010/03/20(土) 11:12:59 ] >>717 そんなものあったらすでに行ってるよ。 こちとらド田舎離島だからね。 今度弟にDLしてもらって郵送してもらうかな？ 来年は光が開通するんだが。 720 名前：デフォルトの名無しさん mailto:sage [2010/03/20(土) 11:14:44 ] >>718 リロードしなかった。 >>719のとおり。 721 名前：デフォルトの名無しさん [2010/03/20(土) 11:24:21 ] >>714 ＞番号を付ける の記述はどうやるんですか？ 722 名前：デフォルトの名無しさん mailto:sage [2010/03/20(土) 11:33:19 ] >>721 えっ 回答にちゃんと番号付いてるやん 723 名前：デフォルトの名無しさん mailto:sage [2010/03/20(土) 11:34:30 ] >>715 なんで>>694がレベル高いことになってるんだかさっぱりわからんが、F1で事足りないときの 対処法を言ってるんだが。馬鹿(694)が一人でもいると、自分がマニュアル見ないエクスキューズになるのか？ 724 名前：デフォルトの名無しさん [2010/03/20(土) 11:36:25 ] >>722 いや構文の記述法がよく分からないのです 725 名前：デフォルトの名無しさん mailto:sage [2010/03/20(土) 11:40:09 ] プログラマー RTFMは 遠くになりにけり 726 名前：デフォルトの名無しさん mailto:sage [2010/03/20(土) 11:44:44 ] >>723 レベルが高いをまじにとったか。 昨日Value関連でさんざん罵倒してたのが彼だと思ったからちょい嫌味で書いただけ。 人違いだったらごめんな。 727 名前：デフォルトの名無しさん mailto:sage [2010/03/20(土) 11:49:06 ] >>724 ブラウザをコントロールする方法はいくつかあるから、 まずは自分のやりたい方法というか、試してだめだったプログラムをここにアップして。 そしたら修正点を書くから。 728 名前：デフォルトの名無しさん mailto:sage [2010/03/20(土) 11:53:56 ] ってかここカルシムム不足がいるよね。 あーいえばこういうし困ったもんだ。 729 名前：デフォルトの名無しさん mailto:sage [2010/03/20(土) 11:59:21 ] 牛乳飲もう 730 名前：デフォルトの名無しさん [2010/03/20(土) 12:05:08 ] >>727 いくつか試したんですが例えば↓こんな感じです。 Dim objIE As Object Dim objITEM As Object Dim nNO As Integer Dim strRADIO(0 To 5) As String strRADIO(0) = "1" strRADIO(1) = "2" strRADIO(2) = "3" strRADIO(3) = "4" strRADIO(4) = "5" strRADIO(5) = "6" nNO1 = 1 On Error Resume Next For Each objITEM In objIE.Document.all If objITEM.TAGName = "INPUT" Then If objITEM.Name = "kumiban1" And objITEM.Value = strRADIO(nNO) Then objITEM.Checked = True End If End If Next 731 名前：デフォルトの名無しさん mailto:sage [2010/03/20(土) 12:26:28 ] >>728-729 まったく関係ないけど、それ俗説だから。 732 名前：デフォルトの名無しさん mailto:sage [2010/03/20(土) 12:39:24 ] アホがアホって言われることが気に入らない奴が居るみたいね。 733 名前：デフォルトの名無しさん mailto:sage [2010/03/20(土) 12:40:04 ] >>731 そうかカルシウムじゃ駄目なのか。 もう駄目かも知らんね。 もともとプログラマーは廃人が多いんだが。 734 名前：デフォルトの名無しさん [2010/03/20(土) 15:17:17 ] すみません、A列目の値が x で、1行目の値が y となるようなセルを探すのは VBAでできますか？Excelの機能だけでもできますか？ どんな関数を使えばいいかヒントをください。検索します。 735 名前：デフォルトの名無しさん mailto:sage [2010/03/20(土) 15:25:25 ] >A列目の値が x で、1行目の値が y となるようなセル ？？？？？？？？？？？？？？ 736 名前：734 mailto:sage [2010/03/20(土) 15:34:52 ] すみません、A列の値と1行目の値をキーとして交差するセルを検索したいのです。 737 名前：デフォルトの名無しさん mailto:sage [2010/03/20(土) 15:38:47 ] ctrl + Fで検索すればいいんじゃないの？ つか、ここはVBAの質問スレだぞ。 738 名前：デフォルトの名無しさん mailto:sage [2010/03/20(土) 15:47:57 ] すみません、そのセルの値をプログラム的に参照したいということです。 739 名前：デフォルトの名無しさん mailto:sage [2010/03/20(土) 15:54:08 ] A列の値と1行目の値をキーってのがわからない 例をしめしてちょ 740 名前：デフォルトの名無しさん mailto:sage [2010/03/20(土) 16:07:06 ] >>734 どうかな？ Do While セルの値が空白になるまで 　if セルの値が"x"の場合 　　　セルの位置を取得してLoop終了 　end if 　 　一つ次のセルへ移動 Loop 741 名前：740 mailto:sage [2010/03/20(土) 16:28:45 ] 考え方は以下の手順でよろしいかと。 A列を検索し、"x"の入っているセルの行番号を取得 1行を検索し、"y"の入っているセルの列番号を取得 Cells(行, 列).Value で目的のセルの値を取得 742 名前：デフォルトの名無しさん mailto:sage [2010/03/20(土) 16:40:39 ] worksheetfunctionでlookupとかじゃだめなの？ 質問者のレベル的にそこまで難しいことをしてなさそう。 743 名前：デフォルトの名無しさん mailto:sage [2010/03/20(土) 16:52:32 ] でも、質問があると速攻答えてくれるお前らは何だかんだで根はいい奴等だと俺は思ってるんだからね/// 744 名前：デフォルトの名無しさん mailto:sage [2010/03/20(土) 16:59:13 ] >>713,730 コピペミスだと思うけど 　<input name="kumiban1" value="1" onclick="check1(this)" tabindex="3" type="RADIO"> を対象なら >>730 は 　誤 nNO1 = 1 　正 nNO = 0 ではないかな これでチェックが入るはず その上でonclick="check1(this)"を作動させたいのであれば objITEM.Checked = True を objITEM.Click に変更してみては？ 745 名前：デフォルトの名無しさん mailto:sage [2010/03/20(土) 18:44:50 ] 下手な言葉で説明されるよりも具体例を出して何をしたいのかを言った方が遥かに早いと思うぞ >>734 746 名前：デフォルトの名無しさん mailto:sage [2010/03/20(土) 18:57:12 ] 質問です。 決まったセルの位置をVBAで扱う場合、 私は下記のように定数定義して使っています。 Public const 合計金額欄 As String = "D8" この方法は、 Range(合計金額欄) には良いのですが、 Cells(r, c)　で使いにくい欠点があります。 みなさんはどんな風に位置を定義していますか？ 747 名前：デフォルトの名無しさん mailto:sage [2010/03/20(土) 19:30:22 ] >>746 極力マジックナンバーや文字列リテラルをコードの中に入れないと言う 方向性はいいけど、度が過ぎるとくどいコードになるから嫌われるよ。 セルくらいはコードの中でオブジェクト変数に Set c = Range("A8") と書いてcを使い回せばいいじゃん。 多くのプロシージャで定数の合計金額欄を使いたければ 各プロシージャの 中でオブジェクト変数に Set c = Range(合計金額欄) などとセットしてcを使い回せばいい。 CellsやRangeを頻繁に使うコードはあまりきれいじゃないから。 748 名前：デフォルトの名無しさん mailto:sage [2010/03/20(土) 21:01:14 ] プロシージャの先頭で Set c = Range(合計金額欄) みたいにして、実際の処理にはcを使うようにすればいい。 749 名前：デフォルトの名無しさん [2010/03/20(土) 21:04:11 ] 「名前」を挿入しろよ 750 名前：デフォルトの名無しさん mailto:sage [2010/03/20(土) 21:19:53 ] >>725 2010のFindメソッドのヘルプは相変わらず間違ったまま。 直す気はさらさらないんでしょうね。 2002のころから報告は山ほどいってるはずなのに。 あと静かになったところを混ぜ返すのもなんだけど >>669,>>672 別にFormatの第二引数の記述が間違ってるわけではないでしょう。 ご本人が>>678で書かれてるように第二引数の書式にそって出力 されてるだけだから。 Format(Range("a1"), Range("a1").NumberFormat) すなわち Format(1, "General") すなわち"Genaral"の左4文字は書式指定文字で Format(1, "Gene"""ral""")と同じ。 シリアル値の1は1899/12/31(明治32年12月31日)だから 書式にそって"M32032ral"が出力された。 別に記述が間違ってるわけではないですね。 "M32032ral"に意味があるかと言われれば何もないけど Format(値,Range(***).NumberFormat)って書き方は日付の値検索で 使うこともあるね。 長文失礼 751 名前：デフォルトの名無しさん mailto:sage [2010/03/20(土) 21:25:00 ] わかった。 お前が一番のいらない子だ。 752 名前：デフォルトの名無しさん mailto:sage [2010/03/20(土) 21:27:08 ] つか、暴言は気まくりの奴をなんで「ご本人」とか言ってるんだか 753 名前：746 mailto:sage [2010/03/20(土) 21:35:04 ] >>747 >Set c = Range(合計金額欄) なるべく上記のようにして変数で取り扱うようにしたり、 Withで記述を省略したりしています。 >度が過ぎるとくどいコードになるから嫌われるよ。 入力フォームと定数定義を作りながら、 だんだん動作と実装のイメージを固めてコーディングに取り掛かる、 という作り方をしてるorz。 754 名前：デフォルトの名無しさん mailto:sage [2010/03/20(土) 21:38:09 ] >>750 何を言いたいのか良く解らないけど、それマニュアル読めば解決することだよね？ マニュアル読めという回答はするなという主張なのかな。 755 名前：デフォルトの名無しさん mailto:sage [2010/03/20(土) 21:48:26 ] ほとんどの質問はぐぐれば解決することだよね？ 以下略

---

---

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

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