Excel VBA質問スレ Part5

1 名前：デフォルトの名無しさん [2007/12/12(水) 17:27:44 ] ExcelのVBAに関する質問スレです 質問前に　【 >>2-3 】　あたりを良く読むこと 前スレ pc11.2ch.net/test/read.cgi/tech/1189814602/ 116 名前：デフォルトの名無しさん mailto:sage [2007/12/22(土) 22:39:18 ] 極力ってことは・・・一気に計算したら？ 117 名前：デフォルトの名無しさん [2007/12/23(日) 00:08:32 ] >>116 よく本に掲載されているのは、ルートを有利化せずに分母においてるのがあるが、理由がよくわからなくて。 118 名前：デフォルトの名無しさん mailto:sage [2007/12/23(日) 00:29:44 ] EXCELで 人人人人人 ２ ３ １ ４ 　　1 ４ ２ ３ のように４人でゲームして順位を出す時に、 ちゃんと横の合計が１０になるか計算したいのですが こういう空欄はスルーして計算できませんでしょうか？ 119 名前：デフォルトの名無しさん mailto:sage [2007/12/23(日) 00:41:46 ] 何も考えずにセル関数Sum使えば終わりでね？ 120 名前：デフォルトの名無しさん mailto:sage [2007/12/23(日) 00:58:34 ] >>119 その通りでした。どうもありがとうございます 実は例と少し違って合計０になるかだったので勘違いしてました 121 名前：デフォルトの名無しさん mailto:sage [2007/12/23(日) 01:57:25 ] 麻雀かｗ 122 名前：デフォルトの名無しさん mailto:sage [2007/12/23(日) 04:18:28 ] >>117 コンピュータは分母が整数じゃなくても それほど困らないからいいんじゃないの？ 123 名前：デフォルトの名無しさん [2007/12/23(日) 10:51:16 ] 情報工学勉強すればわかる。 124 名前：デフォルトの名無しさん mailto:sage [2007/12/23(日) 10:57:09 ] VBA使うのにいちいち情報工学など勉強しれられっか 125 名前：デフォルトの名無しさん [2007/12/23(日) 11:07:39 ] VBAに必要な知識は、 1.同じ機能を実現するために、いかに高速化する記述方法を知っているか。 言語に関わらず必要な知識は、 1.誤差伝幡をいかに少なくするか。 2.いかに高速なｱﾙｺﾞﾘｽﾞﾑ（探索など）を知っているか。 3.その他多数〜 126 名前：デフォルトの名無しさん mailto:sage [2007/12/23(日) 16:14:05 ] > 1.同じ機能を実現するために、いかに高速化する記述方法を知っているか。 開発効率という観点が欠如しているっぽいあなたには、アセンブラをオススメいたします。 127 名前：デフォルトの名無しさん mailto:sage [2007/12/24(月) 00:21:03 ] >>111 桁に限界があるので技術計算には向かないが 固定小数点のCurrency型を使うとか。 128 名前：デフォルトの名無しさん mailto:sage [2007/12/24(月) 02:05:32 ] >>111 除算をしないか、ロジックで極力計算回数を減らす。関数の戻りの型に注意。あと、スレ違い。 129 名前：デフォルトの名無しさん mailto:sage [2007/12/25(火) 01:14:14 ] フォルダに0001〜9999jpg セル2に000*と入力すると自動的にセル1に該当の000*jpg表示さすにはどうすればいいでしょうか？ よろしくお願いします 130 名前：デフォルトの名無しさん mailto:sage [2007/12/25(火) 01:18:51 ] >>129 セル2の入力を常に監視し、入力に変化があるたびにフォルダ内にその画像があるか調べ、あれば表示する。 4桁に制限したければそういうifを書けばいい。 131 名前：デフォルトの名無しさん mailto:sage [2007/12/26(水) 00:02:45 ] >>93の人ありがとうございました。 1^2+2^2+3^2+……+20^2 1^3+2^3+3^3+・・・・+20^3 ついでにこれのFor文を使った書き方も教えていただけるとありがたいです。 132 名前：デフォルトの名無しさん mailto:sage [2007/12/26(水) 00:12:39 ] 宿題か？宿題なのか？ 133 名前：デフォルトの名無しさん mailto:sage [2007/12/26(水) 00:24:08 ] そんなことより聞いてくれよ。 というか教えてください。 マクロ流してるとリソース不足とかメモリ不足とか言い出すんだけど、何で？ やっぱりファイルが大きすぎるのか？ １ファイルで６０MBとか無理なのか？ ご存知の方いたら助けてください。 134 名前：デフォルトの名無しさん mailto:sage [2007/12/26(水) 00:29:42 ] >>133 うん、でかいｗ限界点とかはわからんが・・・ Win2000メモリ1Gの環境で、30MB程度のマクロ・数式・外部リンクつきのブック2個開くと危ういので・・・ 135 名前：デフォルトの名無しさん mailto:sage [2007/12/26(水) 00:55:12 ] >>132 そうなんですよ。なんとかお助け願えないでしょうか？ 136 名前：デフォルトの名無しさん mailto:sage [2007/12/26(水) 01:06:14 ] for i=1 to 100 a = i next 137 名前：デフォルトの名無しさん mailto:sage [2007/12/26(水) 01:07:09 ] 途中送信orz動作未確認 dim a as integer for i=1 to 100 a = a + i * 2 next 3は2を変更で 138 名前：デフォルトの名無しさん mailto:sage [2007/12/26(水) 01:21:16 ] >>131 ちょっとまて >>93を採用する気か？それはなー(略 139 名前：デフォルトの名無しさん mailto:sage [2007/12/26(水) 01:22:34 ] >>137 どいつもこいつも・・・ここはネタすれなのか？ 140 名前：デフォルトの名無しさん [2007/12/26(水) 02:24:13 ] >>138 え？あれじゃ駄目なんですか？人助けと思ってマジレスお願いします。 141 名前：137 mailto:sage [2007/12/26(水) 02:37:44 ] すまん、俺は素だったんだｗ 汎用性もたせるなら累乗関数使うなり作るなりしてくれ。 dim a as integer for i=1 to 100 a = a + i * i '２乗 'a = a + i * i * i '３乗 next 142 名前：137 mailto:sage [2007/12/26(水) 02:39:07 ] >>140 ちゃんとみりゃわかる。 >>97はforが入ってるが結局は(1+100)/2*100だ。 dim sum as integer for i=1 to 100 sum = sum + i next 143 名前：137 mailto:sage [2007/12/26(水) 02:40:02 ] はぁい、>>93の間違いねorz スレ汚し失礼しました。 144 名前：デフォルトの名無しさん mailto:sage [2007/12/26(水) 03:36:07 ] 志村ー 100じゃなくて20・・・・ 145 名前：デフォルトの名無しさん [2007/12/26(水) 13:27:24 ] >>141>>142 たびたびすいません。これらをメッセージボックスに表示するには どうしたらいいんでしょうか？ 146 名前：デフォルトの名無しさん [2007/12/26(水) 14:22:26 ] Option Explicit Sub sum() Dim sum As Integer Dim sumMsg As Integer Dim i As Byte For i = 1 To 100 sum = sum + i Next i sumMsg = MsgBox(sum, vbOKOnly + vbInformation) If sumMsg = vbOK Then MsgBox "やったね" End Sub 147 名前：デフォルトの名無しさん [2007/12/26(水) 14:23:38 ] 共有ファイルでVBAを編集するには？ 148 名前：デフォルトの名無しさん [2007/12/26(水) 17:17:49 ] inputboxをキャンセルしたときの挙動なのですが、 これじゃだめですよね・・・ Sub nicochuu() niwango = InputBox("入力してね", "inputbox") If niwango = "" Then MsgBox "入力無し": Exit Sub Range("A1").Value = niwango If niwango = vbCancel Then Range("A2").Value = "キャンセル" End Sub 149 名前：デフォルトの名無しさん mailto:sage [2007/12/26(水) 18:33:01 ] 横で開いてるIEを３行スクロールさせる方法教えてください。 excelは2000でIEは7です。 150 名前：デフォルトの名無しさん [2007/12/26(水) 19:14:15 ] 三流文系大に通う腐女子です。 以下のマクロ作成方法を教えてください。 プロシージャ「斜め移動」の作成 IncrementLeftとIncrementTopを組み合わせた「斜め移動」という名称のマクロ作成。 プロシージャ「四角移動」の作成 図形が四角形を描くように移動する（移動の軌跡が四角形になる）、 「四角移動」という名称のマクロ作成。For文は”１から１まで”とする。 ☆――→ ↑　　　｜ ｜　　　｜ ｜　　　↓ 　←―― プロシージャ「三角移動」の作成 「斜め移動」と「四角移動」を応用した、「三角移動」という名称のマクロ作成。 ただし正三角形でなくてよい。 151 名前：デフォルトの名無しさん mailto:sage [2007/12/26(水) 22:22:06 ] >>133 どこかに不具合がある。例えば、暗黙的なセキュリティの問題に抵触してる。 ネットワーク上のファイルを開いての処理とか、クラスへのアクセスの仕方、等々。 エクセルは、何百MBのファイルでも、ページングしながらガリゴリ起動しようとしやがりますよ。 >>150 どう動かしたいかが良く伝わらない。 マクロを実行したら、画面上に既に設置してある部品を動かして元の位置まで戻したいの？ あと、移動の仕方に指定はないのか、部品は固定なのか、で、ここ重要、何が分からないの？ 152 名前：デフォルトの名無しさん [2007/12/27(木) 02:33:46 ] セルを複数選択できないようにする（単一セルのみ選択可能）にはどう記載すれば実現できますか？ 153 名前：デフォルトの名無しさん [2007/12/27(木) 11:43:39 ] CSVファイルにフッタが一行必ず入っているので、最終の行の一行前まで 読み込みさせたいのですが、 Do Until EOF(intFF) をどうすればいいのかわかりません。 お願いします・・。 154 名前：デフォルトの名無しさん mailto:sage [2007/12/27(木) 12:41:59 ] >>152 これで目的の動作をするかどうかはわからないが・・・ Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Cells.Count > 1 Then ActiveCell.Select End If End Sub >>153 一行ずつ読んで、EOFに達していたらそれが最終行なので処理をスキップする。 155 名前：デフォルトの名無しさん mailto:sage [2007/12/27(木) 15:21:44 ] >>153 ループ条件で判断したいなら、Seek(intFF) で、読み込み位置を確認する方法もあるね。 ただ、スレ違いだと思われ。　分からなかったら、こっち↓↓↓で訊いてみては？ pc11.2ch.net/test/read.cgi/tech/1187667616/l50 156 名前：デフォルトの名無しさん [2007/12/27(木) 15:59:23 ] サンクスコ スレ違いの基準が分からんぽ 157 名前：デフォルトの名無しさん mailto:sage [2007/12/27(木) 16:50:30 ] スレ違いとかいう奴うぜー いっそVB6スレと統合しろ 158 名前：155 mailto:sage [2007/12/27(木) 18:25:58 ] >>156 >>2 ＞★4 とりあえず､Excelのインスタンスを作らずにVB6で出来ることは全てスレ違いだと思ってください。 スレチ指摘がウザけりゃ、それこそVB6スレと分ける必要ないじゃん。別に俺だってどっちでもいいっつの。 159 名前：デフォルトの名無しさん mailto:sage [2007/12/27(木) 19:15:14 ] アルゴリズムとかはＶＢ６だろうけど 初心者はわからんだろうしなあ まあそのときの気分であしらってるけどね 160 名前：デフォルトの名無しさん mailto:sage [2007/12/27(木) 19:16:58 ] >>154 サンクスです。 161 名前：デフォルトの名無しさん [2007/12/27(木) 19:19:39 ] >>158 ＞★4 とりあえず､Excelのインスタンスを作らずにVB6で出来ることは全てスレ違いだと思ってください。 VBAの方が初心者が多いから、むしろVB6しかできないことのみ向こうのスレだよ。 すべてこちらに包含するという考え方もある。 162 名前：デフォルトの名無しさん mailto:sage [2007/12/27(木) 20:51:01 ] 自治厨が湧いてきました 163 名前：デフォルトの名無しさん mailto:sage [2007/12/27(木) 22:09:25 ] 自治厨とは俺様ルールを貫いてスレを仕切ろうとする奴のこと 2chのルールやスレのルールを指摘するのは自治厨行為ではなく 逆にそれを批判するのは､俺様ルールを貫こうとする自治厨行為である事実について 164 名前：デフォルトの名無しさん mailto:sage [2007/12/28(金) 02:04:11 ] どっちでもいい。はやく次の質問へ 165 名前：デフォルトの名無しさん mailto:sage [2007/12/28(金) 09:36:53 ] >>2は別にこのスレの合意事項というわけではない。 過去スレのどこかで、誰かが勝手にテンプレに入れただけ。 なので、あまり気にするな。 166 名前：デフォルトの名無しさん mailto:sage [2007/12/28(金) 09:43:01 ] そうでもないか 167 名前：デフォルトの名無しさん [2007/12/28(金) 12:03:27 ] 以下のケースでVBAの処理を止める方法は？（強制終了以外で on error gotoでmsgboxに行く仕様になっているため、 あと50000回くらいmsgboxをokし続けなければならない。 escを押しても、msgboxのok扱いにしかならない。orz 168 名前：デフォルトの名無しさん mailto:sage [2007/12/28(金) 12:14:00 ] 電源断。 169 名前：デフォルトの名無しさん [2007/12/28(金) 12:17:23 ] enterをテープで止めて、トイレ行ってる間に 終わってた。 170 名前：デフォルトの名無しさん mailto:sage [2007/12/28(金) 12:27:46 ] msgboxのあとプロシージャをぬければいいんじゃね 171 名前：デフォルトの名無しさん [2007/12/28(金) 12:31:09 ] もう実行しちゃった後の話よ 172 名前：デフォルトの名無しさん mailto:sage [2007/12/28(金) 12:34:42 ] 50000回ぽっちで抜けるならエラートラップの無限ループじゃないんだな 50000回押せばいいよな 173 名前：デフォルトの名無しさん mailto:sage [2007/12/28(金) 12:48:51 ] >> 167 混じれ酢するとCtrl + Break 174 名前：デフォルトの名無しさん [2007/12/28(金) 13:15:17 ] ありがとうござます こんなキー初めて使うわ 175 名前：デフォルトの名無しさん mailto:sage [2007/12/28(金) 13:25:13 ] >>174 押しっぱにすることで、無限ループを中断できたりするので、割と良く使うよん。 176 名前：デフォルトの名無しさん [2007/12/28(金) 15:12:43 ] 良からぬsiteを見ている途中に、excelが勝手にsaveを始めて あたふたすることってありますよね。 177 名前：＼＿＿＿＿＿＿＿＿＿＿＿＿＿／ mailto:sage [2007/12/28(金) 16:11:29 ] 　　　　　　∨ 　　　|/-O-O-ヽ|　ﾌﾞﾂﾌﾞﾂ･･･ 　　　| . : )'e'( : . | 　　　｀ ‐-＝-‐ 　　　／ 　　　＼ ||＼￣￣￣￣￣￣ ＼ ||＼＼. 　　　　　　　　　＼ 　　　　　∧＿∧ ||.　.＼＼　　　　　　　　　　＼　　　 (　；´Д｀)　（ｵｲ、なんか変なのがいるぞ） .　　　　＼＼　　　　　　　　　　＼ /　　　 ヽ. .　　　　　 ＼＼　　　　　　　　　／ .|　　　|　| .　　　　　　　 ＼∧＿∧　　　(⌒＼|_＿./ ./ 　　　　　　　　　（　´,_・・`）目合わせるなって　∧＿∧ .　　　　　　　　 _/　　　ヽ　　　　　　　　　 ＼ 　（ 　　　　）　うわー、こっち見てるよ 178 名前：デフォルトの名無しさん mailto:sage [2007/12/28(金) 18:52:13 ] セル範囲から検索できるactivecell.findみたいな関数ありませんか？ (D1)=MATCH("文字列",A1:C3,0)　的なことがやりたいんですが 179 名前：デフォルトの名無しさん mailto:sage [2007/12/28(金) 18:53:12 ] ってここVBAのスレじゃん 失礼。出直してきます 180 名前：デフォルトの名無しさん [2007/12/28(金) 22:22:11 ] いきなり長文にて失礼します。 生年月日の昭和・平成をまるで囲むため、中を透明にした楕円を描き、マクロの 自動記録でできた次のものを使用してきました。 ActiveSheet.Shapes.AddShape _ (msoShapeOval, 400.75, 110.75, 30.25, 10.5).Select Selection.ShapeRange.Fill.Visible = msoFalse Selection.ShapeRange.Fill.Transparency = 0# Selection.ShapeRange.Line.Weight = 0.75 Selection.ShapeRange.Line.DashStyle = msoLineSolid Selection.ShapeRange.Line.Style = msoLineSingle Selection.ShapeRange.Line.Transparency = 0# Selection.ShapeRange.Line.Visible = msoTrue Selection.ShapeRange.Line.ForeColor.SchemeColor = 64 Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255) Excel2000〜2003では、普通に使用できていましたが、2007では楕円の内部が 黒く塗りつぶされてしまいます。 ネットや本で調べてみたのですが、図形描画については記述があまり見つからず 私のスキルでは、難しそうです。 ご教授願えると助かります。 181 名前：デフォルトの名無しさん mailto:sage [2007/12/28(金) 22:31:22 ] 2007でマクロの自動記録すれば？ 182 名前：デフォルトの名無しさん mailto:sage [2007/12/28(金) 22:41:11 ] >>181 さっそくの書き込みありがとうございます。 やってみたのですが、2007では図形描画は自動記録できないらしいです。 私の調べた範囲では、どうやらExcel2007の仕様らしいです。 したがって、自分でマクロを組むしかないらしいのですが・・・ 183 名前：デフォルトの名無しさん mailto:sage [2007/12/28(金) 22:59:59 ] >>182 うーん、確かにその通りだった。ごめん。 ShapeRangeのプロパティをヘルプで調べるしかないかなぁ・・・ 184 名前：デフォルトの名無しさん mailto:sage [2007/12/28(金) 23:02:29 ] 連投すみません、180　ですが・・・ ちなみに"Set"を使って、次のようなのも試してみましたがだめでした。 Set MaruShape1 = ActiveSheet.Shapes.AddShape _ (msoShapeOval, 400.75, 110.75, 30.25, 10.5) MaruShape1.Fill.Visible = msoFalse MaruShape1.Fill.Transparency = 0# MaruShape1.Line.Weight = 0.75 MaruShape1.Line.DashStyle = msoLineSolid MaruShape1.Line.Style = msoLineSingle MaruShape1.Line.Transparency = 0# MaruShape1.Line.Visible = msoTrue MaruShape1.Line.ForeColor.SchemeColor = 64 MaruShape1.Line.BackColor.RGB = RGB(255, 255, 255) 185 名前：デフォルトの名無しさん mailto:sage [2007/12/28(金) 23:06:15 ] >>183 184の書き込みが、前後してすみません。 アドバイスありがとうございます。 ShapeRangeのプロパティについてヘルプを調べてみます。 186 名前：デフォルトの名無しさん mailto:sage [2007/12/28(金) 23:31:32 ] >>180の最終行に Selection.ShapeRange.Fill.Visible = msoFalse を追加してもダメですか 187 名前：デフォルトの名無しさん mailto:sage [2007/12/28(金) 23:41:45 ] >>186 ありがとうございます。うちのパソコンはExcel2007が入っていないので 明日、職場で確かめてみます。 ShapeRangeプロパティのヘルプのあたりは見てみたのですが、私のスキル では、ちんぷんかんぷんです。 正直結構まいっています。 遅くまで、付き合ってくださってありがとうございます。 明日、結果を報告します。 188 名前：デフォルトの名無しさん mailto:sage [2007/12/29(土) 01:32:16 ] うわー2007って全然違うな うちのチームの人2007で納めるやつの動確2003でやってるけど大丈夫か？ 189 名前：デフォルトの名無しさん mailto:sage [2007/12/29(土) 11:10:53 ] >>188 おいおい、それは危険。　ウチは、2003で納めるため、テスト機を2007⇒2003にした。 190 名前：デフォルトの名無しさん mailto:sage [2007/12/29(土) 11:38:28 ] 2005と2007はどうとでもなりそうだが、 2002は.NET1.0、2003は.NET1.1だからいろいろまずいぞ。 191 名前：デフォルトの名無しさん mailto:sage [2007/12/29(土) 11:39:16 ] >>190 ごばくった。なんとなく話題が似てた（笑 192 名前：デフォルトの名無しさん mailto:sage [2007/12/29(土) 12:46:11 ] 2007だとシェイプの位置がずれるんだけど、なんで？ 193 名前：デフォルトの名無しさん mailto:sage [2007/12/29(土) 23:05:11 ] >>186 昨日のアドバイスがヒントになって解決しました。 Selection.ShapeRange.Fill.Visible = msoFalse Selection.ShapeRange.Fill.Transparency = 0# この２行を逆にしたらＯＫでした。ありがとうございました。 194 名前：デフォルトの名無しさん [2007/12/30(日) 03:05:22 ] コマンドボタンを押すと、押したコマンドボタンを消したいのです。 CommandBotton1.visible=falseでも消えません。 CommandBotton1.BackStyle=0でも消えませんでした。 どのようにすれば消す、もしくは透明にすることができるのでしょうか？ よろしくお願いします。 195 名前：デフォルトの名無しさん mailto:sage [2007/12/30(日) 03:26:42 ] >>194 Excel2000で試してみたが、 フォームのコマンドボタンでも、ワークシートのコマンドボタンでも、.Visibleで消せたぞ？ 196 名前：デフォルトの名無しさん mailto:sage [2007/12/30(日) 04:15:29 ] そりゃBottonで消えるのはボットン便所ぐらいですから 197 名前：デフォルトの名無しさん [2007/12/30(日) 04:24:05 ] >>195 これなのですが、エラーがでてしまいます。 コマンドボタンを押したら、コマンドボタンを消す。 Private Sub CommandButton1_Click() CommandBotton1.Visible = False End Sub 198 名前：デフォルトの名無しさん [2007/12/30(日) 04:25:09 ] >>195 ちなみに、ワークシートのコマンドボタンです。 199 名前：デフォルトの名無しさん [2007/12/30(日) 04:35:52 ] >>196 解決しました。ありがとうございました。 200 名前：デフォルトの名無しさん [2007/12/30(日) 11:34:38 ] ExcelVBAで出来ないことってなにかある？ 高級言語覚えたい気持ちもあるんだけど 今のところやりたいことはVBAでできてるからあまり覚えようという気にならないんだよな 高級言語にステップアップしていいことあるかな？ 201 名前：デフォルトの名無しさん mailto:sage [2007/12/30(日) 11:56:55 ] Excelが無くても動くアプリが作れる 202 名前：デフォルトの名無しさん mailto:sage [2007/12/30(日) 14:20:22 ] VBAは高級言語だぞ。 実行がExcelに縛り付けられていることは、言語自体の話とは別。 203 名前：デフォルトの名無しさん [2007/12/30(日) 15:23:09 ] 折れの場合、vs2005express で、やってみようとしたけど結局、VBAにしか、関心が集まらなかった。イメージがわきやすいからだと思う。 Workbooks.Add(xlWBATExcel4Macrosheet)　でexcel4マクロシートを作ってみたけど、これってマクロの管理に何かいいことあるのか？ 204 名前：デフォルトの名無しさん mailto:sage [2007/12/30(日) 19:14:47 ] エクセルのVBAでゲーム作って来いって課題が出たんだが、インベーダーみたいのを作るとして 玉の発射とかの解説してるサイトって無いですか？ というか、シューティングゲーム作成の解説のサイトで良いのですが なかなか見付からない・・・ 205 名前：デフォルトの名無しさん mailto:sage [2007/12/30(日) 19:27:53 ] ったく、専学はパーの製造装置でしかないな 206 名前：デフォルトの名無しさん mailto:sage [2007/12/30(日) 19:30:28 ] >>204 学校の課題レベルで、ゲームってそういうアクション性のあるゲームのことなのか？ｗ 素直に、マインスイーパみたいなヤツでいいと思うよ。 正直、オススメしないぞ。後で行き詰って困ることになる気がする。 ゲームのオブジェクトを、フォームのコントロールにすれば、まぁできんことはないと思うが。 207 名前：デフォルトの名無しさん mailto:sage [2007/12/30(日) 19:42:39 ] >>206 いや、全く持ってその通りなんですが、ほら、作ってみたいじゃないですかｗ 敵が一体、左右に動いて、自機も左右だけに動けるとこまでは出来たんだけど あとは玉の発射と当たり判定と、当たったら画像が消えるくらいかなーと 208 名前：デフォルトの名無しさん mailto:sage [2007/12/30(日) 19:58:57 ] excel2000のVBAで、材料一覧を印刷用にまとめる、材料表を作ったのですが 利用者が動かしていると、特定の行が消えてしまったりすることがあって困ってます。 そこで、いろいろと原因を探っているんですが、質問です。 シートの保護をかけていているシートで、行や列が突然消えるということってあるんでしょうか？ ご教授願います。よろしくお願いします。 209 名前：デフォルトの名無しさん mailto:sage [2007/12/30(日) 20:07:39 ] >>207 よく使う処理としては、弾の座標と、対象の中心座標＋大きさ（距離） で衝突判定する方法。 オブジェクトを、丸形か正方形として認識させれば、そう難しいロジックにはならないと思われ。 210 名前：デフォルトの名無しさん mailto:sage [2007/12/30(日) 20:41:33 ] >>209 �dｸｽ 挑戦してみる＾ 211 名前：デフォルトの名無しさん [2007/12/31(月) 10:27:56 ] 今日も今日とて仕事でVBA 212 名前：デフォルトの名無しさん mailto:sage [2007/12/31(月) 10:41:25 ] 大晦日も仕事か お疲れ様です 213 名前：デフォルトの名無しさん [2007/12/31(月) 13:33:39 ] いい句だなぁ。 214 名前：デフォルトの名無しさん [2007/12/31(月) 15:45:45 ] かなり微妙な手当てが出たお 215 名前：デフォルトの名無しさん mailto:sage [2008/01/01(火) 01:20:24 ] myPath = "C:\TEST\*.xls" If Dir(myPath) <> "" then Kill myPath End If だとDir(myPath)がオープンしっぱなしになるそうです。 どう書けば閉じるのでしょうか？ 216 名前：デフォルトの名無しさん mailto:sage [2008/01/01(火) 02:36:50 ] >>215 オープンもしてないモノを、どうしろと？ 意味が分かってないなら、せめて本人に書き込ませろ。 ところで、あけおめ。

---

---

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

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