Excel VBA 質問スレ Part23

1 名前：既定のプロパティさん mailto:sage [2012/01/29(日) 00:05:13.16 ] 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/ 14 pc12.2ch.net/test/read.cgi/tech/1262748898/ 15 pc12.2ch.net/test/read.cgi/tech/1271261239/ 16 hibari.2ch.net/test/read.cgi/tech/1280045912/ 17 hibari.2ch.net/test/read.cgi/tech/1289182437/ 18 hibari.2ch.net/test/read.cgi/tech/1298240666/ 19 hibari.2ch.net/test/read.cgi/tech/1305754555/ 20 hibari.2ch.net/test/read.cgi/tech/1312435844/ 21 hibari.2ch.net/test/read.cgi/tech/1316931607/ 前スレ： Excel VBA 質問スレ Part22 toro.2ch.net/test/read.cgi/tech/1322400978/ 432 名前：デフォルトの名無しさん mailto:sage [2012/03/01(木) 00:18:08.68 ] すみません、どうも詰まってしまったので質問させてください 商品名の入っているシートから、数学で言う所の和集合を取りたいと考えています 例えば、 A列　B列 1 CC TT 2 HH CC 3 TT E3 となっているようであれば、(CC、TT、HH、E3）を取り出して、できれば1セルに一つの名前という形で長く並べたいと考えています Sub Test() Range("F8").Value = Union(Range("A1:A3"), Range("B1:B3")).Value End Sub おそらくUnionを使うのかなと考えて、とりあえず1セルに一つの名前ということを考えずに書いてみたのが上のコードなんですが、 実行するとF8にはCCしか入力されません。これはどこが間違っているのでしょうか？ どなたかよろしくお願いいたします。 433 名前：デフォルトの名無しさん mailto:sage [2012/03/01(木) 02:13:02.97 ] すいません、色々試してみたら半分くらい自己解決できました。 Sub MultipleRange() Dim rng1 As Range, rng2 As Range, myMultiRanges As Range Worksheets("Sheet1").Activate Set rng1 = Range("A1:A3") Set rng2 = Range("B1:B3") Set myMultiRanges = Union(rng1, rng2) Dim i As Integer For i = 1 To 6 Cells(10, i).Value = myMultiRanges(i).Value Next i End Sub これだと重複ができるようなので、これやった後に重複チェックのコードを別にかければなんとかいけそうです。お騒がせしました 434 名前：デフォルトの名無しさん mailto:sage [2012/03/01(木) 10:10:50.67 ] Excel2010 (win7 home) Worksheets("test")の Private Sub Worksheet_Activate() UserForm1.Show End Sub と入れて Worksheets("test")のタブをクリックして表示させた時に Userform1が立ち上がるのは確認したんですが、 ThisWorkbookのシートモジュールの Private Sub Workbook_Open() Worksheets("test").Activate End Sub としてブックの起動時にWorksheets("test")をアクティブにしても Userform1が出てこないんですが、これはなぜ？ 明示的に UserForm1.ShowをWorkbook_Open()に入れればもちろんフォームが 出てくるんですけど、これではあまり意味がないような気がする んですけど。 435 名前：デフォルトの名無しさん mailto:sage [2012/03/01(木) 10:20:46.78 ] 九分九厘、そのワークシートtestがブックを開く時点からアクティブなんだろうな。 ワークシートのActivateイベントは「他のシートから移動してきたとき」しかトラップされないから、 ブックを閉じるときにtestがアクティブな状態で保存されて、開くときに最初からアクティブだとトラップできてない。 試しにワークシートtest2を作って、それをアクティブにした状態で保存して開いてみ？ 436 名前：デフォルトの名無しさん mailto:sage [2012/03/01(木) 10:38:38.23 ] おおっ、即レスかつその通りでした！ ありがとうございますm(__)m 437 名前：デフォルトの名無しさん mailto:sage [2012/03/01(木) 18:16:46.90 ] VBAで あ 1 あ 1 を行を文字と数字に列を整えることは可能？ 438 名前：デフォルトの名無しさん mailto:sage [2012/03/01(木) 18:20:24.65 ] ちゃんとした日本語の説明か、結果のプレビューを頼むｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗ 439 名前：デフォルトの名無しさん mailto:sage [2012/03/01(木) 20:08:50.04 ] エスパーの訓練が捗るな 440 名前：デフォルトの名無しさん mailto:sage [2012/03/01(木) 20:50:42.49 ] Excel2010(vaista)ですが 家計簿を作成してまして収入と支出の差額を表の一番右下の セルに表示させているのですがそのセルの数字が黒字（0以上）ならセルの背景を青 赤字（0未満）ならセルの背景を赤にしたいのですが上手くできません そもそもVBAでは不可能なので素直に条件式書式設定を毎回 使用したほうが良いのでしょうか？ 441 名前：デフォルトの名無しさん mailto:sage [2012/03/01(木) 22:14:39.94 ] 条件式書式設定でできることを態々VBAでやろうとする意味が分からないんだが 442 名前：デフォルトの名無しさん mailto:sage [2012/03/02(金) 00:09:42.41 ] Excel 2010です。開発タブをリボンに表示させる方法を教えて下さい。 2007では、「ファイル」→「オプション」で「開発タブをリボンに表示する」が 出て来るのですが。 443 名前：デフォルトの名無しさん mailto:sage [2012/03/02(金) 00:15:51.44 ] イベントプロシージャに親プロシージャの引数をわたすことは 可能でしょうか？ 444 名前：デフォルトの名無しさん mailto:sage [2012/03/02(金) 00:20:12.40 ] >>443 おや？ 445 名前：デフォルトの名無しさん mailto:sage [2012/03/02(金) 00:23:55.72 ] 今日は妙に>2すら読まない奴が多いな… 446 名前：デフォルトの名無しさん mailto:sage [2012/03/02(金) 01:38:50.37 ] >>442 ファイル→オプション→リボンのユーザー設定→開発にチェック 447 名前：デフォルトの名無しさん mailto:sage [2012/03/02(金) 12:51:59.64 ] ユーザーフォーム上のコマンドボタンの色を変更する目的でカラーパレットを表示させたいのですが、 どうすればいいでしょうか？ マクロに記録してから中身を見ようと思ったのですがVBAにはマクロの記録がなくて、ググっても RGBの値を直接代入する例ばかりでよくわかりませんでした。 よろしくお願いします。 448 名前：デフォルトの名無しさん mailto:sage [2012/03/02(金) 13:03:47.62 ] カレーパレットダイアログは搭載されてない。 自分でユーザーフォームで1から作るか、WinAPIを使って自分で実装するしかない。 お好きな方で。 449 名前：デフォルトの名無しさん mailto:sage [2012/03/02(金) 13:16:57.63 ] >>448 ありがとうございます。 自作することにします。 450 名前：デフォルトの名無しさん [2012/03/02(金) 13:54:58.28 ] パッチあてるのどうやるの? sed -i s/hello/こにゃにゃちわ/g *.[ch] cc *.[ch] 相当。export、import手作業は嫌です。 451 名前：デフォルトの名無しさん mailto:sage [2012/03/02(金) 14:04:19.91 ] そんな便利なものはない。 自分でやるなら、VBComponent.CodeModule.ReplaceLine使え。 452 名前：デフォルトの名無しさん mailto:sage [2012/03/02(金) 14:08:57.19 ] アドインにしとけ 453 名前：デフォルトの名無しさん mailto:sage [2012/03/02(金) 18:23:02.19 ] witheventsを使うときに、コマンドボタンの１〜5個めはイベントを共有して、 6〜10個めはそれぞれ独自のイベントにしたい場合はwitheventのプロシージャーの 中で判断するしかないですか？ 454 名前：デフォルトの名無しさん [2012/03/02(金) 18:41:09.43 ] >>451 ありがとう。 var=VBComponent....Lines(...) replace(var,“hello“,“こにゃにゃちわ“) VBComponent....Lines=var みたいにして絶望していた。 >>452 もう一歩教えてくだsあ。 アドインにReplaceLine()なりを書けという意味? アドインにサブルーチンの置換プラグイン相当の機能があるという意味? 455 名前：デフォルトの名無しさん [2012/03/03(土) 16:16:57.97 ] シートがなくなるまで、2シートずつ選択してプリント。 Sub pare_print() Dim i As Integer For i = 2 To Sheets.Count Worksheets(Array(i, i + 1)).PrintOut i = i + 2 Next i End Sub できません・・・なんででしょう？？(´Д⊂ヽ プリントアウト始めのシートは2番目からです。。 456 名前：デフォルトの名無しさん mailto:sage [2012/03/03(土) 16:22:32.24 ] 複数枚のグラフをユーザーフォーム上に重ねて表示させることはできるでしょうか？ 今はシート上に重ねて表示させているのですが表示場所をずらしたい時とか、全体に 拡大縮小したい時にどうすればいいかわからず、ユーザーフォーム上ならユーザーフォームを 移動、拡大縮小することによって簡単にできるかなと思ったのですが、ググっても情報がないみたいで。 よろしくお願いします。 457 名前：455 [2012/03/03(土) 16:26:48.45 ] どうもすみません。 最初のシート名は、0だったようです。できました。 458 名前：デフォルトの名無しさん mailto:sage [2012/03/03(土) 17:14:23.39 ] 　　　　 顕正新聞 平成24年2月5日号「原発全廃特集号」 原発は日本を滅ぼす、即時全廃せよ 人のDNAを破壊、国土を居住不能にする 代替は天然ガス・コンバインドサイクルで十分 惨禍もたらすを知って推進するは犯罪 ttp://d.hatena.ne.jp/kensho01/20120208/1328718592 459 名前：456 mailto:sage [2012/03/03(土) 20:56:39.14 ] すみません。OSとバージョンを書き忘れました。 OS：BeOS Release4 (intel版です。PowerPC版ではありません ) バージョン：Gobe Productive 1.1 引き続きよろしくおねがいしますｍ（_　_）ｍ 460 名前：デフォルトの名無しさん mailto:sage [2012/03/04(日) 10:36:07.81 ] こんにつわ、質問です。 A1-A50にランダムで指定の文字列もしくは空白が入ります。例えばリンゴ、ミカン、etcで、それぞれリンゴ...001、ミカン...050のようにあらかじめ対応する数字が割り振られています。 この文字列、つまり数字を条件に処理したいのですが、この場合A1から順に判定するよりも、A列から抽出して重複と空白を除外し、その結果を例えばB列に貼り付けて、B1からB?の空白まで処理をくり返すのが良いと思うのですが、どうでしょうか。具体的にどう書けば良いですか？ 461 名前：デフォルトの名無しさん mailto:sage [2012/03/04(日) 10:41:38.47 ] >>460 B列に貼り付ける処理が無駄 FOR EACH でA列のRANGEを処理しながら回せばよろし 462 名前：デフォルトの名無しさん mailto:sage [2012/03/04(日) 10:57:16.47 ] thx. RANGEが固定ではない場合の上手い方法ありますか？適当に下まで引っ張ればいいですか？ 463 名前：デフォルトの名無しさん mailto:sage [2012/03/04(日) 11:12:33.48 ] 分からねえ分からねえよぉ A列に指定の文字列ランダムに配置 B1-B50に指定の文字列 C1-C50に指定の文字列に対応する数字 があるとして、A1から順番に対応する数字をMsgboxで表示していくコード誰か書いてくれぉ 464 名前：デフォルトの名無しさん mailto:sage [2012/03/04(日) 11:18:31.63 ] VLOOKUP使えよ 465 名前：デフォルトの名無しさん mailto:sage [2012/03/04(日) 11:33:29.98 ] thx. A1からセル内の数字だけ取り出すにはどうすればいいですか？ 漢字/12345\/ という形式から 12345 を取り出したいです 漢字は1-5文字のランダムなので、LEFTは使えないです 数字は5桁固定で必ず\の前です 466 名前：デフォルトの名無しさん mailto:sage [2012/03/04(日) 11:35:50.15 ] for i = 1 to 最終行 最終行の取得はお好きにどうぞ 467 名前：デフォルトの名無しさん mailto:sage [2012/03/04(日) 11:38:22.77 ] >>465 正規表現でもLikeでもお好きにどうぞ 468 名前：デフォルトの名無しさん mailto:sage [2012/03/04(日) 12:24:26.18 ] Dim c As Object For Each c In Worksheets(imacat).Range("A1:A100") If c.value Like "*##*" Then Msg: MsgBox "cである" End If Next c ここまで出来た… 469 名前：デフォルトの名無しさん mailto:sage [2012/03/04(日) 12:27:05.40 ] Msg:要らないな MsgBoxにマッチした数字を表示したいのですけどできません 470 名前：デフォルトの名無しさん mailto:sage [2012/03/04(日) 12:44:36.54 ] >>469 AHO 471 名前：デフォルトの名無しさん mailto:sage [2012/03/04(日) 12:51:45.21 ] MsgBox c & "である" 472 名前：デフォルトの名無しさん mailto:sage [2012/03/04(日) 13:00:32.31 ] そもそもLikeでマッチした数字返せるのけ？ 473 名前：デフォルトの名無しさん [2012/03/04(日) 13:12:38.41 ] >>465 instrで/と\の位置を探してmid関数を使えば？ 474 名前：デフォルトの名無しさん mailto:sage [2012/03/04(日) 13:19:10.28 ] >>463　コード書いたのでどうぞ使ってください。>>464のいうとおりVLOOKUPを使用して組んでみました。 Sub Test() 　　Const s = vbKeyLButton: Const e = vbKey2: Dim vlookup: Set vlookup = Application 　　Dim i: For i = s To e: 　　　　Dim v: v = Evaluate(Chr(vbKeyF7) & Chr(vbKeySeparator) & Chr(vbKeyDivide) & Chr(vbKeyDivide) & _ 　　　　Chr(vbKeyAdd) & Chr(vbKeyF6) & Chr(vbKeyF1) & Chr(vbKeyDown) & Chr(vbKeyNumpad1) & i & _ 　　　　Chr(vbKeySnapshot) & Chr(vbKeyNumpad2) & s & Chr(vbKey9 + 1) & Chr(vbKeyNumpad3) & e & _ 　　　　Chr(vbKeySnapshot) & Chr(vbKey2) & Chr(vbKeySnapshot) & Chr(vbKeyNumpad6) & Chr(vbKeyNumpad1) & _ 　　　　Chr(vbKeySeparator) & Chr(vbKeyF4) & Chr(vbKeyNumpad5) & Chr(vbKeySelect)) 　　　　' VLOOKUPで数字をMsgBoxで表示する 　　　　vlookup.OnTime Now() + TimeValue(Chr(vbKey0) & Chr(vbKey9 + 1) & Chr(vbKey0) & Chr(vbKey9 + 1) & i), _ 　　　　Chr(vbKeyRight) & Chr(vbKeySubtract) & Chr(vbKeyNumpad2) & Chr(vbKeyDown) & IIf(IsError(v), String( _ 　　　　vbKeyRButton, Chr(vbKeyPageDown)), v) & Chr(vbKeySelect) & Chr(vbKeyRight) 　　Next End Sub Sub MB(v): MsgBox (v): End Sub 475 名前：デフォルトの名無しさん mailto:sage [2012/03/04(日) 13:31:13.08 ] >>472 かえせるべ 正規表現のほうが楽だけど str= "あいうえお12345" strlen= len(str) for i =1 to strlen cha= mid(str,i,1) if cha lile "[0-9]" then c= c &cha end if next 476 名前：デフォルトの名無しさん mailto:sage [2012/03/04(日) 13:35:24.62 ] すげー。自力じゃ無理だったので有難く使いますthx!!! 477 名前：デフォルトの名無しさん [2012/03/04(日) 13:48:13.13 ] 数字だけ取り出すなら dim a a=instrr(cells(1,1),"\") msgbox mid(cells(1,1),a-5,5) が簡単だと思うけど。 478 名前：デフォルトの名無しさん [2012/03/04(日) 13:54:17.43 ] VBAで可視セルを扱うにはどういう機能またはプロパティまたはメソッドを使いますか？ 479 名前：デフォルトの名無しさん mailto:sage [2012/03/04(日) 13:57:27.36 ] >>478 可視セルをどう使いたいかによる。 480 名前：デフォルトの名無しさん [2012/03/04(日) 14:04:24.13 ] >>479 toro.2ch.net/test/read.cgi/bsoft/1329913579/161- 481 名前：デフォルトの名無しさん mailto:sage [2012/03/04(日) 14:23:38.72 ] 連続じゃないセル、たとえば、range("A1:A3")とrange("C1:C3")を3*2の配列に格納するには どうすればよいのでしょうか？ 482 名前：デフォルトの名無しさん mailto:sage [2012/03/04(日) 14:35:08.42 ] >>477 これにしたthxx. 483 名前：デフォルトの名無しさん mailto:sage [2012/03/04(日) 14:36:48.77 ] >>481 For〜Nextで順番に代入 作業列を使ってもいいんなら一ヶ所に固まるようにセル範囲をコピーしてからVariant型に代入 B列を削除して配列にコピーしてからアンドゥ 484 名前：デフォルトの名無しさん mailto:sage [2012/03/04(日) 14:37:11.44 ] >>481 dictionary使うとか set dic = createobject("scripting.dictionary") for i = 1 to 3 dic add cells(i,1)value, cells(i,3).value next for i =1 to 3 cells(i,5).value=dicitem(cells(i,4).value) next set dic=nothing 485 名前：デフォルトの名無しさん mailto:sage [2012/03/04(日) 17:36:55.88 ] こんばんばーん、質問です。 連結されているセルにデータがあるものとして判定するにはどうすれば良い？ 例えば、文字列がE1とF1をまたいでいる。セルが結合されているとき、F1にValueしても空だが、データがあるものと判定したいです。セルの結合数はランダムです。 486 名前：デフォルトの名無しさん mailto:sage [2012/03/04(日) 17:45:29.93 ] MergeCellsで事故解決です 487 名前：デフォルトの名無しさん mailto:sage [2012/03/04(日) 19:11:15.60 ] >>483 >>484 ありがとうございました 488 名前：デフォルトの名無しさん mailto:sage [2012/03/05(月) 13:07:02.09 ] こんにちあ、質問です。 A1-A100に、空白セルもしくは"abc"のセルがあるとき、その行を削除したいのですが、 Dim c As Range For Each c In Range("A1:A100") If c.Value ="" Or c.Value = "abc" Then c.Rows.EntireRow.Delete Next c とすると、1度目の処理で空白行が消えて、もう一度処理するとabc行が消えます。なぜこの記述はダメなのか？一度の処理で済ますにはどう書けば良いですか？ 489 名前：デフォルトの名無しさん mailto:sage [2012/03/05(月) 13:28:54.49 ] If c.Value ="" Or c.Value = "abc" Then c.Rows.EntireRow.Delete 　↓ If c.Value ="" Or If c.Value = "abc" Then c.Rows.EntireRow.Delete 490 名前：デフォルトの名無しさん mailto:sage [2012/03/05(月) 14:05:09.36 ] エラーでますぉ 491 名前：デフォルトの名無しさん mailto:sage [2012/03/05(月) 14:11:45.74 ] >>488 ごめんアホなこと書いた セルを消去してるので、セルが上に繰り上がってる A２のセルを消去したらA3のセルがA2に繰り上がるので、そのセルは評価されない。 for each じゃなくて for i =100 to 1 step - 1 A100から　減算させて評価させればいい。 つかstepとか忘れてて　ぐぐったわ・・ 492 名前：デフォルトの名無しさん mailto:sage [2012/03/05(月) 14:29:25.31 ] 出来たthx! 質問です、 for i 1 to 100 文字列&i next とするときiが一桁のとき01のようにして&したいのですが、書き方ありますか？ 493 名前：デフォルトの名無しさん mailto:sage [2012/03/05(月) 14:32:02.47 ] Right関数使え 494 名前：デフォルトの名無しさん mailto:sage [2012/03/05(月) 14:32:35.75 ] >>492 For i = 1 To 100 　str = str & Format(i, "00") Next 495 名前：デフォルトの名無しさん mailto:sage [2012/03/05(月) 14:38:43.95 ] かんぺきthx! 496 名前：デフォルトの名無しさん [2012/03/05(月) 17:41:04.96 ] どなたか教えてください。 Access2000からExcelファイルを生成しています。 参照設定を Excel9.0 Objectlibrary へ設定しています。 生成先のExcelは2000だったり2003だったり、を想定しています。 以下のソースは動作します。 Function EXCEL_TEST1() '事前バインディング　必ずEXCELへの参照設定が必要 Dim appWorld As Excel.Application Dim wbWorld As Excel.Workbook Dim Wksheet As Excel.Worksheet Set appWorld = CreateObject("Excel.Application") Set wbWorld = appWorld.Workbooks.Add Set Wksheet = wbWorld.Sheets(1) Wksheet.Cells(5, 5) = "カキコ" LAST_CELL = Wksheet.Cells.SpecialCells(xlLastCell).Address MsgBox LAST_CELL wbWorld.SaveAs "C:\hoge.xls", FileFormat:=xlWorkbookNormal appWorld.Quit 　　　開放処理 End Function 497 名前：496 [2012/03/05(月) 17:41:43.26 ] これを以下のように、参照設定せずに実行時バインディングで行ないたいのですが、 LAST_CELL（最終セルアドレス）の取得と、 SaveAsの部分が動作しません。定数の記述が異なるのか、そもそも実行時バインディング では記述できないのかも分かりません。どなたか御教授お願いします。 Function EXCEL_TEST2() '実行時バインディング　EXCELへの参照設定が不要　---------- Dim appWorld As Object 'Excel.Application Dim wbWorld As Object 'Excel.Workbook Dim Wksheet As Object 'Excel.WorkSheet Set appWorld = CreateObject("Excel.Application") '生成 Set wbWorld = appWorld.Workbooks.Add 'ブック追加 Set Wksheet = wbWorld.Worksheets(1) Wksheet.Cells(5, 5) = "カキコ" LAST_CELL = Wksheet.Cells.SpecialCells(xlLastCell).Address MsgBox LAST_CELL wbWorld.SaveAs "C:\hoge.xls", FileFormat:=xlWorkbookNormal appWorld.Quit 　　　開放処理 End Function 498 名前：デフォルトの名無しさん mailto:sage [2012/03/05(月) 18:03:38.27 ] >>496 参照設定しないと 定数 xlLastCell や xlWorkbookNormal は 参照先で定義されているから使えないと思うぞ 自前で Const定義するか　定数値を指定するかどっちかしないと 499 名前：496 [2012/03/05(月) 19:26:17.24 ] >>498様 有難うございます。あまり参照設定とかは経験がないものですから、 何から手を着けてよいのか分からない状態です。 constする値を調べる方法があればよいのですが。 検索が下手なせいか、なかなか参考になるサイトが見つかりません。 500 名前：496 [2012/03/05(月) 19:34:55.74 ] 496です。解決しました。 498様のヒントで、以下のサイトを見つけました。 ttp://park.geocities.jp/gdfsm000/jacob/jacob05.html 動かないところを片っ端から定数指定していきます。 有難うございました。 501 名前：デフォルトの名無しさん mailto:sage [2012/03/05(月) 19:44:05.05 ] こんにつわ、質問です。 With ActiveSheet.QueryTables.Add 使ってるときに、存在しないURL,空白のURLを打ち込んだときにExcelがフリーズしてしまいます。 どうするのがよいですか? 502 名前：デフォルトの名無しさん mailto:sage [2012/03/05(月) 19:44:54.64 ] 訂正 空白のurl→空白ページのurl 503 名前：デフォルトの名無しさん mailto:sage [2012/03/05(月) 19:53:56.57 ] www.microsoft.com/download/en/details.aspx?id=19600 何故かVBAの言語仕様書が混じってるみたいだ。 FirstReleaseが2008年なのがなんともw 504 名前：デフォルトの名無しさん mailto:sage [2012/03/05(月) 19:56:19.90 ] win7 64bit office2010 32bitです 画像を複数枚選択して、なおかつそれらを40%の大きさにリサイズして取り込みたいのですが、どうしても上手くいきません。どなたかご教授お願いします。 505 名前：デフォルトの名無しさん mailto:sage [2012/03/06(火) 00:23:45.39 ] >>504 506 名前：デフォルトの名無しさん mailto:sage [2012/03/06(火) 03:47:59.25 ] 教えてください。 If A then with B Else with C End if って動かないみたいなんだけど、他に方法ありますか？ 507 名前：デフォルトの名無しさん mailto:sage [2012/03/06(火) 03:53:58.23 ] >>506 下にEnd With が続くとエスパーして Dim target As Withで使う型、またはVariant If A then Set tartget = B Else Set tartget = C End If With target 処理 End With 508 名前：デフォルトの名無しさん mailto:sage [2012/03/06(火) 03:57:21.74 ] >>507 こんなに早く どうもありがとうございます。 509 名前：デフォルトの名無しさん mailto:sage [2012/03/06(火) 10:38:36.68 ] スレートPCについてるWebカメラで撮った画像を直接EXCELに貼り付けたいんですが、どんな方法があるでしょうか？ 望ましいのは、ボタンクリック等のイベントで撮影モードに移行し、撮影完了でEXCELに戻ってくるような操作方法です。 510 名前：デフォルトの名無しさん mailto:sage [2012/03/06(火) 11:02:50.25 ] フォームモジュールをインポートすると コードの先頭行に空白行が１行追加されてるのは仕様ですか？ 空白行を削除して保存しなおしても、また追加されてしまいます。 標準モジュールではそうなりません。 511 名前：デフォルトの名無しさん mailto:sage [2012/03/06(火) 11:16:15.79 ] >>509 shellかなんかで立ち上げてsendkeyで操作するとか 512 名前：デフォルトの名無しさん mailto:sage [2012/03/06(火) 11:48:06.15 ] イミディエイトウィンドウのバッファ容量って、もっと広げることはできないんでしょうか 途中経過を1000行ぐらい出力したら流れて消えてしまいました 513 名前：デフォルトの名無しさん mailto:sage [2012/03/06(火) 20:00:16.74 ] >>512 そんなこと考えてないで さっさとテキストファイルに出力して プログラムを進めてくれ 514 名前：デフォルトの名無しさん mailto:sage [2012/03/06(火) 21:08:23.50 ] イミディエイトって、どういう意味でいえいと？ 515 名前：デフォルトの名無しさん mailto:sage [2012/03/06(火) 21:16:17.49 ] >>514 完成したVBAマクロを試しに動かしたら、 何故かExcel巻き添えで落ちる呪いをお前にプレゼントしよう。 516 名前：デフォルトの名無しさん mailto:sage [2012/03/06(火) 21:25:45.56 ] 辞書で引いてみたら immediate は、 広大な、恒久的な という意味らしいな 517 名前：デフォルトの名無しさん mailto:sage [2012/03/06(火) 21:42:45.76 ] >>516 何ていう辞書？ 518 名前：デフォルトの名無しさん mailto:sage [2012/03/06(火) 21:55:00.87 ] >>517 何だったかな ロブスターとかだったかな 513に借りたんだけど 519 名前：デフォルトの名無しさん [2012/03/06(火) 22:39:09.48 ] フィルタ結果の件数の取得は、どうすればいいんでしょうか？ 520 名前：デフォルトの名無しさん mailto:sage [2012/03/07(水) 00:18:02.17 ] イミディエイトウィンドウって 一度に100行まで表示じゃなかったけか。 ちがってたらゴメン。 521 名前：デフォルトの名無しさん mailto:sage [2012/03/07(水) 00:31:03.27 ] >>518 元ネタがきになる 522 名前：デフォルトの名無しさん mailto:sage [2012/03/07(水) 00:31:33.21 ] イミディエイトウィンドウは200行がMAXで不可変らしいね。 >>519 「オートフィルタ　カウント」　でぐぐればいろいろ出てくる 523 名前：デフォルトの名無しさん mailto:sage [2012/03/07(水) 13:57:19.01 ] >>516 それimmediateの意味とはちがくね？ immenselyとかimmensityの意味じゃね？ 524 名前：デフォルトの名無しさん mailto:sage [2012/03/07(水) 15:07:58.10 ] >>523 直接の〜、とか　即時の〜　という意味だね。 形容詞だね。 ホントどうでもいいけど 525 名前：デフォルトの名無しさん mailto:sage [2012/03/07(水) 20:33:40.70 ] >>516 immediateはどうかんがえたって即って意味だろ 526 名前：デフォルトの名無しさん [2012/03/07(水) 21:21:07.31 ] ユーザーフォームを使おうと思ったのですが、 閉じるボタンを押した時、必ずフリーズします。 何故でしょうか。 527 名前：デフォルトの名無しさん mailto:sage [2012/03/07(水) 21:37:14.41 ] >>526 ボタンを押した時に実行されるコードを何故貼らない 528 名前：デフォルトの名無しさん mailto:sage [2012/03/07(水) 21:37:33.25 ] >>526 壊れているのかもな 529 名前：526 [2012/03/07(水) 21:42:22.61 ] すみません。526です。 セルをダブルクリックで呼び出すことにしていまして、 閉じるボタン押した時、セルが編集可能状態である為エラーが出るみたいです。 （ボタンで呼び出した場合は普通に閉じれました。） コードの中身はなく、ひとまずフォームを作った感じです。 ダブルクリックでフォーム呼び出しはやるべきではないのでしょうか。 530 名前：デフォルトの名無しさん mailto:sage [2012/03/07(水) 21:50:53.38 ] Cancel = False 531 名前：デフォルトの名無しさん mailto:sage [2012/03/07(水) 23:34:23.81 ] 教えてください。 まず変数aに1を代入し DO　LOOPの中でaを5にしました。 その後aを使うと元の1に戻っているのですが、 これは仕様ですよね？ この5という数値を使う方法はありませんか？ 532 名前：デフォルトの名無しさん [2012/03/07(水) 23:41:52.46 ] >>531 仕様がないAH0

---

---

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

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