●EXCEL・VBAの教えてスレ Part2●

1 名前：デフォルトの名無しさん mailto:sage [2007/01/09(火) 11:14:15 ] ・まじめにExcelの機能を追及してみようと思う奇特なひと ・スキルがないのに無理やりVBAの仕事を押し付けられた普通のひと ・VBAなんていまさらやりたくないのに業務で仕方なく使っているひと ・とにかく漏れにこんな仕事まわすなと怒っているひと そんなM$大好きなひとからアンチM$なひとたちまで幅広くカバーするスレです OOoのCalcの質問もOKです 前スレ pc10.2ch.net/test/read.cgi/tech/1054356121/ 239 名前：デフォルトの名無しさん mailto:sage [2007/02/08(木) 22:35:29 ] >>238 原因不明なのですが、試してみてくれませんでしょうか？ ループの前に Application.ScreenUpdating = false ループの後に Application.ScreenUpdating = true スペルミスあったらごめんなさい。 240 名前：238 [2007/02/08(木) 22:46:43 ] >>239 ありがとうございますm(_ _)m 教えていただいた通りにしたらエラーがでなくなりました。 Application.ScreenUpdating = false で画面の更新を一時的に止めてやるんですね。 Formをmodalで表示しなくてもこの方法ならいけそうです！ 241 名前：デフォルトの名無しさん mailto:sage [2007/02/09(金) 01:38:11 ] >>226 242 名前：デフォルトの名無しさん [2007/02/09(金) 01:45:38 ] >>241 243 名前：デフォルトの名無しさん [2007/02/12(月) 10:41:46 ] すみませんが質問です。 ユーザーフォームにテキストボックス若しくはラベルを作り、 そこに文字を電光掲示板のように文字をスクロールさせる事は可能ですか？ 244 名前：デフォルトの名無しさん [2007/02/12(月) 10:49:33 ] タイマー作って文字列を更新しろ 245 名前：デフォルトの名無しさん [2007/02/12(月) 11:39:55 ] Alt + PrintScreenで、画面のハードコピーをとって、 エクセルシートに貼り付ける時に、 そのハードコピーの拡大率は100%ですよね。 これを80%の拡大率で貼り付けたい時はどうすればよいのでしょうか？ 貼り付けた後に、拡大率を変更するのは面倒なので。 （エクセルシート自体は100%のままで） 246 名前：デフォルトの名無しさん [2007/02/12(月) 12:22:16 ] sub 貼りつけ const ZOOM_RATE AS SINGLE = 0.8 ActiveSheet.Paste Selection.ShapeRange.LockAspectRatio = msoTrue Selection.ShapeRange.Height = Selection.ShapeRange.Height * ZOOM_RATE Selection.ShapeRange.Width = Selection.ShapeRange.Width * ZOOM_RATE end sub どのプロパティ実現できるか分からないときは、マクロの記録を活用すると良いですよ。 247 名前：243 [2007/02/12(月) 17:24:50 ] >>244 なめらかに文字を流したいのですが・・・ 248 名前：デフォルトの名無しさん mailto:sage [2007/02/12(月) 17:27:26 ] >>247 ラベルの位置を微調整するとか、自前で文字描画するとか、まぁ頑張って。 249 名前：243 mailto:sage [2007/02/12(月) 17:31:17 ] >>248 簡単にできる方法ってないんですね・・・ 何とかがんばってみます！ 250 名前：デフォルトの名無しさん mailto:sage [2007/02/12(月) 18:06:55 ] いや､簡単だろ 251 名前：デフォルトの名無しさん [2007/02/12(月) 18:12:42 ] 質問です。 Office2007 Excelでマクロの記録機能で、テキストボックスを表示して、テキストボックス内に文字を表示するといったマクロを記録しましたが、テキストボックスに関するマクロが一切記録されません。 何か個別に設定が必要なのでしょうか？ 252 名前：デフォルトの名無しさん mailto:sage [2007/02/13(火) 15:53:09 ] そのテキストボックス自分で実装したなら無理じゃね？ 253 名前：デフォルトの名無しさん [2007/02/13(火) 19:25:13 ] 質問があります。 たとえばA1:D50までの表がありその中に3桁の数値が入っているのですが、 そのなかに指定した1桁の数値（H1に入力した数値）が（3桁のいずれかに）含まれるセルに色をつけたいのです。 また、関係ないかもしれないですが、表には空欄がある場合があります。 どうしたらいいでしょか。 お力をお貸しください。 254 名前：デフォルトの名無しさん mailto:sage [2007/02/13(火) 20:07:08 ] >>253 条件付き書式でも出来るが､VBAでやりたいなら単にループ回してInStrあたりでその数字が含まれてるかどうか調べればいいだけじゃん。 第二第三引数は数値渡しても自動で文字列化されるし､戻り値をそのまま条件に出来る。 255 名前：デフォルトの名無しさん [2007/02/14(水) 15:53:03 ] 教えてください！ VBAからマクロの記録を終了させたり開始させたりする事って 出来るのでしょうか？ Application.CommandBars("Stop Recording").Visible = True strTempBuff = CommandBars("Stop Recording").Controls(1).Caption If Not strTempBuff = "新しいマクロの記録(&R)..." Then '記録中なら停止したい。 xlApp.Application.CommandBars("Stop Recording").Controls(1).Execute '同じErr xlApp.Application.CommandBars("Stop Recording").Controls("記録終了(&R)").Execute '同じErr End If 上記コードで実行すると、マクロ記録中の場合 オートメーションエラーが発生してしまいます。 既にマクロが走っているからでしょうか？ 256 名前：デフォルトの名無しさん mailto:sage [2007/02/14(水) 23:16:03 ] すみませぬが質問です。フォームにラベルを作り、そのラベルにランダムの行数のセルを表示させ、 ちょっと時間をおいてその隣のセルを表示させる、というプログラムを作りましたが 上手いこといきません。アドバイス下さいませ。 Option Explicit Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 'メイン Private Sub userform_initialize() Call 表示 End Sub '表示 Sub 表示() '乱数発生 Randomize Dim 行番号 As Long Dim 乱数 As Long 行番号 = Worksheets("sheet1").Range("a65536").End(xlUp).Row 乱数 = Int(Rnd * 行番号) + 1 Label1.Caption = Cells(乱数, 1).Value Sleep (1000) Label1.Caption = Cells(乱数, 2).Value End Sub 257 名前：デフォルトの名無しさん mailto:sage [2007/02/15(木) 00:01:44 ] >>256 なにが上手いこといかないのか良く分からないんですが、 きっとエラーになるのではなくて、いきなり表示がCells(乱数,2)の値に なると仮定してレス Private Sub userform_initialize() はFormが表示されるまえに起こるイベントなんで、 表示されたときにはCells(乱数,2)が表示されてしまうと思います。 あとは、 Label1.Caption = Cells(乱数, 1).Value '追加↓ DoEvents Sleep (1000) Label1.Caption = Cells(乱数, 2).Value と、DoEventsを入れないと Sub 表示()の処理がすべて終わるまで 表示が更新されないと思いますよ。 258 名前：デフォルトの名無しさん [2007/02/15(木) 00:30:37 ] アクティブセルに色付けするとき、どう指定するんでしょうか？ range（"A1"）.interior.colorindex=36 などという例は見たのですが、特定のセルじゃなく、アクティブなセルとして指定する場合を教えてください。 259 名前：デフォルトの名無しさん mailto:sage [2007/02/15(木) 00:43:08 ] range（"A1"）の変わりにActiveCellって書けばいいだけじゃん。 何でそんなことも調べられないの？ ｢アクティブなセル｣でヘルプ検索したらすぐ出てくるのに。 260 名前：デフォルトの名無しさん mailto:sage [2007/02/15(木) 00:50:17 ] カーソル移動したセルの色変えたいなら イベントと組み合わせて使えばよい 261 名前：258 mailto:sage [2007/02/15(木) 00:59:28 ] >>259 それも試しにやってみたのですが、色が変わらないので間違っているのかと。 ちなみにユーザー定義関数内でやろうとしていて以下のようにしてもoutputはでますが、 色が出ないんです。指定がおかしいのでしょうか？ Function color(work) ActiveCell.Interior.ColorIndex = 36 color = "color" & work End Function 262 名前：デフォルトの名無しさん mailto:sage [2007/02/15(木) 01:18:30 ] >>261 普通にできてしまったのですが…。 Function test() ActiveCell.Interior.ColorIndex = 36 End Function 同じですよね、多分？ 263 名前：デフォルトの名無しさん mailto:sage [2007/02/15(木) 01:25:42 ] >>262 たびたびすみません。同じだと思うのですが・・・。 やろうとしていることは、 ・ユーザー定義関数を作ろうとしていて（ここでいうcolorという関数） ・計算結果がある値をとればセルの色を変える というもので、上述のcolorという関数はそれをおもいっきり簡略化したものです。 やっぱり上手くいかないです・・・ もしかして根本的にわたしが勘違いしているのかもしれません。ユーザー定義関数とマクロは別物ということでしょうか？ 264 名前：デフォルトの名無しさん mailto:sage [2007/02/15(木) 01:27:47 ] 263補足 >>262さんのを登録後、エクセル上で=test()と任意のセルに入力しても ゼロと表示されるだけで色は変わりませんでした・・・ 265 名前：デフォルトの名無しさん mailto:sage [2007/02/15(木) 01:29:16 ] 引数のworkには何が入る予定なの？ 266 名前：デフォルトの名無しさん mailto:sage [2007/02/15(木) 01:30:49 ] あー、分かった。 セルでセル関数のようにはマクロのユーザー関数は使えないよ。 ツールメニュー→マクロ→color（自分で作ったユーザ関数）を選らんで、 その時点で使うわけ。 267 名前：デフォルトの名無しさん mailto:sage [2007/02/15(木) 01:30:54 ] >>265 ただの文字列です。 268 名前：デフォルトの名無しさん mailto:sage [2007/02/15(木) 01:34:30 ] 「セルの計算結果」って言ってるのは、 =SUM(R[-3]C:R[-1]C) ←こういう奴の話を言ってるんだよね？ で、このイコールのところに自分で作った関数を入れたいってことよね？ 結論から言えば、できないんじゃないかなあ。 269 名前：268 mailto:sage [2007/02/15(木) 01:37:15 ] ごめん！ ウソ言ってた。 できたよ。 270 名前：デフォルトの名無しさん mailto:sage [2007/02/15(木) 01:37:24 ] >>261 > ユーザー定義関数内でやろうとしていて 先に書けよ。 ユーザー定義関数ってのは引数を計算して､式を入れたセルに値を返す物で 書式設定だのなんだのというシート上の操作を行うものじゃないぞ。 だからアクティブセルを取得することは出来るが操作は出来ない。それがユーザー定義関数ってものだ。 指定がおかしいんじゃなくて､やろうとしている事に対してユーザー定義関数を使おうとしているのがおかしい。 取得が出来てることはDebug.Print ActiveCell.Address(0, 0)を入れればわかるだろう。 操作がしたいならイベントを使え。 271 名前：デフォルトの名無しさん mailto:sage [2007/02/15(木) 01:38:10 ] www.relief.jp/itnote/archives/001873.php 272 名前：デフォルトの名無しさん mailto:sage [2007/02/15(木) 01:48:01 ] >>268 そういうやつですね。 文字列の長さからいろいろと計算させる予定でした。 結果的にダメっぽいですね。 いろいろとありがとうございました。 >>270 イベントでやるしかないのですね。 ＞それがユーザー定義関数ってものだ。 名言の匂いがしますね。使わせて頂きます。 >>271 参考になりました。 273 名前：デフォルトの名無しさん mailto:sage [2007/02/15(木) 01:48:02 ] 265+266+268+269 あとはがんばって〜。寝るわ。 274 名前：デフォルトの名無しさん [2007/02/15(木) 03:47:04 ] Const a = 1 Const b = 2 Const c = 3 Sub main() a1 = 1 b1 = 1 c1 = 1 cells_a = 0 cells_b = 0 cells_c = 0 Do While cells(a1, a).Text <> "" a1 = a1 + 1 cells_a = cells_a + 1 Loop Do While cells(b1, b).Text <> "" b1 = b1 + 1 cells_b = cells_b + 1 Loop Do While cells(c1, c).Text <> "" c1 = c1 + 1 cells_c = cells_c + 1 Loop cells(1, 5).Value = cells_a cells(2, 5).Value = cells_b cells(3, 5).Value = cells_c End Sub このプログラムを短くできませんか？ 275 名前：デフォルトの名無しさん mailto:sage [2007/02/15(木) 04:39:47 ] 配列使うと1/3近くには出来るかも知れないが 速度は落ちるんじゃないかな 276 名前：デフォルトの名無しさん mailto:sage [2007/02/15(木) 10:09:42 ] >>274 Const a = 1 Const b = 2 Const c = 3 Sub main() a1 = 1:b1 = 1:c1 = 1 With Application.WorksheetFunction cells(1, 5).Value = .Count(Range(Cells(a1,a),Cells(a1,a).End(xlDown))) cells(2, 5).Value = .count(Range(Cells(b1,b),Cells(b1,b).End(xlDown))) cells(3, 5).Value = .count(Range(Cells(c1,c),Cells(c1,c).End(xlDown))) End With End Sub 試してないけど、とかじゃダメなのか？ 277 名前：256 mailto:sage [2007/02/15(木) 10:51:13 ] >>257 お答えありがとうございます。説明不足ですみませんでした。 御推察のとおり、１つ目のセルは表示されずに２つ目が表示されてしまっていました。 で、>>257様の誤解を参考にして色々試したのですが、どうにもうまくいきません。 もう少しだけヒント頂けないでしょうか？ 278 名前：sage [2007/02/15(木) 13:13:37 ] >>277 何を試してどうだめだったのか書かないと… とりあえず自分の環境では普通に動く フォームを表示したときに表示したければ UserForm_Activaue()内で Callしてみれば？ とりあえず、F8でステップインしながら 動きを確認してみることをお勧めするよ 後はDebug.Printするとか。 ローカルウィンドウで 変数に期待通りの値が はいってるか確認する方法もあるし。 なんにしても情報が少なすぎだと思いますよ 279 名前：デフォルトの名無しさん mailto:sage [2007/02/15(木) 13:18:21 ] うはぁ あげちった… 携帯からレスするもんじゃないな… 280 名前：デフォルトの名無しさん mailto:sage [2007/02/15(木) 14:18:22 ] 他人事ながら ×UserForm_Activaue() ○UserForm_Activaｔe() 横レス失礼 281 名前：256 mailto:sage [2007/02/15(木) 16:06:37 ] >>278,>>280 またまた説明足らずで申し訳ありませんでした。 で、ご指摘の方法でちゃんと出来ました！ 自分の持ってるＶＢＡの本が初心者用のものだったため、 UserForm_Active()とか全然載ってなくて方法が分かりませんでした。 今回はどうもありがとうございました！ 282 名前：デフォルトの名無しさん mailto:sage [2007/02/15(木) 16:27:59 ] VBに高階関数とかってないの？関数に関数を引数として渡したいだけなんだけど。 283 名前：デフォルトの名無しさん mailto:sage [2007/02/15(木) 16:49:21 ] >>282 AddressOf 284 名前：デフォルトの名無しさん mailto:sage [2007/02/15(木) 19:07:28 ] >>283 おお、ｻﾝｸｽ 285 名前：デフォルトの名無しさん mailto:sage [2007/02/15(木) 19:31:06 ] ダイアログボックスで入力された年・月にしたがってカレンダーを表示するマクロを作っています。 年・月は文字列として取得、それを日付型にデータ変換して日付型の変数に代入しているのですが、 そこで「実行時エラー'11':　0で除算しました。」とのエラーが出ます。 DateValue関数を使う、日付型の変数を Variant型に変える、を試してみましたが、 結果は同じでした。 文字型の変数を Variant型に変えると、最初に１回エラーが出たあとその後は出なくなりましたが、 カレンダー表示の処理のところで日付を誤認してしまいます。 現在は On Error Resume Next でエラーを抑制して動かしており、 本来の目的であるカレンダー表示はそれで問題なくできておりますが、 可能であればエラー自体出ないようにしたいと思っています。 どこが悪いのかアドバイスをお願いします。 テストコード Sub test() Dim strInput As String Dim datDay As Date strInput = InputBox("年と月を入力してください。(例)「2007 2」") datDay = CDate(strInput) MsgBox datDay End Sub 環境 Mac OS X 10.4.8 Excel 2004 for Mac ver. 11.3(060914) 以上よろしくお願いします。 286 名前：デフォルトの名無しさん [2007/02/15(木) 20:46:35 ] VBAのソースで右側に長くなって見づら苦なってきたのでソースの内容はそのままで改行することってできませんか？ 普通に改行するとエラーが出てしまいます。 287 名前：デフォルトの名無しさん mailto:sage [2007/02/15(木) 21:01:35 ] MsgBox _ 　"VBAのソースで右側に長くなって" & vbCrLf & _ 　"見づら苦なってきたので" & vbCrLf & _ 　"ソースの内容はそのままで" & vbCrLf & _ 　"改行することってできませんか？" & vbCrLf & _ 　vbCrLf & _ 　"普通に改行するとエラーが出てしまいます。" 288 名前：デフォルトの名無しさん mailto:sage [2007/02/15(木) 21:30:38 ] >>287 Chr(10)じゃだめ？ 289 名前：デフォルトの名無しさん mailto:sage [2007/02/15(木) 21:51:40 ] >>285 テストコードが問題なく実行できてしまったのですが…。 カレンダーに変換してるところのエラーでは？ 290 名前：デフォルトの名無しさん mailto:sage [2007/02/15(木) 22:43:59 ] たぶんロケール絡みだろう。 同じバージョンのWindows&Excelだって､ロケールが違うとCDateやIsDateの動作が変わってくるからな。 とりあえずInputBoxとCDateの間に If strInput = "" Then MsgBox "空文字 or キャンセル": Exit Sub If Not IsDate(strInput) Then MsgBox "日付変換不可": Exit Sub って入れてみな。｢2007 2｣で"日付変換不可"が出るようなら､ロケールの問題でビンゴだ。 その場合は文字列切り出しで年と月を取得しよう。 "日付変換不可"が出ないにしても､文字列切り出しで解決出来るならそれでいいし。 291 名前：286 [2007/02/16(金) 00:53:59 ] _←これだけで改行できた思い出させてくれてありがとう 292 名前：デフォルトの名無しさん mailto:sage [2007/02/16(金) 01:11:48 ] ListBoxに値をいれるとClickやChangeが発生しますが、 クリック中に値を変更したい場合とかどうしてますか？ フラグもって立ってたら処理しないというやり方で回避してるんだけど なにかほかにいい方法がありますでしょうかね。 293 名前：285 mailto:sage [2007/02/16(金) 01:38:32 ] >>289, 290 レスをいただきありがとうございます。 テストコードのほうですが、>>290さんのコードを加えて実行してみたところ、 １回目は「実行が終了しました」とのエラーメッセージが表示され、 ２回目は「オーバーフローしました」とのエラーメッセージが表示され、 ３回目以降は「2007.2.1」と普通に表示されました。 念のため本来のマクロを On Error Resume Next をコメントアウトして再度実行してみたところ、 １回目は「オーバーフローしました」とのエラーメッセージが表示され、 ２回目も「オーバーフローしました」とのエラーメッセージが表示され、 ３回目は正常にマクロが実行され、 ４回目で「0で除算しました」とのエラーメッセージが表示されました… こちらに書き込む前に何回もテストし、そのときは「0で除算しました」というエラーメッセージのみ 繰り返し出ていたのですが、実行のタイミングによってまるで結果が違ってきているようでもあり、 とまどっています。 >>290さんのおっしゃっている「文字列切り出し」という方法は、文字列から年と月をそれぞれ別々に取得する ということですね？ がんばってコードを書いて試してみます。 どうもありがとうございました。 294 名前：デフォルトの名無しさん mailto:sage [2007/02/16(金) 10:37:50 ] a = Int(9 * Rnd + 1) b = Int(9 * Rnd + 1) c = a + b これでcの中にaの中に7　bの中に8　が入ってるとして　15じゃなく　78と表示することはできますか？ 295 名前：デフォルトの名無しさん [2007/02/16(金) 11:59:19 ] >>294 つなげたいなら、& 296 名前：デフォルトの名無しさん mailto:sage [2007/02/16(金) 12:20:14 ] ちょｗｗＶＢ以前の問題だろｗ a*10+bも思いつかんのか 297 名前：デフォルトの名無しさん [2007/02/16(金) 22:23:14 ] 初歩的な質問でホントにすいません； エクセルのシート上にファイル等から画像を挿入したとします。 ↓ その画像を文字列の背面に持っていく方法がわかりません； 背景に設定する等とは違います； （ちなみに背景も小さい画像で設定すると ビッチリ並んで出てきますが、好きな場所に１個だけ、 とかは出来るんでしょうか？） よろしくお願いします； 298 名前：デフォルトの名無しさん [2007/02/16(金) 22:25:14 ] すいません；スレ違いでした； 299 名前：デフォルトの名無しさん mailto:sage [2007/02/18(日) 12:04:32 ] 100行まで三行間隔で文字列が入っていて間違って打ってないか確認したいです。 B列、100行までの間の3の倍数のセルに"もげ"って入っていたら次の3の倍数のセルへ 間違っているか、空欄だったらセルを選択した状態で終えてください。 という処理をしたいのですが 相対セルと三の倍数選択する部分の表現でつまづいてしまいました。 一つずつチェックしてこなすにも5000行以上で当て上げ状態です どなたかヒントかVBAのソースを教えていただけないでしょうか よろしくおねがいします 300 名前：デフォルトの名無しさん mailto:sage [2007/02/18(日) 12:13:16 ] 当て上げ? で、そのチェックはVBAでやるようなことなのか? 301 名前：デフォルトの名無しさん mailto:sage [2007/02/18(日) 12:54:44 ] B列を削除して割り振りなおした方が簡単じゃないの？ 302 名前：デフォルトの名無しさん mailto:sage [2007/02/18(日) 12:55:01 ] > ソースを教えていただけないでしょうか ソースが欲しいならそういうところに頼めよ ここは丸投げ依頼所じゃないぜ 自分で書こうって気がある奴がヒントを貰いに来る場だ 303 名前：デフォルトの名無しさん mailto:sage [2007/02/18(日) 12:57:28 ] step 3 じゃだめ？ 304 名前：デフォルトの名無しさん mailto:sage [2007/02/18(日) 13:19:21 ] >>299 100行まで？ Sub moge() 　　Dim i As Integer 　　For i = 3 To 100 Step 3 　　　　If Cells(i, 2).Value = "" Then 　　　　　　MsgBox "B" & i & "は空白ですよ。" 　　　　ElseIf Cells(i, 2).Value <> "もげ" Then 　　　　　　MsgBox "B" & i & "に「もげ」でない文字が入っています。" 　　　　End If 　　Next i End Sub 305 名前：デフォルトの名無しさん [2007/02/18(日) 13:41:13 ] dim giy as integer a=4937870 b=1.05 s=387 u=100 giy = WorksheetFunction.RoundDown(((a * b) / (s*u)), -1) 上のを実行するとなんでかオーバーフローするんですけど。 306 名前：デフォルトの名無しさん mailto:sage [2007/02/18(日) 13:47:01 ] しませんでしたけど… 念のためLongにしといたらどーですか？ 307 名前：299 mailto:sage [2007/02/18(日) 13:51:43 ] >>304 まさにこれです 変数とかCellsとかforとかすごい勉強なります。 ありがとうございます >>303　 最初なんのことだろうと思いましたが、304みてわかりました。step 3。 ありがとうございます。 308 名前：デフォルトの名無しさん [2007/02/18(日) 13:56:43 ] デバッグしてa*bのところにマウスをもってくると、5184763.26454401 という数字が出ます。小数点以下の数字が原因かと思うんですけど。 309 名前：デフォルトの名無しさん mailto:sage [2007/02/18(日) 14:11:26 ] >>308 それのどこがオーバフロー? 310 名前：デフォルトの名無しさん mailto:sage [2007/02/18(日) 14:14:16 ] もしかして： 単精度で計算していて精度がでていないという落ち？ 311 名前：デフォルトの名無しさん mailto:sage [2007/02/18(日) 14:25:55 ] aとbがVariantならdoubleと同じ精度で扱えると思うんだが… 312 名前：デフォルトの名無しさん mailto:sage [2007/02/18(日) 21:49:04 ] フォームのテキストボックスを全部いっぺんに空白にする方法はありますか？ 313 名前：デフォルトの名無しさん mailto:sage [2007/02/18(日) 22:40:09 ] >>312 順番に空白にすればよい 314 名前：312 mailto:sage [2007/02/18(日) 22:44:54 ] いや、そりゃもちろんそうなんですが、 一行で一気に全部いっぺんに空白にしてしまうような命令とかはないかなぁと思いまして・・・ 315 名前：デフォルトの名無しさん mailto:sage [2007/02/18(日) 22:55:43 ] >>314 そんなことしてどーするの？ 見た目には変わらないのに？ 316 名前：デフォルトの名無しさん mailto:sage [2007/02/18(日) 23:10:11 ] Me.Controlsに対してFor Eachループ回して If TypeName(objControl) = "TextBox" Then objControl.Text = "" とか 317 名前：デフォルトの名無しさん mailto:sage [2007/02/18(日) 23:29:42 ] そういう処理をするプロシージャを用意しておいて、そいつを呼べばいい。 318 名前：312 mailto:sage [2007/02/19(月) 10:43:01 ] >>315 自分の作成したフォームのテキストボックスが２０個くらいありまして、 それをクリアするのにプログラムが長くなってしまうので 短く簡単にすませる方法はないかなぁと思いまして。 >>316､317 ありがとうございます。それで試してみます！ 319 名前：デフォルトの名無しさん [2007/02/20(火) 00:41:14 ] EXCELで コマンドボタンをクリックすると、Sheet3のA1:A10の内容を、Sheet1のA1:A10にコピーする こんなモノを作りたいのですが Private Sub CommandButton1_Click() Range("A1:A10").Select Selection.Copy Sheets("Sheet1").Select Range("A1:A10").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End Sub こうすると、「Range　クラスの Select メソッドが失敗しました」となってしまいます どうすればいいか教えて下さい 「マクロの記録」を使ってしか、マクロ扱った事無いのに 調子に乗って仕事請けてしまって困ってます・・・ 320 名前：デフォルトの名無しさん mailto:sage [2007/02/20(火) 00:58:33 ] >>319 これだけでいいんでない？ Private Sub CommandButton1_Click() 　　Worksheets("Sheet3").Range("A1:A10").Copy 　　Worksheets("Sheet1").Range("A1:A10").PasteSpecial Paste:=xlPasteValues End Sub 最後に Worksheets("Sheet1").Activate にしてもいいと思うけど… 321 名前：319 mailto:sage [2007/02/20(火) 01:15:25 ] 解決しました有難うございます 範囲指定の時は Worksheets("Sheet3").Range("A1:A10") としなければいけないのですね 322 名前：デフォルトの名無しさん mailto:sage [2007/02/20(火) 01:18:36 ] >>321 シート名を指定していないのでSelectが失敗したのではないでしょうか？ 範囲指定とは関係ないです。 そういや Worksheets("Sheet1").Range("A1").PasteSpecial Paste:=xlPasteValues でOKでもOKでした。 323 名前：デフォルトの名無しさん mailto:sage [2007/02/20(火) 01:40:09 ] どうでもいいけど、 シート名変更されると危なっかしいから、 シートのオブジェクト名でやった方が無難。 Sheet1.Range〜以下略 意味が分からんならVBA画面でシートを選択してF4押せ。 324 名前：デフォルトの名無しさん mailto:sage [2007/02/20(火) 01:50:00 ] ユーザーがSHIFT＋クリックで複数のセルを選択するように プログラム上で選択中のセルをさらに動的に増やしたいのですが どうすればいいでしょうか。 325 名前：デフォルトの名無しさん mailto:sage [2007/02/20(火) 01:51:53 ] どういう風に増やしたいのか詳しく。 Offsetとかでいいならそれで。 326 名前：デフォルトの名無しさん mailto:sage [2007/02/20(火) 02:12:18 ] OffsetではなくResizeの方が良いのでは？ 327 名前：デフォルトの名無しさん mailto:sage [2007/02/20(火) 03:12:28 ] 飛び地で選択できるじゃないですか？ あんな感じで。 ２点間を選択してもらって、その間の特定キーワードを含む セルを自動的に選択する機能を作りたいのですよ。 328 名前：デフォルトの名無しさん mailto:sage [2007/02/20(火) 07:49:42 ] >>327 マクロの記録でctrlキーを押しながら A1とA3を選択。 これで、離れたセルの指定方法は分かるだろ？ 後は、定範囲内をFor Eachとかでまわして 該当セルのaddressとるなりして 同じように選択するだけ。 329 名前：デフォルトの名無しさん [2007/02/20(火) 11:06:07 ] Type MyTestType ID As Integer Name As String End Type Sub test() Dim a(3) As MyTestType '中略 i = TypeTest(a) End Sub Function TypeTest(a As Variant) As Integer '省略 End Function とコードを組むと、コンパイルエラーが出ます。 Functionの引数の型宣言で、配列を使うこともできませんが、 どのようにしたら、aをFunctionに渡すことができるでしょうか？ よろしくお願いします。 330 名前：デフォルトの名無しさん mailto:sage [2007/02/20(火) 11:24:55 ] VBAでどうやってコンパイルエラーを出したのか知りたいのだが。 331 名前：デフォルトの名無しさん mailto:sage [2007/02/20(火) 11:39:42 ] >>329 クラスを使え >>330 メニュー > デバッグ > VBAProjectのコンパイル も知らんのか？ >>329なら普通に実行したってコンパイルエラー出るし。 もしかしてexe吐くことがコンパイルだと思ってるのかな？ 332 名前：デフォルトの名無しさん mailto:sage [2007/02/20(火) 12:08:03 ] >>331 クラスってどうつかえばいいのですか？ プロジェクトで挿入からクラスモジュールを挿入して、 Type文を打ち込めばよろしいのでしょうか？ それと、ここはsage推奨ですか？ 333 名前：デフォルトの名無しさん mailto:sage [2007/02/20(火) 12:16:50 ] >>332 ===== MyTestClass As クラスモジュール ===== Public ID As Integer Public Name As String ===== EOM ===== ===== Module1 As 標準モジュール ===== Sub test() 　　Dim a(3) As New MyTestClass 　　a(0).Name = "hoge" 　　a(0).ID = 10 　　i = TypeTest(a) End Sub Function TypeTest(a() As MyTestClass) As Integer 　　Debug.Print a(0).Name 　　Debug.Print a(0).ID End Function ===== EOM ===== こんな感じで。 クラスモジュールの名前がAs 〜で使う宣言型になる点に注意。 > それと、ここはsage推奨ですか？ 別に。回答者はageる必要が無いから慣例的にsageてるだけ。 334 名前：デフォルトの名無しさん mailto:sage [2007/02/20(火) 13:40:38 ] >>333 どうもです。 335 名前：327 mailto:sage [2007/02/21(水) 02:04:24 ] マクロで記録したら文字列で指定してたからどうしたもんかと 思いましたが、addressでセル位置の座標を取れるからこれ使えばいいのかな。 問題は解決したけども、なんかほかにスマートな方法があるなら教えてくだされ。 336 名前：デフォルトの名無しさん [2007/02/21(水) 15:31:21 ] GetOpenFilename　で「ファイルを開く」　ダイアログ で左側のデスクトップやマイドキュメントが選べません。どうしてでしょうか？ 参照設定で、Microsoft Runtime Scriptingは選択しています。 Office2003, XP Proです。 337 名前：デフォルトの名無しさん mailto:sage [2007/02/21(水) 15:49:59 ] > どうしてでしょうか？ 環境が壊れてるからじゃねーの？ とりあえずOSとOfficeを再インストールしてみな。 それとGetOpenFilenameはApplicationオブジェクトのメンバなんで参照設定は不要だし､ Microsoft Runtime Scriptingではなく Microsoft Scripting Runtimeだろ。これはFSOやDictionaryだからな。 338 名前：デフォルトの名無しさん [2007/02/22(木) 15:30:03 ] 　　row = 1 For Each a In IEobj.Document.body.getElementsByTagName("A") If InStr(a.href, "xxx.com/") <> 0 Then x = a.href Worksheets(1).Cells(row, 1).Value = x row = row + 1 End If Next a こんな感じのURLなのですが、同じアドレスは二度書き込まない風にできますか？ 339 名前：338 [2007/02/22(木) 18:01:47 ] 処理重くなるだけかな 少しぐらい重なってもいいか・・・・

---

---

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

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