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/ 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 ] ほとんどの質問はぐぐれば解決することだよね？ 以下略 756 名前：デフォルトの名無しさん mailto:sage [2010/03/20(土) 21:49:12 ] 暴言ねぇ、 そんなのどうでもいい。 仮に丁寧でも内容が間違ってれば駄目だから。 ヘルプ読めはべつにいいんじゃないの？ ただ間違った指摘があったから書いただけ。 757 名前：デフォルトの名無しさん mailto:sage [2010/03/20(土) 21:51:25 ] >>746 本当に決まり切った位置なら、セルに名前を付ける。 home.att.ne.jp/zeta/gen/excel/c03p05.htm そうじゃないなら、Rangeを返す関数を作ったり、そのRangeの値を返す関数を作ったりする。 function SumPriceRange() as range set sumpricerange = range("d8") end function function GetSumPrice() as long getsumprice = range("d8").value end function とか。 758 名前：デフォルトの名無しさん mailto:sage [2010/03/20(土) 21:58:44 ] >>750 君って、printf("%d", some_pointer)で変な値が出力されるんですけど、とか聞かれたら、 どのような仕組みでその変な値になるか説明しそうだな。 759 名前：746 mailto:sage [2010/03/20(土) 22:09:56 ] >>757 セル範囲を管理するモジュールを１つ用意して、 その中にセル範囲を返す関数を並べ、 各プロシージャはそれを参照するという感じでしょうか？ 760 名前：デフォルトの名無しさん mailto:sage [2010/03/20(土) 22:12:32 ] >>750 669だけど、WorksheetFunction.Text(値,書式)のように返り値1を期待してのものだったので俺の間違いでいいです。 これ以上相手すると疲れるから。 降参です。 761 名前：デフォルトの名無しさん mailto:sage [2010/03/20(土) 22:17:28 ] 自分で事を荒立てといて、なんていいぐさｗ 762 名前：デフォルトの名無しさん mailto:sage [2010/03/20(土) 22:23:59 ] 最初のレスでG+e+n+e+ralで表示された結果って書いとけば良かったんだよ。 マニュアル読めとか出し惜しみすんなよ。 763 名前：デフォルトの名無しさん mailto:sage [2010/03/20(土) 22:37:59 ] なんか再燃してるねぇ。 2chはこうじゃなくっちゃｗ >>752 暴言がどれをさすか知らんけど、クソ生意気と書いたのは俺で質問者じゃねーから。 >>762 出し惜しみする頭なんてあるわけないと思うｗ Formatの使い方よく知らないからヘルプヘルプとわめいてたんじゃね？ 764 名前：デフォルトの名無しさん mailto:sage [2010/03/20(土) 22:41:43 ] ﾔﾚﾔﾚ ┐(´ｰ｀)┌ ﾏｲｯﾀﾈ 765 名前： [―{}@{}@{}-] デフォルトの名無しさん mailto:sage [2010/03/20(土) 23:49:45 ] >>750 どうもです MSも相変わらずですか。 766 名前：デフォルトの名無しさん [2010/03/21(日) 10:49:19 ] >>744でもダメですた。 競艇の自動投票を作っているんですけど競艇のサイトが特殊なのかな・・・ ラジオボタンのチェックが入りません。 767 名前：デフォルトの名無しさん mailto:sage [2010/03/21(日) 10:58:32 ] >>750 何がどう間違っているのか書けよ屑 768 名前：デフォルトの名無しさん mailto:sage [2010/03/21(日) 11:30:42 ] >>766 投票ページにアクセスするには会員登録が必要だろうから、 そのページのソースをどっかにアップしてくんない？ 769 名前：デフォルトの名無しさん mailto:sage [2010/03/21(日) 12:06:08 ] >>750 お前の存在が間違いじゃないの？ そもそも荒れた原因はお前が最初にFormatのやつうざいと言ったからだろ？ Valueから暴れてるよな？ もういいから消えろ。 素人の好奇心云々や文系高卒やらさんざん暴言吐いてたのはお前だと思うが 素人はお前だ。 玄人と思ってるかも知らんけど、それは勘違いというものだ。 わかった？トウシロのぼくちゃんｗ 770 名前：デフォルトの名無しさん mailto:sage [2010/03/21(日) 12:07:29 ] テンプレに、「まずOption Explicitをつけろ」も追加が必要だな 771 名前：デフォルトの名無しさん mailto:sage [2010/03/21(日) 12:09:54 ] おーすまん>>750 上はもちろんトウシローの>>767あてね 772 名前：デフォルトの名無しさん mailto:sage [2010/03/21(日) 12:11:17 ] >>750 > 別にFormatの第二引数の記述が間違ってるわけではないでしょう。 これってへりくつって言うんですよ。 それに既に>>678で説明済みのものを、自分の言葉で長々とかかずにはいられない ほど自己顕示欲をもてあましてるんでしょうか。 773 名前：デフォルトの名無しさん mailto:sage [2010/03/21(日) 12:13:46 ] >>769 そんなに基本的な論理学もわかってなかったことを指摘されたのか痛かったのかな。 知らないことを教えてもらったという意味で、感謝されてもいいくらいだ。 774 名前：デフォルトの名無しさん mailto:sage [2010/03/21(日) 12:13:54 ] 「間違いを訂正するときには、 名前欄に自分のレス番号を記入すること」も追加かな。 775 名前：デフォルトの名無しさん mailto:sage [2010/03/21(日) 12:20:31 ] はっきり言って、>>2にもあるように、Excelのバージョンくらい書くのがこのスレの礼儀だし、 まずヘルプを確認するのが常識なんだけど、それを指摘してる奴が痛すぎて、相対的に バージョンも書かない、ヘルプも読まない奴の方が正義っぽくなってる。 776 名前：デフォルトの名無しさん mailto:sage [2010/03/21(日) 12:22:47 ] そいつの相手してる奴がこれまた痛いｗ 777 名前：デフォルトの名無しさん mailto:sage [2010/03/21(日) 12:23:19 ] >>767 "M32032ral"って何かって質問だから>>762を読めば？ 何で出し惜しみしたの？ 778 名前：デフォルトの名無しさん mailto:sage [2010/03/21(日) 12:28:44 ] いろんな厨がいるが、ヘルプ厨ってのもいるんだなｗ 779 名前：744 mailto:sage [2010/03/21(日) 12:39:04 ] >>766 これ以上は自分の手に負えそうに無い感じだけど 最後に１点だけ If objITEM.Name = "kumiban1" And objITEM.Value = strRADIO(nNO) Then 　Debug.Print "ここに北" 　objITEM.Checked = True End If とかやってみ イミディエイトウインドに何も表示されないなら 対象タグを見つけられてない フレーム分割されているとかそんな感じじゃないのかな 780 名前：デフォルトの名無しさん mailto:sage [2010/03/21(日) 12:42:42 ] >>777 俺は頭悪いからそんなこと分らないんだよ とにかくヘルプだヘルプ！ VB.NETのヘルプじゃなくてVBAのヘルプな 781 名前：デフォルトの名無しさん mailto:sage [2010/03/21(日) 12:49:17 ] わからなかったら素直にそういえばいいのに。 自分の無知を認めることも大事だ。 782 名前：デフォルトの名無しさん mailto:sage [2010/03/21(日) 13:20:02 ] printf("%d", some_pointer)で変なマイナスの値が表示されることに 一生懸命説明する奴大杉。 783 名前：デフォルトの名無しさん mailto:sage [2010/03/21(日) 13:32:05 ] 自作自演もほどほどにしようぜ 784 名前：デフォルトの名無しさん mailto:sage [2010/03/21(日) 13:33:34 ] 必死だなｗ しかしまぁ流れを読んで見ると>>678に対する>>679が一番アホだな。 こういう馬鹿ヘルプ厨がいるからおかしくなるんだよ。 785 名前：679 mailto:sage [2010/03/21(日) 13:38:32 ] 今顔真っ赤です。 こうですか？わかりません（＞＜） 786 名前：デフォルトの名無しさん mailto:sage [2010/03/21(日) 13:47:38 ] >>785 お前は暴れてるやつの一人だと思ったが、ただ無知だっただけの善意の第三者か？ 787 名前：デフォルトの名無しさん mailto:sage [2010/03/21(日) 14:02:22 ] レスが集中してるから暴れてるのは一人か二人だと思う。 暴言吐いてる人が構ってチャンじゃないかな。 788 名前：デフォルトの名無しさん mailto:sage [2010/03/21(日) 14:46:51 ] OAuthをExcelVBAで書きたいんだけれど サンプルどこかに転がってるでしょうか？ 789 名前：デフォルトの名無しさん mailto:ｓａｇｅ [2010/03/21(日) 15:52:47 ] withevents　を使用するために参照設定があれば教えてください また、使用方法の勉強に適したURLあればお願いします。 790 名前：766 [2010/03/21(日) 16:34:22 ] >>768 ソースアップしました。 firestorage.jp/download/90a5112c83637a3be41a86ca9723b61c6c7229b1 791 名前：デフォルトの名無しさん mailto:sage [2010/03/21(日) 17:15:55 ] WithEventに参照設定要ったっけ？入れなくてもThisWorkBookモジュールに入れたら動いたけど あと、その競艇投票ソースとExcelとの関係は？ 792 名前：デフォルトの名無しさん mailto:sage [2010/03/21(日) 17:17:38 ] あ、それから説明サイトは、、、、 mougの即行テクニックで witheventsで検索すればちょろちょろと解説がある 793 名前：デフォルトの名無しさん mailto:sage [2010/03/22(月) 01:55:13 ] ＶＢＡで練習用にマインスイーパ作った 他なんか勉強になって作って楽しいもんないかね 794 名前：デフォルトの名無しさん mailto:sage [2010/03/22(月) 02:17:08 ] >>793 ゲーム作って勉強したいならこんなんあるみたいよ。 www.amazon.co.jp/gp/product/4844326864/ 795 名前：デフォルトの名無しさん mailto:sage [2010/03/22(月) 03:01:05 ] >>794 なんだかオモチャ臭がぷんぷんするけど どうなんだろうね 796 名前：デフォルトの名無しさん mailto:sage [2010/03/22(月) 03:08:47 ] >>795 どうなんだろねー？ 動画見たら、こんなんVBAで出来るの！？って興味持ったけど 値段高いからねぇ。 図書館で検索したけどなかったわｗ 797 名前：デフォルトの名無しさん [2010/03/22(月) 08:28:03 ] VBA、というよりはWin32APIを使いまくってるけどね ttp://gyouzausa.hp.infoseek.co.jp/mode1/GAME/index.html 798 名前：デフォルトの名無しさん [2010/03/22(月) 08:45:10 ] 初歩的な質問ですけど、教えてください '対象行をdataシートへコピーする Sub ColumCopy(ByVal cnt As Integer) Dim k As Integer Worksheets("data").Activate k = 0 Do k = k + 1 Loop Until Cells(k, 1) = "" Worksheets("Page1").Range(Cells(cnt, 1), Cells(cnt, 8)).Copy _ Destination:=Worksheets("data").Range(Cells(k, 1), Cells(k, 8)) Worksheets("Page1").Activate End Sub というのを作ったんです（cntには51という値が、kには1という値が入っています）が、 実行時エラー アプリケーション定義またはオブジェクト定義のエラーです でWorksheets("Page1").〜の部分で終了してしまってます どの様に直せばよろしいのでせうか？ 799 名前：デフォルトの名無しさん mailto:sage [2010/03/22(月) 09:38:03 ] すまん、俺のせいですげー荒れたみたいだな。 > 結局Formatじゃ駄目でWorksheetFunction.Textってことか。 > 俺の間違いだったわ。 ヘルプ見れば（もちろん679をレスした時点で俺はヘルプを見てる）、自分のやりたいことを Formatで実現するには"General Number"を指定しないといけないということに気づくんじゃ ないかと思ってヘルプ見ろって言ったんだよね。 次からは、ヘルプ見ろってつい言いたくなっても自重するよ。 800 名前：デフォルトの名無しさん mailto:sage [2010/03/22(月) 09:42:47 ] もう一個言い訳しとくと、>>672で > 知ってるのか知らないのかわからないが とつけたのは、1にならない理由がわからないのか、わざと定義されてない引数を指定したら 変な文字列になったけど、その変な文字列に変換されるロジックをしりたいのかわからなかった から。 多分前者だろうと判断して、こう書いた。 > Formatの第二引数の指定方法が間違ってる。 801 名前：デフォルトの名無しさん mailto:sage [2010/03/22(月) 09:50:36 ] あと、>>675でちょっとカチンときてしまった。ヘルプも見ない奴に言われたくないって。 愚痴ばかりですまん。しばらくこのスレの書き込み自重する。 802 名前：デフォルトの名無しさん mailto:sage [2010/03/22(月) 11:52:04 ] >>798　CellsにもSheetを指定しなきゃダメ Worksheets("Page1").Range(Worksheets("Page1").Cells(cnt, 1), Worksheets("Page1").Cells(cnt, 8)).Copy _ Destination:=Worksheets("data").Range(Worksheets("data").Cells(k, 1), Worksheets("data").Cells(k, 8)) With Worksheets("Page1") .Range(.Cells(cnt, 1), .Cells(cnt, 8)).Copy _ Destination:=Worksheets("data").Range(Worksheets("data").Cells(k, 1), Worksheets("data").Cells(k, 8)) End With Dim Ws1 As Worksheet, Ws2 As Worksheet Set Ws1 = Worksheets("Page1") Set Ws2 = Worksheets("date") Ws1.Range(Ws1.Cells(cnt, 1), Ws1.Cells(cnt, 8)).Copy _ Destination:=Ws2.Range(Ws2.Cells(k, 1), Ws2.Cells(k, 8)) 好きな書き方でどうぞ 803 名前：デフォルトの名無しさん mailto:sage [2010/03/22(月) 13:51:29 ] >ヘルプ見ろって言ったんだよね。 皆ヘルプ見て分からなかったから質問スレに書き込むんじゃないかな。 キーワードがヒットしなかったか、重要な情報を見落としたかはともかく。 804 名前：798 mailto:sage [2010/03/22(月) 14:10:23 ] >>802 Cellにも指定しないといけなかったんですか。 気が付きませんでした。 ありがとうです 805 名前：デフォルトの名無しさん mailto:sage [2010/03/22(月) 17:23:03 ] Cell表記でいつも思うんだが Worksheets("data").Range(Worksheets("data").Cells(k, 1), Worksheets("data").Cells(k, 8)) より Worksheets("data").Cells(k, 1).Resize(1, 8) のほうがコード読み書きしやすくない？ 806 名前：デフォルトの名無しさん mailto:sage [2010/03/22(月) 17:32:39 ] ついでに言えばコピー先は左上だけ指定すればいい Destination:=Worksheets("data").Cells(k, 1).Resize(1, 8) ↓ Destination:=Worksheets("data").Cells(k, 1) 807 名前：デフォルトの名無しさん [2010/03/22(月) 17:47:27 ] workSheets(\\\"data\\\").select したほうが短くならない？ 808 名前：デフォルトの名無しさん [2010/03/22(月) 18:22:09 ] ＶＢＡを学ぼうと本を買ってきたのですが、いざ読んでみたものの、 この次何をしたらいいかよくわかりません。 何をしたらいい？ 809 名前：デフォルトの名無しさん mailto:sage [2010/03/22(月) 18:36:00 ] PCを窓から捨てる 810 名前：デフォルトの名無しさん [2010/03/22(月) 18:42:57 ] >>809　（´・д･`)窓からＰＣ捨てたら、ＶＢＡが学べるの？ 811 名前：デフォルトの名無しさん mailto:sage [2010/03/22(月) 20:21:37 ] >>805-806 同感 しかしクソIME(Microsoft Office IME 2007)は上の「どうかん」が変換できないよ。 他にも辞書登録しないと駄目なのがいっぱいあるが中国人に作らせたんじゃないだろうな。 812 名前：デフォルトの名無しさん [2010/03/22(月) 20:42:03 ] 2ｃｈとかに書き込む時はgoogleのが便利なのに(´・ω・｀) 最近はちょっと軽くなったし 813 名前：デフォルトの名無しさん mailto:sage [2010/03/22(月) 20:42:20 ] 中国人だよ。 814 名前：デフォルトの名無しさん mailto:sage [2010/03/22(月) 21:32:01 ] テスト同感 >>812 Googleの日本語入力があるなんて知らなかったよ。 今ダウンロードして使ってる。 いいこと聞いたよ。 >>813 アチャー、中国神社無理もないな。 うーん、Googleも完璧じゃないな。 815 名前：デフォルトの名無しさん mailto:sage [2010/03/22(月) 23:55:19 ] >>808 手段と目的が逆転した時は、まず目的を探せ 816 名前：デフォルトの名無しさん mailto:sage [2010/03/23(火) 00:36:44 ] 「入門書はクリアしたので次のステップは何がよいでしょうか」 という問いかけかもしれん 817 名前：デフォルトの名無しさん mailto:sage [2010/03/23(火) 02:13:17 ] >>816 じゃあやっぱり目的を探せであってるんじゃないか？ 818 名前：デフォルトの名無しさん mailto:sage [2010/03/23(火) 07:08:47 ] じゃあ次は中級の本を読めばいいんじゃね？ 819 名前：デフォルトの名無しさん mailto:sage [2010/03/23(火) 13:54:18 ] Cells(3,5*i-2)からCells(k,5*i+1)まで というように行位置と列位置で指定した範囲をコピペしたい場合 何かいい方法ありますか？ 行位置と列位置からセル番地を求めて Range("○○:××")って形で指定くらいしか思いつかないんですが 820 名前：デフォルトの名無しさん mailto:sage [2010/03/23(火) 13:57:09 ] >>819 CellsはRangeの範囲指定にそのまま使える。 Range(Cells(3, 5 * i - 2), Cells(k, 5 * i + 1)) と書けばいい 821 名前：デフォルトの名無しさん mailto:sage [2010/03/23(火) 14:15:50 ] >>820 ありがとうございます！ 822 名前：デフォルトの名無しさん [2010/03/24(水) 03:18:22 ] 教えてください。 office 2000、Win XP SP3です。 このようなことはできるでしょうか? ・マウスでセルをクリックすると、そのセルに、色が付くとか、あるいは●の文字が出る。 ・もう一度そのセルを押すと、色が無くなる(白になる)とか、あるいは文字が消える。 セルを、まるでチェックボックスに見立てたような動作です。 通常のチェックボックスをシート上に置けばよいのでしょうが、 行単位で、それぞれにチェックを付けたいのです。 そうすれば、行の挿入や削除したとき、チェックボックスも一緒に増減するからです。 このようなことがVBAでできるでしょうか? 宜しくお願いします。 823 名前：デフォルトの名無しさん mailto:sage [2010/03/24(水) 04:05:05 ] >>822 無理。 Worksheet_SelectionChange、Worksheet_BeforeRightClick、Worksheet_BeforeDoubleClickなどで 代用する手はあるけど希望通りの動作にならなかったり副作用が出たりする。 824 名前：デフォルトの名無しさん mailto:sage [2010/03/24(水) 04:13:30 ] セルのクリックってWin32APIでできそうなんだけどなあ。 需要もあると思うんだけど、検索しても見つけられないんだよな。 825 名前：デフォルトの名無しさん mailto:sage [2010/03/24(水) 08:07:38 ] 2003　ＸＰです Sub デイデータ制御() Worksheets("水産").Cells(5, 2).Select End Sub これを同じブック・違うシート上でやると実行時エラー1004が出ます。 あと、activate とselect って何が違うんですか？ 826 名前：デフォルトの名無しさん mailto:sage [2010/03/24(水) 09:37:56 ] >>825 activeは範囲選択したときのtabの動作 selectは左クリックで操作したときの動作 selectの方が早くて不具合も少なかったと思う 後マクロはシート1に Sub Macro1() Call デイデータ制御 End Sub 標準モジュールに Sub デイデータ制御() Worksheets("水産").Select Range("a1").Select End Sub と記述する。別シートを洗濯できないのはスコープの問題。 とりあえず簡単に、別シートのマクロは記述できないと覚えて置けば良い それでもWorksheets("水産").Cells(5, 2).Selectと一度に記述ができないのは何でだったかな 忘れた。 827 名前：デフォルトの名無しさん mailto:sage [2010/03/24(水) 14:34:19 ] >>826 回答ありがとうございます。 一度に記載出来ないのは仕様だったのね・・・ 828 名前：デフォルトの名無しさん mailto:sage [2010/03/24(水) 16:56:07 ] 自動整形をやめる方法ってありますか？ *はスペース hoge*=*1 hogehoge*=*1 でなくて hoge*****=*1 hogehoge*=*1 って揃えたいんですが 829 名前：デフォルトの名無しさん [2010/03/24(水) 18:17:14 ] FUNCTIONで関数を作っったら、ユーザー関数として使えるのでしょうか？ 本では使えるようなことが書いてあるのですが、 関数の挿入のWINDOWでユーザー関数の項目が出てこないので選べません。 エクセルは2003で、超超・・（略）・・超初心者です。 830 名前：デフォルトの名無しさん mailto:sage [2010/03/24(水) 21:55:11 ] とりあえず、>>1-7見ような

---

---

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

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