Excel VBA質問スレ Part13

1 名前：デフォルトの名無しさん mailto:sage [2009/09/30(水) 12:25:04 ] 過去スレ 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/ 116 名前：デフォルトの名無しさん [2009/10/06(火) 10:07:27 ] こんにちは。あたしはｶｳｶﾞｰﾙ。 AAとして成り上がるため、スレを巡る旅をしています。 　 　 ＿_ 　 ヽ|＿_|ノ　　　　ﾓｫ 　　||‘‐‘||ﾚ　　　_)_, ―‐ 、 　　/(Ｙ (ヽ＿ /・ ヽ　　　 ￣ヽ 　　∠＿ゝ　 ｀ ^ヽ　ﾉ.::::::__( ノヽ 　　　_/ヽ　 　　 　/ヽ￣￣/ヽ 117 名前：デフォルトの名無しさん mailto:sage [2009/10/06(火) 10:27:45 ] >>114 いやそうじゃなくて「= 1」という比較演算が無駄じゃないかって指摘。 このおかげで遅くなってる希ガス If i Mod 2 = 1 Then と比較するなら If i And 1 = 1 Then とするべきだろうし、 If i And 1 Then に書き方を合わせるなら If i Mod 2 Then と比較しないと不公平じゃないかなーって思った。それだけ。 118 名前：デフォルトの名無しさん mailto:sage [2009/10/06(火) 10:35:49 ] >>117 たしかに公平にやるならそうだよな。 公平にやってもビット演算が少し速いみたいだけど、人に見せるコードならIf i Mod 2 = 1 Then だな。 119 名前：デフォルトの名無しさん mailto:sage [2009/10/06(火) 12:31:35 ] おまえら仕事しろよ 120 名前：デフォルトの名無しさん [2009/10/06(火) 19:37:14 ] 速度の事は別スレ建てて、そこでやれ 121 名前：デフォルトの名無しさん mailto:sage [2009/10/06(火) 19:50:09 ] 俺はわからなかったよ！ 122 名前：デフォルトの名無しさん mailto:sage [2009/10/07(水) 02:02:48 ] お前ら、奇数ってマイナスもありなんだぜ i Mod 2 = 1 ではマイナスの奇数が判定できない時点で失格 123 名前：デフォルトの名無しさん mailto:sage [2009/10/07(水) 03:32:56 ] 何の問題もない たとえば4bitなら -1 = 1111 -2 = 1110 -3 = 1101 124 名前：デフォルトの名無しさん mailto:sage [2009/10/07(水) 07:11:14 ] >>123 ー3 mod 2 = 1 になった？ 125 名前：デフォルトの名無しさん mailto:sage [2009/10/07(水) 07:24:01 ] yes we can 126 名前：デフォルトの名無しさん mailto:sage [2009/10/07(水) 08:52:58 ] >123 天然ｗ 127 名前：デフォルトの名無しさん mailto:sage [2009/10/07(水) 09:11:24 ] >>122 すみませんねぇ、あいにくマイナス志向じゃないもんでね。 じゃぁIf i Mod 2 <> 0 Thenならあなたのおきにメスでしょうか？ 128 名前：デフォルトの名無しさん mailto:sage [2009/10/07(水) 09:27:47 ] ド素人にはよくあることｗ 129 名前：デフォルトの名無しさん mailto:sage [2009/10/07(水) 09:50:25 ] ちなみに If i Mod 2 Then なら負数でも問題ないんだが 130 名前：デフォルトの名無しさん mailto:sage [2009/10/07(水) 10:48:04 ] ー3 mod 2 = 1 が偽になる環境って ー(3 mod 2) = -1 と解釈されてるんだろ ((ー3) mod 2) = 1 と書けば問題無し 131 名前：デフォルトの名無しさん mailto:sage [2009/10/07(水) 11:08:36 ] >130 天然ｗ 132 名前：デフォルトの名無しさん mailto:sage [2009/10/07(水) 11:17:12 ] Modで盛り上がってるところすみませんが、四捨五入ってVBAに関数ある？ Roundは微妙に違うし。 133 名前：デフォルトの名無しさん mailto:sage [2009/10/07(水) 11:24:05 ] >>132 ない 数式を工夫したり、関数を自作する必要がある またはWorksheetFunction.Round 134 名前：デフォルトの名無しさん mailto:sage [2009/10/07(水) 11:26:43 ] >>130 キミはまず、とりあえずマイナス記号を入力する方法から勉強しようか 135 名前：デフォルトの名無しさん mailto:sage [2009/10/07(水) 11:27:20 ] は-い(;ﾟдﾟ)ｧ 136 名前：デフォルトの名無しさん mailto:sage [2009/10/07(水) 13:37:07 ] >>133 一応VBAにもRoundって関数がある まあ、これ使うと思わぬ結果が出ることもある 自作するなら、基本的には0.5足して切り捨てなんだが これもマイナスのときどうするか考えると結構じゃまくさい 137 名前：デフォルトの名無しさん mailto:sage [2009/10/07(水) 14:13:01 ] floor 138 名前：デフォルトの名無しさん mailto:sage [2009/10/07(水) 15:44:12 ] >>136 ちゃんと最初から読みなさい 質問者はVBAのRoundではだめなことがわかった上で、どうすればいいか質問してる VBAのRound関数とワークシート関数のROUNDは機能が異なるのは既知 139 名前：デフォルトの名無しさん mailto:sage [2009/10/07(水) 16:17:08 ] VBAのRoundも立派な四捨五入ですが。 140 名前：デフォルトの名無しさん mailto:sage [2009/10/07(水) 16:50:28 ] ttp://q.hatena.ne.jp/1154589462 を参考に、ExcelでSELECTを使えるようにしたのですが、うまくいきません。 データベースのテーブルの見出しを変更すると、きちんとした値を返しません。 デフォルトのIDとNAMEでは正常に値を取得できます。 具体的には、 Sheet2を以下のようにして、 | A | B 1 | ID | CATEGORY1 2 | 1 | a 3 | 2 | b 4 | 3 | c Sheet1のA1に「3」を入れ、 A2に「=execsql("select CATEGORY1 from [Sheet2$] where ID = "&A1」と入力。 A2には値のエラーが返される。 どのあたりが問題でしょうか。 OS:WindowsXP Excel ver:2003 (11.8307.8221) 141 名前：デフォルトの名無しさん mailto:sage [2009/10/07(水) 17:15:52 ] ExecSQL = rs("NAME").Value これを変更した？ 142 名前：デフォルトの名無しさん mailto:sage [2009/10/07(水) 17:19:59 ] ＞１４１ 見落としていました。 ありがとうございます。 143 名前：デフォルトの名無しさん mailto:sage [2009/10/07(水) 18:14:31 ] エクセルで指定セル内に文字を入力中、別のセル内にリアルタイムに バイト数を表示させることはできるのでしょうか。 教えてください、エロい人。 144 名前：デフォルトの名無しさん mailto:sage [2009/10/07(水) 18:25:56 ] >>143 無理 145 名前：デフォルトの名無しさん [2009/10/07(水) 18:41:44 ] すみません。 すごく初歩的なことなんですが、 列が縦でrow、行が横でcolumですよね？ A5だとAが列で5が行ってことになりますよね？ A5セルからA10セルまでをループさせたいときに、 5や10の値の定数をrowみたいな名前で宣言してるのを見たんですが、 これってcolumじゃないんですか？？ 書籍なので間違いではなさそうなんですが・・・。 A列B列、C列・・・ 5行、6行・・・ ですよね？ 146 名前：デフォルトの名無しさん mailto:sage [2009/10/07(水) 18:50:02 ] rowが行、colum列 辞書で調べてみ 147 名前：デフォルトの名無しさん mailto:sage [2009/10/07(水) 19:12:00 ] >>139 違うんじゃねーの？ 5は捨てたり入れたりだもんな。 Round(1.5)もRound(2.5)も同じだろ？ 148 名前：デフォルトの名無しさん mailto:sage [2009/10/07(水) 19:29:34 ] >>145 >>146の方の回答が全てだと思いますが、 下のExcel関数をいくつかのセルで試してみれば、理解しやすいかもしれません。 【関数】 =ROW() 　　：この関数が入力されている行の行番号を調べます。 =COLUMN()　：この関数が入力されている列の列番号を調べます。 149 名前：デフォルトの名無しさん mailto:sage [2009/10/07(水) 19:31:05 ] いやでき・・・どうだろ ループでバインドするなりキーイベントで捕捉するなり フォームのＴｘｔボックスとかなら普通に出来るけど、ｋ セル入力中ってどうだっけ 150 名前：デフォルトの名無しさん mailto:sage [2009/10/07(水) 20:49:33 ] Excel2007 正しい言い方が判らないので上手い事伝わるかどうか…なんですけど。 フォーム上にコマンドボタンを縦に5つ貼りつけています。 エンターキーを叩いた時、初期状態では一番上のボタンのマクロが実行され ますが、これを3番目のボタンのマクロが実行される様に変えたいです。 テキストボックスとかだったらタブオーダーを設定すれば順番を指定できま すけど、コマンドボタンについて同一フォーム上で最優先のものを指定する 事出来ますか？ 151 名前：デフォルトの名無しさん mailto:sage [2009/10/07(水) 20:51:48 ] >>149 セルはテキストボックスか何かを継承してるはずなんで、 ハンドルさえ取得できればなんとかなる可能性はあるけど、 かなり大変じゃないかと思う。 それにバージョンごとに方法が違ってくると思う。 たぶんだけど2007が一番やりやすそうな気がする。 入力途中のキーイベントはVBAには存在しないので 自前でフックする必要がある。 152 名前：デフォルトの名無しさん mailto:sage [2009/10/07(水) 20:54:47 ] >>150 コマンドボタンにもタブオーダーはあるよ 153 名前：デフォルトの名無しさん mailto:sage [2009/10/07(水) 20:58:42 ] >>145 A1セルの場合 A=横=列=Column 1=縦=行=Row 154 名前：150 mailto:sage [2009/10/07(水) 21:12:30 ] >>152 プロパティのTabIndexをいじってみたら希望道理になりました。 どうもお騒がせしました m(_ _)m 155 名前：デフォルトの名無しさん [2009/10/07(水) 23:40:36 ] 西暦（2000年以降）年を入力したとき、その1年間の祝日の祝日名、月日及び曜日をイミディエイトウインドウに 表示するプログラムで、サブルーチンプロシージャまたは関数プロシージャを3つ利用しなくてはなりません。 ひたすらサイトを検索したのですが、見つかりませんでした。 全く手が出せず、困っています。どなたか教えてください。よろしくお願いします。 156 名前：デフォルトの名無しさん [2009/10/08(木) 00:06:09 ] 155です。 Excel2007を使用しています。 157 名前：デフォルトの名無しさん mailto:sage [2009/10/08(木) 00:28:45 ] >>155 検索すると結構、マクロ、祝日関数あるよね ダウンロードしてそのソースをみて 考えればいんじゃない 解説してるサイトもあった気がする 158 名前：デフォルトの名無しさん [2009/10/08(木) 00:32:56 ] 155です。ありがとうございます。 祝日判定や、日にちを入れて表示させるものは 見つかったのですが、祝日名を表示させるものは ひとつしか見つからず、ダウンロードしても マクロは見られませんでした… 159 名前：デフォルトの名無しさん mailto:sage [2009/10/08(木) 00:38:20 ] >>155 祝日名を表示させるコードの一例が載っています。 ttp://www.h3.dion.ne.jp/~sakatsu/holiday_logic.htm#VBA 160 名前：デフォルトの名無しさん [2009/10/08(木) 00:45:27 ] 先ほど参照していたのですが、 kt関数は使ったことがなく、わかりませんでした…。 161 名前：デフォルトの名無しさん mailto:sage [2009/10/08(木) 01:36:09 ] >>155 質問の意図がちょっとわからんな。 そういう関数を作れっていう宿題なのか、どこかから手に入れたマクロの使い方を知りたいのか。 ちなみにkt関数は肝心の部分がプロテクトかかってて見えないんじゃなかったっけ？ 162 名前：デフォルトの名無しさん mailto:sage [2009/10/08(木) 13:09:35 ] 全くの初心者の質問なのですが、 ttp://www.matsumae.hokkaido-c.ed.jp/02school/kyouka_01.pdf このサイトにある例１３の問題の、 ex13 上の例13のプログラムを参考にして，自然数Nを入力したとき， Nの約数の個数を求めるプログラムを，次の手順で作れ。 変数ｓを準備し，N以下の自然数で割り切れたとき，ｓに１を加える。 これのやり方が全くわかりません。 どなたか簡単に教えてくれないでしょうか。 163 名前：デフォルトの名無しさん mailto:sage [2009/10/08(木) 13:45:39 ] >>162 宿題スレにいけ。ぼけ。 Sub test() Dim inputNum As Integer Dim count As Integer Dim divNums As Integer inputNum = InputBox("整数入力してね") For count = 1 To inputNum If inputNum Mod count = 0 Then divNums = divNums + 1 End If Next Debug.Print divNums End Sub ちなみにサンプル例が間違えてるからなｗ 松前高等学校のプログラム担当の先生に言っといて。 164 名前：デフォルトの名無しさん mailto:sage [2009/10/08(木) 14:11:18 ] >>163 ありがとうございます。 165 名前：デフォルトの名無しさん mailto:sage [2009/10/08(木) 15:16:46 ] これか pc12.2ch.net/test/read.cgi/tech/1200989025/115- 166 名前：デフォルトの名無しさん mailto:sage [2009/10/08(木) 16:01:04 ] >>143 入力したキーのフックに使えるAPI関数があるにはある SetWindowsHookEx 恒常ループを設定して 多分出来ないんだろうが 167 名前：デフォルトの名無しさん mailto:sage [2009/10/08(木) 16:13:28 ] >>多分出来ないんだろうが 何しに出てきたんだｗｗｗ 168 名前：デフォルトの名無しさん mailto:sage [2009/10/08(木) 17:13:36 ] >>167 キー入力のバインドは出来るんだろうが、他のセルに書きながら元セルのアクティブどうするかとか、全角や変換どうするんだとか考えたら難しいかなあと キー入力関係なく、一定時間ごとにセル内容を参照してってのも、入力を確定してないから無理だろうし セル入力中のデータを捕捉出来れば或いは 169 名前：デフォルトの名無しさん [2009/10/08(木) 18:17:21 ] 155です。 学校で授業でやっていて、「テストまでには出来るようにしておけ」 といわれています。 サブルーチンもまだ1度しか使ったことがなく、 マクロを見て理解するのが精一杯の状態です。 170 名前：デフォルトの名無しさん mailto:sage [2009/10/08(木) 18:39:53 ] 課題には剥かないよな 休日と振替は法律で決まってるからアルゴリズムまるぱく出来るが、最近は数年で法律改正されてる 171 名前：デフォルトの名無しさん mailto:sage [2009/10/08(木) 19:36:09 ] 頭のおかしな人には気をつけましょう info.2ch.net/before.html 172 名前：デフォルトの名無しさん mailto:sage [2009/10/08(木) 19:40:37 ] なんだ突然 173 名前：デフォルトの名無しさん mailto:sage [2009/10/08(木) 19:49:36 ] Excel2002で3D積み上げ棒グラフを作る方法を教えてください。 ttp://terrapy.sakura.ne.jp/image/3DStackedColumn.gif 174 名前：デフォルトの名無しさん mailto:sage [2009/10/08(木) 20:14:32 ] >>169 カレンダー関連の処理は簡単に見えて実はかなり難しい。 はっきり言って初心者には無理。 > プロシージャを3つ利用しなくてはなりません。 てのがひっかかるんだけど、 学校が用意したサブルーチンがあって、それを呼び出せって話じゃないの？ 175 名前：デフォルトの名無しさん [2009/10/08(木) 23:37:56 ] サブルーチンも別マクロで自分で作らなければなりません… 176 名前：デフォルトの名無しさん mailto:sage [2009/10/08(木) 23:46:19 ] >>175 自分も初心者には少し荷が重い気がするけど 一度に全てやろうとするよりも 一つずつ片付けた方が良いとおもうよ 祝日に関しては内閣府ページ www8.cao.go.jp/chosei/shukujitsu/gaiyou.html が参考になると思うんで どのような処理が必要かまず検討してみたら？ テーブルに１年分(1/1〜12/31)のデータ作成して それに祝日データを入れていく方法が一番分かり易いんじゃないかな 振替休日の判定とか 休日 平日 休日　→　休日 休日 休日　とする処理とかあるし 177 名前：デフォルトの名無しさん [2009/10/09(金) 00:07:41 ] 西暦年を入力→1/1の曜日を求める→出力「元日　1月１日　○曜日」 →１月第二月曜の日を求める→出力「成人の日　１月○日　月曜日」 …の繰り返しをする、ということしか… さまざまなサイトに出ている「春分秋分」については、月日は「春分日」「秋分日」、 曜日は「未定」と表示すればよいのですが… 178 名前：デフォルトの名無しさん mailto:sage [2009/10/09(金) 00:23:56 ] 2012以上の数字が入力されたら「その年の祝日はまだ決定していません」と表示するのが正解 179 名前：デフォルトの名無しさん mailto:sage [2009/10/09(金) 00:26:24 ] 祝日法は数年ごとに改定されてるから、計算で求めようとしてもプログラムが長くなるだけ。 ワークシートか配列に50年分の一覧表を入れておいて、それを表示するだけの方がよっぽどコンパクトで正確。 180 名前：デフォルトの名無しさん mailto:sage [2009/10/09(金) 00:36:00 ] 日付が決まっている祝日 第二月曜日など動く祝日 祝日と祝日の間、振替休日 の三つに別けてやるのがこの宿題の正解だな 181 名前：デフォルトの名無しさん [2009/10/09(金) 00:37:28 ] 元日 １月１日 成人の日 １月の第２月曜日 建国記念の日 ２月１１日 春分の日 春分日 昭和の日 ４月２９日 憲法記念日 ５月３日 みどりの日 ５月４日 こどもの日 ５月５日 海の日 ７月の第３月曜日 敬老の日 ９月の第３月曜日 秋分の日 秋分日 体育の日 １０月の第２月曜日 文化の日 １１月３日 勤労感謝の日 １１月２３日 天皇誕生日 １２月２３日 について表示できれば良く、改定については考慮しません。 182 名前：デフォルトの名無しさん [2009/10/09(金) 00:39:57 ] 祝日を表示したいので、振替休日についても考慮しません。 183 名前：デフォルトの名無しさん mailto:sage [2009/10/09(金) 01:13:42 ] かなり楽に成っちゃったね ならば、日付が決まっている祝日 第二月曜日、第三月曜の祝日 秋分春分の三つに分けるのが正解かな 184 名前：デフォルトの名無しさん mailto:sage [2009/10/09(金) 01:50:01 ] というか 後出し過ぎ 185 名前：デフォルトの名無しさん mailto:sage [2009/10/09(金) 02:38:24 ] 会社の創立記念日とか 186 名前：デフォルトの名無しさん mailto:sage [2009/10/09(金) 08:24:30 ] ム板だよな？ここ・・・ 187 名前：デフォルトの名無しさん mailto:sage [2009/10/09(金) 08:52:50 ] そっか今みどりの日だから祝日扱いなんだな 188 名前：デフォルトの名無しさん mailto:sage [2009/10/09(金) 21:28:17 ] 質問をさせて下さい。スペックは Windows2000 Excel2000 です。 シート１に 名前　日付　数　名前　日付　数　・・・ Ａ氏　10/1　12　Ｅ氏　10/3　10 Ｂ氏　10/1　11　Ｆ氏　10/2　10 Ｃ氏　10/2　10　Ｇ氏　10/4　11 Ｄ氏　10/3　10 のような感じでデータが横に長く入力されているのですが、 これをシート２に一括のデータとしてまとめたいです。 名前には重複はありません。日付のみ重複しています。 申し訳ありませんが、よろしくお願いします。 189 名前：デフォルトの名無しさん mailto:sage [2009/10/09(金) 21:30:51 ] >>188に補足です シート２は 名前　日付　数 Ａ氏　10/1　12 Ｂ氏　10/1　11 Ｃ氏　10/2　10 Ｄ氏　10/3　10 Ｅ氏　10/3　10 Ｆ氏　10/2　10 Ｇ氏　10/4　11 ・ ・ ・ の形にしたいです。 190 名前：デフォルトの名無しさん mailto:sage [2009/10/09(金) 21:41:35 ] >>188-189 配列に入れたら簡単だよ。 それくらい人に頼らず自分で作れないとダメでしょ。 191 名前：デフォルトの名無しさん mailto:sage [2009/10/09(金) 21:52:53 ] 配列にいれんでも 名前には重複がないんだったら そのままシート２へコピーすればいいだけてしょ 1)Ａ氏〜Ｄ氏までのセルをコピー 2)その下にＥ氏〜Ｇ氏までのセルをコピー てな感じで ループ処理していけば 192 名前：デフォルトの名無しさん mailto:sage [2009/10/09(金) 22:07:04 ] >>188 もうちょっと具体的に。 シート1は縦4列？ 193 名前：デフォルトの名無しさん mailto:sage [2009/10/09(金) 22:11:29 ] つか　丸投げな匂いがするのは気のせい？ 194 名前：188 mailto:sage [2009/10/09(金) 22:28:11 ] 名前と日付と数でひとつのブロックになっていて、それが横に数十連なっています。 今までは手作業でコピーと貼り付けをしていたのですが 数が膨大になってきたので手作業ではまかなえなくなってしまいました。 とりあえず自分でマクロを組んでみたのですが、ブロックごとの数がまちまちで シート２の一括データに空白が出来て穴あきデータになっていしまいます・・・ 195 名前：デフォルトの名無しさん mailto:sage [2009/10/09(金) 22:41:20 ] >>155 希望に沿うか分からないですけど、作ってみました。 ttp://excelerthanexcel.blog103.fc2.com/blog-entry-1.html 3つのプロシージャをどう作るかを下の2択で迷い、後者にしました。 ・　祝日の性質別（固定日、第n月曜日、秋分春分） ・　機能別（日付確定、曜日確定、1行出力） よかったら参考にしてください。 196 名前：デフォルトの名無しさん mailto:sage [2009/10/09(金) 22:57:49 ] >>194 ﾃﾞｷﾀﾖｰ Sub a() 　　Set S1 = Sheets("シート1") 　　Set S2 = Sheets("シート2") 　　With S1 　　　　R_max = .UsedRange.Rows.Count 　　　　C_max = .UsedRange.Columns.Count 　　　　R_dest = 2 　　　　For c = 1 To C_max Step 3 　　　　　　For r = 2 To R_max 　　　　　　　　If .Cells(r, c) <> "" Then 　　　　　　　　　　 S2.Cells(R_dest, 1) = .Cells(r, c) 　　　　　　　　　　 S2.Cells(R_dest, 2) = .Cells(r, c + 1) 　　　　　　　　　　 S2.Cells(R_dest, 3) = .Cells(r, c + 2) 　　　　　　　　　　 R_dest = R_dest + 1 　　　　　　　　End If 　　　　　　Next 　　　　Next 　　End With End Sub 197 名前：デフォルトの名無しさん mailto:sage [2009/10/09(金) 23:08:29 ] またコイツか・・・ 何でわざわざSetするの？ 198 名前：デフォルトの名無しさん [2009/10/09(金) 23:11:46 ] >>195 本当にありがとうございます。助かります。 イミディエイトウインドウが表示されないです… 「春分秋分」については、月日は「春分日」「秋分日」、 曜日は「未定」 と表示すればよいのですが、その場合はどうすればよいか 教えていただきたいです。 199 名前：デフォルトの名無しさん mailto:sage [2009/10/09(金) 23:14:50 ] 変数の宣言しないと分かりにくいかもねぇ。 200 名前：デフォルトの名無しさん [2009/10/09(金) 23:28:12 ] 198です。 イミディエイトウィンドウは表示されました。すみません。 201 名前：デフォルトの名無しさん mailto:sage [2009/10/09(金) 23:29:33 ] >>197 あとから修正する可能性のある部分を先頭にまとめてるだけだよ 202 名前：デフォルトの名無しさん mailto:sage [2009/10/09(金) 23:38:16 ] >>198 　＞学校で授業でやっていて、「テストまでには出来るようにしておけ」 じゃなかった？ あんまり人まかせだと　テストで　赤点てな事になるよ！ 203 名前：195 mailto:sage [2009/10/10(土) 00:03:23 ] >>198 自己解決したとはいえ、イミディエイトウィンドウぐらいは質問せずに自分で開きましょう。 ブログ内のコードをぐだぐだに編集して、結果だけは希望通りに出るようにしました。 質を下げたもので良ければ利用してください。 プログラム板にしては非常にぬるま湯的な対応をしてしまったことを すごく後悔しています。でもまぁ、自分自身の勉強にはなったか。 204 名前：デフォルトの名無しさん mailto:sage [2009/10/10(土) 00:17:17 ] >>196 ちゃんと内容は見ていないがSet □ ＝ Nothing をする癖をつけた方がいいと思うよ。 205 名前：デフォルトの名無しさん [2009/10/10(土) 00:51:40 ] >>203 ありがとうございました。 206 名前：デフォルトの名無しさん mailto:sage [2009/10/10(土) 01:10:37 ] >>204 ローカル変数って、たとえオブジェクト型でもモジュールの出口で自動的に開放されるんじゃないの？ 207 名前：デフォルトの名無しさん mailto:sage [2009/10/10(土) 03:57:40 ] 礼儀だよ。 208 名前：デフォルトの名無しさん mailto:sage [2009/10/10(土) 04:17:30 ] モジュールが無事終了するとは限らないだろ 209 名前：デフォルトの名無しさん mailto:sage [2009/10/10(土) 05:39:19 ] >>204 いらないよ。 >>207 何の礼儀だよ？ >>208 だから？ 210 名前：デフォルトの名無しさん mailto:sage [2009/10/10(土) 06:03:58 ] ↑こいつ最高にアホｗ 211 名前：デフォルトの名無しさん mailto:sage [2009/10/10(土) 07:23:40 ] ↓こいつ最高に天才ｗｗｗ 212 名前：デフォルトの名無しさん mailto:sage [2009/10/10(土) 10:05:40 ] 　　　∩――、 　　／(ﾟ)丶_ 丶 　 /　(●　(ﾟ)|つ 　｜　(入_ノ　ミ 　｜ (＿／　 ノ 　 ＼＿＿＿ノﾞー-、 　　／＼ 　　　＿ ＼ （⌒O ／＼　　　(＿ﾉ 　＼ノ　 /　 ､　 )０ 213 名前：188 mailto:sage [2009/10/10(土) 10:16:15 ] >>196 テストしてみたところ問題なく動きました。 本当にありがとうございます。 214 名前：デフォルトの名無しさん mailto:sage [2009/10/10(土) 10:51:27 ] >>210 羮に懲りて膾を吹く。 アプリ終了前にfreeしまくるがごとし。 215 名前：デフォルトの名無しさん mailto:sage [2009/10/10(土) 12:23:40 ] >>197 >>196を擁護すればSetした方が速いんだよ。 まぁCellsは遅いから、速くしたければ配列だろうけどね。 それからわざわざシート参照の変数をSet 変数 = Nothingとする必要はねーよ。 そんなこと気にするやつは、他にもっと気にすべきことが抜けてる場合がほとんどだ。 216 名前：デフォルトの名無しさん mailto:sage [2009/10/10(土) 12:55:55 ] >>196の >S2.Cells(R_dest, 1) = .Cells(r, c) >S2.Cells(R_dest, 2) = .Cells(r, c + 1) >S2.Cells(R_dest, 3) = .Cells(r, c + 2) この部分は S2.Cells(R_dest, 1).Resize(,3).Value= .Cells(r, c).Resize(,3).Value と1行で書けそうだな。

---

---

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

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