Excel VBA 質問スレ Part69

1 名前：デフォルトの名無しさん mailto:sage [2020/12/13(日) 00:22:23.67 ID:Fd224klc0.net] !extend:checked:vvvvv:1000:512 ↑同じ内容を2行貼り付ける ExcelのVBAに関する質問スレです コード書き込みや作成依頼もOK ※前スレ Excel VBA 質問スレ Part68 https://mevius.5ch.net/test/read.cgi/tech/1598756127/ VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured 2 名前：デフォルトの名無しさん mailto:sage [2020/12/13(日) 00:40:59.48 ID:3UupZiaXa.net] いちおつ 3 名前：デフォルトの名無しさん mailto:sage [2020/12/13(日) 02:05:02.07 ID:8gJ86P5y0.net] 3次元配列 4 名前：デフォルトの名無しさん mailto:sage [2020/12/13(日) 09:38:15.23 ID:d7KSZ/+i0.net] >>1乙 前>>991です スレ変わったのでわかる人お願いします Excel関数のHyperLinkの処理を置き換え(APIHookのような処理)はどうすればできますか？ 目的としてはHyperLink関数では一部のURLの表示が遅い(Excel自体のタイムアウト待ち？)ので 直接「CreateObject("WScript.Shell").Run URL文字列」の処理をさせたいのです 関数名はHyperLinkのままにしたいのでAPIHookのような処理ができればいいのですが 5 名前：デフォルトの名無しさん [2020/12/13(日) 09:44:53.59 ID:QAnzRvam0.net] Office田中のおじいちゃんはなぜ突然Youtubeの更新が止まったの？ 6 名前：デフォルトの名無しさん mailto:sage [2020/12/13(日) 09:58:52.02 ID:8gJ86P5y0.net] ヒント:最初からコメント欄封鎖で察し 7 名前：デフォルトの名無しさん mailto:sage [2020/12/13(日) 10:04:09.41 ID:8gJ86P5y0.net] 他のExcel YouTuberを遠回しでディスったり他の講師を素人呼ばわりしてるから警告されたとか？？ 8 名前：デフォルトの名無しさん [2020/12/13(日) 18:01:59.62 ID:cE4yrWjc0.net] 田中はクソみたいなコードを広めるのやめて欲しい 9 名前：デフォルトの名無しさん mailto:sage [2020/12/13(日) 18:27:45.70 ID:+kVWWkIy0.net] >>8 俺は見てないがもし糞みたいなコードがあるなら本人に「ここの部分はこうした方がいい」と伝えるか 正しい糞ではないコードを自分で広めるなりすればいいんじゃね 10 名前：デフォルトの名無しさん mailto:sage [2020/12/13(日) 20:21:47.50 ID:RLxnk1oS0.net] >>9 サンプルにバグを見つけて伝えたことあるけど無視された そのまま放置 11 名前：デフォルトの名無しさん mailto:sage [2020/12/13(日) 22:55:06.01 ID:8gJ86P5y0.net] 質問掲示板(多分知恵袋)にVBAの質問してもちゃんと答えられる人は少ないですｷﾘｯ なぜなら彼らはVBの上級者であってエクセル上級者では無いからです！ﾄﾞﾔｯ これ、マジであの人が発言したからね。 ここの住人の方が詳しいと思われ 12 名前：デフォルトの名無しさん mailto:sage [2020/12/14(月) 12:29:36.45 ID:7J3AXcIkH.net] なんとかのネタ帳の方が分かりやすい 13 名前：デフォルトの名無しさん [2020/12/14(月) 13:10:44.97 ID:v8F0AU2W0.net] あのExcelしか知らないのが超糞偉そうにしてるのを見るのもショーみたいで面白い。 周りに初心者がたくさんいるのだろうな。 そして小さなExcelの世界しか知らないから天狗のようになって自分が神であるかのように勘違いしてる。 14 名前：デフォルトの名無しさん [2020/12/14(月) 15:02:42.82 ID:SoqrBv/c0.net] Excelはすべての会社員が使っているので、会社員の頂点に立つ男！みたいな気分なんだろな。 15 名前：デフォルトの名無しさん mailto:sage [2020/12/14(月) 18:25:01.11 ID:+U5ugI250.net] ラーメン屋のオヤジがウチのラーメンが世界一だと言ってるようなもんだろ ほっとけばいいのに 16 名前：デフォルトの名無しさん mailto:sage [2020/12/14(月) 20:45:35.63 ID:1UTk6KL+0.net] 一応、MS本社に認められたんだよね日本人初のMVP受賞とか 間違っていたらすまそ 17 名前：デフォルトの名無しさん [2020/12/14(月) 22:49:22.85 ID:SoqrBv/c0.net] じゃあ世界一って事か。 18 名前：デフォルトの名無しさん mailto:sage [2020/12/14(月) 23:00:48.78 ID:1UTk6KL+0.net] どーなんだろ？？ あの人、あまり手の内見せないぽいから 最終的には自分で考える事が大事と良く言ってるし。 MSからマクロ作成の依頼されたことあるらしいし。 19 名前：デフォルトの名無しさん mailto:sage [2020/12/15(火) 18:46:27.43 ID:/G3Q8qXw0.net] 日本人初＝世界一　ってのはどうかな 普通にできる人より詳しいのは認めるが 20 名前：デフォルトの名無しさん mailto:sage [2020/12/16(水) 05:13:46.62 ID:OBuLFyvl0.net] 本人来てるなｗ 21 名前：デフォルトの名無しさん mailto:sage [2020/12/16(水) 06:08:28.27 ID:5QiC3fDMx.net] vbaでホットキーの下線を引くのってどうやるの？ captionに(&Q)って入れたらそのまま"(&Q)"って表示されてしまうんだが 22 名前：デフォルトの名無しさん mailto:sage [2020/12/16(水) 18:46:12.78 ID:T3OIGsjX0.net] フォントかも？ 23 名前：デフォルトの名無しさん mailto:sage [2020/12/17(木) 15:35:36.14 ID:vxWFGGLL0.net] >>8 まぁ一見糞だけど知りたいところをスパッと見て 取れるように組んであるみたいだね あれを素晴らしいと見るのは初級者 糞と見るのは中級者 ああ、仕方なかったんだろうなぁと見るのが 上級者だろうね 24 名前：デフォルトの名無しさん mailto:sage [2020/12/17(木) 17:44:01.81 ID:H5UCfbuzp.net] 具体的なコードもなしにそんなことを言ってみても意味なくない？ 25 名前：デフォルトの名無しさん mailto:sage [2020/12/17(木) 18:18:37.46 ID:HhGRrbK00.net] 具体的に行動で示さなければ意味がないとも言えなくもないな 26 名前：デフォルトの名無しさん mailto:sage [2020/12/17(木) 19:29:42.36 ID:fIVTHnC60.net] 意味を具体的に言ってくれないと行動で示したことにならなくもないな 27 名前：デフォルトの名無しさん mailto:sage [2020/12/17(木) 21:10:06.33 ID:HhGRrbK00.net] 意味なんかなくてもいいな、いい意味で 28 名前：デフォルトの名無しさん mailto:sage [2020/12/17(木) 23:03:41.69 ID:xFG/tErCd.net] 示す行動しない意味が言って具体的にない 29 名前：デフォルトの名無しさん mailto:sage [2020/12/18(金) 00:01:06.37 ID:pmAsW6cw0.net] VBAのソースからエクセルを開き、 ある一つのセルに メールアドレスを2つ ;でつないで入れようとしています。 動作中にデバッガで止めて見たときは 2つとも入ってるのに 処理終了後に保存したファイルを開くと 最初の一つしか入ってないです。 ;以降が消えています。 保存処理はコレです。 Wb.SaveAs fullPath & "\" & newfilename, FileFormat:=xlWorkbookDefault どうすればメールアドレスを2つとも保存できるでしょうか。 セルに手入力して保存して開きなおした場合は ２つとも残っています。 30 名前：デフォルトの名無しさん mailto:sage [2020/12/18(金) 05:56:32.93 ID:MHBgXHLC0.net] >>29 その保存処理の行にブレークポイントを仕掛けて、保存直前のセルの内容を確認した？ 31 名前：デフォルトの名無しさん mailto:sage [2020/12/18(金) 11:37:45.35 ID:zcOsQbRrx.net] シートに多数配置されたフォームボタンの余白を一括で変えたいんですが これはどこのプロパティに入ってるんでしょうか？ 図形ボタンならばTextFrameにありますが、 フォームコントロールボタンには無いので困っています 32 名前：デフォルトの名無しさん mailto:sage [2020/12/18(金) 12:18:56.87 ID:zcOsQbRrx.net] 自己解決？ 階層のかなり深いところあって正しいかどうかわからないけれど 目的のmargintopは変えられたのでよしとします 33 名前：デフォルトの名無しさん mailto:sage [2020/12/18(金) 21:20:27.27 ID:2qJVkyjrr.net] >>29 fullPathの中身は確認した? 34 名前：デフォルトの名無しさん [2020/12/18(金) 21:24:38.24 ID:d7JsJWQH0.net] >>30 してませんでした してみたら上書きしちゃってことが発覚 すみませんでした 35 名前：デフォルトの名無しさん mailto:sage [2020/12/18(金) 21:26:41.06 ID:tZwK+Ox70.net] Fullい、アルPathの中身〜　 36 名前：デフォルトの名無しさん mailto:sage [2020/12/18(金) 21:31:55.70 ID:2qJVkyjrr.net] >>35 隠れてー 37 名前：デフォルトの名無しさん mailto:sage [2020/12/18(金) 22:42:55.21 ID:wJm+i3S50.net] 2013でセキュリティがウンコとか言われずにシートにブラウザ埋め込む方法ない? 2003使えってのは無しで。 38 名前：デフォルトの名無しさん mailto:sage [2020/12/18(金) 22:44:42.88 ID:wJm+i3S50.net] あとフォーム使えってのも無しで。 フォームをシートに埋め込めるならフォームでも良いけど。 39 名前：デフォルトの名無しさん mailto:sage [2020/12/19(土) 08:46:18.20 ID:I2l+BhY+0.net] 正規表現使ったら複数あったIf文がひとつにまとまって便利だわ 40 名前：デフォルトの名無しさん mailto:sage [2020/12/19(土) 09:12:21.18 ID:61b7WmYd0.net] >>37 Ａｃｔｉｖｅｘ　コントロールの追加 41 名前：デフォルトの名無しさん [2020/12/19(土) 09:13:26.65 ID:XKRgJ0KSM.net] 性器表現使ったら警察に通報されたわ ω 42 名前：デフォルトの名無しさん [2020/12/19(土) 09:17:51.58 ID:yZxXMpJa0.net] ろくでなし子さんか。 43 名前：デフォルトの名無しさん mailto:sage [2020/12/19(土) 09:18:25.16 ID:61b7WmYd0.net] あ、フォームしか使えんのか、やっぱ無理 44 名前：デフォルトの名無しさん mailto:sage [2020/12/19(土) 10:42:01.25 ID:bPXc2una0.net] vbsの質問スレってありませんか？ 45 名前：デフォルトの名無しさん mailto:sage [2020/12/19(土) 12:26:52.95 ID:/kQ9IsbnM.net] vbsってなぁに？ 46 名前：デフォルトの名無しさん mailto:sage [2020/12/19(土) 13:55:17.82 ID:B7wez7Ce0.net] vibes 47 名前：デフォルトの名無しさん mailto:sage [2020/12/19(土) 14:26:52.27 ID:apUbT12I0.net] >>44 馬鹿は死ね 48 名前：デフォルトの名無しさん mailto:sage [2020/12/19(土) 15:28:53.56 ID:0faaSRGa0.net] >>39 どんな感じ？興味ある。 エクセルで式長いと読む気なくすから 49 名前：デフォルトの名無しさん mailto:sage [2020/12/19(土) 19:29:28.19 ID:alzND/kd0.net] 新しく入った部署に一連の処理をまとめた動作が一時間かかるマクロがあったのですが 途中でたまにALTキーを押して動作が止まってないかみたほうが良いといわれましたが ALTキーにそういう使い方がありますか？ コードを見ると2つのブック間での大量の転記がメインでしたがselectで行ったり来たりしてるのと do eventsが目につくのと画面更新が停止になっていないのが気になりました 50 名前：デフォルトの名無しさん mailto:sage [2020/12/19(土) 19:38:18.28 ID:xrHuR8aPM.net] 一から作り直してやれよ 51 名前：デフォルトの名無しさん mailto:sage [2020/12/19(土) 19:39:14.70 ID:61b7WmYd0.net] >>49 スクリーンセーバーとかで画面が消えているときに画面を表示させるってことじゃね 気になるなら言ったやつに聞けよ 52 名前：デフォルトの名無しさん mailto:sage [2020/12/19(土) 19:42:46.83 ID:LkhtCrGt0.net] 途中で止まってないか確認が必要なツールってなんだそれww 53 名前：デフォルトの名無しさん mailto:sage [2020/12/19(土) 19:46:02.83 ID:61b7WmYd0.net] SHIFTだった、ALTはメニューのショートカットが出るので固まっているかどうかわかるんだな 54 名前：デフォルトの名無しさん mailto:sage [2020/12/19(土) 19:46:14.78 ID:KLAxshEw0.net] 関数式びっしりのリスト表はINDIRECT関数でシート名を21年度にしたらまともに動かないようにしといた 俺の最後のあがき 55 名前：デフォルトの名無しさん mailto:sage [2020/12/19(土) 19:50:43.64 ID:alzND/kd0.net] オフィスがアップデートされてからめちゃめちゃ重くなったらしくて（多分2010以前から2016） コードは流し見してみてもactivate、selectの連続なので書き方としてはダメなのは分かるのですが オフィスのアップデートでマクロの処理時間に影響してるのはどの辺りかとおもってまして 56 名前：デフォルトの名無しさん mailto:sage [2020/12/19(土) 19:55:12.16 ID:alzND/kd0.net] >>53 なるほど！ありがとうございます 57 名前：デフォルトの名無しさん mailto:sage [2020/12/19(土) 19:58:20.64 ID:xrHuR8aPM.net] 転記マクロなんて本来速いはずなんだがな 数万行のVLOOKとかならともかく 58 名前：デフォルトの名無しさん mailto:sage [2020/12/19(土) 19:59:38.59 ID:LkhtCrGt0.net] vlookは速い だめなのはコピペ 59 名前：デフォルトの名無しさん mailto:sage [2020/12/19(土) 20:05:32.11 ID:4RWx2e/N0.net] メモリが足りてへんだけやろ 200x使ってたっていつのPCやねん 60 名前：デフォルトの名無しさん mailto:sage [2020/12/19(土) 20:06:11.88 ID:xy5yRKkZ0.net] >>57 作り方による 初心者はセル一つ一つに入れていくような処理を普通に作ったりする 61 名前：デフォルトの名無しさん mailto:sage [2020/12/19(土) 20:14:37.97 ID:alzND/kd0.net] >>57 コード読みのしんどくて処理を追うの断念しました 62 名前：デフォルトの名無しさん mailto:sage [2020/12/19(土) 20:24:14.95 ID:xrHuR8aPM.net] >>58 VLOOKは時間かかるよ 参照先が数万行あるからね そういう前提 63 名前：デフォルトの名無しさん mailto:sage [2020/12/19(土) 20:55:46.21 ID:61b7WmYd0.net] 別ファイルへのリンクは遅い 64 名前：デフォルトの名無しさん mailto:sage [2020/12/20(日) 00:11:18.42 ID:sV78pExa0.net] >>55 ネッワークがヘボだと、ファイルの読み書きで止まるのも遅くなるのも普通にある。 65 名前：デフォルトの名無しさん [2020/12/20(日) 00:39:42.92 ID:j7lOdAJ40.net] >>64 ネットワークフォルダにあるファイルの読み書きという意味でよいですか？ 66 名前：デフォルトの名無しさん mailto:sage [2020/12/20(日) 07:19:21.13 ID:9C3kHidD0.net] >>49 DoEventsとかScreenUpdatingの停止は多分普段コードに触れない人も操作する事を想定しているのだと思う。 より時間がかかったとしても画面に変化があった方が時間が短く感じるらしいよ。 67 名前：デフォルトの名無しさん [2020/12/20(日) 08:42:07.93 ID:j7lOdAJ40.net] >>66 そういうこともあるのですね 68 名前：デフォルトの名無しさん mailto:sage [2020/12/20(日) 08:42:23.86 ID:sV78pExa0.net] >>65 そう。 読み込み途中で止まっちゃって、キャンセルボタンを押すと動きだしたり。 逆に、あーまた止まったと思ってキャンセル押すと、読み込みに失敗することも。(この場合止まってるのではなく遅いだけ) ネットワーク関係ないなら、xlsがxlsxになった影響かも。 zip圧縮してるせいで、容量が大きいと遅くなる。 69 名前：デフォルトの名無しさん [2020/12/20(日) 09:05:36.29 ID:j7lOdAJ40.net] >>68 私は入ったばっかりのですが確かにネットワークのフォルダの挙動がおかしいと感じてはいます フォルダに入ろうとすると権限メッセージが出て弾かれる、二回目はすんなり入れるなど ２、3年前にオフィス移転（システム的にも変更？）してから動作が不安定らしいです こういう場合必要ファイルを一旦ローカルに保存してから処理を実行などの方が早いかもしれませんね 70 名前：デフォルトの名無しさん mailto:sage [2020/12/20(日) 10:43:45.19 ID:Ac0m1tee0.net] コードの各所にdebug.printで処理名と時間出すようにしてイミディエイトウィンドウが見える状態でマクロ実行したらどこで固まってるか分かると思うけど 71 名前：デフォルトの名無しさん mailto:sage [2020/12/20(日) 12:10:16.68 ID:nJ21/AVE0.net] Debug.PrintってVBEを開かないと見えないじゃん 素人対策ならどっかのセルの数字とか色を適当に変化させた方がいいかも 72 名前：デフォルトの名無しさん mailto:sage [2020/12/20(日) 12:59:56.30 ID:CqvjoJZt0.net] 今度はそこでバグるんですね 73 名前：デフォルトの名無しさん [2020/12/20(日) 13:14:04.40 ID:6+Wk6JOS0.net] 今度はそこでハゲるんですよ 74 名前：デフォルトの名無しさん mailto:sage [2020/12/20(日) 23:10:55.45 ID:gTVP+0oL0.net] Application.StatusBar がとっても便利 75 名前：デフォルトの名無しさん mailto:sage [2020/12/21(月) 11:54:50.24 ID:bZ3GkeZc0.net] 全体の処理数がわかるなら、残り（未処理）が何件あるかを表示すると多少イライラが解消される 76 名前：デフォルトの名無しさん [2020/12/21(月) 12:30:22.40 ID:uS6jpmSaM.net] 途中でクリップボード使ったら 卑猥な言葉が混入しまちた！ 77 名前：デフォルトの名無しさん mailto:sage [2020/12/22(火) 00:13:23.28 ID:lruv7PIH0.net] ミスターTか。この人の経営してる会社、実態が無いと聞いたが 娘と親子でExcelのセミナー会社経営らしいが 78 名前：デフォルトの名無しさん mailto:sage [2020/12/22(火) 03:50:30.98 ID:rWw9Je1ea.net] 娘何歳？ 79 名前：デフォルトの名無しさん mailto:sage [2020/12/22(火) 06:18:34.01 ID:NAGl+KXI0.net] すみません教えてください Option Explicit Private Sub UserForm_Initialize() Dim r As Long ComboBox1.ColumnCount = 2 For r = 1 To Range("A" & Rows.Count).End(xlUp).Row ComboBox1.AddItem Range("A" & r).Value ComboBox1.List(r - 1, 1) = r 'リストの2列目にシートの何行目かを記憶 Next End Sub Private Sub ComboBox1_Change() Dim r As Long Dim c As Integer r = ComboBox1.List(ComboBox1.ListIndex, 1) '選択したリストの2列目(シートの何行目か) ComboBox2.Clear For c = 2 To Cells(r, Columns.Count).End(xlToLeft).Column ComboBox2.AddItem Cells(r, c).Value Next End Sub 上記コードだとシート１のデータがコンボボックスに反映されるんですが シート２のデータを反映したくて色々試したんですが解決できず 詳しい方がいましたら教えてください 80 名前：デフォルトの名無しさん mailto:sage [2020/12/22(火) 07:33:43.93 ID:mqeQ3pSMd.net] 単にRangeやCellsと書いたのではアクティブなシートしか参照しない 複数シートを使わない場合であっても単純なエラーを防ぐ意味でシートを指定したほうがいいと思いますよ 81 名前：デフォルトの名無しさん mailto:sage [2020/12/22(火) 07:51:09.62 ID:k2dAsx4kx.net] 名前付きセルを参照する時、Range("名前")だけだとVBEから実行するときに 他のブックがアクティブになっていて"名前"のセルが無いエラーが出るんで ThisWorkbook　を指定したいんですが、RangeオブジェクトがSheetにしか無いんで 名前指定しているにも関わらず ThisWorkbook.Sheets("sheet1").Range("名前") みたいにするしか無いんですが これシート指定の部分を任意にすることは出来ないんでしょうか？ 82 名前：デフォルトの名無しさん mailto:sage [2020/12/22(火) 07:54:48.95 ID:asPFS5mN0.net] 出来る出来ないで聞かれたら出来る 83 名前：デフォルトの名無しさん mailto:sage [2020/12/22(火) 10:21:28.79 ID:Lmg+KcEvM.net] ツリーからシートを選んでプロパティからオブジェクト名をよく見てみると良いよ。シート名とオブジェクト名が切り離されてる事に気付くから。 そしたら【オブジェクト名】.Cells([RowIndex],[ColumnIndex])とか【オブジェクト名】.Range(“名前”)とかでやってみ。 84 名前：デフォルトの名無しさん mailto:sage [2020/12/22(火) 10:41:24.56 ID:kzqT97dS0.net] >>81 あとになって自分のコードが理解できなくなるに1ガバチョ 85 名前：デフォルトの名無しさん mailto:sage [2020/12/22(火) 14:37:29.68 ID:sqvmca9RM.net] >>81 別にそれでいいじゃんよ 86 名前：デフォルトの名無しさん mailto:sage [2020/12/22(火) 14:44:06.90 ID:sqvmca9RM.net] >>79 そもそもシート1とかシート2とか何を言ってるんだ？ シート1というシート名のシートがあるなら、 Sheet("シート1")と指定すればいいだけだろうに、それがプログラム中に無いぞ。 87 名前：デフォルトの名無しさん mailto:sage [2020/12/22(火) 16:07:51.53 ID:wg95/wQDd.net] いつものあいつがコピペしただけのものでは？ 88 名前：デフォルトの名無しさん mailto:sage [2020/12/22(火) 20:57:51.79 ID:zqIv26bj0.net] 質問です。 シート　1〜 最終シート全ての 「B列の14行目」　から 「B列の値のあるまとまりの最終セルの一つ前まで」 のセルの値をクリアしたいです。 下のコードで試してみたのですが、アプリケーション定義またはオブジェクト定義のエラーと出てしまいます。 VBA覚え始めたばかりの完全初心者でどこが違うのか分からないです すみませんが、教えてもらえませんでしょうか Sub test() G = Sheets.Count For H = 1 To G Sheets(H).Range(Range("B14"), Range("B14").End(xlDown).Offset(-1, 0)).ClearContents Next End Sub 89 名前：デフォルトの名無しさん mailto:sage [2020/12/22(火) 21:29:14.42 ID:sqvmca9RM.net] Dim G As Integer, H As Integer を冒頭に入れてもダメかえ？ 90 名前：デフォルトの名無しさん mailto:sage [2020/12/22(火) 21:43:02.14 ID:zqIv26bj0.net] 入れてみましたがダメでした… OptionExplicitも外してますので宣言の問題ではないようです でも宣言はすべきですね… 91 名前：デフォルトの名無しさん mailto:sage [2020/12/22(火) 21:47:05.04 ID:sqvmca9RM.net] そういやクリアコンテンツって シートの選択から直は無理だったような？w Sheet(H).Select を行で独立させてみたら？ 92 名前：デフォルトの名無しさん mailto:sage [2020/12/22(火) 21:50:43.47 ID:sqvmca9RM.net] すまん Sheets ね。s抜けたわ。 93 名前：デフォルトの名無しさん mailto:sage [2020/12/22(火) 21:55:05.91 ID:zqIv26bj0.net] すみません、自己解決しました… 色々ありがとうございます。 Rangeの範囲指定の中のRangeにSheets(H).が抜けていたのが原因でした。 For Nextでシートが移ってもSheets(1)のRange範囲を参照するようになっていたようです・ 94 名前：デフォルトの名無しさん mailto:sage [2020/12/22(火) 22:02:13.02 ID:sqvmca9RM.net] あ、その罠かw レンジレンジでやるとそこめんどくさいんだよな Cellsのがいいと思う あと>>91でもいけるんじゃないかな 95 名前：デフォルトの名無しさん mailto:sage [2020/12/22(火) 22:08:35.35 ID:AEyd3vLu0.net] アクティブじゃないシート上の画像のサイズ変更すると想定と少しずれるんですが原因分かりますか？ サイズ変更する前にシートをアクティブにすると全て同じ大きさになるのでコードは合ってると思います 96 名前：デフォルトの名無しさん mailto:sage [2020/12/23(水) 05:25:00.77 ID:j3OsNt/k0.net] >>80 早速の回答ありがとうございます For r = 1 To Range("A" & Rows.Count).End(xlUp).Row ↑ For r = 1 To Sheet("１" & Rows.Count).End(xlUp).Row に変更したらいいのでしょうか？ 初心者ですいません 97 名前：デフォルトの名無しさん mailto:sage [2020/12/23(水) 06:50:55.19 ID:xBPwPYbC0.net] >>96 For r = 1 To Sheet1.Range("A" & Rows.Count).End(xlUp).Row 98 名前：デフォルトの名無しさん mailto:sage [2020/12/23(水) 11:44:28.79 ID:j3OsNt/k0.net] >>97 ご教授ありがとうございます 初心者じみた質問で申し訳ありません！ ComboBox2.AddItem Sheet3.Range(r, c).Value ↑ Sheet3を参照できないのですがどこが間違っているのか理解できません わかる方いましたらよろしくです 99 名前：デフォルトの名無しさん mailto:sage [2020/12/23(水) 11:46:56.79 ID:o2ScoeZIM.net] >>98 RangeをCellsに変えてみ 100 名前：デフォルトの名無しさん mailto:sage [2020/12/23(水) 15:07:17.52 ID:Xl4mgk4Md.net] いつものあいつ確定

---

---

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

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